通訊錄管理系統設計畢業論文-資料下載頁

　　

【正文】 39。清空控件 Call LoadData 39。重新裝載數據 If 0 Then 39。如果還存在記錄 Call ShowData 39。重新顯示數據 End If 39。設置控件Enable值為不可用 Call ControlEnable(False) 39。添加、刪除按鈕可用，修改、取消、保存按鈕不可用 = True: = False: = True = False: = False MsgBox (成功刪除的數據!) End If Else MsgBox (沒有可刪除的數據!) End If Exit SubErrMsg: 39。報告出錯信息 MsgBox , vbExclamation, 出錯End SubPrivate Sub CmdSave_Click()39。保存操作 On Error GoTo ErrMsg 39。錯誤處理 If Not CheckData Then Exit Sub 39。如果數據不合法就退出 If flag = Modify Then 39。如果是修改數據 msg = MsgBox(您確實要修改這條數據嗎?, vbYesNo) If msg = vbYes Then Call setData 39。設置數據 Else Exit Sub End If ElseIf flag = Add Then 39。如果是添加新數據 Call setData 39。設置數據 End If 39。更新數據 39。設置控件的可用性 = True: = True: = True = False: = False If flag = Add Then MsgBox (成功添加數據！) Else MsgBox (成功更新數據!) End If Call LoadData 39。重新裝載數據 Call ShowData 39。重新顯示數據 Exit SubErrMsg: 39。報告出錯信息 MsgBox , vbExclamation, 出錯End SubPrivate Function CheckData() As Boolean39。檢查數據的合法性 Dim rst As Dim msgt As String msgt = 39。檢查數據 If Trim(txt(0).Text) = Then 39。檢查提醒主題是否為空 msgt = 提醒主題為空； 39。光標定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) End If If Not msgt = Then 39。如果不為空，給出錯誤提示 MsgBox (msgt) CheckData = False 39。返回False Exit Function End If CheckData = True 39。合法返回TrueEnd FunctionPrivate Sub setData()39。為字段設置數據 (提醒主題) = (0).Text (提醒時間) = (提醒對象) = UserID (聯系人) = Left(Trim(), 5) (聯系方式) = (1).Text (提醒內容) = (2).Text (是否完成) = Trim() (錄入人員) = UserIDEnd SubPrivate Sub cmdCancel_Click()39。取消操作 Call ShowData 39。重新在控件中顯示信息 39。設置控件Enable值為不可用 Call ControlEnable(False) 39。修改、刪除、添加按鈕可用,保存和取消按鈕不可用 = True: = True: = True = False: = FalseEnd SubPrivate Sub DataGrid1_Click()39。在控件中顯示記錄 Call ShowData 39。顯示數據End SubPrivate Sub TreeView1_NodeClick(ByVal Node As )39。選擇聯系人 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對象Dim nod2 As Node 39。定義Node對象Dim F_key As String 39。保存父節點的關鍵字Dim F_text As String 39。保存父節點的文本Dim C_key As String 39。保存子節點的關鍵字Dim C_text As String 39。保存子節點的文本Private Sub Form_Load() Dim rst As 39。初始化聯系人ComboBox SQL = Select * from 聯系人信息表 Set rst = SelectSQL(SQL, msg) If = 0 Then MsgBox 沒有聯系人信息，請先建立聯系人信息！ Exit Sub Else Do While Not And Not 39。添加到ComboBox列表 ((聯系人ID) amp。 (姓名)) 39。指向下一條記錄 Loop = 0 39。默認ComboBox End If Call LoadData 39。裝載數據 Call ShowData 39。顯示數據End SubPrivate Sub LoadData()39。裝載數據 Set rs = Nothing 39。查詢通訊日志信息 SQL = SELECT * FROM 通訊日志表 where 通訊人員=39。 amp。 UserID amp。 39。 ORDER BY 通訊時間 Desc Set rs = SelectSQL(SQL, msg) Set = rs 39。設置日志ID、錄入人員在DataGrid中不可見 (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。構造樹 Call ControlEnable(False) 39。設置控件Enable值End SubPrivate Sub Tree()39。構造樹操作 Dim rst As Dim ms As Set rst = Nothing Set ms = Nothing SQL = select * from 群組信息表 ORDER BY 優先級 Set rst = SelectSQL(SQL, msg) If = 0 Then 39。如果不存在群組信息 MsgBox 沒有群組信息，請先建立群組信息！ Exit Sub Else 39。清空TreeView Do Until 39。添加父節點（群組節點） F_key = Trim((群組ID) amp。 (群組名稱)) F_text = Trim((群組名稱)) Set nod1 = (, , F_key, F_text, 1) 39。查詢相應群組里面的聯系人 SQL = SELECT * FROM 聯系人信息表 where SQL = SQL amp。 群組ID=39。 amp。 Left(F_key, 2) amp。 39。 ORDER BY 優先級 Set ms = SelectSQL(SQL, msg) If 0 Then 39。如果該群組存在聯系人 Do Until 39。添加子節點（聯系人節點） C_key = Trim((聯系人ID) amp。 (姓名)) C_text = Trim((姓名)) Set nod2 = (F_key, tvwChild, C_key, C_text, 2) Loop End If Loop End IfEnd SubPrivate Sub Co