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