【正文】 ) Null 群組權(quán)限信息身份證號(hào) Char(18) Null 身份證號(hào)住址 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ù)器。用戶可以使用光盤中的SQL腳本“源程序/03/創(chuàng)建數(shù)據(jù)庫/”來創(chuàng)建數(shù)據(jù)庫對(duì)象,完成數(shù)據(jù)庫設(shè)計(jì)。所以主表和外鍵表之間的關(guān)系具有如下特征：（1） 對(duì)Insert和Update具有強(qiáng)制性。在項(xiàng)目的【屬性】面板中將項(xiàng)目的“Name”屬性值改為”圖書管理系統(tǒng)”。 amp。保存模塊的權(quán)限 Qu_rights = Trim((群組權(quán)限)) 39。調(diào)入通訊提醒 Case 3: Call 通訊日志_Click 39。調(diào)入重新登錄 End SelectEnd SubPrivate Sub 目錄查詢_Click() Enabled = FalseEnd SubPrivate Sub 通訊提醒_Click() Enabled = FalseEnd SubPrivate Sub 通訊日志_Click() Enabled = FalseEnd SubPrivate Sub 群組設(shè)置_Click() Enabled = FalseEnd SubPrivate Sub 聯(lián)系人設(shè)置_Click() Enabled = FalseEnd SubPrivate Sub 優(yōu)先級(jí)設(shè)置_Click() Enabled = FalseEnd SubPrivate Sub 查詢打印_Click() Enabled = FalseEnd SubPrivate Sub 聯(lián)系人統(tǒng)計(jì)_Click() Enabled = FalseEnd SubPrivate Sub 提醒統(tǒng)計(jì)_Click() Enabled = FalseEnd SubPrivate Sub 日志分析_Click() Enabled = FalseEnd SubPrivate Sub 用戶管理_Click() Enabled = FalseEnd SubPrivate Sub 密碼維護(hù)_Click() Enabled = FalseEnd SubPrivate Sub 重新登錄_Click() Unload MeEnd SubPrivate Sub 初始化_Click() Enabled = FalseEnd Sub通訊錄管理系統(tǒng) 系統(tǒng)管理 通訊管理聯(lián)系人管理 統(tǒng)計(jì)分析 “通訊錄管理系統(tǒng)”總體模塊圖2. 分層模塊圖（圖1到圖5）目錄查詢索群組設(shè)置聯(lián)系人設(shè)置通訊管理通訊提醒聯(lián)系人管理 通訊日志優(yōu)先級(jí)設(shè)置圖1“通訊管理”功能模塊 圖2“聯(lián)系人管理”功能模塊日志分析聯(lián)系人統(tǒng)計(jì)提醒統(tǒng)計(jì)統(tǒng)計(jì)分析用戶管理系統(tǒng)管理重新登錄 密碼維護(hù) 圖3 “統(tǒng)計(jì)分析”功能模塊 圖4系統(tǒng)管理”功能模塊 “通訊管理”模塊 “通訊管理“模塊主要包括以下功能模塊。1. “目錄查詢“模塊的實(shí)現(xiàn)“目錄查詢“模塊主要負(fù)責(zé)為用戶提供通訊目錄查詢功能。（1）實(shí)現(xiàn)目標(biāo) 用戶登錄系統(tǒng)后，單擊【通訊管理】 【目錄查詢】【目錄查詢】對(duì)話框。 □ 1個(gè)ComboBox控件，提供查詢條件。□ 群組設(shè)置： 負(fù)責(zé)管理聯(lián)系人的群組信息。2. “群組設(shè)置“模塊的實(shí)現(xiàn)“群組設(shè)置“模塊主要用于負(fù)責(zé)管理聯(lián)系人的群組信息，其實(shí)現(xiàn)目標(biāo)、窗體布局和主要程序代碼如下所示。 a) 2個(gè)ComboBox控件，顯示查詢條件和預(yù)約處理標(biāo)志?！? 提醒統(tǒng)計(jì)：負(fù)責(zé)按聯(lián)系人、提醒時(shí)間和提醒對(duì)象分別對(duì)通訊提醒信息進(jìn)行統(tǒng)計(jì)分析。（2）窗體布局“還書“窗體主要負(fù)責(zé)讀者還書。□ 用戶管理： 維護(hù)系統(tǒng)用戶的基本信息。其功能基本符合用戶需求，能夠完成資料管理、借、還書的管理。大致的總結(jié)幾點(diǎn)，如下：1．設(shè)計(jì)開發(fā)一個(gè)軟件，首先要了解所涉及到行業(yè)的現(xiàn)狀，一定要想辦法進(jìn)行行業(yè)調(diào)研，從不同途徑獲取該行業(yè)的專業(yè)知識(shí)。對(duì)于系統(tǒng)的需求要明確，這樣才能做到有的放矢。在對(duì)具體實(shí)現(xiàn)功能模塊進(jìn)行編程時(shí)，要養(yǎng)成良好的加注釋的習(xí)慣，這樣的話不僅能理清思路，而且可以為以后的調(diào)試程序帶來很大的方便。這些都有待進(jìn)一步改善。 致謝經(jīng)過半年的忙碌和工作，本次畢業(yè)設(shè)計(jì)已經(jīng)接近尾聲，作為一個(gè)專科生的畢業(yè)設(shè)計(jì)，由于經(jīng)驗(yàn)的匱乏，難免有許多考慮不周全的地方，如果沒有導(dǎo)師的督促指導(dǎo)，以及一起工作的同學(xué)們的支持，想要完成這個(gè)設(shè)計(jì)是難以想象的。對(duì)老師的感激之情是無法用言語表達(dá)的。在他們身上，我看到的是為人師表的高尚情操，學(xué)到的是豐富的知識(shí)和做人的道理。學(xué)無止境。初始化群組ID ComboBox Dim rightsQID As String Dim temp As String 39。 39。如果存在記錄 = 0 = True Else = False End IfEnd SubPrivate Sub CmdSearch_Click()39。% amp。如果群組ID被選中 If = 1 Then strWhere = strWhere amp。 39。% amp。如果工作單位被選中 If = 1 Then strWhere = strWhere amp。 %39。保存要顯示的聯(lián)系方式 SQL = Select 聯(lián)系人ID,群組ID,姓名 amp。 strWhere amp。 , amp。 Trim() 39。如果傳真被選中 If = 1 Then strConnectWay = strConnectWay amp。 , amp。 Trim() 39。打印操作 Set = End SubPrivate Sub CmdExit_Click()39。定義Node對(duì)象Dim nod2 As Node 39。保存子節(jié)點(diǎn)的關(guān)鍵字Dim C_text As String 39。 (姓名)) 39。默認(rèn)為新建 Call LoadData 39。判斷當(dāng)前用戶類別,因?yàn)橐话阌脩糁荒芸吹胶妥约合嚓P(guān)的提醒信息，管理人員可以看到所有的提醒信息 SQL = Select * from 用戶信息表 where 用戶ID=39。 Set rst = Nothing Set rst = SelectSQL(SQL, msg) If Trim((用戶類別)) = 普通員工 Then SQL = SELECT * FROM 提醒信息表 where 提醒對(duì)象=39。 ORDER BY 提醒時(shí)間 Desc ElseIf Trim((用戶類別)) = 管理人員 Then SQL = SELECT * FROM 提醒信息表 ORDER BY 提醒時(shí)間 Desc End If Set rs = Nothing 39。編輯控件可用性 = True: = False: = False = False: = False Else 39。構(gòu)造樹操作 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。 (群組名稱)) F_text = Trim((群組名稱)) Set nod1 = (, , F_key, F_text, 1) 39。 Left(F_key, 2) amp。添加子節(jié)點(diǎn)（聯(lián)系人節(jié)點(diǎn)） C_key = Trim((聯(lián)系人ID) amp。如果存在記錄 (0).Text = (提醒主題) = (提醒時(shí)間) 39。設(shè)置控件Enable值為可用 Call ControlEnable(True) 39。修改操作 If 0 Then 39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = False: = False: = False = True: = True Else MsgBox (沒有可以修改的數(shù)據(jù)!) End IfEnd SubPrivate Sub CmdDelete_Click()39。清空控件 Call LoadData 39。設(shè)置控件Enable值為不可用 Call ControlEnable(False) 39。錯(cuò)誤處理 If Not CheckData Then Exit Sub 39。如果是添加新數(shù)據(jù) Call setData 39。重新裝載數(shù)據(jù) Call ShowData 39。檢查數(shù)據(jù) If Trim(txt(0).Text) = Then 39。返回False Exit Function End If CheckData = True 39。重新在控件中顯示信息 39。顯示數(shù)據(jù)End SubPrivate Sub TreeView1_NodeClick(ByVal Node As )39。判斷是新增記錄還是修改記錄Dim nod1 As Node 39。保存父節(jié)點(diǎn)的文本Dim C_key As String 39。添加到ComboBox列表 ((聯(lián)系人ID) amp。裝載數(shù)據(jù) Call ShowData 39。 amp。設(shè)置日志ID、錄入人員在DataGrid中不可見 (0).Visible = False (7).Visible = False If = 0 Then 39。構(gòu)造樹 Call ControlEnable(False) 39。清空TreeView Do Until 39。 群組ID=39。 ORDER BY 優(yōu)先級(jí) Set ms = SelectSQL(SQL, msg) If 0 Then 3