【正文】 39。清空控件 Call LoadData 39。重新裝載數(shù)據(jù) If 0 Then 39。如果還存在記錄 Call ShowData 39。重新顯示數(shù)據(jù) End If 39。設(shè)置控件Enable值為不可用 Call ControlEnable(False) 39。添加、刪除按鈕可用，修改、取消、保存按鈕不可用 = True: = False: = True = False: = False MsgBox (成功刪除的數(shù)據(jù)!) End If Else MsgBox (沒(méi)有可刪除的數(shù)據(jù)!) End If Exit SubErrMsg: 39。報(bào)告出錯(cuò)信息 MsgBox , vbExclamation, 出錯(cuò)End SubPrivate Sub CmdSave_Click()39。保存操作 On Error GoTo ErrMsg 39。錯(cuò)誤處理 If Not CheckData Then Exit Sub 39。如果數(shù)據(jù)不合法就退出 If flag = Modify Then 39。如果是修改數(shù)據(jù) msg = MsgBox(您確實(shí)要修改這條數(shù)據(jù)嗎?, vbYesNo) If msg = vbYes Then Call setData 39。設(shè)置數(shù)據(jù) Else Exit Sub End If ElseIf flag = Add Then 39。如果是添加新數(shù)據(jù) Call setData 39。設(shè)置數(shù)據(jù) End If 39。更新數(shù)據(jù) 39。設(shè)置控件的可用性 = True: = True: = True = False: = False If flag = Add Then MsgBox (成功添加數(shù)據(jù)！) Else MsgBox (成功更新數(shù)據(jù)!) End If Call LoadData 39。重新裝載數(shù)據(jù) Call ShowData 39。重新顯示數(shù)據(jù) Exit SubErrMsg: 39。報(bào)告出錯(cuò)信息 MsgBox , vbExclamation, 出錯(cuò)End SubPrivate Function CheckData() As Boolean39。檢查數(shù)據(jù)的合法性 Dim rst As Dim msgt As String msgt = 39。檢查數(shù)據(jù) If Trim(txt(0).Text) = Then 39。檢查提醒主題是否為空 msgt = 提醒主題為空； 39。光標(biāo)定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) End If If Not msgt = Then 39。如果不為空，給出錯(cuò)誤提示 MsgBox (msgt) CheckData = False 39。返回False Exit Function End If CheckData = True 39。合法返回TrueEnd FunctionPrivate Sub setData()39。為字段設(shè)置數(shù)據(jù) (提醒主題) = (0).Text (提醒時(shí)間) = (提醒對(duì)象) = UserID (聯(lián)系人) = Left(Trim(), 5) (聯(lián)系方式) = (1).Text (提醒內(nèi)容) = (2).Text (是否完成) = Trim() (錄入人員) = UserIDEnd SubPrivate Sub cmdCancel_Click()39。取消操作 Call ShowData 39。重新在控件中顯示信息 39。設(shè)置控件Enable值為不可用 Call ControlEnable(False) 39。修改、刪除、添加按鈕可用,保存和取消按鈕不可用 = True: = True: = True = False: = FalseEnd SubPrivate Sub DataGrid1_Click()39。在控件中顯示記錄 Call ShowData 39。顯示數(shù)據(jù)End SubPrivate Sub TreeView1_NodeClick(ByVal Node As )39。選擇聯(lián)系人 For Index = 0 To 1 If = Trim((Index)) Then = Index Exit For End If Next IndexEnd SubPrivate Sub CmdExit_Click()39。退出操作 = True Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)39。退出操作 = True Unload MeEnd Sub3.“通訊日志”模塊程序代碼 Option ExplicitDim rs As Dim SQL As StringDim msg As StringDim Index As IntegerDim flag As String 39。判斷是新增記錄還是修改記錄Dim nod1 As Node 39。定義Node對(duì)象Dim nod2 As Node 39。定義Node對(duì)象Dim F_key As String 39。保存父節(jié)點(diǎn)的關(guān)鍵字Dim F_text As String 39。保存父節(jié)點(diǎn)的文本Dim C_key As String 39。保存子節(jié)點(diǎn)的關(guān)鍵字Dim C_text As String 39。保存子節(jié)點(diǎn)的文本Private Sub Form_Load() Dim rst As 39。初始化聯(lián)系人ComboBox SQL = Select * from 聯(lián)系人信息表 Set rst = SelectSQL(SQL, msg) If = 0 Then MsgBox 沒(méi)有聯(lián)系人信息，請(qǐng)先建立聯(lián)系人信息！ Exit Sub Else Do While Not And Not 39。添加到ComboBox列表 ((聯(lián)系人ID) amp。 (姓名)) 39。指向下一條記錄 Loop = 0 39。默認(rèn)ComboBox End If Call LoadData 39。裝載數(shù)據(jù) Call ShowData 39。顯示數(shù)據(jù)End SubPrivate Sub LoadData()39。裝載數(shù)據(jù) Set rs = Nothing 39。查詢通訊日志信息 SQL = SELECT * FROM 通訊日志表 where 通訊人員=39。 amp。 UserID amp。 39。 ORDER BY 通訊時(shí)間 Desc Set rs = SelectSQL(SQL, msg) Set = rs 39。設(shè)置日志ID、錄入人員在DataGrid中不可見(jiàn) (0).Visible = False (7).Visible = False If = 0 Then 39。如果不存在記錄 39。編輯控件可用性 = True: = False: = False = False: = False Else 39。編輯控件可用性 = True: = True: = True = False: = False End If Call Tree 39。構(gòu)造樹(shù) Call ControlEnable(False) 39。設(shè)置控件Enable值End SubPrivate Sub Tree()39。構(gòu)造樹(shù)操作 Dim rst As Dim ms As Set rst = Nothing Set ms = Nothing SQL = select * from 群組信息表 ORDER BY 優(yōu)先級(jí) Set rst = SelectSQL(SQL, msg) If = 0 Then 39。如果不存在群組信息 MsgBox 沒(méi)有群組信息，請(qǐng)先建立群組信息！ Exit Sub Else 39。清空TreeView Do Until 39。添加父節(jié)點(diǎn)（群組節(jié)點(diǎn)） F_key = Trim((群組ID) amp。 (群組名稱)) F_text = Trim((群組名稱)) Set nod1 = (, , F_key, F_text, 1) 39。查詢相應(yīng)群組里面的聯(lián)系人 SQL = SELECT * FROM 聯(lián)系人信息表 where SQL = SQL amp。 群組ID=39。 amp。 Left(F_key, 2) amp。 39。 ORDER BY 優(yōu)先級(jí) Set ms = SelectSQL(SQL, msg) If 0 Then 39。如果該群組存在聯(lián)系人 Do Until 39。添加子節(jié)點(diǎn)（聯(lián)系人節(jié)點(diǎn)） C_key = Trim((聯(lián)系人ID) amp。 (姓名)) C_text = Trim((姓名)) Set nod2 = (F_key, tvwChild, C_key, C_text, 2) Loop End If Loop End IfEnd SubPrivate Sub Co