【正文】 另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 代碼如下： Private Sub Command1_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯： Else End If End Sub Private Sub Command2_Click() If = True Then MsgBox 已經(jīng)到最后一條記錄了！ , 16, 提示！ Else End If End Sub Private Sub Command3_Click() If = True Then MsgBox 這已經(jīng)是第一條信息了！ , 16, 出錯： Else End If End Sub Private Sub Command4_Click() If = True Then MsgBox 已經(jīng)到最后一條記錄了！ , 16, 提示！ Else End If End Sub Private Sub Command5_Click() If = Then MsgBox 沒有輸入查詢條件！ , 16, 提示！ = End If Do While True If (姓名 ).Value = Then = (姓名 ).Value Exit Do End If Loop = End Sub Private Sub Command6_Click() If = Then MsgBox 沒有輸入查詢條件！ , 16, 提示！ = End If Do While True If (客戶編號 ).Value = Then = (客戶編號 ).Value Exit Do End If Loop = End Sub 群組設(shè)置： 進行對群組消費客戶管理，以實現(xiàn)大客戶的維護管理以及完善售后服務(wù)工作。 = True 39。 = False 39。End End Sub Private Sub Form_Load() = End Sub 4． 2 系統(tǒng)主界面： 在系統(tǒng)登錄成功之后，就會看到系統(tǒng)的主界面如下所示 ： 在本系統(tǒng)主界面中，我們可以看到一個 MDI 窗體，用戶在使用時只需要點擊鼠標左鍵就可以進入相應(yīng)的功能選項，快捷而方便，從這個窗體上可以清楚地看到本系統(tǒng)所具備的三個主要主要功能，即客戶數(shù)據(jù)錄入，客戶數(shù)據(jù)查詢及設(shè)置三大功能模塊。 (1)本系統(tǒng)中所涉及到的主要實體及其屬性有： （客戶）表： {編號，姓名，單位，性別，職務(wù)，電話，手機，消費意向，個人愛好等 } (2)本系統(tǒng)的實體 聯(lián)系（ ER）圖 為了使 ER圖表示得更加清晰，現(xiàn)將 ER圖分成實體及其屬性圖和實體及其聯(lián)系圖。通過對系統(tǒng)調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能如下：客戶信息錄入、客戶信息查詢、系統(tǒng)維護等三大模塊。DATA 控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設(shè)計。 Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置 于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。利用 OLE 技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。同時， Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 dBASE，F(xiàn)oxPro， Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。 Visual Basic 是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)， Visual Basic 是一個非常理想選擇。因此在技術(shù)上是可行的。 企業(yè)客戶的分布比較份雜，但要有著完善的客戶信息，對每一客戶要有詳細的記錄信息，功能上對系統(tǒng)的需求是全面的。 （ 1）確定該客戶所在的區(qū)域進行定位； （ 2）將該客戶的詳細資料 錄入本系統(tǒng)，并可以在錄入后將客戶的個人資料進行修改、刪除等常規(guī)操作； （ 3）相關(guān)業(yè)務(wù)部門在需要時，可在本系統(tǒng)中根據(jù)自己設(shè)定的條件進行快速查找（可以進行組合查找）； （ 4）相關(guān)業(yè)務(wù)部門在需要時，可在本系統(tǒng)中根據(jù)自己設(shè)定的條件進行排序。同時人們對信息和數(shù)據(jù)的利用與處理也已進入自動化、網(wǎng)絡(luò)化和社會化的階段，因此，開發(fā)相關(guān)的管理信息系統(tǒng)已經(jīng)成為各行各業(yè)的必要和必需了，管理信息系統(tǒng)作為一門邊緣學(xué)科，集管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計算機技術(shù)于一體，可以 解決企業(yè)或組織所面臨的問題，對內(nèi)來看，可以提高工作效率；對外來看，獲得競爭優(yōu)勢。管理信息系 統(tǒng) 是一個不斷發(fā)展的新型學(xué)科， 企業(yè)要生存要發(fā)展，要高效率地把企業(yè)活動有機地組織起來，就必須加強企業(yè)管理，即加強對企業(yè)內(nèi)部的各種資源（人、財、物等）的有效管理，建立與自身特點相適應(yīng)的管理信息系統(tǒng)。 客戶關(guān)系信息管理系統(tǒng) 主要采用 Microsoft 做為開發(fā)工具，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法，進行開發(fā)與設(shè)計的。而在當代這個以信息時代為主題的社會里，將信息技術(shù)應(yīng)用于對現(xiàn)代企業(yè)的管理，不但可以提高信息的處理速度和提高信息處理的準確性，更重要的是，可以解放勞動力，將他們分配到更需要人力資源的崗位上去，從而加快其現(xiàn)代化、綜合化的建設(shè)步伐。 【關(guān)鍵字】管理信息系統(tǒng)、客戶管理、 Visual Basic 應(yīng)用。本客戶系統(tǒng)計劃利用三個月的時間開發(fā)完成：系統(tǒng)調(diào)研和系統(tǒng)分析為 10天；系統(tǒng)設(shè)計為 10天；系統(tǒng)程序設(shè)計為45天；系統(tǒng)調(diào)試為 10 天；系統(tǒng)試運行為 15天。計算機信息化管理有著儲存信息量大、速度快等許多優(yōu)點，提供給我們的處理信息及時快捷，同時也提高了我們工作人員的自身素質(zhì)。 在開 發(fā)方式上對系統(tǒng)的需求，由于客戶管理系統(tǒng)雖然是一種商業(yè)性的活動（但對于本人來說，卻是一個畢業(yè)設(shè)計的內(nèi)容），所以系統(tǒng)設(shè)計開發(fā)的周期要短，在短時間內(nèi)完成，減少開發(fā)成本，提高開發(fā)效率，方便、簡單、實用作為系統(tǒng)開發(fā)的指導(dǎo)思想。 第二章 編程環(huán)境簡介 開發(fā)工具的 選擇 現(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。如果對界面的效果不滿意，還要回到程序中修改。每個對象以圖形方式顯示在界面上，都是可視的。 在用 Visual Basic 設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。 Visual Basic 提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進行通信。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。我們可以設(shè)置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。數(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ù)處理。由客戶管理系統(tǒng) 系統(tǒng)登陸 客戶信息錄入 客戶信息查詢 用戶管理 添加 新增 刪除 恢復(fù) 按編號 按姓名 用戶添加 密碼修改 用戶刪除 群組設(shè)置 退出系統(tǒng) 于 VFP 具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用它作為后臺數(shù)據(jù)庫。用戶名和密碼 Unload Me Else For X = 1 To 1 39。 = 修改完畢 39。 = True 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() If = True And = True Then MsgBox 您輸入的第一個管理員是系統(tǒng)管理員，是用來 設(shè)置用戶的，請不要刪除！ , 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 您沒有輸入權(quán)限 ！ , 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