【導讀】客戶資源是企業(yè)的寶貴財富，客戶管理系統(tǒng)可以有效地管理企業(yè)的客戶資源，記錄企業(yè)與客戶之間的商業(yè)活動，這對于現(xiàn)代企業(yè)是非常重要的。本系統(tǒng)后臺數(shù)據(jù)庫使用Access，前臺開發(fā)工具使用VisualBasic。系統(tǒng)采用目前比較流行的ADO數(shù)據(jù)訪問技術(shù)，并將每個數(shù)據(jù)庫表的字段和操作封裝到類中，從而成功地將面向?qū)ο蟮某绦蛟O計思想應用到數(shù)據(jù)庫應用程序設計中。這也是本系統(tǒng)的特色和優(yōu)勢。用戶通過登錄窗體的用戶認證進入系統(tǒng)主界面，可以對系統(tǒng)的所有功能進行操作，根據(jù)不同的用戶身份權(quán)限，對客戶管理系統(tǒng)進行各種信息的錄入、刪除、修改、等一系列操作。該軟件的功能主要是管理客戶信息的添加、修改、刪除和查詢，客戶信息包括客戶單位和聯(lián)系人。系統(tǒng)維護方便可靠。通過設計客戶管理管理系統(tǒng)，讓我了解了如何去開發(fā)一個簡單的軟件系統(tǒng)，開發(fā)一個系統(tǒng)需要分哪幾個步驟以及設計思想對系統(tǒng)重要性；也讓我了解了與廣告公司客戶管理系統(tǒng)相關(guān)方面的知識。

　　

【正文】 過程中，系統(tǒng)顯示出數(shù)據(jù)冗余度少、數(shù)據(jù)一致性強。系統(tǒng)功能設計符合用戶要求。由于本人自身能力的局限性，所以做編寫的代碼，即使經(jīng)過反復檢查也難免出錯所以在本階段力求使用有限的時間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。我們在本系統(tǒng)的測試中使用了黑盒法（即不關(guān)心程序內(nèi)部的邏輯結(jié)構(gòu)，而是根據(jù)程序的功能來設計是檢測）請一位不熟悉本系統(tǒng)的人來進行隨意性的操作，打破習慣的操作順序，從中發(fā)現(xiàn)錯誤，在此階段系統(tǒng)的大量錯誤得到了改正。結(jié) 論（1）系統(tǒng)存在的不足與改進方案本系統(tǒng)是本人參于MIS設計的第一個項目，由于經(jīng)驗的不足和相關(guān)知識的欠缺，導致系統(tǒng)開發(fā)中有些方面設計得不夠周全。比如在數(shù)據(jù)庫建模之初，由于急于開發(fā)，對建模這一塊就沒有很認真地設計，導致系統(tǒng)開發(fā)的過程中經(jīng)常回過頭來修改數(shù)據(jù)庫，浪費了很多的時間?，F(xiàn)在的系統(tǒng)還有一些數(shù)據(jù)的顯示不是很符合實際，這要在數(shù)據(jù)窗口中進行統(tǒng)一設置。我們會對系統(tǒng)不斷進行完善和升級，力求將不足之處一一改正過來。（2）畢業(yè)設計心得與收獲通過參與一個實際項目的設計與開發(fā)，我學習到了好多從課本中學不到的知識，深刻理解了理論聯(lián)系實際的客觀意義，也明白了搞軟件開發(fā)不是一件孤立的事情，從系統(tǒng)的設計到最終的成品推出，每一個步驟都需要我們嚴謹對待，同時也認識到對這一類專業(yè)軟件業(yè)務的熟悉是軟件最終能否在實際中使用的關(guān)鍵。這次畢業(yè)設計培養(yǎng)了我注重實際、勇于創(chuàng)新的良好思維能力，為以后的工作起到了很好的鋪墊作用。致 謝在論文的選題及其后的設計過程中得到指導老師的悉心指導，使本文得以順利完成，在此向趙老師表示衷心的感謝。本論文是在趙老師的指導下修改完成的。在此，要對她們的細心幫助和指導表示由衷的感謝。在這段時間里，我從她們身上不僅學到了許多的專業(yè)知識，更感受到了她們工作中的兢兢業(yè)業(yè)，生活中的平易近人。此外，她們嚴謹?shù)闹螌W態(tài)度和忘我的工作精神值得我去學習。感謝給予我?guī)椭钠渌藛T，他們在我的畢業(yè)設計過程中經(jīng)常給我提出許多關(guān)鍵性的問題，使我受益匪淺。 感謝多年來傳授我知識的老師們，更要感謝我的家人對我學業(yè)上的支持和鼓勵，感謝所有關(guān)心幫助過我的人。在此我要特別感謝我的指導老師對我的精心指導和幫助，感謝本次答辯過程中在座的各位老師。你們的言傳身教將使我終生受益！感謝所有幫助過我的人! 主要參考文獻⑴馬力，《Visual Basic程序設計院》，北京大學出版社，200481⑵馮碩，費志博，《Visual Basic數(shù)據(jù)庫編程寶典》，電子工業(yè)出版社，200151⑶王守茂，《管理信息系統(tǒng)的分析與設計》，天津科技翻譯出版公司，1993年⑷曹青、邱李華、郭志強,《Visual Basic程序設計教程》,機械工業(yè)出版社, 2002年⑸姜旭平，《信息系統(tǒng)開發(fā)方法》，清華大學出版社，2002年⑹王珊，《數(shù)據(jù)庫系統(tǒng)概述》，高等教育出版社，1999年⑺姚達，《數(shù)據(jù)庫設計》，高等教育出版社，2000年⑻王珊、陳紅，《數(shù)據(jù)庫系統(tǒng)原理教程》，清華大學出版社，1999年⑼Korth, Silberschatz, Abraha，《Database System Concepts》，New York ：McGrawHill, Inc. ⑽Patrick O’Neil Elizabeth O’Neil，《DATABASE Principles,Programming,and Performance》(Second Edition)，New York:Higher Education Press Morgan Kaufmann Publishers,附錄：部分窗體源代碼（1）地域管理窗體代碼Private Sub Cmd_Add_Click() If = 4 Then MsgBox 此地域已不能再細分 Exit Sub End If 39。打開編輯窗體 = = = False 1 TreeView1_ClickEnd SubPrivate Sub Cmd_Back_Click() Unload MeEnd SubPrivate Sub Cmd_Del_Click() Dim TmpOrg As String If = 0 Then MsgBox 此項不能刪除 Exit Sub End If If () = True Then MsgBox + 包含下級地域，不能刪除 Exit Sub End If TmpOrg = (TmpAreaId) If TmpOrg Then MsgBox 地域中包含客戶信息 + TmpOrg + ，不允許刪除 Exit Sub End If 39。確認刪除 If MsgBox(是否確定要刪除 + Trim(), vbYesNo, 請確認) = vbNo Then Exit Sub End If () TreeView1_ClickEnd SubPrivate Sub Cmd_Modi_Click() If = a0 Then MsgBox 此項不能修改 Exit Sub End If = () = = True 1 TreeView1_ClickEnd SubPrivate Sub Form_Load() FocusAreaName = 中國 39。添加根結(jié)點 Set TmpNode = (, , a0, 全球地域, 1, 3) = True = 2 Call Add_AreaToTree(TreeView1) TreeView1_ClickEnd SubPrivate Sub TreeView1_Click() Dim TmpType As Integer 39。根據(jù)關(guān)鍵字獲取地域信息 FocusKey = = TmpType = Asc(Left(, 1)) = TmpType Asc(a) = Val(Right(, Len() 1)) 39。如果是根結(jié)點，則不需要再處理 If = 0 Then Exit Sub End If 39。決定結(jié)點顯示的圖像 If () = False Then = 4 = 4 = 5 End If 39。將地域信息讀取到CurArea對象中 ()End Sub（2）行業(yè)分類設置窗體代碼Private OriId As Long 39。類型編號Private OriTypeName As String 39。原來的類型名稱39。類型分類編號，1客戶類型；2行業(yè)分類；3職務類型；4項目類型Public nFlag As IntegerPrivate Sub Cmd_Add_Click() 39。添加課程類型名稱，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請輸入類型名稱) Exit Sub End If 39。判斷數(shù)據(jù)庫中是否已經(jīng)存在此類型名稱 If (Trim(txtName), nFlag) = True Then MsgBox (已經(jīng)存在此類型名稱) Exit Sub End If 39。插入新記錄 With MyType .TypeName = Trim(txtName) .Flag = nFlag .Insert MsgBox 添加成功 End With DataRefreshEnd SubPrivate Sub Cmd_Del_Click() If Len(Trim()) = 0 Then MsgBox (請選擇記錄) Exit Sub End If 39。 確定刪除 If MsgBox(是否確定要刪除 , vbYesNo, 請確認) = vbNo Then Exit Sub End If 39。 刪除類型 (Val()) MsgBox 刪除成功 DataRefresh 39。刷新DataList1End SubPrivate Sub Cmd_Exit_Click() Unload MeEnd SubPrivate Sub Cmd_Modi_Click() 39。修改類型名稱 If Len(Trim()) = 0 Then MsgBox (請選擇記錄) Exit Sub End If 39。判斷新的名稱是否和原來的相同 If Trim(txtName) = OriTypeName Then Exit Sub End If 39。判斷新的名稱是否已經(jīng)存在 If (Trim(txtName), nTypeId) = True Then MsgBox (已經(jīng)存在此類型名稱) Exit Sub End If 39。更新名稱 = Trim(txtName) (OriId) MsgBox 修改成功 DataRefresh 39。刷新類型列表End SubPrivate Sub DataList1_Click() 39。點擊列表記錄，將編號和名稱放入變量和txtName域 If Len(Trim()) = 0 Then MsgBox (請選擇記錄) Exit Sub End If OriId = Val() 39。記錄編號 If (OriId) = True Then 39。判斷是否存在此記錄信息 OriTypeName = Trim() 39。將類型名稱保存到變量中 txtName = Trim() 39。文本框中顯示類型名稱 End IfEnd SubPrivate Sub Form_Load() 39。刷新DataList1中的數(shù)據(jù) DataRefreshEnd SubPrivate Sub DataRefresh() 39。設置連接字符串 = Conn 39。設置SQL語句 = SELECT * FROM Types WHERE Flag= + Trim(nFlag) 39。設置數(shù)據(jù)源 Set = AdoType = TypeName 39。設置列表中顯示字段 = Id 39。設置列表綁定字段 End Sub（3）客戶基本信息管理窗體Private Sub Refresh_Customer() Dim TmpSource As String If = 0 And = 0 Then lblSel = 0 Exit Sub End If 39。計算全部單位總數(shù) total_num = (0) lblTotal = Trim(Str(total_num)) TmpSource = SELECT , as 單位名稱, as 地域名稱, _ + as 客戶類型, AS 所屬行業(yè), as 通信地址, _ + as 郵政編碼, AS 銷售人員 _ + FROM Customer c,Employees e, _ + Area a,Types t,Types t1 WHERE = And _ + = AND = 39。未選擇地域 If = 1 Then 39。全部類別 If Len(Trim()) = 0 Then TmpSource = TmpSource + And = ORDER BY 39。選擇類別 Else TmpSource = TmpSource + And = And = _ + Trim() + ORDER BY End If Else If = 4 Then 39。市 39。全部類別 If Len(Trim()) = 0 Then TmpSource = TmpSource + And = And = _ + Trim(Str()) + ORDER BY Else TmpSource = TmpSource + And = And = _ + Trim(Str()) + And = _ + Trim() _