【正文】 說明了幾個主要模塊的算法，并附帶了一些主要的窗口和程序。信息和材料、能源一樣成為一種社會的基本生產資料，在人類的社會生產活動中發(fā)揮著重要的作用?；谝陨先N方法的特點和各自的優(yōu)缺點，本客戶管理系統(tǒng)利用軟件工程化思想和方法，總體上是采用結構化生命法進行系統(tǒng)分析和設計的，而系統(tǒng)實現等步驟則采用了原型法和面對對象的方法。下面繪制出客戶管理業(yè)務中的流程圖。得出該客戶業(yè)務流程圖如下所示：1．2現行系統(tǒng)存在的問題以前該公司的客戶管理工作大部分還是進行著手工管理，工作起來效率很低，并且不能及時了解各類客戶的實際情況，也無法快速地進行客戶信息的查詢等操作，不便于動態(tài)及時地調整客戶資料，以便更好地適應當前經濟形勢發(fā)展的需要和本企業(yè)的管理的先進性。客戶信息系統(tǒng)的建立，需要進行用戶的需求調查與分析，以確定系統(tǒng)目標，提出解決問題的詳細方案，這是系統(tǒng)建設的重要環(huán)節(jié)。在軟、硬件方面對系統(tǒng)的需求，軟件要求易學，界面友好，容易掌握，可以很簡單方便的管理各種客戶信息。技術上可行：該系統(tǒng)所需硬件設備，市場上銷售且價格較低，甚至可以使用原有的設備，軟件上，操作系統(tǒng)采用Windows系列操作系統(tǒng)，數據庫管理系統(tǒng)采用Visual ，這些軟件在MIS開發(fā)中已被大量應用，技術上都比較成熟。另外，客戶部和上級領導對開發(fā)該系統(tǒng)也是大力支持的，同時制定了培訓計劃，并進行了實施MIS的物質準備和工作準備。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數倍的工夫來處理，使得原來所標榜的效率提高的優(yōu)點失去了作用；相反，如果只強調程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設計師的寶貴時間。在Visual Basic環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的應用程序接口(API)函數，以及動態(tài)鏈接庫(DLL)、動態(tài)數據交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數據訪問(ODBC)等技術，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。Visual Basic提供了可視化設計工具，把Windows界面設計的復雜性“封裝”起來，開發(fā)人員不必為界面設計而編寫大量程序代碼。在一般的面向對象程序設計語言中，對象由程序代碼和數據組成，是抽象的概念；而Visual Basic則是應用面向對象的程序設計方法(OOP)，把程序和數據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調試器和編譯器。一個對象可能會產生多個事件，每個事件都可以通過一段程序來響應。訪問數據庫Visual Basic具有強大的數據庫管理功能，利用數據控件和數據庫管理窗口，可以直接建立或處理Microsoft Access格式的數據庫，并提供了強大的數據存儲和檢索功能。動態(tài)數據交換(DDE)利用動態(tài)數據交換(Dynamic Data Exchange)技術，可以把一種應用程序中的數據動態(tài)地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態(tài)數據鏈路。OLE技術是Microsoft公司對象技術的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程序看做是一個對象進行鏈接和嵌入，是一種應用程序一體化的技術。此外，通過動態(tài)鏈接庫，還可以調用Windows應用程序接口(API)函數，實現SDK所具有的功能。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數據庫中的信息。數據庫的概念數據庫是一種存儲數據并對數據進行操作的工具。 _ 新建一個數據庫創(chuàng)建任何一個數據庫的第一步是仔細的規(guī)劃數據庫，設計必須是靈活的、有邏輯的。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現的具體方法。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數據的組合字段。Visual Basic、Access以及其他微軟的軟件產品都是通過共用JET數據庫引擎，從而給用戶提供了豐富的數據類型。一個記錄集合是動態(tài)的也就意味著，當原來的數據表中的容改變了以后，該記錄集合中的記錄也會隨之改變。3．3．1．3數據字典數據處理“查詢客戶”條目如下：數據處理名稱：查詢客戶數據處理編號：簡要描述：根據客戶的編號，姓名，性別，職務，客戶類型輸入數據流：客戶查詢信息輸出數據流：查詢結果處理邏輯：根據客戶的編號，姓名，性別，職務，客戶類型進行查詢?？蛻艄芾硐到y(tǒng)包含客戶錄入、客戶查詢、系統(tǒng)維護等功能。使用它的好處還在于，如果你的系統(tǒng)擴展到Client/Server模式的時候，可以使用Microsoft的數據庫服務器軟件SQL Server，此時，程序只需要簡單的修改一下鏈接（ADO的數據源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。需要通過系統(tǒng)管理驗證，即輸入正確的密碼進行系統(tǒng)登陸，本系統(tǒng)默認的密碼為0。錯誤出現3次， If = True Then MsgBox 密碼錯誤請重新登錄, 16, 錯誤： = = = 1 39。關閉當前窗體End SubPrivate Sub a2_Click()Unload MeEnd SubPrivate Sub a3_Click() = 9345 = 12870End SubPrivate Sub b1_Click() = 8355 = 13710End SubPrivate Sub bz_Click()End SubPrivate Sub c1_Click() = 9510 = 13875End SubPrivate Sub C2_Click() = 6795 = 10020 = True = 輸入群組名進行查詢End SubPrivate Sub c3_Click() = 收入查詢 = 4200 = 4081 = 495 = 2055 = 輸入名稱End SubPrivate Sub cz_Click() 2End SubPrivate Sub dc_Click() 0End SubPrivate Sub glysx_Click()End SubPrivate Sub gy_Click()End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim YesNo As Integer Dim M As Single YesNo = MsgBox(真的要退出系統(tǒng)嗎？, vbYesNo + vbQuestion, 提示) If YesNo = vbYes Then EndTxt = True Unload Me Else Cancel = 1 End IfEnd SubPrivate Sub pp_Click() 1End SubPrivate Sub stsz_Click() = 6930 = 8400End SubPrivate Sub tc_Click() Unload Me End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case key1 = 8355 = 13710Case key2 = 9510 = 13875Case key3 = 6795 = 10020 = True = 輸入群組名進行查詢Case key4Case key7 = 6930 = 8400Case key6 Unload Me End SelectEnd Sub：本應用模塊的主要功能是實現對客戶個人信息的錄入系統(tǒng)操作，如編號，姓名，性別，性別等基本操作。 = False39。 = True39。 = True39。 = 60039。MsgBox 刷新成功！, 16, 恭喜：End SubPrivate Sub Command5_Click() = True = True = True = True = True = True = True = True = True = True = TrueIf = Or = ThenMsgBox 編號或姓名不能為空！, 16, 出錯： = = 男ElseMsgBox 開始添加信息！, 64, 恭喜！ = False = False = FalseEnd IfEnd SubPrivate Sub Command6_Click()If = True And = True ThenMsgBox 您的數據庫中沒有信息可以刪除！, 16, 出錯！ElseMsgBox 您確定要刪除這條信息？, 32, 出錯！If = False ThenElse39。 = True = 5728 = 600 = 1500 = False = 數據輸入：End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If = Or = ThenMsgBox 名稱和管理員不能為空！, 16, 出錯：ElseMsgBox 成功保存！, 64, 恭喜！ = True = Tru