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