通訊錄管理系統設計畢業論文(專業版)

　　

【正文】 群組ID=39。 amp。判斷是新增記錄還是修改記錄Dim nod1 As Node 39。檢查數據 If Trim(txt(0).Text) = Then 39。設置控件Enable值為不可用 Call ControlEnable(False) 39。設置控件Enable值為可用 Call ControlEnable(True) 39。 (群組名稱)) F_text = Trim((群組名稱)) Set nod1 = (, , F_key, F_text, 1) 39。 Set rst = Nothing Set rst = SelectSQL(SQL, msg) If Trim((用戶類別)) = 普通員工 Then SQL = SELECT * FROM 提醒信息表 where 提醒對象=39。保存子節點的關鍵字Dim C_text As String 39。 , amp。 strWhere amp。% amp。如果存在記錄 = 0 = True Else = False End IfEnd SubPrivate Sub CmdSearch_Click()39。在他們身上，我看到的是為人師表的高尚情操，學到的是豐富的知識和做人的道理。在對具體實現功能模塊進行編程時，要養成良好的加注釋的習慣，這樣的話不僅能理清思路，而且可以為以后的調試程序帶來很大的方便。□ 用戶管理： 維護系統用戶的基本信息。2. “群組設置“模塊的實現“群組設置“模塊主要用于負責管理聯系人的群組信息，其實現目標、窗體布局和主要程序代碼如下所示。1. “目錄查詢“模塊的實現“目錄查詢“模塊主要負責為用戶提供通訊目錄查詢功能。 amp。字段名稱 數據類型 可否為空 說明提醒ID Nvarchar(6) 主鍵 標識種子子增1提醒主題 Nvarchar(50) Not Null 提醒主題提醒時間 Datetime(8) Null 提醒時間提醒對象 char（6） 外鍵 主表為用戶信息表聯系人 char（5） 外鍵 主表為聯系人信息表聯系方式 Nvarchar(50) Null 聯系方式提醒內容 Text(16) Null 提醒內容錄入人員 char（6） 外鍵 主表為用戶信息表是否完成 char（5） Not Null 新建、完成字段名稱 數據類型 可否為空 說明日志ID Char(12) 主鍵 標識種子子增1通訊主題 Nvarchar(50) Not Null 通訊主題通訊時間 Datetime(8) Null 通訊時間通訊人員　　　 char（6）　 外鍵 主表為用戶信息表聯系人　　　 char（5） 外鍵 主表為聯系人信息表聯系方式 Nvarchar(50) Null 聯系方式通訊內容 Text(16) Null 通訊內容錄用人員 Int(4) Not Null 主表為用戶信息表字段名稱 數據類型 可否為空 說明群組ID Char(2) 主鍵 2位編碼群組名稱 Nvarchar(50) Not Null 群組名稱優先級　　　 Char(2)　 Null 優先級為2建立日期　 Datetime(8) Null 群組建立日期群組簡介 Text(16) Null 群組簡介錄入人員 Char(16) 外鍵 主表為用戶信息表4. 聯系人信息表字段名稱 數據類型 可否為空 說明聯系人ID Char(5) 主鍵 5位編碼群組ID Char(2) 外鍵 主表為群組信息表姓名　 Char(2) 　 Not Null 聯系人姓名優先級 Char(3) Null 優先級為3性別 Char(2) Null 男、女身份證號 Char(18) Null 身份證號住址 Nvarchar(50) Null 住址電話 Nvarchar(50) Null 電話郵箱 Nvarchar(50) Null 郵箱地址 5. 用戶信息表字段名稱 數據類型 可否為空 說明用戶ID Char6) 主鍵 6位的用戶ID用戶名稱 Char(2) 外鍵 用戶名稱用戶類型 Char(2) 　 Not Null 普通員工、管理人員密碼 Char(3) Null 密碼少于10位模塊權限 Char(2) Null 模塊權限信息群組權限 Char(18) Null 群組權限信息身份證號 Char(18) Null 身份證號住址 Nvarchar(50) Null 住址電話 Nvarchar(50) Null 電話郵箱 Nvarchar(50) Null 郵箱4．3．3 創建數據庫在創建數據庫之前，用戶需要安裝MS SQL Server系列的數據庫服務器。因而，應用系統的建設不僅應適應新技術發展方向，保證其先進性，同時兼顧成熟的計算機技術、保證系統的可靠。因此，開發這樣一套圖書管理軟件成為很有必要的事情。因此，對在接受任何一個項目開發任務之前，必須根據客戶可能提供的時間和資源條件進行可行性分析，以減少項目開發風險，避免人力、物力和財力的浪費。利用通訊錄管理系統管理不僅保證了核算準確度，還成倍的提高了工作效率，而且于查詢。為有效地處理通訊錄信息，同時也為用戶提供信息檢索和信息統計提供了便利的條件。圖書管理系統是一款模擬人工管理人士的軟件,但優越于人工操作,其工作效率高于人工操作管理降低了企業的人力物力資源,為企業帶來更高的經濟效益,因此本系統具有極高的運行可行性。 系統功能結構圖圖書管理系統的功能結構如圖1所示。Visual Basic是一個完全可視化的開發環境，面向對象的開發工具，利用它開發出來的軟件兼容性好，穩定性高，安全性強，健壯，通用性好，代碼量少等。（2） 級聯刪除相關的記錄。調入通訊日志 Case 4: Call 群組設置_Click 39。□ 6個TextBox控件，用來輸入和顯示部門信息。□ 日志分析：負責按通訊時間、通訊人員和聯系人分別對通訊日志進行統計分析。合理安排系統設計開發時間，進行實際開發會發現需求分析與系統設計占主要的時間，如果前面的工作做好了，編碼實現占用的時間很短。在此,我要感謝在選題及研究過程中給與我悉心指導的——老師。得到用戶的群組權限 SQL = select 群組權限 from 用戶信息表 where 用戶ID=39。 and 群組ID=39。 End If Call ShowData 39。如果手機號碼被選中 If = 1 Then strConnectWay = strConnectWay amp。退出操作 = True Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)39。裝載數據 Call ShowData 39。編輯控件可用性 = True: = True: = True = False: = False End If Call Tree 39。 (姓名)) C_text = Trim((姓名)) Set nod2 = (F_key, tvwChild, C_key, C_text, 2) Loop End If Loop End IfEnd SubPrivate Sub ControlEnable(flag As Boolean)39。刪除操作 On Error GoTo ErrMsg 39。設置數據 End If 39。設置控件Enable值為不可用 Call ControlEnable(False) 39。 (姓名)) 39。設置控件Enable值End SubPrivate Sub Tree()39。 (姓名)) C_text = Trim((姓名)) Set nod2 = (F_key, tvwChild, C_key, C_text, 2) Loop End If Loop End IfEnd SubPrivate Sub Con。編輯控件可用性 = True: = True: = True = False: = False End If Call Tree 39。初始化聯系人ComboBox SQL = Select * from 聯系人信息表 Set rst = SelectSQL(SQL, msg) If = 0 Then MsgBox 沒有聯系人信息，請先建立聯系人信息！ Exit Sub Else Do While Not And Not 39。取消操作 Call ShowData 39。設置數據 Else Exit Sub End If ElseIf flag = Add Then 39。設置標志flag，表示所進行的操作為修改 flag = Modify 39。如果該群組里面存在聯系人 Do Until 39。如果不存在記錄 39。初始化是否完成ComboBox (新建) (完成) = 0