34、客户服务应用程序开发全流程指南

客户服务应用程序开发全流程指南

一、客户对象类模块代码添加

1.1 客户记录检索函数

在开发客户服务应用程序时，首先要实现客户记录的检索功能。以下代码根据 intCustomerLookupId 的值来决定是检索单个客户记录还是所有客户记录：

If intCustomerLookupId > 0 Then
    'if form is being opened for selected customer from frmSearch
    Set rsCust = ExecuteSPRetrieveRS("spRetrieveSelectedCustomer", _
    intCustomerLookupId)
Else
    'if form is being opened for all customer records
    Set rsCust = ExecuteSPRetrieveRS("spRetrieveAllCustomers")
End If
'return the populated recordset
Set RetrieveCustomers = rsCust
Exit Function
HandleError:
    GeneralErrorHandler Err.Number, Err.Description, CLS_CUSTOMER, _
    "RetrieveCustomers"
Exit Function

1.2 从记录集填充属性过程

将 PopulateP