【正文】 創(chuàng)建人事管理系統(tǒng)項(xiàng)目控件 屬性 屬性值通訊錄管理系統(tǒng)（Form） Name 通訊錄管理系統(tǒng) Caption 通訊錄管理系統(tǒng) StartUpPosition 0Manual WindowState 0Normal程序代碼如下： Private Sub Form_Load()39。 amp。 39。保存模塊的權(quán)限 Qu_rights = Trim((群組權(quán)限)) 39。設(shè)置模塊權(quán)限 If InStr(Mo_rights, 通訊管理) Then = True (1).Enabled = True (2).Enabled = True (3).Enabled = True Else = False (1).Enabled = False (2).Enabled = False (3).Enabled = False End If If InStr(Mo_rights, 群組設(shè)置) Then = True (4).Enabled = True Else = False (4).Enabled = False End If If InStr(Mo_rights, 聯(lián)系人設(shè)置) Then = True (5).Enabled = True Else = False (5).Enabled = False End If = InStr(Mo_rights, 優(yōu)先級(jí)設(shè)置) = InStr(Mo_rights, 查詢(xún)打印) = InStr(Mo_rights, 聯(lián)系人統(tǒng)計(jì)) = InStr(Mo_rights, 提醒統(tǒng)計(jì)) = InStr(Mo_rights, 日志分析) = InStr(Mo_rights, 用戶(hù)管理) = InStr(Mo_rights, 初始化)End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1: Call 目錄查詢(xún)_Click 39。調(diào)入通訊提醒 Case 3: Call 通訊日志_Click 39。調(diào)入群組設(shè)置 Case 5: Call 聯(lián)系人設(shè)置_Click 39。調(diào)入重新登錄 End SelectEnd SubPrivate Sub 目錄查詢(xún)_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 查詢(xún)打印_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 用戶(hù)管理_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）目錄查詢(xún)索群組設(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ì)分析用戶(hù)管理系統(tǒng)管理重新登錄 密碼維護(hù) 圖3 “統(tǒng)計(jì)分析”功能模塊 圖4系統(tǒng)管理”功能模塊 “通訊管理”模塊 “通訊管理“模塊主要包括以下功能模塊?！?通訊提醒：負(fù)責(zé)給用戶(hù)提供通訊提醒功能。1. “目錄查詢(xún)“模塊的實(shí)現(xiàn)“目錄查詢(xún)“模塊主要負(fù)責(zé)為用戶(hù)提供通訊目錄查詢(xún)功能。不同群組權(quán)限的用戶(hù)可以查詢(xún)不同群組的聯(lián)系人。（1）實(shí)現(xiàn)目標(biāo) 用戶(hù)登錄系統(tǒng)后，單擊【通訊管理】 【目錄查詢(xún)】【目錄查詢(xún)】對(duì)話框。（3） 窗體布局“目錄查詢(xún)“窗體主要提供通訊目錄查詢(xún)功能。 □ 1個(gè)ComboBox控件，提供查詢(xún)條件?！?6個(gè)CommandButton控件：1個(gè)用來(lái)查詢(xún)通訊目錄的【查詢(xún)】按鈕；1個(gè)用來(lái)退出系統(tǒng)的【退出】按鈕?！? 群組設(shè)置： 負(fù)責(zé)管理聯(lián)系人的群組信息。□ 優(yōu)先級(jí)設(shè)置：負(fù)責(zé)設(shè)置群組和聯(lián)系人的優(yōu)先級(jí)。2. “群組設(shè)置“模塊的實(shí)現(xiàn)“群組設(shè)置“模塊主要用于負(fù)責(zé)管理聯(lián)系人的群組信息，其實(shí)現(xiàn)目標(biāo)、窗體布局和主要程序代碼如下所示。用戶(hù)可以添加、修改和刪除部門(mén)信息。 a) 2個(gè)ComboBox控件，顯示查詢(xún)條件和預(yù)約處理標(biāo)志。c) 6個(gè)CommandButton控件：1個(gè)[預(yù)約查詢(xún)]按鈕，4個(gè)控制光標(biāo)移動(dòng)的按鈕，1個(gè)【處理預(yù)約】按鈕，1個(gè)【添加預(yù)約】按鈕，1個(gè)用來(lái)退出系統(tǒng)的【退出】按鈕其主要控件的屬性如表所示 控件 屬性 屬性值 B群組設(shè)置（Form） Name B群組設(shè)置 Caption 群組設(shè)置 SSTab1（SSTab 選項(xiàng)卡） Tabs 3 txtGZID（TextBox） MaxLength 4 “群組設(shè)置“窗體主要控件屬性（3）程序代碼 參見(jiàn)附錄A “統(tǒng)計(jì)分析”模塊 “統(tǒng)計(jì)分析“模塊主要包括以下功能模塊?！? 提醒統(tǒng)計(jì)：負(fù)責(zé)按聯(lián)系人、提醒時(shí)間和提醒對(duì)象分別對(duì)通訊提醒信息進(jìn)行統(tǒng)計(jì)分析。1.“聯(lián)系人統(tǒng)計(jì)“模塊的實(shí)現(xiàn)“聯(lián)系人統(tǒng)計(jì)“模塊負(fù)責(zé)按群組統(tǒng)計(jì)聯(lián)系人，其實(shí)現(xiàn)目標(biāo)、窗體布局和主要程序代碼如下所示。（2）窗體布局“還書(shū)“窗體主要負(fù)責(zé)讀者還書(shū)。 d) 1個(gè)DataGrid控件，顯示聯(lián)系人統(tǒng)計(jì)列表?！? 用戶(hù)管理： 維護(hù)系統(tǒng)用戶(hù)的基本信息。□ 重新登錄：為用戶(hù)提供重新登錄功能。其功能基本符合用戶(hù)需求，能夠完成資料管理、借、還書(shū)的管理。同時(shí)也考慮到了圖書(shū)種類(lèi)冗余的問(wèn)題，對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。大致的總結(jié)幾點(diǎn)，如下：1．設(shè)計(jì)開(kāi)發(fā)一個(gè)軟件，首先要了解所涉及到行業(yè)的現(xiàn)狀，一定要想辦法進(jìn)行行業(yè)調(diào)研，從不同途徑獲取該行業(yè)的專(zhuān)業(yè)知識(shí)。所以我們要借助軟件工程的思想對(duì)軟件開(kāi)發(fā)過(guò)程進(jìn)行控制。對(duì)于系統(tǒng)的需求要明確，這樣才能做到有的放矢。，對(duì)一個(gè)功能模塊的設(shè)計(jì)，要想出兩種或兩種以上方案，這樣可以進(jìn)行比較，從而獲得更佳的設(shè)計(jì)方案，設(shè)計(jì)開(kāi)發(fā)過(guò)程中一定要吸取經(jīng)驗(yàn)教訓(xùn)，避免返工。在對(duì)具體實(shí)現(xiàn)功能模塊進(jìn)行編程時(shí)，要養(yǎng)成良好的加注釋的習(xí)慣，這樣的話不僅能理清思路，而且可以為以后的調(diào)試程序帶來(lái)很大的方便。由于在外面工作以及其他原因，我無(wú)法借到專(zhuān)業(yè)書(shū)籍，只好在浩瀚的網(wǎng)絡(luò)中尋找我所需要的資料，這無(wú)形當(dāng)中培養(yǎng)了我通過(guò)網(wǎng)絡(luò)獲取資料信息的能力。這些都有待進(jìn)一步改善。但我對(duì)VB語(yǔ)言并不十分了解，在這方面我的指導(dǎo)老師，她為我提供了充分的指導(dǎo)并且認(rèn)真的為我講解不理解的地方，指出我的錯(cuò)誤。 致謝經(jīng)過(guò)半年的忙碌和工作，本次畢業(yè)設(shè)計(jì)已經(jīng)接近尾聲，作為一個(gè)專(zhuān)科生的畢業(yè)設(shè)計(jì)，由于經(jīng)驗(yàn)的匱乏，難免有許多考慮不周全的地方，如果沒(méi)有導(dǎo)師的督促指導(dǎo)，以及一起工作的同學(xué)們的支持，想要完成這個(gè)設(shè)計(jì)是難以想象的。老師多次詢(xún)問(wèn)研究進(jìn)程，并為我指點(diǎn)迷津，幫助我開(kāi)拓研究思路，精心點(diǎn)撥、熱忱鼓勵(lì)。對(duì)老師的感激之情是無(wú)法用言語(yǔ)表達(dá)的。回顧三年的大學(xué)生活，我是多么慶幸自己能碰上這么多好老師、好同學(xué)。在他們身上，我看到的是為人師表的高尚情操，學(xué)到的是豐富的知識(shí)和做人的道理。另外，感謝計(jì)算機(jī)系06屆信管班全體同學(xué)的幫助和勉勵(lì)。學(xué)無(wú)止境。保存要顯示的聯(lián)系方式Dim strWhere As String 39。初始化群組ID ComboBox Dim rightsQID As String Dim temp As String 39。 amp。 39。初始化群組ID ComboBox SQL = select 群組ID,群組名稱(chēng) from 群組信息表 Set rs = SelectSQL(SQL, msg) Do While Not temp = (群組ID) If InStr(rightsQID, temp) Then (Trim((群組ID)) amp。如果存在記錄 = 0 = True Else = False End IfEnd SubPrivate Sub CmdSearch_Click()39。如果聯(lián)系人ID被選中 If = 1 Then strWhere = strWhere amp。% amp。 %39。如果群組ID被選中 If = 1 Then strWhere = strWhere amp。 amp。 39。如果姓名被選中 If = 1 Then strWhere = strWhere amp。% amp。 %39。如果工作單位被選中 If = 1 Then strWhere = strWhere amp。% amp。 %39。顯示查詢(xún)結(jié)果End SubPrivate Sub ShowData()39。保存要顯示的聯(lián)系方式 SQL = Select 聯(lián)系人ID,群組ID,姓名 amp。 ,性別,身份證