通訊錄管理系統設計畢業論文(編輯修改稿)

　

【文章內容簡介】 附錄A “聯系人管理”模塊 “聯系人管理“模塊主要包括以下功能模塊。□ 群組設置： 負責管理聯系人的群組信息。□ 聯系人設置：負責設置聯系人信息。□ 優先級設置：負責設置群組和聯系人的優先級。□ 查詢打印： 負責提供目錄查詢和打印功能。2. “群組設置“模塊的實現“群組設置“模塊主要用于負責管理聯系人的群組信息，其實現目標、窗體布局和主要程序代碼如下所示。（1）實現目標 用戶登錄系統后，單擊【聯系人管理】 【群組設置】【群組設置】對話框。用戶可以添加、修改和刪除部門信息。 （2）窗體布局“群組設置”窗體需要如下控件。 a) 2個ComboBox控件，顯示查詢條件和預約處理標志。b) 3個TextBox控件。c) 6個CommandButton控件：1個[預約查詢]按鈕，4個控制光標移動的按鈕，1個【處理預約】按鈕，1個【添加預約】按鈕，1個用來退出系統的【退出】按鈕其主要控件的屬性如表所示 控件 屬性 屬性值 B群組設置（Form） Name B群組設置 Caption 群組設置 SSTab1（SSTab 選項卡） Tabs 3 txtGZID（TextBox） MaxLength 4 “群組設置“窗體主要控件屬性（3）程序代碼 參見附錄A “統計分析”模塊 “統計分析“模塊主要包括以下功能模塊。□ 聯系人統計： 負責按群組對聯系人進行統計。□ 提醒統計：負責按聯系人、提醒時間和提醒對象分別對通訊提醒信息進行統計分析。□ 日志分析：負責按通訊時間、通訊人員和聯系人分別對通訊日志進行統計分析。1.“聯系人統計“模塊的實現“聯系人統計“模塊負責按群組統計聯系人，其實現目標、窗體布局和主要程序代碼如下所示。（1）實現目標 用戶登錄系統后，單擊【統計分析】 【聯系人統計】【聯系人統計】對話框。（2）窗體布局“還書“窗體主要負責讀者還書。為了實現這些功能，需要如下控件。 d) 1個DataGrid控件，顯示聯系人統計列表。e) 7個Command控件：用來退出系統的【退出】按鈕其主要控件的屬性如表所示 控件 屬性 屬性值 C聯系人統計（Form） Name C聯系人統計 Caption 聯系人統計 DataGrid1（DataGrid） Caption 聯系人統計 txtHTID（TextBox 簽約合同號） MaxLength 10 “聯系人統計“窗體主要控件屬性（3）程序代碼 參見附錄A“系統管理”模塊 “系統管理“模塊主要包括以下功能模塊。□ 用戶管理： 維護系統用戶的基本信息。□ 密碼維護：給用戶提供密碼維護功能。□ 重新登錄：為用戶提供重新登錄功能。 參見附錄A　　經過兩個多月的設計和開發，通訊錄管理系統基本開發完畢。其功能基本符合用戶需求，能夠完成資料管理、借、還書的管理。以及各類相關圖書的管理。同時也考慮到了圖書種類冗余的問題，對于數據的一致性的問題也通過程序進行了有效的解決。回顧該系統從選題，到調研、需求分析、設計、編碼實現、測試等，論文的撰寫，這系列連貫的過程，感想頗多，收獲也很多。大致的總結幾點，如下：1．設計開發一個軟件，首先要了解所涉及到行業的現狀，一定要想辦法進行行業調研，從不同途徑獲取該行業的專業知識。合理安排系統設計開發時間，進行實際開發會發現需求分析與系統設計占主要的時間，如果前面的工作做好了，編碼實現占用的時間很短。所以我們要借助軟件工程的思想對軟件開發過程進行控制。2. 在開發一個系統時，前期的分析準備工作非常的重要。對于系統的需求要明確，這樣才能做到有的放矢。特別是對于系統中數據的存儲和重要算法的設計，設計的不好會出現大量的冗余，不僅浪費存儲空間，還影響查詢效率。，對一個功能模塊的設計，要想出兩種或兩種以上方案，這樣可以進行比較，從而獲得更佳的設計方案，設計開發過程中一定要吸取經驗教訓，避免返工。尤其是一些重要算法或功能。在對具體實現功能模塊進行編程時，要養成良好的加注釋的習慣，這樣的話不僅能理清思路，而且可以為以后的調試程序帶來很大的方便。4. 懂得充分利用網絡資源，因為實地調研的時間是非常有限的，所以需求分析中大部分分析結構都是在我閱讀專業書籍，網絡資料后得出的。由于在外面工作以及其他原因，我無法借到專業書籍，只好在浩瀚的網絡中尋找我所需要的資料，這無形當中培養了我通過網絡獲取資料信息的能力。 但是由于畢業設計時間較短，所以該系統還有許多不盡如人意的地方，比如用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進一步改善。 各位領導：在本次畢業設計中，我們使用了VB語言。但我對VB語言并不十分了解，在這方面我的指導老師，她為我提供了充分的指導并且認真的為我講解不理解的地方，指出我的錯誤。圖書管理系統的開發成功是與老師的付出所分不開的，因此我要再次感謝我的指導老師為我們所付出的一切。 致謝經過半年的忙碌和工作，本次畢業設計已經接近尾聲，作為一個專科生的畢業設計，由于經驗的匱乏，難免有許多考慮不周全的地方，如果沒有導師的督促指導，以及一起工作的同學們的支持，想要完成這個設計是難以想象的。在此,我要感謝在選題及研究過程中給與我悉心指導的——老師。老師多次詢問研究進程，并為我指點迷津，幫助我開拓研究思路，精心點撥、熱忱鼓勵。老師一絲不茍的作風，嚴謹求實的態度，踏踏實實的精神，不僅授我以文，而且教我做人，雖歷時三載，卻給以終生受益無窮之道。對老師的感激之情是無法用言語表達的。因此，本論文的完成，離不開她的悉心指導和孜孜不倦地教誨。回顧三年的大學生活，我是多么慶幸自己能碰上這么多好老師、好同學。他們對我成長的關心和幫助，使我終生受益。在他們身上，我看到的是為人師表的高尚情操，學到的是豐富的知識和做人的道理。在此，對他們表示我最真誠的感謝！同時，我也要感謝我的母校煤干院，是她提供了良好的學習環境和生活環境，讓我的大學生活豐富多姿，為我的人生留下精彩的一筆。另外，感謝計算機系06屆信管班全體同學的幫助和勉勵。同窗之誼和手足之情，我將終生難忘！我愿在未來的學習和研究過程中，以更加豐厚的成果來答謝曾經關心、幫助和支持過我的所有領導、老師、同學、和朋友。學無止境。明天，將是我終身學習另一天的開始！在論文即將完成之際，我的心情無法平靜，從開始進入課題到論文的順利完成，有多少可敬的師長、同學、朋友給了我無言的幫助，在這里請接受我誠摯的謝意!參考文獻[1] Visual Basic數據庫開發關鍵技術與實例應用 牛春風 人民郵電出版社 2004年5月[2]Visual Basic程序設計與應用案例 劉鋼 高等教育出版社 2003年7月 [3] Visual Basic數據庫開發實例解析 王永生 機械工業出版社 2003年8月 [4] Visual FoxPro數據庫開發實例解析 韓敏 電子工業出版社 2002年6月[5]SQL Server數據庫開發實例解析 周曉杰、高鑒偉 機械工業出版社 2006年1月[6] SQL Server2000基礎教程 程克明、張丹 清華大學出版社 2005年5月[7] 《信息系統分析與設計》 鐘友坤 科學出版社 2005年5月附錄A1.“目錄查詢”模塊程序代碼Option ExplicitDim rs As Dim SQL As StringDim msg As StringDim strConnectWay As String 39。保存要顯示的聯系方式Dim strWhere As String 39。保存查詢條件Private Sub Form_Load() 39。初始化群組ID ComboBox Dim rightsQID As String Dim temp As String 39。得到用戶的群組權限 SQL = select 群組權限 from 用戶信息表 where 用戶ID=39。 amp。 UserID amp。 39。 Set rs = SelectSQL(SQL, msg) rightsQID = (群組權限) Set rs = Nothing 39。初始化群組ID ComboBox SQL = select 群組ID,群組名稱 from 群組信息表 Set rs = SelectSQL(SQL, msg) Do While Not temp = (群組ID) If InStr(rightsQID, temp) Then (Trim((群組ID)) amp。 Trim((群組名稱))) End If Loop If 0 Then 39。如果存在記錄 = 0 = True Else = False End IfEnd SubPrivate Sub CmdSearch_Click()39。模糊查找操作 strWhere = where 1=1 39。如果聯系人ID被選中 If = 1 Then strWhere = strWhere amp。 and 聯系人ID like 39。% amp。 Trim() amp。 %39。 End If 39。如果群組ID被選中 If = 1 Then strWhere = strWhere amp。 and 群組ID=39。 amp。 Left(, 2) amp。 39。 End If 39。如果姓名被選中 If = 1 Then strWhere = strWhere amp。 and 姓名 like 39。% amp。 Trim() amp。 %39。 End If 39。如果工作單位被選中 If = 1 Then strWhere = strWhere amp。 and 工作單位 like 39。% amp。 Trim() amp。 %39。 End If Call ShowData 39。顯示查詢結果End SubPrivate Sub ShowData()39。顯示查詢結果 Call ShowWay 39。保存要顯示的聯系方式 SQL = Select 聯系人ID,群組ID,姓名 amp。 strConnectWay amp。 ,性別,身份證號,工作單位,地址 SQ