28、项目跟踪应用程序开发指南

项目跟踪应用程序开发指南

在项目管理应用程序的开发中，我们需要实现一系列功能来管理项目和联系人信息。以下将详细介绍相关功能的实现步骤和代码。

项目对象的操作

在项目管理中，我们有一个 clsProjects 类模块，其中包含了一些重要的方法来处理项目对象。

• 从表单填充属性 ：以下代码实现了从表单中获取数据并填充到项目对象的属性中。

If Forms("frmProjects")!txtDateDue <> "" Then
    Me.DateDue = CDate(Forms("frmProjects")!txtDateDue)
End If
Me.Status = Forms("frmProjects")!cboStatus
Exit Sub
HandleError:
    GeneralErrorHandler Err.Number, Err.Description, CLS_PROJECTS, _
    "PopulatePropertiesFromForm"
Exit Sub

• 清空对象 ： ClearObject 方法用于将项目对象的所有属性重置为初始值，以便可以用于存储新的项目记录。

Sub ClearObject()
    On Error GoTo HandleError