【正文】 放勞動力，將他們分配到更需要人力資源的崗位上去，從而加快其現(xiàn)代化、綜合化的建設步伐。 本文介紹了在 Visual 環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。 【關鍵字】管理信息系統(tǒng)、客戶管理、 Visual Basic 應用。 管理信息系統(tǒng)的開發(fā)方法有生命周期法、原型法和面向對象的開發(fā)方法等。本客戶系統(tǒng)計劃利用三個月的時間開發(fā)完成：系統(tǒng)調研和系統(tǒng)分析為 10天；系統(tǒng)設計為 10天；系統(tǒng)程序設計為45天；系統(tǒng)調試為 10 天；系統(tǒng)試運行為 15天。 （ 5）然后在用戶可將（ 3）和（ 4）的操作結果進行打印。計算機信息化管理有著儲存信息量大、速度快等許多優(yōu)點，提供給我們的處理信息及時快捷，同時也提高了我們工作人員的自身素質。因此對用戶的需求可分為幾個方面：一方面是客戶管理人員可以通過計算機來管理各類客戶，分類編號，調整客戶數(shù)據(jù)，增加客戶數(shù)量，適應客戶管理的需求；二方面是相關部門的人員能通過計算機來查詢和瀏覽客戶中的客戶，來確定自已需要查找的客戶，為業(yè)務的更好開展做好準備；三方面是相關工作人員對客戶數(shù)據(jù) 的排序，也是說可以根據(jù)需要按照某一字段進行排序，從而找出具有共同性的客戶，并可將這些查詢和排序的結果進行打印操作；四方面是對客戶數(shù)據(jù)的備份和恢復工作，這也是本系統(tǒng)的一個重要的功能，以防本系統(tǒng)在發(fā)生人為的損壞時能夠及時恢復這些資料。 在開 發(fā)方式上對系統(tǒng)的需求，由于客戶管理系統(tǒng)雖然是一種商業(yè)性的活動（但對于本人來說，卻是一個畢業(yè)設計的內容），所以系統(tǒng)設計開發(fā)的周期要短，在短時間內完成，減少開發(fā)成本，提高開發(fā)效率，方便、簡單、實用作為系統(tǒng)開發(fā)的指導思想。 經(jīng)濟上可行：由于公司急需采用計算機來進行客戶的管理，因此對開發(fā)客戶管理系統(tǒng)大力支持，開發(fā)經(jīng)費沒有問題。 第二章 編程環(huán)境簡介 開發(fā)工具的 選擇 現(xiàn)在，市場上可以選購的應用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。數(shù)據(jù)庫是 MIS 中的重要支持技術，在 MIS 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時， 應考慮數(shù)據(jù)庫應用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言 Visual Basic 語言，該開發(fā)工具具有很多長處： Visual Basic 是一種可視化的、面對對象和條用事件驅動方式的結構化高級程序設計，可用于開發(fā) Windows 環(huán)境下的種類應用程序。如果對界面的效果不滿意，還要回到程序中修改。 Visual Basic自動產(chǎn)生界面設計代碼，程序設計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計的效率。每個對象以圖形方式顯示在界面上，都是可視的。在設計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。 在用 Visual Basic 設計大型應用軟件時，不必建立具有明顯開始和結束的程序，而是編寫若干個微小的子程序，即過程。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡數(shù)據(jù)庫，如 SQL Server， Oracle 等。 Visual Basic 提供了動態(tài)數(shù)據(jù)交換的編程技術，可以在應用程序中與其他 Windows 應用程序建立動態(tài)數(shù)據(jù)交換，在不同的應用程序之間進行通信。 動態(tài)鏈接庫 (DLL) Visual Basic是一種高級程序設計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現(xiàn)。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 Access 是一種關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。計算機的數(shù)據(jù)庫可以分為兩類：非關系數(shù)據(jù)庫（ flatfile）和關系數(shù)據(jù)庫（ relational）。 1． 標識需要的數(shù)據(jù)； 2． 收集被標識的字段到表中； 3． 標識主關鍵字字段； 4． 繪制一個簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標識指定字段的信息； 7． 創(chuàng)建物理表。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。在表中使用的關鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關系。我們可以設置 DATA 控件的各個屬性，告訴它要調用那個數(shù)據(jù)庫的哪個部分。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系 第三章系統(tǒng)總體規(guī)劃 3． 1 組織結構調研 在對該公司客戶管理的手工管理模式和業(yè)務流程進行認真分析和研究的基礎上，經(jīng)過與該客戶部的相關人員的反復協(xié)商、論證，最后確定了該客戶管理系統(tǒng)的邏輯模型。數(shù)據(jù)流“客戶信息”條目如下： 數(shù)據(jù)流名稱：借戶信息 說明：客戶的個人信息 數(shù)據(jù)流來源：客戶 數(shù)據(jù)流去向：客戶管理人員 數(shù)據(jù)流組成：｛ 客戶號｝ 數(shù)據(jù)流的流通量：大約 10位 /天 （３）數(shù)據(jù)存儲：數(shù)據(jù)存儲“客戶情況”條目如下： 數(shù)據(jù)存儲名稱：客戶情況 簡述：存放的是每個客戶的個人情況 輸入數(shù)據(jù)：客戶情況 數(shù)據(jù)存儲組成：｛客戶編號，姓名，客戶類型｝ 存儲方式：按客戶的客戶編號順序排列 （４）數(shù)據(jù)處理。 3． 2． 2 軟件結構設計。由于 VFP 具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用它作為后臺數(shù)據(jù)庫。分別如下圖所示： 編號 姓名 性別 職務 電話 客戶管理 手機 消費意向 生日 個人愛好 工作單位 各表的物理結構如下： kh（客戶）表： 字段名稱 類型 寬度 小數(shù)位數(shù) 編號 字符 10 0 姓名 字符 8 0 單位 字符 20 0 性別 字符 2 0 電話 字符 11 0 手機 字符 11 0 職位 字符 10 0 個人愛好 字符 6 0 消費意向 字符 30 0 生日 字符 2 0 備注 字符 8 0 (群組 )表： 字段名稱 類型 寬度 小數(shù)位數(shù) 群組名稱 字符 10 0 管理員 字符 10 0 群組人數(shù) 數(shù)字 5 0 電話 數(shù)字 11 0 職能 文本 10 0 收入 貨幣 10 2 第四章 系統(tǒng)功能實現(xiàn) 系統(tǒng)登陸界面： 雙擊圖標運行程序以后，就可以看到程序的登錄界面。用戶名和密碼 Unload Me Else For X = 1 To 1 39。 代碼如下： Private Sub A1_Click() Unload Me 39。 = 修改完畢 39。 = False = 8220 = 300 39。 = True 39。 = 5728 39。 = 數(shù)據(jù)輸入： End If End If End If End If End Sub Private Sub Command2_Click() If = True Then MsgBox 刷新成功！ , 16, 恭喜： Else End If 39。 代碼如下： Private Sub Command1_Click() = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else If = 修改記錄 Then = 設置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄： Else If = Then MsgBox 姓名不能為空！ , 16, 出錯： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長 , 16, 出錯： Exit Sub End If Next X = 修改記錄 = True = True = True 39。 代碼如下： Private Sub Command1_Click() If = True And = True Then MsgBox 您輸入的第一個管理員是系統(tǒng)管理員，是用來 設置用戶的，請不要刪除！ , 64, 提示： = 1 = False = False End If If = 添加 Then = 0 = 0 = True = 添加完畢 = False = False = False = False Else If = And = Then MsgBox 您沒有輸入用戶名或密碼！ , 16, 出錯： = 123 = False = 添加 = 當前記 錄 ： = True = True = True = True Else If = 1 Then = False = 添加 = True = True = True = True = True = True = 2 Else If = 1 Or = 1 Then = False = 添加 = True = True = True = True Else MsgBox 您沒有輸入權限 ！ , 16, 出錯 ： End If End If End If End If End Sub Private Sub Command2_Click() If = True Or = True Then MsgBox 數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() If = True And Then MsgBox 數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else If = 查詢 Then = True = False = False = False = False = 查詢完畢 = Else = False = True = True = True = True = 查詢 = End If End If End Sub Private Sub Command5_Click() If = True Or = True Then MsgBox 數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else If = 修改 Then = 修改完畢 = 修改記錄 ： = True = False = False = False = False Else If = Or = Then X = MsgBox(您沒有輸入用戶名或密碼，要刪除嗎？ , 17, 出錯： ) If X = 1 Then = 123 = 123 Else Exit Sub End If Else If = 1 Or = 1 Then = False = 修改 = True = True