32、项目跟踪器与客户服务应用开发全解析

项目跟踪器与客户服务应用开发全解析

项目跟踪器应用开发

在项目跟踪器应用开发中， frmContacts 表单的开发是关键部分，以下将详细介绍相关代码及功能实现。

1. 添加事件过程

在 frmContacts 表单中添加了一系列事件过程，以实现不同的功能。
- 添加联系人到项目 ：

Private Sub cmdAddToProject_Click()
    On Error GoTo HandleError
    Dim strSQLStatement As String
    '构建 SQL 语句以插入新联系人到当前项目
    strSQLStatement = BuildSQLInsertProjectsContacts(objContacts.ContactId, _
    intContactProjectAdd)
    '将记录插入数据库
    ProcessUpdate (strSQLStatement)
    Call Forms("frmProjects").RefreshContacts
    '关闭联系人表单，返回项目屏幕
    DoCmd.Close acForm, "frmContacts"
    Exit Sub
HandleError:
    GeneralErrorHandler Err.Number, Err.Description, CONTACTS_FORM, _
    "cmdAddToProject_Click"
    Exit Sub