【正文】 39。 Trim()End SubPrivate Sub CmdPrint_Click()39。 , amp。 Trim() amp。 End If 39。保存查詢條件Private Sub Form_Load() 39。圖書管理系統(tǒng)的開發(fā)成功是與老師的付出所分不開的，因此我要再次感謝我的指導(dǎo)老師為我們所付出的一切?；仡櫾撓到y(tǒng)從選題，到調(diào)研、需求分析、設(shè)計(jì)、編碼實(shí)現(xiàn)、測試等，論文的撰寫，這系列連貫的過程，感想頗多，收獲也很多。□ 聯(lián)系人統(tǒng)計(jì)： 負(fù)責(zé)按群組對聯(lián)系人進(jìn)行統(tǒng)計(jì)。為了實(shí)現(xiàn)該功能，需要如下控件。調(diào)入目錄查詢 Case 2: Call 通訊提醒_Click 39。4．3．4 創(chuàng)建表關(guān)聯(lián)通過SQL Server企業(yè)管理器可以得到數(shù)據(jù)庫表的關(guān)聯(lián)圖。數(shù) 據(jù) 庫: SQL Server 2000：Visual Basic是Microsoft公司開發(fā)出來的最流行軟件之一，也是目前社會(huì)上最流行的開發(fā)工具之一。一般來說，這種模式都會(huì)要求安裝一個(gè)客戶端程序，由這個(gè)程序和服務(wù)器端進(jìn)行協(xié)同工作，因?yàn)橛煽蛻舳藖韺ｉT處理一些工作，所以C/S結(jié)構(gòu)的程序一般都功能強(qiáng)大、界面漂亮，由于任務(wù)分散在服務(wù)器端和客戶端分別進(jìn)行，所以提高了硬件的利用效率，對于程序員來說，編程開發(fā)也更加的容易。因此，我們選擇了目前比較流行的Microsoft SQL Server數(shù)據(jù)庫系統(tǒng)；在前臺開發(fā)編程方面，本系統(tǒng)采用Microsoft公司的Visual Basic 。通訊錄管理系統(tǒng)就是為人們提供信息咨詢、信息檢索、信息存取等服務(wù)。隨著時(shí)代的進(jìn)步，通訊錄種類也逐漸變得龐大起來。經(jīng)濟(jì)可行性，進(jìn)行成本效益分析，評估項(xiàng)目的開發(fā)成本，估算開發(fā)成本是否會(huì)超過項(xiàng)目預(yù)期的全部利潤。聯(lián)系人管理負(fù)責(zé)管理群組信息和聯(lián)系人信息，設(shè)置優(yōu)先級，并提供目錄查詢和打印功能。打開SQL Server企業(yè)管理器，新建一個(gè)數(shù)據(jù)庫，數(shù)據(jù)庫的名為“人事管理系統(tǒng)”，然后按照數(shù)據(jù)字典建立表和表關(guān)聯(lián)。 39。不同群組權(quán)限的用戶可以查詢不同群組的聯(lián)系人。用戶可以添加、修改和刪除部門信息。□ 重新登錄：為用戶提供重新登錄功能。由于在外面工作以及其他原因，我無法借到專業(yè)書籍，只好在浩瀚的網(wǎng)絡(luò)中尋找我所需要的資料，這無形當(dāng)中培養(yǎng)了我通過網(wǎng)絡(luò)獲取資料信息的能力。另外，感謝計(jì)算機(jī)系06屆信管班全體同學(xué)的幫助和勉勵(lì)。如果聯(lián)系人ID被選中 If = 1 Then strWhere = strWhere amp。 %39。保存要顯示的聯(lián)系方式 strConnectWay = 39。如果MSN被選中 If = 1 Then strConnectWay = strConnectWay amp。初始化聯(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。 UserID amp。 群組ID=39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = False: = False: = False = True: = TrueEnd SubPrivate Sub ControlClear()39。報(bào)告出錯(cuò)信息 MsgBox , vbExclamation, 出錯(cuò)End SubPrivate Sub CmdSave_Click()39。光標(biāo)定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) End If If Not msgt = Then 39。定義Node對象Dim F_key As String 39。 39。 Left(F_key, 2) amp。 (群組名稱)) F_text = Trim((群組名稱)) Set nod1 = (, , F_key, F_text, 1) 39。裝載數(shù)據(jù) Set rs = Nothing 39。退出操作 = True Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)39。報(bào)告出錯(cuò)信息 MsgBox , vbExclamation, 出錯(cuò)End SubPrivate Function CheckData() As Boolean39。如果還存在記錄 Call ShowData 39。添加操作 39。清空TreeView Do Until 39。 UserID amp。保存父節(jié)點(diǎn)的關(guān)鍵字Dim F_text As String 39。 Trim() 39。 ,性別,身份證號,工作單位,地址 SQL = SQL amp。如果姓名被選中 If = 1 Then strWhere = strWhere amp。初始化群組ID ComboBox SQL = select 群組ID,群組名稱 from 群組信息表 Set rs = SelectSQL(SQL, msg) Do While Not temp = (群組ID) If InStr(rightsQID, temp) Then (Trim((群組ID)) amp?；仡櫲甑拇髮W(xué)生活，我是多么慶幸自己能碰上這么多好老師、好同學(xué)。，對一個(gè)功能模塊的設(shè)計(jì)，要想出兩種或兩種以上方案，這樣可以進(jìn)行比較，從而獲得更佳的設(shè)計(jì)方案，設(shè)計(jì)開發(fā)過程中一定要吸取經(jīng)驗(yàn)教訓(xùn)，避免返工。 d) 1個(gè)DataGrid控件，顯示聯(lián)系人統(tǒng)計(jì)列表?！? 優(yōu)先級設(shè)置：負(fù)責(zé)設(shè)置群組和聯(lián)系人的優(yōu)先級?！?通訊提醒：負(fù)責(zé)給用戶提供通訊提醒功能。 創(chuàng)建人事管理系統(tǒng)項(xiàng)目控件 屬性 屬性值通訊錄管理系統(tǒng)（Form） Name 通訊錄管理系統(tǒng) Caption 通訊錄管理系統(tǒng) StartUpPosition 0Manual WindowState 0Normal程序代碼如下： Private Sub Form_Load()39。它極大地縮短了用戶開發(fā)電子商務(wù)、數(shù)據(jù)倉庫應(yīng)用的時(shí)間。 （3）實(shí)用、靈活、易于擴(kuò)展系統(tǒng)設(shè)計(jì)盡量簡單，靈活易于管理，有利于將來需要時(shí)進(jìn)行功能改進(jìn)和新技術(shù)引入。從微觀上講，建立一套企業(yè)人事管理系統(tǒng)能夠使得企業(yè)的領(lǐng)導(dǎo)者對企業(yè)人事的現(xiàn)狀有一個(gè)比較全面和準(zhǔn)確的認(rèn)識，提高了企業(yè)的管理水平。良好的分析活動(dòng)有助于避免或盡早發(fā)現(xiàn)早期的錯(cuò)誤，從而提高軟件生產(chǎn)率，降低開發(fā)成本，改進(jìn)軟件質(zhì)量。通訊錄要發(fā)展為完善的管理體系，可以說通訊錄管理的自動(dòng)化完全是時(shí)代進(jìn)步的必然結(jié)果。通過對應(yīng)用問題及其環(huán)境的理解與分析，為問題涉及的信息、功能及系統(tǒng)行為建立模型，將用戶需求精確化、完全化，最終形成需求規(guī)格說明，這一系列的活動(dòng)即構(gòu)成軟件開發(fā)生命周期的需求分析階段。需求分析是成功實(shí)施一個(gè)管理系統(tǒng)的基礎(chǔ)。因此系統(tǒng)設(shè)計(jì)必需把安全性、可靠性、容錯(cuò)性放在首位。Microsoft SQL Server 2000是美國微軟公司推出的使用相當(dāng)廣泛的數(shù)據(jù)庫管理系統(tǒng)，包含一套圖形工具，如服務(wù)器管理（用于啟動(dòng)和關(guān)閉數(shù)據(jù)庫服務(wù)）、企業(yè)管理器（用于創(chuàng)建和修改數(shù)據(jù)庫及備份數(shù)據(jù)庫等）和查詢分析器（用于交互執(zhí)行TransactSQL 語句和過程并提供圖形查詢分析功能）等。這樣，Visual Basic將自動(dòng)創(chuàng)建一個(gè)“工程1”工程項(xiàng)目，包含一個(gè)窗體文件夾和一個(gè)Form1窗體。聯(lián)系人設(shè)置 Case 6: Call 重新登錄_Click 39。其主要控件的屬性如表所示 控件 屬性 屬性值 A目錄查詢（Form） Name A目錄查詢 Caption 目錄查詢 DataGrid1（DataGrid） Caption 查詢結(jié)果列表 “目錄查詢”窗體主要控件屬性（2） 程序代碼 參見附錄A “聯(lián)系人管理”模塊 “聯(lián)系人管理“模塊主要包括以下功能模塊。（1）實(shí)現(xiàn)目標(biāo) 用戶登錄系統(tǒng)后，單擊【統(tǒng)計(jì)分析】 【聯(lián)系人統(tǒng)計(jì)】【聯(lián)系人統(tǒng)計(jì)】對話框。2. 在開發(fā)一個(gè)系統(tǒng)時(shí)，前期的分析準(zhǔn)備工作非常的重要。老師一絲不茍的作風(fēng)，嚴(yán)謹(jǐn)求實(shí)的態(tài)度，踏踏實(shí)實(shí)的精神，不僅授我以文，而且教我做人，雖歷時(shí)三載，卻給以終生受益無窮之道。 UserID amp。 Left(, 2) amp。顯示查詢結(jié)果 Call ShowWay 39。 Trim() 39。判斷是新增記錄還是修改記錄Dim nod1 As Node 39。裝載數(shù)據(jù) Dim rst As 39。設(shè)置控件Enable值End SubPrivate Sub Tree()39。在控件中顯示數(shù)據(jù) If 0 Then 39。刪除數(shù)據(jù) Call ControlClear 39。設(shè)置控件的可用性 = True: = True: = True = False: = False If flag = Add Then MsgBox (成功添加數(shù)據(jù)！) Else MsgBox (成功更新數(shù)據(jù)!) End If Call LoadData 39。在控件中顯示記錄 Call ShowData 39。默認(rèn)ComboBox End If Call LoadData 39。如果不存在群組信息 MsgBox 沒有群組信息，請先建立群組信息！ Exit Sub Else 39。如果該群組存在聯(lián)系人 Do Until 39。如果不存在記錄 39。保存子節(jié)點(diǎn)的關(guān)鍵字Dim C_text As String 39。合法返回TrueEnd FunctionPrivate Sub setData()39。如果數(shù)據(jù)不合法就退出 If flag = Modify Then 39。如果存在記錄 39。 39。查詢提醒信息 Set rs = SelectSQL(SQL, msg) Set = rs 39。指向下一條記錄 Loop = 0 39。如果被選中 If = 1 Then strConnectWay = strConnectWay amp。 Trim() 39。 and 工作單位 like 39。 Trim() amp。明天，將是我終身學(xué)習(xí)另一天的開始！在論文即將完成之際，我的心情無法平靜，從開始進(jìn)入課題到論文的順利完成，有多少可敬的師長、同學(xué)、朋友給了我無言的幫助，在這里請接受我誠摯的謝意!