1、 軟件開發綜合技能訓練 報告客戶資源管理系統設計專業學生班級學號指導教師萍完成日期2015年 1月 9日信息學院目 錄第1章 緒 論11.1 課題背景11.1.1 管理信息系統的發展歷史11.2課題研究的目的與意義1第2章 需求分析22.1 系統設計思想22.2 需求分析32.2.1 設計目標42.1.2 用戶特點52.2 需求描述52.2.1 信息管理系統的總需求目標52.2.2 數據需求52.2.3 功能性需求概述62.2.4 約束（Constraints）62.2.5 用戶的需求分析62.3 DBMS的選擇62.4 開發工具的介紹72.4.1 Visual Basic 6.0開發工具的簡

2、介72.4.2 SQL Server 2000的簡介72.4.3ADO控件的介紹82.4.4ADO控件的綁定控件82.4.5 連接數據庫9第3章 系統設計93.1 系統功能模塊劃分93.2 系統功能模塊介紹103.3 設計和創建數據庫103.3.1 數據庫概念結構設計103.3.2 數據庫邏輯結構設計123.3.3 創建數據庫14第4章 詳細設計及實現154.1 程序流程圖154.2 公共模塊的設計154.3 主界面的設計164.4 登錄模塊的設計184.5 系統管理模塊設計204.5.1 用戶管理的設計214.5.2口令修改的設計234.6 信息管理設計244.6.1 客戶信息維護設計264

3、.6.2 客戶反饋信息設計284.6.3 工作日程安排設計294.6.4 客戶信息添加設計294.7 信息服務模塊設計294.7.1 群發的設計304.7.2 信息查詢設計304.7.3 信息提醒設計304.8 信息查詢設計314.8.1 客戶基本信息查詢設計314.8.2 客戶反饋信息查詢32第5章 系統的測試與運行335.1 系統測試簡介335.2 測試與運行33參考文獻1實驗小結11 / 37第1章 緒 論1.1 課題背景管理信息系統（Management Information System），在強調管理，強調信息的現代社會中它變得越來越普及。MIS是一門新的學科，它跨越了若干個領域，

4、比如管理科學、系統科學，運籌學、統計學以及計算機科學。在這些學科的基礎上，形成信息收集和加工的方法，從而形成一個縱橫交織的系統。1.1.1 管理信息系統的發展歷史信息作為生產力中最活躍的因素，很早就在人類經濟生活中發揮著不可替代的作用，但把信息納入企業經營管理系統中高效處理和應用是在計算機發明以后的50年代末。目前人們所提到的管理信息系統，通常是指以計算機為工具，對管理信息進行收集、存貯、檢索、加工和傳遞，使其應用于組織機構及企業管理領域的“人機系統”，該系統是70年代初“后工業經濟”時代的產物，在企業管理信息系統在其發展的初期，是單一的人機系統，系統功能簡單，效率低，對管理的作用有限。進入2

5、0世紀80年代末，隨著計算機網絡和通信技術的大力發展，企業管理信息系統進入網絡化的發展時期。世界發達國家已建立起了完善的先進的管理信息系統體系，在其社會經濟發展領域中發揮著巨大的作用。1.2課題研究的目的與意義信息社會的高科技，商品經濟化的高效益，使計算機的應用已普及到經濟和社會生活的各個領域。計算機雖然與人類的關系愈來愈密切，還有人由于計算機操作不方便繼續用手工勞動。為了適應現代社會人們高度強烈的時間觀念，客戶信息管理系統軟件為管理人員帶來了極大的方便。計算機在客戶信息管理部門的廣泛使用，改進了統計手段，改革了統計方法，提高了統計工計算機在客戶部門的廣泛應用，將為我國的客戶管理工作，提供現代

6、化的管理手段和科學的管理方法，并將為開創客戶管理工作的新局面創造條件。目前，計算機在我國的客戶信息管理工作中，主要可用來進行檔案管理，文書編輯，信息查詢，綜合分析。但這種手工統計過程，存在著幾個明顯的問題，比如說統計資料缺乏準確性，及時性，需要花費大量的人力，物力，財力等。手工方法所表現出來的種種劣勢，使人們慢慢意識到管理現代化已成為當代社會發展的一股不可抗拒的洪流。在管理現代化的浪潮中，客戶信息管理現代化也勢在必行。實現客戶信息管理現代化是一個復雜的系統工程，需要采取科學的管理方法和先進的科技手段。科學的管理方法在管理中一般是指數學方法、系統方法、信息方法、控制論方法、社會學方法、心理學方法

7、等科學方法，而先進的科技手段主要是運用當代最新科學技術之一的電子計算機來為客戶管理現代化服務。隨著經濟的發展和社會信息化程度的提高，人們的生活質量和工作效率也越來越來越高，消費者對企業的信息管理質量也提出了更高的要求，快速消費行業的競爭也異常激烈。作為成熟的行業，不斷增多的競爭品牌使得消費者的品牌忠誠度有進一步下降的趨勢。為了滿足消費者的要求，更好的服務于客戶，使企業在激烈的競爭中占有 一席之地，搭建一流的客戶信息管理系統已成為企業發展的必然。第2章 需求分析2.1 系統設計思想1.系統架構的選擇本系統采用的是兩層結構客戶/服務器模式，即客戶端和數據庫服務器端（C/S）.客戶端提供用戶操作界面

8、，接受用戶的數據輸入，向數據庫服務器發出命令或數據請求，并接受執行命令后返回的數據結果，根據業務邏輯進行相關的運算，向客戶顯示相應的信息。數據庫服務器端接受客戶端的數據或命令請求，并執行相應的命令得到相應的數據集，對數據集進行相應的處理，然后將數據集或處理的數據集返回給客戶端。它的工作原理圖如圖2-1所示。客戶信息管理系統操作界面（數據或命令請求）數據或命令處理發送數據或名令請求返回命令執行得到的結果集圖2-1 C/S工作的原理示意圖盡管隨著應用系統程序規模的不斷擴大，兩層結構的C/S開發模式的缺點越來越明顯，即需要高昂的投資和復雜的技術支持，維護成本很高，維護任務很大，但是在這種體系結構下，

9、能夠快速建立并運行系統程序的基本功能，使系統開發變得簡單而快捷。和三層架構的C/S模式不同的是，利用兩層架構的開發模式，在編碼時只需要查看本系統程序中的模塊就能瀏覽到程序的功能代碼，而不需要查看另一組件中的代碼，這樣就使代碼的查看和修改相當方便，功能實現和調試也比較容易。2系統設計思想簡介本系統主要完成客戶信息的管理，包括客戶的基本信息和客戶反饋的信息，為此，系統必須能夠維護至少2個用于記錄客戶基本信息和客戶反饋信息的數據表，對這2個表進行添加 、刪除和查詢操作。于此同時還要維護系統用戶的信息和其他的信息。用戶登錄系統時，程序首先根據用戶輸入的數據庫連接信息，連接到指定的服務器，然后從db_C

10、service1數據庫中已有的用戶資料數據表中讀出用戶名和密碼，并檢驗該密碼與用戶輸入的密碼是否匹配，中有用戶名在數據庫中存在，并且密碼正確時，用戶才能進入系統。當需要進行客戶信息維護、客戶反饋信息維護時，程序就將添加或修改的信息存儲到客戶信息維護數據表和客戶信息反饋數據表中。當需要進行用戶管理的添加、注冊和刪除時，程序就將添加、注冊和刪除的信息存儲到用戶信息表中。當需要進行發送時，就會從聯系人數據表中查看到客戶的地址。另外，該系統還能查詢客戶的基本信息和客戶反饋的信息，還能進行數據的恢復和備份。2.2 需求分析隨著企業的規模不斷擴大，客戶數量急劇增加，有關客戶的各種信息量也成倍增長。面對龐大

11、的信息量需要有客戶信息管理系統來提高客戶管理工作的效率。通過這樣的系統可以做到信息的規管理、科學統計和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。在一些大的企業中已經建立可客戶信息管理系統，但在一些小的企業中并沒有建立客戶信息管理系統。隨著社會的發展人們對于自己的信息越來越不希望被別人隨便的就可以查看到。然而現實并非如此，例如我們去超市買東西在辦理會員卡的時候需要填寫一些個人信息，因為很多超市還是使用人工登記的方法，所以客戶的資料很容易就會被別人看到。我認為這樣對客戶是不尊重的。而在銀行方面就做的很好，他們把客戶的信息錄入電腦，只有操作人員才可能看到，這樣對客戶是負責任的。本系統主

12、要用于企業客戶信息管理，總體任務是實現客戶信息關系的系統化、規化和自動化，其主要任務是用計算機對客戶各種信息進行日常管理，如查詢、修改 、增加、刪除，接收，針對這些要求設計了客戶信息管理系統。 本系統主要包括系統管理、信息管理 信息服務 和客戶信息查詢等四部分。其功能主要有：1、有關系統管理，包括用戶管理、口令修改、數據備份和數據恢復等。其中用戶管理中可以增加、 注冊和 刪除用戶。2、信息管理，包括客戶信息維護、客戶信息反饋和工作日程安排。客戶信息維護包括添加 、保存 和刪除客戶。客戶信息反饋可以顯示用戶的反饋信息，同樣也可以添加和刪除反饋信息。3、信息服務，包括群發、 管理和信息提醒。群發中

13、選擇地址就可以發送，管理則可以統計的數量，只要你需要信息提醒就可以運行次界面。4、信息查詢，包括客戶基本信息查詢和客戶反饋信息查詢。客戶基本信息查詢可以查詢客戶名稱，聯系，傳真和網址等。客戶反饋信息查詢則可以顯示客戶的名稱，滿意程度和反饋時間等。5、退出系統，包括重新登錄和退出。作為系統管理員，如何最大限度地發揮人員的才能，這是客戶管理學研究的根本任務。對這個問題進行個體研究方面，目前是做得不夠的。因為個體寓于群體之中，群體對人員才能發揮之影響作用，可利用系統原理去指示。通過群體研究來尋求合理的年齡結構、知識結構、專業結構、來取得令人滿意的配合效果等。不論客戶管理怎樣復雜，最基本的管理就是客戶

14、信息的維護，客戶反饋信息的查詢等。使用客戶信息管理系統，便于領導掌握客戶的意見，及時調整企業的決策。本人將完成此客戶信息管理基本功能實現的任務。客戶信息管理系統是典型的信息管理系統 (MIS)，其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。2.2.1 設計目標開發的系統是一個單機版的客戶信息管理系統。如表2-1所示：表2-1 設計目標表需求對公司客戶信息進行信息化管理用戶客戶信息管理員用戶所做的事添加 、保存、 刪除用戶添加、 保存、 刪除客戶信息維護客戶的信息及客戶

15、反饋的信息收發電子并進行統計用戶需求管理用戶的基本信息管理客戶的基本信息現在已經存在的有最好的解決方案用SQL Server 2000數據庫來實現，用語言是VB來開發最好方案的理由選SQL Server 2000是目前比較流行的數據庫之一，具有存儲數據量大 數據安全性高 讀取與存儲數據快等優點。用VB 是因為我對它比較熟悉。2.1.2 用戶特點用戶為非專業技術人員，對計算機技術沒有詳細了解，必須盡可能的提供友好的操作界面和使用提示。2.2 需求描述2.2.1 信息管理系統的總需求目標在計算機網絡，數據庫和先進的開發平臺上，利用現有的軟件，配置一定的硬件，開發一個具有開放體系結構的、易擴充的、易

16、維護的、具有良好人機交互界面的客戶信息管理系統，實現維護客戶信息，實現客戶信息查詢，統計客戶反饋信息的自動化，高效的計算機系統。2.2.2 數據需求(1)數據錄入和處理的準確性和實時性數據的輸入是否準確是數據處理的前提，錯誤的輸入會導致系統輸出的不正確和不可用，從而使系統的工作失去意義。數據的輸入來源是手工輸入。手工輸入要通過系統界面上的安排系統具有容錯性，并且對操作人員要進行系統的培訓。在系統中，數據的輸入往往是大量的，因此系統要有一定的處理能力，以保證迅速的處理數據。(2)數據的安全性本系統為企業客戶信息管理部門設計，因此只有特定的用戶管理者才能對數據實現增，刪，改，查等操作。未獲授權人員

17、不能進入系統。(3)數據的備份要定期對數據庫中的數據進行全部或新增部分的備份工作，以保證在硬件出現故障或人為原因導致無法運行時是可以快速及時的還原到原來的正常狀態。2.2.3 功能性需求概述(1)能夠管理普通用戶的基本信息(2)能夠管理客戶的基本信息(3)能夠管理客戶反饋的信息(4)以上這些信息都應便于查詢(5)能夠群發和接收2.2.4 約束（Constraints）操作系統：Windows XP數據庫系統:SQL Server 20002.2.5 用戶的需求分析用戶的需求可為如下幾個方面1客戶信息的管理客戶信息應該包括編號、客戶名稱、聯系地址、客戶類型、客戶來源等信息。可以輸入和修改客戶的信

18、息。2系統用戶的管理 能夠增加和注冊用戶，只有在用戶名和密碼正確的情況下才能進入到系統。3.數據庫的維護系統應該提供給用戶數據庫備份和恢復的功能，以便用戶能夠及時地備份數據庫，并在數據庫丟失或出現錯誤時，及時地恢復數據庫，最大程度的避數據的丟失。2.3DBMS的選擇開發客戶信息管理系統的核心工具是數據庫管理系統（DBMS）。隨著局域網和Internet的發展以及企業和事業單位的信息管理規模日漸增大，越來越多的用戶開始選擇大型關系型RDBMS，常用的有Oracle數據庫管理系統、DB2數據庫管理系統、Microsoft SQL Server數據庫管理系統、Sybase SQL Anywhere數

19、據庫管理系統等。考慮我們的做畢業設計的實際環境和實際能力，我們選擇SQL Server2000，SQL Server2000作為一種關系型數據庫管理系統，是中小型信息管理系統的理想開發環境，在當前數據庫領域，已有越來越多的人開始采用SQL Server2000。它是一個功能強大的數據庫管理系統和MIS（Management Information System）系統開發工具，具有界面友好，易學易用，開發簡單，接口靈活等特點。2.4 開發工具的介紹2.4.1 Visual Basic 6.0開發工具的簡介在眾多的可視化編程工具中，Visual Basic 6.0可以說是易學易用的優秀工具。由于它

20、的通俗易懂，再加上數據庫應用的普及，Visual Basic 6.0已經成為很多數據庫開發人員的首選編程語言。VB是Microsoft的一種通用程序設計語言，是在Windows操作平臺下設計應用程序的最迅速、最簡介的工具之一。不論是初學者還是專業開發人員，VB都為他們提供一整套工具，可以輕松方便地開發應用程序。利用VB 的數據訪問特性，用戶可對包括Micorosoft SQL Server和其他企業數據庫在的大部分數據庫格式創建數據庫和前端應用程序，以及可調整的服務器端部件。利用ActiveX技術，VB可使用如Microsoft Word 字處理器及其他應用程序提供的功能，甚至可以直接使用VB

21、專業版或企業版創建的應用程序和對象。用戶最終創建的程序是一個真正的.exe文件。2.4.2 SQL Server 2000的簡介SQL Server 2000是新一代大型關系型數據庫管理系統（DBMS），它在電子商務、數據倉庫和數據庫解決方案等應用中起著重要的核心作用，為企業的數據管理提供強大的支持，對數據庫中的數據提供有效的管理，并采用有效的措施實現數據的完整性及數據的安全性。SQL Server 2000是一個基于客戶機/服務器（C/S）模式的關系數據庫管理系統，如圖2-2所示。客戶應用程序提交SQL 查詢結果返回前臺客戶端服務器SQL Server 2000SQL Server 2000

22、圖2-2SQL Server 2000客戶機/服務器結構示意圖SQL Server 2000采用C/S體系結構把所有的工作負荷分解為服務器上的任務和客戶機上的任務，客戶機應用程序負責商業邏輯和向用戶提供數據，服務器對數據庫的數據進行操作和管理。客戶端（又稱為前臺）應用程序包含顯示與用戶交互的界面，而對數據庫中數據進行的處理描述成 Transat-SQL語句（簡稱為T-SQL語句），并將T-SQL語句語句送至服務器端（又稱為后臺），后臺的SQL Server執行該T-SQL語句后，產生查詢結果，并將結果返回給客戶端的應用程序。T-SQL是SQL Server 2000使用的一種數據庫查詢和編程語

23、言，它除包含標準的SQL語句外，還增加了一些標準的SQL語句外，還增加了一些非標準的SQL語句，使其功能更強大。使用T-SQL語句可建立、修改、查詢和管理關系數據庫。2.4.3ADO控件的介紹ADO是ActiveX數據對象（ActiveX Data Object）的英文縮寫，這是Microsoft開發數據庫應用程序的面向對象的新接口。ADO訪問數據庫是通過OLE DB 數據提供程序來進行的，提供了一種對 OLE DB 數據提供程序的簡單高層訪問接口。其中主要的對象如下：1.Connection對象Connection對象代表與數據源進行的唯一會話，可以和mand對象、Recordset對象間建

24、立關聯，也可以使用一個Connection對象的實例，并在多個mand和Recordset對象共享。2.Recordset對象利用ADO的所有對象中，Recordset對象是使用最多的，它包含從數據庫查詢返回的數據行組。利用這個對象可以在數據庫檢索、插入、修改和刪除信息。3. mand對象 使用mand對象查詢并返回Recordset對象中的記錄，以便執行大量操作或處理數據庫結夠。4.Field對象 Recordset對象含有Field對象組成的Fields集合。每一個Field對象對應于Recordset對象中的一列。2.4.4ADO控件的綁定控件l ADODC控件ADODC控件也稱為ADO

25、 Data控件，使用Microsoft ActiveX數據對象來快速建立數據綁定控件和數據提供者之間的連接。ADODC控件的主要用法有：1.連接一個本地數據庫或遠程數據庫。2.打開一個指定的數據表，或定義一個基于結構化查詢語言的查詢、或存儲過程、或該數據庫中的表的視圖的記錄集合。3 .將數據字段的數值傳遞給數據綁定的控件或在這些控件中顯示或更改這些數值。4.添加新的記錄或跟據對顯示在綁定的控件中的數據的任何更改來更新一個數據庫。l DataGrid控件DataGrid控件是一種類似于電子數據表的數據綁定控件，可以通過綁定到ADODC控件和一系列行及列來顯示Recordset對象的記錄及字段值。

26、DataGrid控件提供了文本編輯功能，在DataGrid控件中編輯單元格容之后，可以自動更新到數據庫中，而無須編寫任何代碼。2.4.5 連接數據庫為了提高代碼的可讀性，本系統將連接數據庫的程序代碼放置在模塊中。使用ADO前要添加對ADO對象的應用。在菜單中選擇“工程”-“引用”，出現如圖2-3所示的對話框，在“可用的引用”列表框中選擇“Micosoft ActiveX Objects 2.6 Library”選項，然后單擊“確定”按鈕，即可完成對ADO的引用。圖2-3對ADO的引用第3章 系統設計3.1 系統功能模塊劃分根據上述的系統總體設計思想的分析，本系統主要劃分為以下幾個子模塊：系統管

27、理、信息管理、信息服務和信息查詢。主要的系統模塊如下圖3-1所示。客戶信息管理系統系統管理信息管理信息服務信息查詢圖3-1系統模塊圖3.2 系統功能模塊介紹1系統管理系統管理應該包括用戶管理，口令修改，數據備份和數據恢復。在用戶管理中可以增加 、注冊、 和刪除用戶。數據備份則可以備份數據庫的容，數據恢復則可以恢復數據庫。2信息管理在信息管理中有客戶信息維護，客戶信息反饋，工作日程安排。客戶信息維護中可以添加，刪除，保存用戶。客戶信息反饋和工作日程安排中也有此功能。3信息服務信息服務可以發送電子，查詢電子信息，信息提醒則可以時刻提醒用戶的安排。4信息查詢信息查詢包括客戶基本信息查詢，客戶反饋信息

28、查詢。3.3 設計和創建數據庫數據庫應用系統設計中的一個核心問題就是如何設計一個能夠滿足用戶當前與可預見的未來的各項應用要求、性能良好的數據庫。數據庫設計是從用戶的數據需求、處理要求及建立數據庫的環境條件出發，把給定的應用環境存在的數據合理地組織起來，逐步抽象成已經選定的某個數據庫管理系統能夠定義和描述的具體的數據結構的過程。3.3.1 數據庫概念結構設計客觀存在并可相互區別的事物稱為實體。在此模型中如用戶，產品等都是實體。實體所就有某一特性成為屬性。一個實體可以有如干個屬性來刻畫。在顯示世界中，事物部以及事物之間是有聯系的，這些聯系在信息世界中反映為實體型部的聯系和實體型外部的聯系。E-R圖

29、提供了表示實體型、屬性和聯系的方法：1. 實體型：用矩形表示，矩形框寫明實體名2. 屬性：用橢圓形表示，并用無向邊將其與相應的實體連接起來。3. 聯系：用菱形表示，菱形框寫明聯系名，并用無向邊分別與有關實體連接起來。根據分析E-R圖如下：系統用戶用戶名密碼3-2系統用戶實體屬性圖客 戶傳真客戶編號姓 名地址3-3客戶實體屬性圖產品產品編號產品名稱單價備注3-4商品實體屬性圖總的E-R圖如下：用戶用戶名密碼管理維護客戶編號傳真客戶名稱郵編編號客戶名稱聯系錄入產品產品名稱產品價格編號11n1mn3-5 E-R圖3.3.2 數據庫邏輯結構設計通過對數據庫的概念設計，應當已經清楚地知道系統需要的數據表

30、的個數和結構。下一步就可以將概念設計轉化為邏輯結構設計。下面對數據庫中用到的主要的表做詳細的介紹。1. 客戶信息維護數據表客戶信息維護數據表用于保存與企業有業務往來的客戶信息，該數據表記錄了一些客戶的基本信息。表3-1客戶信息表（tb_Buyer_Tab）字段名數據類型長度描述MR_IDdecimal9編號MR_Namenvarchar50客戶名稱MR_Telnvarchar50MR_Faxnvarchar50傳真MR_Ealinvarchar100E_mailMR_EaliIDint4郵編MR_NerAddressnvarchar100網址MR_Addressnvarchar100聯系地址M

31、R_Typenvarchar20客戶類型MR_Soursenvarchar20客戶來源MR_Areanvarchar20所屬區域Datesdatetime8錄入日期MR_Memonvarchar100備注2.tb_LinkMan_Tab(聯系人信息數據表)聯系人信息數據表記錄著企業客戶中的聯系人信息，企業通過聯系人信息表中的聯系方式與客戶取得聯系，與客戶之間實現信息溝通，進行業務往來。表3-2聯系人數據表（tb_LinkMan_Tab）字段名數據類型長度描述MR_DIDnumeric9編號MR_Namenvarchar20MR_ClientNamenvarchar20客戶名稱MR_Telnva

32、rchar20聯系MR_Ealinvarchar20E_mailMR_Addressnvarchar50聯系地址MR_Memovarbinary50備注3.用戶表用戶表里存放了用戶名和密碼，只有在用戶名和密碼正確的時候才能登錄系統進入主界面。表3-3用戶表（tb_User）字段名數據類型長度描述bhnumeric9編號xmvarchar50用戶名qxvarchar50權限mmvarchar50密碼4.產品信息數據表（tb_Product_Tab）產品信息數據表記錄著企業客戶所生產或經營的產品信息，如產品的名稱 、單價等。表3-4 tb_Product_Tab字段名數據類型長度描述MR_IDnu

33、meric9編號MR_Codenvarchar10產品編號MR_Namenvarchar20產品名稱MR_Picefloat產品價格MR_Memonvarchar20備注5.客戶反饋表（tb_khfk）客戶反饋表用來存放客戶對產品的滿意程度。如產品的名稱，客戶的滿意程度、時間和備注。表3-5 tb_khfk字段名數據類型 長度描述IDnumeric9編號khmcvarchar50客戶名稱mycdvarchar50滿意程度SJdatetime8時間BZtext16備注6.客戶來源表(tb_Source_Tab)在客戶來源表中主要記錄了客戶的來源信息。表3-6 tb_Source_Tab字段名數據

34、類型長度描述MR_IDnumeric9編號MR_Namenvarchar50來源名稱MR_Memonvarchar50備注3.3.3 創建數據庫打開 SQL Server 2000中的企業管理器，在數據庫上右鍵單擊選擇新建，輸入數據庫的名稱。給據上面設置的表的有關容進行建表。這里所用的數據庫名為db_Cservice1,然后在所建的數據庫上單擊右鍵選擇新建表。這樣就可以建好我們所用的數據庫。建好表后要備份數據庫以免信息的丟失。第4章 詳細設計及實現4.1 程序流程圖開始客戶信息管理系統身份驗證是否正確NY主界面1. 系統管理2. 信息管理3. 信息服務4. 信息查詢選擇用戶管理口令修改客戶信息

35、維護工作日程安排發送信息提醒客戶信息查詢結束4-1流程圖4.2 公共模塊的設計連接數據庫的代碼如下在模塊Module1中定義了連接字符串的在模塊Module1中定義了連接字符串的變量PublicStr 、記錄集對象Recordset 、記錄登錄用戶名變量Name1、函數 n。模塊中定義的全局變量如下：Public PublicStr As String '連接數據庫字符串變量Public FrmStrs As String '記錄已經打開的窗體名稱變量'數據連接模塊Public Name1 As StringPublic AdoRs As New ADODB.Recor

36、dset '后添加一個記錄集Public AdoRs1 As New ADODB.RecordsetPublic AdoRs2 As New ADODB.Recordset用戶自定義一個函數，在該函數中設置一個連接字符串。在執行與數據庫相關的操作時調用該函數，使應用程序連接到數據庫。用戶自定義的函數n的程序代碼如下：Public Function n() As ADODB.Connection '定義連接字符串函數 Set n = New ADODB.Connectionn.Open"Provider=SQLOLEDB.1;PersistSecurityInfo=Fa

37、lse;UserID=sa;Initial Catalog=db_Cservice1 " '使用Connection對象的Open方法 連接數據庫End Function4.3 主界面的設計1.概述系統主窗體是操作應用程序的入口，通過操作主窗體可以控制系統中其他子窗體的運行，從而完成相應的操作。本系統的主窗體設計比較簡單，主要有菜單欄和狀態條組成。通過菜單欄控制程序中子功能窗體的運行，通過狀態欄記錄系統中的一些基本信息，如登錄操作員、系統日期等信息。系統主窗體的運行效果如圖4-2所示：圖4-2系統主窗體2.設計主窗口是（frmMain MDIForm）是客戶信息管理系統的主要

38、窗口，擔任著調動其他模塊的功能，是整個應用程序的核心。在工程中添加一個窗體，命名為frmMain。frmMain MDIForm主窗口是整個應用系統的容器。為了方便用戶的使用，特地設計了菜單。菜單編輯器對話框如圖4-3所示。圖4-3菜單編輯器對話框在主界面中主要用到了菜單編輯器、時間控件和狀態條。通過菜單欄控制程序中子功能窗體的運行，通過狀態條記錄系統中的一些基本信息，如登錄操作員、系統日期等信息。其主要的代碼如下：Private Sub YHGL_Click()點擊用戶管理菜單顯示用戶管理界面frm_yhgl.ShowEnd Sub在窗體上添加兩個Timer控件，一個用于顯示系統操作的時間，

39、另一個用于實時監測是否有提醒的信息，如果有則顯示信息提醒窗體。程序的代碼如下：Private Sub Timer1_Timer()StatusBar1.Panels(4).Text = Format(Now, " hh點mm分ss秒")狀態條顯示時間End SubPrivate Sub Timer2_Timer()rs.Open "select * from tb_bwl where 提醒日期='" & Date & "'", n, adOpenKeyset If rs.RecordCount >

40、 0 Then frm_某tx.Show Timer2.Enabled = False End If rs.CloseEnd Sub4.4 登錄模塊的設計1.概述我們要想進入系統就必修通過此界面，這是整個程序的入口。要想運行系統只有輸入正確的用戶名和密碼后就可以登錄到主頁面中，在密碼不正確的情況下會提示您重新輸入。所以用戶登錄界面是整個系統的入口，我們要記住用戶的名稱和密碼。運行的界面如圖4-4所示。圖4-4用戶登錄窗體2.設計在系統登錄界面中主要用到了組合框（boBox）和文本框(Textbox)和兩個按鈕（mndbutton）。組合框是一種同時具有文本框和列表框特性的控件。它可以向列表框一

41、樣，讓用戶通過鼠標選擇所需要的項目，也可以向文本框那樣，用輸入的方式添加項目。在此模塊中我們用組合框來輸入或填充系統用戶名，用文本框來輸入用戶的密碼。主要代碼如下：本模塊中用到的主要代碼如下.'用戶登錄按鈕的事件代碼Private Sub Cmd_Ok_Click()Dim MPassword As String AdoRs.Open "select * from tb_User where xm ='" & Cbx_Name.Text & "'", n, adOpenKeyset If AdoRs.RecordC

42、ount > 0 Then MPassword = AdoRs.Fields("mm")If Txt_Password.Text = MPassword Then '判斷數據的密碼是否正確 Name1 = Cbx_Name.Text frmMain.StatusBar1.Panels.Item(2).Text = "當前操作員 " + AdoRs.Fields("xm") frmMain.Show '通過身份驗證則顯示主窗體，登錄到系統當中 Unload Me Else MsgBox "密碼不正確請您確

43、認后重新輸入", , "提示信息" Txt_Password.Text = "" Txt_Password.SetFocus End If Else MsgBox "對不起沒有此用戶的信息", , "提示信息" Cbx_Name.Text = "" Txt_Password.Text = "" End If AdoRs.CloseEnd Sub取消按鈕的代碼如下Private Sub Cmd_Cancel_Click() EndEnd Sub4.5 系統管理模塊設計

44、系統功能模塊分為用戶管理、口令修改、數據備份和數據恢復三個子模塊，其中用戶管理模塊和數據備份模塊是很重要的。表4-1用戶管理模塊用例表控件的名稱功能描述增加（mand1）需要填寫用戶名、用戶的角色和用戶的密碼用戶的注冊（Cmd_Add）當填寫完用戶的信息后點擊注冊，該用戶的信息就保存到數據庫表中了用戶的刪除（Cmd_Del）點擊不想要的用戶輸入確認密碼后點擊刪除按鈕該用戶就可刪除表4-2口令修改模塊用例表控件的名稱功能描述確認（mand1）填寫完用戶名、舊密碼和兩次新密碼后，單擊確認按鈕該密碼就修改完成取消（mand2）不想修改密碼時單擊取消按鈕即可表4-3數據備份功能模塊用例表控件的名稱功能

45、描述選擇（Cmd_Select）通過此按鈕可以選擇要備份的文件的路徑進度條（ProgressBar1）顯示數據備份的進度開始備份（Cmd_BackUp）選擇好路徑后點擊此按鈕就開始備份數據了，這也是此系統模塊中最中要的退出（Cmd_Cancel）點擊此按鈕就可以退出備份系統管理模塊結構圖如圖4-5所示。系統管理用戶管理口令修改數據備份數據恢復圖4-5系統管理模塊圖4.5.1 用戶管理的設計1.概述用戶管理主要包括用戶的增加、注冊和刪除。在此頁面中可以實現用戶的增加、注冊和刪除。當輸入的用戶信息不完整和用戶已經存在的情況下都不能注冊。在增加用戶時不能增加、刪除用戶時不能刪除當前用戶。用戶管理模塊

46、的運行圖如圖4-6所示：圖4-6用戶管理窗體2.設計在此界面中用到了Listview,Frame,TextBox和mndbutton（命令按鈕）。我們詳細的介紹Listview 控件。Listview 控件可以顯示4中不同的視圖顯示項目，其中有大小圖標，列表和報表。通過該控件，可顯示項目組。Listview不是標準的Visual Basic控件，需要通過選擇“工程-部件”菜單選項，在打開的對話框中勾選“Microdoft Windows momn Cortrols(6.0)”將其添加到工具箱中。 單擊增加按鈕就可以在可以輸入用戶名，角色、用戶密碼和確認密碼。增加完信息后要單擊注冊按鈕。如果想刪

47、除用戶在選擇要刪除的用戶后就可刪除。其主要的代碼如下：Private Sub Cmd_del_Click() If Text1.Text = Name1 Then '如果是當前登錄的用戶名，則不允許刪除MsgBox "不能刪除當前用戶名!", 48, "提示信息" Else A = MsgBox("您確認要刪除當前用戶嗎?", 17, "刪除用戶信息提示") If A = vbOK Then AdoRs1.Open "select * from tb_user where xm='&quo

48、t; + Text1.Text + "'", n, adOpenKeyset If AdoRs1.RecordCount > 0 Then Set AdoRs1 = n.Execute("Delete tb_user from tb_user wher xm='"&Text1.Text&"'") '如果數據庫中存在該用戶信息，則將其刪除 MsgBox "用戶信息刪除成功¦", 64, "刪除用戶信息提示" Call ListLoad

49、 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text1.SetFocus Else MsgBox "當前數據庫中沒有可刪除的用戶信息", , "信息提示" End If End If End IfEnd Sub4.5.2口令修改的設計1.概述在此程序中我們可以實現密碼的修改，在修改密碼是我們要輸入用戶名，舊密碼，和新密碼。在這里我們運行此界面，運行的界面如圖4-7所示。圖4-7密碼修改運行界

50、面2.設計當用戶登錄到系統時就可以進行口令修改的操作了。如果用戶在請輸入用戶名的文本框中輸入用戶名，則系統將會在數據庫的系統用戶表中進行查詢，以確定是否存在相應的用戶名。如果找到此用戶名，然后在文本框中輸入舊密碼，輸入舊密碼。如果輸入的舊密碼與數據庫表中的一致就可以添加新密碼了。這時我們需要再輸入一次新密碼。點擊確定按鈕密碼就修改成功了，如果不想修改就可以點擊取消按鈕。確定按鈕的代碼如下：Private Sub mand1_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = &quo

51、t;" Or Text5.Text = "" ThenMsgBox "輸入不能為空!", 48, "提示信息" Else '判斷輸入的用戶名在數據庫是否存在 AdoRs.Open "select * from tb_user where mm ='" & Text1.Text & "' and xm='" + Text5.Text + "'", n, adOpenKeyset If AdoRs.RecordCo

52、unt > 0 Then IfText2.Text<>Text3.TextThen '判斷輸入的密碼是否正確 MsgBox "兩次輸入的密碼不一致，請您確認以后重新輸入。", 48, "提示信息" Text2.Text = "" Text3.Text = "" Text2.SetFocus Else '如果輸入正確的密碼則修改密碼 Set AdoRs1 = n.Execute("UPDATE tb_user SET mm= '" + Text3.Text

53、 + "' where xm='" + Text5.Text + "'") MsgBox "密碼修改成功請您記住新密碼", , "提示信息" Unload Me End If Else MsgBox "沒有此用戶的信息或者您輸入的原密碼錯誤，請您確認后重新輸入", 48, "提示信息" Text1.Text = ""Text2.Text = "" Text3.Text = "" Text5.T

54、ext = "" Text5.SetFocus End If AdoRs.Close End IfEnd Sub4.6 信息管理設計在此模塊中包括客戶信息維護、客戶信息反饋和工作日程安排。個子模塊中的功能及用到的主要的控件見下列表格。在此模塊中用戶可以對客戶的信息及客戶的反饋信息進行維護，包括客戶的添加、保存、刪除等。表4-4客戶信息維護模塊用列表控件的名稱功能描述（SSTab1）用來顯示客戶資料包括客戶名稱、聯系和電子等。（SSTab2）用來顯示聯系人如、客戶名稱和聯系等。(SSTab3)用來顯示產品報價包括產品編號、產品名稱和產品價格（Toolbar1）用來實現添加、保

55、存和刪除表4-5客戶反饋模塊用例表控件的名稱功能描述（Text1）填寫用戶的名稱（boBox）選擇用戶的滿意程度（DataGrid1）通過與數據庫相連獲取表的信息（mandbutton）實現客戶反饋的添加、保存和刪除表4-6工作日程安排模塊表控件的名稱功能描述（Toolbar1）用來實現添加、保存和刪除（DataGrid1）通過與數據庫相連獲取表的信息表4-7客戶信息添加模塊表控件的名稱功能描述(Textbox)主要用來填寫客戶的基本信息，包括客戶的名稱和聯系等。(boBox)選擇客戶的詳細信息，包括客戶類型，客戶來源和客戶所屬的區域。信息管理的模塊圖如下：客戶信息維護客戶信息維護客戶信息反饋工作日程安排