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

　　

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