80、案例研究：Wrox租赁商店系统开发

案例研究：Wrox租赁商店系统开发

客户业务规则代码实现

代码通用部分

在编写源代码时，每个过程的顶部附近需要包含以下代码，用于处理事务上下文：

Dim objContext As ObjectContext
Set objContext = GetObjectContext()

接着，在正常退出和错误处理时分别调用 SetComplete 和 SetAbort ：

objContext.SetComplete
Exit xxx
ErrorHandler:
Set objCustomerDB = Nothing
objContext.SetAbort
LogError Err.Number, Err.Description, cProcName, _
Err.Source
End xxx

客户信息操作

• 获取客户详细信息 ：为了获取客户的姓名、地址和订单详细信息，需要从 CustomerDB 对象调用 GetData 方法。通过一个新的函数 GetDetailsByID 来实现：

Public Function GetDetailsByID(ByVal Customer