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