客戶管理系統(tǒng)模塊設(shè)計(jì)論文

1、客戶管理系統(tǒng)【摘 要】客戶資源是企業(yè)的寶貴財(cái)富，客戶管理系統(tǒng)可以有效地管理企業(yè)的客戶資源，記錄企業(yè)與客戶之間的商業(yè)活動(dòng)，這對(duì)于現(xiàn)代企業(yè)是非常重要的。本系統(tǒng)后臺(tái)數(shù)據(jù)庫(kù)使用Access，前臺(tái)開(kāi)發(fā)工具使用Visual Basic。系統(tǒng)采用目前比較流行的ADO數(shù)據(jù)訪問(wèn)技術(shù)，并將每個(gè)數(shù)據(jù)庫(kù)表的字段和操作封裝到類中，從而成功地將面向?qū)ο蟮某绦蛟O(shè)計(jì)思想應(yīng)用到數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)中。這也是本系統(tǒng)的特色和優(yōu)勢(shì)。【關(guān)鍵詞】客戶管理系統(tǒng)，Access數(shù)據(jù)庫(kù)，Visual Basic開(kāi)發(fā)語(yǔ)言，管理信息系統(tǒng) Abstract：The customer resources are enterprise's prec

2、ious wealth, the customer resource management system may manage the enterprise effectively the customer resources, between the recording enterprise and the customer trade activity, this regarding the modern enterprise is extremely important.This system backstage database uses Access, the onstage dev

3、elopment kit uses Visual Basic.The system uses the present quite popular ADO data accessing technology, and seals each database table field and the operation in the kind, thus applies successfully the object-oriented programming thought in the database application programming.This also is this syste

4、m characteristic and the superiority.onlinetranslationKey words:The customer resource management system, the Access database, Visual the Basic development language, the manages of information 目 錄第一章 緒論.31.1 選題的背景.31.2系統(tǒng)概述.3第二章 管理信息系統(tǒng)概述42.1管理信息系統(tǒng)現(xiàn)狀.42.2管理信息系統(tǒng)開(kāi)發(fā)方法介紹.5第三章 系統(tǒng)調(diào)研及可行性分析.73.1系統(tǒng)調(diào)研.73.2可靠性分析概

5、述.7 3.3技術(shù)可行性分析8第四章 系統(tǒng)分析與總體設(shè)計(jì)94.1系統(tǒng)需求分析94.2系統(tǒng)體系結(jié)構(gòu)設(shè)計(jì).94.3開(kāi)發(fā)工具的選擇.11第五章 數(shù)據(jù)庫(kù)設(shè)計(jì)12第六章 系統(tǒng)詳細(xì)設(shè)計(jì)166.1登錄窗體和系統(tǒng)主界面設(shè)計(jì)166.2基本信息管理模塊設(shè)計(jì)206.3客戶信息管理模塊設(shè)計(jì).276.4商業(yè)往來(lái)管理模塊設(shè)計(jì).306.5用戶管理模塊設(shè)計(jì)32第七章 系統(tǒng)使用說(shuō)明.34第八章 系統(tǒng)測(cè)試34第九章 論文總結(jié)36致 36參考文獻(xiàn)37附錄37第一章 緒 論1.1 選題的背景學(xué)習(xí)計(jì)算機(jī)知識(shí)的目的在于更加準(zhǔn)確、快捷的解決現(xiàn)實(shí)生活中的各種問(wèn)題。我們只有不斷的更新和完善自己的知識(shí)、在實(shí)踐中積累經(jīng)驗(yàn)，才能做出好的軟件為社會(huì)服

6、務(wù)，為使用者提供便利。在當(dāng)今的社會(huì)，可以說(shuō)是信息技術(shù)的發(fā)展時(shí)代，在社會(huì)的方方面面無(wú)不涉及到各種信息的處理。信息是人們對(duì)客觀世界的具體描述，是人們進(jìn)行交流與聯(lián)系的重要途徑。人類社會(huì)就處在一個(gè)對(duì)信息進(jìn)行有效合理的加工中。它將促進(jìn)整個(gè)社會(huì)的發(fā)展。隨著社會(huì)信息技術(shù)的提高，計(jì)算機(jī)已被廣泛應(yīng)用于當(dāng)今社會(huì)的各個(gè)領(lǐng)域，成為推動(dòng)社會(huì)發(fā)展的首要技術(shù)動(dòng)力。在軟件技術(shù)的應(yīng)用中，軟件的開(kāi)發(fā)技術(shù)，尤其是應(yīng)用型軟件產(chǎn)品的開(kāi)發(fā)技術(shù)成了重中之重。不斷開(kāi)發(fā)適應(yīng)用戶需求、市場(chǎng)需要的新型軟件產(chǎn)品，參與市場(chǎng)競(jìng)爭(zhēng)，獲取最大利潤(rùn)是全球信息企業(yè)追求的目標(biāo)?？蛻糍Y源管理系統(tǒng)正是一個(gè)非常實(shí)用的應(yīng)用型軟件產(chǎn)品，我們不談它的經(jīng)濟(jì)利益，單說(shuō)的應(yīng)用圍就

7、是十分廣泛的，客戶資源管理系統(tǒng)的用戶是各企業(yè)負(fù)責(zé)客戶資源管理的員工，主要功能包括基本信息管理、客房信息管理和商業(yè)往來(lái)管理等，。我想計(jì)算機(jī)的作用就是輔助人們完成那些煩瑣的體力勞動(dòng)和腦力勞動(dòng)，使人們從勞動(dòng)力中解脫出來(lái)，今天我所設(shè)計(jì)的客戶資源管理系統(tǒng)就是可以有效地管理企業(yè)的客戶資源，記錄企業(yè)與客戶之間的商業(yè)活動(dòng)，同時(shí)使管理員從繁雜的各項(xiàng)勞動(dòng)中解脫出來(lái)。1.2系統(tǒng)概述1.2.1、本課題的研究意義目前市面上流行的客戶資源管理系統(tǒng)不少。但是，對(duì)于具體的企業(yè)單位來(lái)說(shuō)，因?yàn)榫哂凶约旱奶厥庑?，因此只需要一個(gè)操作方便，功能實(shí)用，能同時(shí)滿足本企業(yè)的管理及需求的系統(tǒng)。我們的目標(biāo)就是在于開(kāi)發(fā)一個(gè)功能實(shí)用、操作方便，簡(jiǎn)單

8、明了的客戶資源管理系統(tǒng)。1.2.2、本論文的目的、容及作者主要貢獻(xiàn)(1)目的：目前市面上流行的客戶資源管理系統(tǒng)不少。但是，對(duì)于具體的企業(yè)單位來(lái)說(shuō)，因?yàn)榫哂凶约旱奶厥庑裕虼酥恍枰粋€(gè)操作方便，功能實(shí)用，能同時(shí)滿足本企業(yè)的管理及需求的系統(tǒng)。我們的目標(biāo)就是在于開(kāi)發(fā)一個(gè)功能實(shí)用、操作方便，簡(jiǎn)單明了的客戶資源管理系統(tǒng)。(2)容：本系統(tǒng)具體包括以下基本功能：基本信息的添加、修改刪除和查詢?；拘畔ǖ赜蛐畔?、客戶類別、行業(yè)分類、職務(wù)名稱、項(xiàng)目類型和銷售人員等。此功能為客戶信息管理和商業(yè)往來(lái)管理模塊提供依據(jù)。客戶信息的添加、修改、刪除和查詢。客房信息包括客戶單位和聯(lián)系人。商業(yè)往來(lái)信息的添加、修改、刪除和

9、查詢。商業(yè)往來(lái)信息包括商業(yè)機(jī)會(huì)和客戶跟蹤。 (3)作者的主要任務(wù)本人獨(dú)立完成了此課題的研究與開(kāi)發(fā)，包括調(diào)研、分析、設(shè)計(jì)、編碼、測(cè)試、文檔編寫(xiě)等容。第二章 管理信息系統(tǒng)概述2.1管理信息系統(tǒng)現(xiàn)狀管理信息系統(tǒng)（MIS）是一門邊緣學(xué)科，集管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計(jì)算機(jī)技術(shù)于一體。1985年，管理信息系統(tǒng)創(chuàng)始人，明尼達(dá)大學(xué)卡爾森管理學(xué)院的著名教授戴維斯（Gordon.B.Davis）給出了一個(gè)具有代表性的定義：“管理信息系統(tǒng)是一個(gè)利用計(jì)算機(jī)硬件和軟件，手工作業(yè)、分析、計(jì)劃、控制和決策模型以及數(shù)據(jù)庫(kù)的用戶機(jī)器系統(tǒng)。它能提供信息支持企業(yè)或組織的運(yùn)行、管理和決策功能。”隨著網(wǎng)絡(luò)技術(shù)的

10、出現(xiàn)，管理信息系統(tǒng)又有了新的必恭必敬，基于網(wǎng)絡(luò)的管理信息系統(tǒng)不斷出現(xiàn)，管理信息系統(tǒng)的概念模型也發(fā)生了相應(yīng)的變化，許多學(xué)者對(duì)管理信息系統(tǒng)給出了新的定義。例如勞頓認(rèn)為：“管理信息系統(tǒng)是一個(gè)基于計(jì)算機(jī)的信息系統(tǒng)，它通過(guò)收集、處理、存儲(chǔ)和擴(kuò)散信息，來(lái)支持組織的管理、決策、合作、控制、分析活動(dòng)，并使之可視化?！币虼?，我們可以看出，管理系統(tǒng)系統(tǒng)具有幾個(gè)基本含義：（1）管理信息系統(tǒng)不是一個(gè)單純的軟件系統(tǒng)，而是一個(gè)人機(jī)系統(tǒng)，由人和機(jī)器協(xié)同工作。管理信息系統(tǒng)在支持企業(yè)或組織的各項(xiàng)管理活動(dòng)中，管理人員負(fù)責(zé)將基礎(chǔ)數(shù)據(jù)及時(shí)地輸入到計(jì)算機(jī)中，計(jì)算機(jī)則根據(jù)企業(yè)或組織中的各層管理人員的要求對(duì)基礎(chǔ)數(shù)據(jù)進(jìn)行加工處理，并將所得到

11、的信息輸出。計(jì)算機(jī)不斷地與最終用戶進(jìn)行著信息的交換，但在對(duì)數(shù)據(jù)的加工處理過(guò)程中又需要人的適當(dāng)干預(yù)。（2）管理信息系統(tǒng)的管理過(guò)程就是對(duì)數(shù)據(jù)進(jìn)行懼、存儲(chǔ)、加工處理、傳遞，并產(chǎn)生信息的過(guò)程，因此數(shù)據(jù)是管理信息系統(tǒng)的靈魂。管理信息系統(tǒng)運(yùn)用了數(shù)據(jù)庫(kù)的技術(shù)，對(duì)基礎(chǔ)數(shù)據(jù)進(jìn)行統(tǒng)一規(guī)劃、存儲(chǔ)，供各層管理人員使用，從而實(shí)現(xiàn)了數(shù)據(jù)的一致和共享。（3）管理信息系統(tǒng)可以解決企業(yè)或組織所面臨的問(wèn)題。例如，管理信息系統(tǒng)可以處理企業(yè)產(chǎn)生經(jīng)營(yíng)活動(dòng)的全過(guò)程，可以解決組織中數(shù)據(jù)處理效率問(wèn)題，也可以解決財(cái)務(wù)管理決策過(guò)程等。管理信息系統(tǒng)應(yīng)具有如下幾個(gè)功能。(1)數(shù)據(jù)處理功能：數(shù)據(jù)處理是管理信息系統(tǒng)最基本的功能，它包括對(duì)各種類型數(shù)據(jù)的收

12、集、加工處理、傳遞、存儲(chǔ)等工作。(2)實(shí)測(cè)功能：通過(guò)對(duì)數(shù)據(jù)的加工處理，可以隨時(shí)了解各部門的實(shí)際運(yùn)行情況，如各生產(chǎn)車間今天生產(chǎn)的產(chǎn)品數(shù)量、銷售部接受的訂單等。(3)預(yù)測(cè)功能：通過(guò)運(yùn)用一定的數(shù)學(xué)方法和預(yù)測(cè)模型，對(duì)過(guò)去的數(shù)據(jù)進(jìn)行分析，就可能對(duì)未來(lái)可能發(fā)生的情況進(jìn)行預(yù)測(cè)，為高級(jí)管理人員進(jìn)行管理決策提供依據(jù)。(4)控制功能：通過(guò)信息的反饋可以對(duì)整個(gè)企業(yè)生產(chǎn)經(jīng)營(yíng)的各個(gè)部門、各個(gè)環(huán)節(jié)的運(yùn)行情況進(jìn)行監(jiān)測(cè)、協(xié)調(diào)、控制，保證系統(tǒng)的正常運(yùn)行。(5)輔助決策功能：通過(guò)對(duì)數(shù)據(jù)的加工處理，可以快速地獲取對(duì)決策有影響的信息，從而為合理的配置企業(yè)的各項(xiàng)資源，做出最佳的決策提供科學(xué)的依據(jù)。目前，管理信息系統(tǒng)的應(yīng)用已經(jīng)非常廣泛，

13、隨著計(jì)算機(jī)技術(shù)、網(wǎng)絡(luò)技術(shù)和通信技術(shù)的發(fā)展，管理信息系統(tǒng)的功能也日趨完善，并朝著智能化、網(wǎng)絡(luò)化、集成化等方向發(fā)展。如辦公自動(dòng)化（OA）、電子商務(wù)（EC）、專家系統(tǒng)（ES）、計(jì)算機(jī)集成制造系統(tǒng)（CIMS）。2.2、管理信息系統(tǒng)開(kāi)發(fā)方法介紹目前，常用的管理信息系統(tǒng)的開(kāi)發(fā)方法有生命周期法、原型法和面對(duì)對(duì)象的開(kāi)發(fā)方法。下面僅對(duì)原型法和面對(duì)對(duì)象的開(kāi)發(fā)方法進(jìn)行簡(jiǎn)單的描述。(1)原型法：原型法（Prototyping Method）是20世紀(jì)80年代發(fā)展起來(lái)的，旨在改變生命周期法的缺點(diǎn)的一種系統(tǒng)開(kāi)發(fā)方法。原型法的基本思想首選根據(jù)用戶的要求，由用戶和開(kāi)發(fā)者共同確定系統(tǒng)的基本要求和主要功能，利用系統(tǒng)快速生成工具，

14、建立一個(gè)系統(tǒng)模型。再在此基礎(chǔ)上與用戶交流，將模型不斷補(bǔ)充，修改完善，如此反復(fù)，最終直至用戶和開(kāi)發(fā)者都比較滿意為止，就形成了一個(gè)相對(duì)穩(wěn)定、較為理想的管理信息系統(tǒng)。原型法的開(kāi)發(fā)過(guò)程采用原型法開(kāi)發(fā)管理信息系統(tǒng)可以分為如下幾個(gè)階段：A、確定用戶的基本需求。由用戶提出對(duì)新系統(tǒng)的基本要求，如功能、基本界面形式、所需的數(shù)據(jù)、應(yīng)用圍、運(yùn)行環(huán)境等，開(kāi)發(fā)者根據(jù)這些信息估算出開(kāi)發(fā)該系統(tǒng)所需的費(fèi)用，并建立簡(jiǎn)明的系統(tǒng)模型。B、開(kāi)發(fā)初步的原型系統(tǒng)。系統(tǒng)開(kāi)發(fā)人員根據(jù)用戶的要求建立原型系統(tǒng)，但該系統(tǒng)只是一個(gè)初步的、不成熟的系統(tǒng)，從系統(tǒng)的工作效率上看也是不完善的。其主要目的是為了描述開(kāi)發(fā)者所理解的用戶的基本需求。C、修改、評(píng)價(jià)

15、原型系統(tǒng)。將建造好的原型系統(tǒng)交給用戶，并投入試運(yùn)行，用戶將使用過(guò)程中發(fā)現(xiàn)的問(wèn)題一一記錄下來(lái)，并與開(kāi)發(fā)人員進(jìn)行交流。開(kāi)發(fā)人員針對(duì)這些問(wèn)題不斷地對(duì)系統(tǒng)進(jìn)行修改、擴(kuò)充與完善，直至用戶滿意為止。D、形成最終的管理信息。對(duì)用戶滿意的原型系統(tǒng)進(jìn)行進(jìn)一步的開(kāi)發(fā)，不斷補(bǔ)充、完善，最終形成一個(gè)適用的管理信息系統(tǒng)。原型法的優(yōu)缺點(diǎn)原型法的優(yōu)點(diǎn)是開(kāi)發(fā)周期短，費(fèi)用較少，同時(shí)可以較有效地避免因開(kāi)發(fā)者和用戶的認(rèn)識(shí)隔閡所產(chǎn)生的失敗，其缺點(diǎn)是系統(tǒng)的開(kāi)發(fā)缺乏統(tǒng)一的規(guī)劃和開(kāi)發(fā)標(biāo)準(zhǔn)，難以對(duì)系統(tǒng)的開(kāi)發(fā)過(guò)程加以控制。原型法一般適用于開(kāi)發(fā)規(guī)模不大、不太復(fù)雜或需求經(jīng)常發(fā)生變化的系統(tǒng)。(2)面向?qū)ο蟮拈_(kāi)發(fā)方法面向?qū)ο螅∣bject Orien

16、ted）的技術(shù)于20世紀(jì)80年興起，隨后廣泛地應(yīng)用于計(jì)算機(jī)技術(shù)的幾乎所有領(lǐng)域。面向?qū)ο蟮募夹g(shù)中最重要的概念是對(duì)象。面向?qū)ο笫腔趩?wèn)題對(duì)象的自底向上的一種系統(tǒng)開(kāi)發(fā)方法。在開(kāi)發(fā)過(guò)程中，分析和設(shè)計(jì)階段獨(dú)立于程序設(shè)計(jì)語(yǔ)言，信息系統(tǒng)模型設(shè)計(jì)好后，最終用具體的程序設(shè)計(jì)語(yǔ)言、數(shù)據(jù)庫(kù)或硬件來(lái)實(shí)現(xiàn)。面向?qū)ο蠓ㄗ钪饕奶攸c(diǎn)是對(duì)對(duì)象為基礎(chǔ)，對(duì)象是分析問(wèn)題和解決問(wèn)題的核心。面對(duì)對(duì)象法的開(kāi)發(fā)過(guò)程面對(duì)對(duì)象法的開(kāi)發(fā)過(guò)程一般分為四個(gè)階段：A、認(rèn)識(shí)客觀世界（如一個(gè)企業(yè)）中的對(duì)象以及行為，分別獨(dú)立設(shè)計(jì)各個(gè)對(duì)象的實(shí)體。B、分析對(duì)象之間的聯(lián)系和相互之間所傳遞的信息，由此構(gòu)造客觀世界（企業(yè)）所對(duì)應(yīng)的信息管理系統(tǒng)的模型。C、由信息系統(tǒng)的

17、模型轉(zhuǎn)換成計(jì)算機(jī)軟件系統(tǒng)的模型。D、由計(jì)算機(jī)軟件系統(tǒng)的模型再轉(zhuǎn)化成一個(gè)現(xiàn)實(shí)系統(tǒng)。面向?qū)ο蠓ǖ膬?yōu)缺點(diǎn)：面向?qū)ο蠓ǖ膬?yōu)點(diǎn)是便于幫助分析者、設(shè)計(jì)者和用戶清楚地表達(dá)抽象概念，互相進(jìn)行交流；交流特定的軟件工具模塊，直接地完成了從對(duì)象的描述到軟件體系結(jié)構(gòu)之間的轉(zhuǎn)換，避免了其它的方法在開(kāi)發(fā)過(guò)程的客觀世界描述和軟件結(jié)構(gòu)不一致性和復(fù)雜性問(wèn)題，便利系統(tǒng)開(kāi)發(fā)簡(jiǎn)單、統(tǒng)一，開(kāi)發(fā)周期短，費(fèi)用低。面向?qū)ο蠓ǖ闹饕秉c(diǎn)與原型法一樣，因此這種方法也不適用于開(kāi)發(fā)大的、復(fù)雜的系統(tǒng)。本系統(tǒng)在開(kāi)發(fā)過(guò)程中具體是采用了原型法和面向?qū)ο髢煞N方法相結(jié)合的開(kāi)發(fā)思路，力求在開(kāi)發(fā)過(guò)程中盡量吸收這兩種方法的長(zhǎng)處，而克服它們的短處。第三章 系統(tǒng)調(diào)研及可

18、行性分析3.1、系統(tǒng)調(diào)研正式開(kāi)發(fā)管理信息系統(tǒng)之前進(jìn)行調(diào)研是非常必要的，其必要性主要表現(xiàn)在以下幾個(gè)方面。（1）明確用戶的要求，以根據(jù)調(diào)查結(jié)果進(jìn)行可行性分析，確認(rèn)系統(tǒng)的開(kāi)發(fā)是否可行。（2）提出新系統(tǒng)的人員并不都是系統(tǒng)研究人員，有些人對(duì)于的功能和處理數(shù)據(jù)的方法沒(méi)有明確的認(rèn)識(shí)。它們只是根據(jù)自己業(yè)務(wù)工作的需要提出了要求，系統(tǒng)開(kāi)發(fā)人員要對(duì)此進(jìn)行詳細(xì)的調(diào)查和分析，確認(rèn)用戶的要求可以通過(guò)現(xiàn)有的計(jì)算機(jī)技術(shù)實(shí)現(xiàn)，保證開(kāi)發(fā)的管理信息系統(tǒng)的功能與用戶提出的要求相吻合。（3）企業(yè)的現(xiàn)行系統(tǒng)可能是手工系統(tǒng)，也可能是使用和計(jì)算機(jī)的系統(tǒng)，無(wú)論是何種情況，都要詳細(xì)地調(diào)查現(xiàn)行系統(tǒng)息處理的具體情況，系統(tǒng)部功能結(jié)構(gòu)，以便設(shè)計(jì)出一個(gè)合

19、理的、好的新系統(tǒng)邏輯模型，為新系統(tǒng)的設(shè)計(jì)工作打好基礎(chǔ)，保證整個(gè)系統(tǒng)開(kāi)發(fā)的質(zhì)量?？傊?，必要對(duì)現(xiàn)行系統(tǒng)進(jìn)行詳細(xì)的調(diào)查，明確用戶需求，保證開(kāi)發(fā)的新系統(tǒng)的功能與用戶的要求相吻合，避免耗費(fèi)大量的人力、物力、財(cái)力，新系統(tǒng)的開(kāi)發(fā)卻失敗的悲劇發(fā)生。3.2、可靠性分析概述可靠性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的，對(duì)新系統(tǒng)的開(kāi)發(fā)從社會(huì)、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析，并得出新系統(tǒng)的開(kāi)發(fā)工作可行、不可行、需要修改、追加投資、暫緩開(kāi)發(fā)、分步實(shí)施等方案和結(jié)論，最后完成可行性分析。可行性分析一般可定義為：可行性分析是在建設(shè)的前期對(duì)工程項(xiàng)目的一種考察和鑒定，對(duì)擬議中的項(xiàng)目進(jìn)行全面與綜合的技術(shù)、經(jīng)濟(jì)能力的調(diào)查，判斷它

20、是否可行。(1)可行性分析階段的主要工作包括以下幾個(gè)方面：新系統(tǒng)目標(biāo)可行性分析：分析新系統(tǒng)的目標(biāo)是否符合企業(yè)的現(xiàn)狀和發(fā)展的需要。社會(huì)可行性分析：社會(huì)可行性分析主要是指管理信息系統(tǒng)的開(kāi)發(fā)是否符合國(guó)家法律、下策，是否能夠與社會(huì)大系統(tǒng)實(shí)現(xiàn)良好的對(duì)接。技術(shù)可行性分析：技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標(biāo)來(lái)衡量是否具備所需要的技術(shù)，包括系統(tǒng)開(kāi)發(fā)人員數(shù)量和水平，硬件方面，軟件方面及其它應(yīng)用技術(shù)。經(jīng)濟(jì)可行性分析經(jīng)濟(jì)可行性分析主要是對(duì)開(kāi)發(fā)新系統(tǒng)所投入的資金與系統(tǒng)投入使用后所帶來(lái)的經(jīng)濟(jì)效益進(jìn)行比較，確認(rèn)新系統(tǒng)是否會(huì)給企業(yè)帶來(lái)一定的經(jīng)濟(jì)效益。管理可行性分析：管理可行性分析主要是分析企業(yè)現(xiàn)行的管理體制和企業(yè)領(lǐng)導(dǎo)是否具有

21、現(xiàn)代化的管理意識(shí)和管理水平。3.3、技術(shù)可行性分析技術(shù)可行性分析主要包括四個(gè)方面：目前有關(guān)的技術(shù)能否支持所開(kāi)發(fā)的新系統(tǒng)；新系統(tǒng)開(kāi)發(fā)人員的數(shù)量和水平，即人力資源；硬件和軟件資源。（1）技術(shù)支持：首先根據(jù)新系統(tǒng)的目標(biāo)，考慮目前有關(guān)的技術(shù)能否支持所開(kāi)發(fā)的新系統(tǒng)。這里討論的技術(shù)必須是已經(jīng)普遍使用的，而不是待研究的或正在研究的。（2）硬件資源：開(kāi)發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個(gè)方面：系統(tǒng)開(kāi)發(fā)人員在管理信息系統(tǒng)的開(kāi)發(fā)過(guò)程中所需要的計(jì)算機(jī)設(shè)備及其有關(guān)的外部設(shè)備；管理信息系統(tǒng)開(kāi)發(fā)成功投入使用后，使用單位所應(yīng)具備的計(jì)算機(jī)設(shè)備及其有關(guān)的外圍設(shè)備。對(duì)硬件資源進(jìn)行可行性分析時(shí)主要考慮計(jì)算機(jī)的主機(jī)存、類型、功能

22、、聯(lián)網(wǎng)能力、安全保護(hù)措施以及輸入/輸出設(shè)備，外存儲(chǔ)器和聯(lián)網(wǎng)數(shù)據(jù)通信設(shè)備的配置、功能、效率等指標(biāo)是否符合系統(tǒng)方案設(shè)計(jì)要求，同時(shí)還要考慮計(jì)算機(jī)的性能/價(jià)格比。（3）軟件資源軟件資源的可行性分析主要考慮以下幾點(diǎn)是否滿足用戶的要求：操作系統(tǒng)的選擇；編譯系統(tǒng)的選擇；數(shù)據(jù)庫(kù)管理系統(tǒng)的選擇；高級(jí)編程語(yǔ)言的選擇；漢字處理系統(tǒng)的選擇；應(yīng)用軟件包的選擇。本系統(tǒng)在開(kāi)發(fā)前，與相關(guān)的企業(yè)領(lǐng)導(dǎo)進(jìn)行了密切溝通，認(rèn)真聽(tīng)取他們的意見(jiàn)，并吸收他們的積極觀點(diǎn)，使本系統(tǒng)的開(kāi)發(fā)在相當(dāng)大的程度上具有一定的先進(jìn)性和合理性。 第四章 系統(tǒng)分析與總體設(shè)計(jì) 要開(kāi)發(fā)一個(gè)管理信息系統(tǒng)，首先需要進(jìn)行需求分析和總體設(shè)計(jì)，分析系統(tǒng)的使用對(duì)象和用戶需求，設(shè)

23、計(jì)系統(tǒng)的體系結(jié)構(gòu)和數(shù)據(jù)庫(kù)結(jié)構(gòu)，決定使用的開(kāi)發(fā)工具和后臺(tái)數(shù)據(jù)庫(kù)，規(guī)劃項(xiàng)目開(kāi)展進(jìn)度。在實(shí)際的項(xiàng)目開(kāi)發(fā)過(guò)程中，這些工作是非常重要的。4.1系統(tǒng)需求分析 客戶資源管理系統(tǒng)的用戶是各企業(yè)負(fù)責(zé)客戶資源管理的員工，主要功能包括基本信息管理、客房信息管理和商業(yè)往來(lái)管理等，具體說(shuō)明如下：l 基本信息的添加、修改刪除和查詢。基本信息包括地域信息、客戶類別、行業(yè)分類、職務(wù)名稱、項(xiàng)目類型和銷售人員等。此功能為客戶信息管理和商業(yè)往來(lái)管理模塊提供依據(jù)。l 客戶信息的添加、修改、刪除和查詢。客房信息包括客戶單位和聯(lián)系人。商業(yè)往來(lái)信息的添加、修改、刪除和查詢。l 商業(yè)往來(lái)信息包括商業(yè)機(jī)會(huì)和客戶跟蹤。4.2系統(tǒng)體系結(jié)構(gòu)設(shè)計(jì) 本

24、節(jié)根據(jù)需求分析中總結(jié)的用戶需求設(shè)計(jì)系統(tǒng)的體系結(jié)構(gòu)。系統(tǒng)的功能模塊如圖1 所示。圖1 客戶資源管理系統(tǒng)功能模塊圖在功能模塊示意圖的樹(shù)狀結(jié)構(gòu)中，每一個(gè)葉結(jié)點(diǎn)都是一個(gè)最小的功能模塊。每一個(gè)功能模塊都需要針對(duì)不同的表完成相同的數(shù)據(jù)庫(kù)操作，即添加記錄、修改記錄、刪除記錄以及查詢顯示記錄信息。在本系統(tǒng)中，用戶管理模塊的功能比較簡(jiǎn)單。在系統(tǒng)初始化時(shí)，有兩個(gè)默認(rèn)的用戶。系統(tǒng)管理員用戶為Admin，普通用戶為Users，由程序設(shè)計(jì)人員手動(dòng)地添加到數(shù)據(jù)庫(kù)中，它們的默認(rèn)密碼均為111111。Admin用戶可以創(chuàng)建用戶、修改用戶信息以及刪除用戶；普通用戶則只能修改自己的用戶名和密碼。用戶管理功能模塊的關(guān)系如圖2所示。

25、圖2 用戶管理功能功能集合模塊關(guān)系圖下面進(jìn)行系統(tǒng)流程分析，所謂系統(tǒng)流程就是用戶在使用系統(tǒng)時(shí)的工作過(guò)程。 運(yùn)行系統(tǒng)后，首先會(huì)看到登錄窗體，對(duì)用戶的身份進(jìn)行認(rèn)證。身份認(rèn)證可以分為以下兩個(gè)過(guò)程：l 確認(rèn)用戶是否是有效的系統(tǒng)用戶。l 確認(rèn)用戶的類型。第1個(gè)過(guò)程決定用戶能否進(jìn)行系統(tǒng)，第2 個(gè)過(guò)程根據(jù)用戶的類型決定用戶的操作權(quán)限。如果需要對(duì)普通用戶進(jìn)行管理，則使用Admin用戶登錄；否則建議使用Users用戶登錄。如果還要?jiǎng)?chuàng)建其他用戶，可以在用戶管理模塊中創(chuàng)建和管理。在創(chuàng)建用戶時(shí)，需要輸入要?jiǎng)?chuàng)建的用戶名和密碼。Admin用戶還可以修改和刪除其他普通用戶數(shù)據(jù)。 在本系統(tǒng)中，應(yīng)該首先增加基本信息，之后才能增加

26、客房信息?；拘畔ǖ赜?、客房類別、行業(yè)分類、職務(wù)名稱、項(xiàng)目類型和銷售人員等容。地域信息包括地域名稱、地域類型和上級(jí)地域等容；銷售人員信息包括員工、性別、所屬部門和職務(wù)等容；客戶類別、行業(yè)分類、職務(wù)名稱和項(xiàng)目類型則只包含名稱容。 添加基本信息后，就可以添加客戶信息了。在客戶信息管理模塊中可以對(duì)客戶單位和客戶聯(lián)系人進(jìn)行添加、修改、刪除和查看等操作?？蛻魡挝恍畔▎挝幻Q、客戶類別、所在地域、通信地址、郵政編碼、所屬行業(yè)等容。在添加客戶單位時(shí)，需要選擇客戶類別、所在地域和所屬行業(yè)。客戶聯(lián)系人包括客戶單位、聯(lián)系人、性別、職務(wù)、移動(dòng)等容。在添加客戶聯(lián)系人信息時(shí)，需要選擇客戶和職務(wù)。 在商業(yè)往來(lái)管理

27、模塊中，可以對(duì)商業(yè)機(jī)會(huì)和客戶跟蹤信息進(jìn)行添加、修改、刪除和查看等操作。商業(yè)機(jī)會(huì)信息包括客戶信息、聯(lián)系人信息、項(xiàng)目名稱、項(xiàng)目類型和銷售人員等操作。商業(yè)機(jī)會(huì)信息包括客戶信息、聯(lián)系人信息、項(xiàng)目名稱、項(xiàng)目類型和銷售人員等容。在添加商業(yè)機(jī)會(huì)信息時(shí)，需要選擇客戶單位、聯(lián)系人、項(xiàng)目類型和銷售人員等容。在客戶跟蹤管理模塊中，可以對(duì)客戶跟蹤回訪信息進(jìn)行添加、修改、刪除和查看等操作。客戶跟蹤信息包括商業(yè)機(jī)會(huì)、銷售人員、任務(wù)日期、拜訪方式、預(yù)計(jì)目的和詳細(xì)介紹等容。在添加客戶跟蹤信息時(shí)，需要選擇商業(yè)機(jī)會(huì)、銷售人員和拜訪人員等容。 本系統(tǒng)的流程分析如圖3 所示。圖3 系統(tǒng)流程分析圖在系統(tǒng)流程分析圖中可以看到，每個(gè)用戶有

28、3次機(jī)會(huì)進(jìn)行身份認(rèn)證。如果3次輸入的用戶名和密碼都無(wú)法與數(shù)據(jù)庫(kù)中的數(shù)據(jù)匹配，則強(qiáng)制退出系統(tǒng)。4.3開(kāi)發(fā)工具的選擇開(kāi)發(fā)數(shù)據(jù)庫(kù)管理信息系統(tǒng)需要選擇兩種工具，即前臺(tái)開(kāi)發(fā)語(yǔ)言和后臺(tái)數(shù)據(jù)庫(kù)。選擇開(kāi)發(fā)工具時(shí)應(yīng)該考慮客戶需求、系統(tǒng)功能和性能需求以及開(kāi)發(fā)人員的習(xí)慣等因素。例如，開(kāi)發(fā)C/S（客戶/服務(wù)器）結(jié)構(gòu)的應(yīng)用程序時(shí)，前臺(tái)開(kāi)發(fā)語(yǔ)言通?？梢赃x擇Visual Basic、Visual C+、Delphi和Power Builder等；如果開(kāi)發(fā)網(wǎng)絡(luò)應(yīng)用程序，則需要選擇一個(gè)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)開(kāi)發(fā)系統(tǒng)，如Access、Oracle和IBM DB2等；如果開(kāi)發(fā)單機(jī)應(yīng)用程序，則只要選擇一個(gè)小型數(shù)據(jù)庫(kù)系統(tǒng)就可以了，例如Access

29、。與其他開(kāi)發(fā)工具相比，Visual Basic具有簡(jiǎn)單易學(xué)、靈活方便和易于擴(kuò)充等特點(diǎn)，越來(lái)越多地被用作客戶/服務(wù)器（Client/Server，簡(jiǎn)稱為C/S）應(yīng)用程序的前端開(kāi)發(fā)工具，與后端的開(kāi)發(fā)工具Access數(shù)據(jù)庫(kù)結(jié)合，能夠提供一個(gè)高性能的管理信息系統(tǒng)解決方案因?yàn)楸鞠到y(tǒng)是單機(jī)版的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)，所以采用Visual Basic作為開(kāi)發(fā)工具，Access作為后臺(tái)數(shù)據(jù)庫(kù)。第五章 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)可以簡(jiǎn)化開(kāi)發(fā)過(guò)程，使系統(tǒng)功能更加清晰明確。因?yàn)閿?shù)據(jù)庫(kù)結(jié)構(gòu)的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)后再進(jìn)行編碼，從而避免無(wú)所謂的重復(fù)工作。本系統(tǒng)

30、數(shù)據(jù)庫(kù)中包含8個(gè)表，即基本信息表Types、地域信息表Area、銷售人員信息表Employess、客戶單位信息表Customer、聯(lián)系人信息表Contact、商業(yè)機(jī)會(huì)表SaleCHance、客戶跟蹤表SaltTask和用戶信息表sers。下面分別介紹這些表的結(jié)構(gòu)。1、 基本信息表Types表Types用來(lái)保存客戶類別信息、行業(yè)分類信息、職務(wù)名稱信息和項(xiàng)目類型信息，結(jié)構(gòu)如表所示。 表ypes的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明Id自動(dòng)編號(hào)記錄編號(hào)，主鍵TypeName文本，長(zhǎng)度信息名稱Flag數(shù)字字節(jié)類型標(biāo)記。表示客戶類別；表示客戶所屬行業(yè)；表示職務(wù)名稱；表示項(xiàng)目類型2、 地域信息表Area表Are

31、a用來(lái)保存地域信息，結(jié)構(gòu)如表所示。表Area的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明AreaId數(shù)字長(zhǎng)整型記錄編號(hào)，主鍵AreaName文本，長(zhǎng)度地域名稱AreaType數(shù)字字節(jié)地域類型。表示洲；表示國(guó)家。、表示省；表示市縣pperId數(shù)字長(zhǎng)整型上級(jí)地域編號(hào)3、 銷售人員信息表mployess表mployess用來(lái)保存銷售人員信息，結(jié)構(gòu)如表所示。表Employess的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明EmpId自動(dòng)編號(hào)人員編號(hào)，主鍵EmpName文本，長(zhǎng)度5Sex文本，長(zhǎng)度性別DepName文本，長(zhǎng)度所在部門5ETitle文本，長(zhǎng)度職務(wù)4、 客戶單位信息表ustomer表ustomer用來(lái)保存客戶單位信息

32、，結(jié)構(gòu)如表所示。表Customer編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明ustId自動(dòng)編號(hào)記錄編號(hào)，主鍵Eastman文本，長(zhǎng)度200課程名稱CustTypeId數(shù)字長(zhǎng)整型所屬客戶類型編號(hào)Address文本，長(zhǎng)度200通信地址5Postcode文本，長(zhǎng)度郵政編碼6AreaId數(shù)字長(zhǎng)整型所屬地域編號(hào)7ussTypeId數(shù)字長(zhǎng)整型所屬行業(yè)類別編號(hào)8EmpId數(shù)字長(zhǎng)整型銷售人員5、 聯(lián)系人信息表Contact 表Contact的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明Id自動(dòng)編號(hào)記錄編號(hào)，主鍵CustId數(shù)字長(zhǎng)整型客戶單位編號(hào)CName文本長(zhǎng)度50Sex文本長(zhǎng)度2性別5TitleId數(shù)字長(zhǎng)整型職務(wù)編號(hào)6Office文本，

33、長(zhǎng)度50辦公7Mobile文本，長(zhǎng)度50移動(dòng)8Birth文本，長(zhǎng)度50生日9Hobby文本，長(zhǎng)度50興趣愛(ài)好10Memo1備注備注信息11Input_date文本，長(zhǎng)度50記錄錄入日期12Input_time文本，長(zhǎng)度50記錄錄入時(shí)間6、 商業(yè)機(jī)會(huì)表SaleChance表SaleChance用來(lái)保存商業(yè)機(jī)會(huì)信息，結(jié)構(gòu)如表所示。表SaleChance的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu) 說(shuō) 明Id文本，長(zhǎng)度50記錄編號(hào)CustId數(shù)字長(zhǎng)整型客戶編號(hào)CtId數(shù)字長(zhǎng)整型聯(lián)系人編號(hào)ProName文本長(zhǎng)度200產(chǎn)品名稱5PTypeId數(shù)字長(zhǎng)整型項(xiàng)目類型編號(hào)6EmpId數(shù)字長(zhǎng)整型銷售人員編號(hào)7SignDate文本，

34、長(zhǎng)度50預(yù)計(jì)簽訂日期8SignSum數(shù)字長(zhǎng)整型預(yù)計(jì)成交金額9PPercent文本，長(zhǎng)度50目前進(jìn)度10Status文本，長(zhǎng)度50狀態(tài)11Detail備注詳細(xì)介紹12CreateDate日期時(shí)間創(chuàng)建日期13Poster文本，長(zhǎng)度50創(chuàng)建人7、 客戶跟蹤表SaleTask表SaleTask用來(lái)保存客戶任務(wù)跟蹤信息，結(jié)構(gòu)如表7所示。 表SaleTask的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō) 明Id自動(dòng)編號(hào)記錄編號(hào)SaleId文本，長(zhǎng)度50商業(yè)機(jī)會(huì)編號(hào)EmpId數(shù)字長(zhǎng)整型銷售人員編號(hào)TaskDate文本長(zhǎng)度50任務(wù)日期5Purpose文本長(zhǎng)度50拜訪目的6CtId數(shù)字長(zhǎng)整型拜訪人員編號(hào)7Place文本，長(zhǎng)度10

35、0拜訪地點(diǎn)8StartTime數(shù)字長(zhǎng)整型開(kāi)始時(shí)間9EndTime文本，長(zhǎng)度50目前進(jìn)度10EndTimeDetail結(jié)束時(shí)間11Detail備注詳細(xì)介紹12Result備注任務(wù)結(jié)果、進(jìn)展總結(jié)8、 用戶信息表Users表Users用來(lái)保存系統(tǒng)用戶信息，結(jié)構(gòu)如表8所示。 表Users的結(jié)構(gòu)編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明UserName文本，長(zhǎng)度50用戶名，主鍵UserPwd文本，長(zhǎng)度50密碼第六章 系統(tǒng)詳細(xì)設(shè)計(jì)6.1登錄窗體和系統(tǒng)主界面設(shè)計(jì)當(dāng)系統(tǒng)運(yùn)行時(shí)，首先打開(kāi)登錄窗體，只有有權(quán)限的用戶才能進(jìn)行系統(tǒng)。登錄成功后，將顯示系統(tǒng)主界面。1、 設(shè)計(jì)登錄窗體登錄窗體的名稱為FrmLogin，它的界面布局如圖4所示

36、。圖4 登錄窗體的界面布局登錄窗體的屬性表如表9所示。 表9 設(shè)計(jì)登錄窗體的屬性窗體屬性設(shè)置值具體說(shuō)明名稱rmLogin設(shè)置窗體名稱BorderStyle1-Fixed Single設(shè)置窗體的邊框?qū)傩訡aption身份驗(yàn)證窗體的標(biāo)題條文本ControlBoxFalse取消控制按鈕，防止用戶通過(guò)控制按鈕關(guān)閉對(duì)話框StartUpPosition2-屏幕中心設(shè)置窗體彈出時(shí)，位置在屏幕中心登錄窗體中控件的屬性如表10所示。表10 登錄窗體包含的控件及其屬性對(duì)象名屬性屬性值Label1Caption用戶名Label2Caption密碼txtUserText空txtPwdText空PasswordChar

37、Cmd_OkCaption確定Cmd_CancelCaption取消下面介紹登錄窗體的部分代碼（1） 變量聲明登錄窗體的變量聲明如下：Public PasswordKey As StringPublic Try_times As IntegerPublic NameKey As String（2）Cmd_Click過(guò)程當(dāng)用戶單擊“確定”按鈕時(shí)觸發(fā)Cmd_Click事件，進(jìn)行身份驗(yàn)證，代碼如下：Private Sub Cmd_OK_Click() Dim j As Single'數(shù)據(jù)有效性檢查 If txtUser = "" Then MsgBox "請(qǐng)輸入

38、用戶名" txtUser.SetFocus Exit Sub End If If txtPwd = "" Then MsgBox "請(qǐng)輸入密碼" txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) '判斷用戶是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox "用戶名不存在" Try_times = Try_times + 1 If Try_ti

39、mes >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If '判斷密碼是否正確 MyUser.GetInfo (NameKey) If MyUser.UserPwd <> PasswordKey Then MsgBox "密碼錯(cuò)誤" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系

40、統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If '登錄成功，將當(dāng)前用戶的信息保存在CurUser中 CurUser.GetInfo (MyUser.UserName)'關(guān)閉自己 Unload MeEnd Sub程序的運(yùn)行過(guò)程如下：l 判斷是否輸入了用戶名和密碼，如果沒(méi)有輸入，則返回，要求用戶輸入。l 將輸入的用戶名和密碼賦值到變量NameKey和Passwordkey中，便于處理。l 調(diào)用MyUser.In_DB()函數(shù)，判斷當(dāng)臆用戶名是否存在。如果不存在，則返回，要求用戶重新輸入，同時(shí)將計(jì)數(shù)變量Try_t

41、imes加1。l 如果用戶名存在，則調(diào)用MyUser.GetInfo()函數(shù)，讀取此用戶的數(shù)據(jù)，并將用戶密碼與輸入的密碼進(jìn)行比較。如果密碼不同，要求用戶重新輸入，同時(shí)將計(jì)數(shù)變量Try_times加1。l 如果Try_times大于或等于3，則退出系統(tǒng)。l 如果通過(guò)密碼驗(yàn)證，則將當(dāng)前用戶的信息保存到curUser對(duì)象中，以便以后使用。l 關(guān)閉登錄窗體。2、設(shè)計(jì)主界面主窗體是工程的啟動(dòng)對(duì)象，可以在系統(tǒng)菜單中選擇“工程”/“屬性”，打開(kāi)屬性窗口設(shè)置啟動(dòng)對(duì)象。本系統(tǒng)中主窗體名為FrmMain。打開(kāi)窗體的設(shè)計(jì)窗口，選擇“工具”菜單項(xiàng)中的“菜單編輯器”，對(duì)菜單容進(jìn)行編輯，菜單編輯器如圖5所示。 圖5 菜單

42、編輯器本系統(tǒng)的主界面如圖6所示。圖6 系統(tǒng)主界面在主窗體FrmMain中添加如下代碼：Private Sub Form_Load() FrmLogin.Show 1End Sub當(dāng)主窗體啟動(dòng)時(shí)，將打開(kāi)“登錄”對(duì)話框。如果不能通過(guò)身份驗(yàn)證，則不能進(jìn)行系統(tǒng)。當(dāng)選擇“退出系統(tǒng)”菜單項(xiàng)時(shí)觸發(fā)mn_Click事件，代碼如下：Private Sub mn_Exit_Click() DBapi_Disconnect EndEnd Sub6.2基本信息管理模塊設(shè)計(jì)基本信息管理模塊包括地域信息管理、客戶類別管理、行業(yè)分類管理、職務(wù)名稱管理、項(xiàng)目類型管理和銷售人員管理。6.2.1設(shè)計(jì)地域信息編輯窗體 編輯地域信息

43、的窗體可以用來(lái)添加和修改地域信息，窗體名稱設(shè)置為FrmAreaEdit，窗體布局如圖7所示。圖7 窗體FrmAreaEdit布局Cmd_Ok_Click過(guò)程當(dāng)用戶單擊“確定”按鈕時(shí)觸發(fā)Cmd_Ok_Click事件，對(duì)應(yīng)的程序代碼如下：Private Sub Cmd_OK_Click() Dim TmpId As Integer If Trim(txtArea) = "" Then MsgBox "請(qǐng)輸入地域名稱" Exit Sub End If '將用戶輸入的輸入賦值到MyArea對(duì)象中 With MyArea .AreaName = Trim(

44、txtArea) .AreaType = CurArea.AreaType + 1 .UpperId = CurArea.AreaId If Modify = False Then '插入 If .In_DB(Trim(txtArea), .UpperId) = True Then MsgBox Trim(txtArea) + " 已經(jīng)存在" Exit Sub End If TmpId = .Insert '生成TreeView控件中新結(jié)點(diǎn)的關(guān)鍵字 Tmp_Key = Chr(Asc("a") + .AreaType) Tmp_Key =

45、 Tmp_Key + Trim(Str(TmpId) FrmAreaMan.TreeView1.SelectedItem.Image = 1 FrmAreaMan.TreeView1.SelectedItem.ExpandedImage = 2 FrmAreaMan.TreeView1.SelectedItem.SelectedImage = 3 Set TmpNode = FrmAreaMan.TreeView1.Nodes.Add(FrmAreaMan.TreeView1.SelectedItem.Key, _ tvwChild, Tmp_Key, .AreaName, 4, 5) Tmp

46、Node.Selected = True Else '修改 If CurArea.AreaName <> Trim(txtArea) Then If .In_DB(Trim(txtArea), .UpperId) = True Then MsgBox Trim(txtArea) + " 已經(jīng)存在" Exit Sub End If End If Call .Update(CurArea.AreaId) If CurArea.AreaName <> Trim(txtArea) Then FrmAreaMan.TreeView1.SelectedI

47、tem.Text = Trim(txtArea) End If CurArea.AreaName = Trim(txtArea) End If End With Unload MeEnd Sub6.2.2設(shè)計(jì)地域信息管理窗體地域信息管理窗體的名稱設(shè)置為FrmAreaMan。在窗體中添加一個(gè)ImageList控件。右擊此控件，選擇菜單中的“屬性”命令，打開(kāi)“屬性頁(yè)”對(duì)話框。單擊“圖像”選項(xiàng)卡，通過(guò)單擊“插入圖像”和“刪除圖像”來(lái)編輯圖像列表，如圖8所示。下面分析窗體FrmClassMan中部分過(guò)程的代碼。1、 Form_Load過(guò)程Private Sub Form_Load() FocusAre

48、aName = "中國(guó)" '添加根結(jié)點(diǎn) Set TmpNode = TreeView1.Nodes.Add(, , "a0", "全球地域", 1, 3) TmpNode.Selected = True TmpNode.ExpandedImage = 2 Call Add_AreaToTree(TreeView1) TreeView1_ClickEnd Sub1、 Cmd_Add_Click過(guò)程Private Sub Cmd_Add_Click() If CurArea.AreaType >= 4 Then MsgBox

49、 "此地域已不能再細(xì)分" Exit Sub End If '打開(kāi)編輯窗體 FrmAreaEdit.lblUpper = CurArea.AreaName FrmAreaEdit.txtArea = "" FrmAreaEdit.Modify = False FrmAreaEdit.Show 1 TreeView1_ClickEnd Sub2、 Cmd_Modi_Click過(guò)程當(dāng)單擊“修改”按鈕時(shí)觸發(fā)Cmd_Modi_Click事件，對(duì)應(yīng)的代碼如下：Private Sub Cmd_Modi_Click() If TreeView1.Selected

50、Item.Key = "a0" Then MsgBox "此項(xiàng)不能修改" Exit Sub End If FrmAreaEdit.lblUpper = MyArea.GetName(CurArea.UpperId) FrmAreaEdit.txtArea = CurArea.AreaName FrmAreaEdit.Modify = True FrmAreaEdit.Show 1 TreeView1_ClickEnd Sub3、 Cmd_Del_Click過(guò)程當(dāng)單擊“刪除”按鈕時(shí)觸發(fā)Cmd_Del_Click事件，對(duì)應(yīng)的代碼如下：Private Sub

51、Cmd_Del_Click() Dim TmpOrg As String If CurArea.AreaType = 0 Then MsgBox "此項(xiàng)不能刪除" Exit Sub End If If CurArea.HaveSon(CurArea.AreaId) = True Then MsgBox CurArea.AreaName + " 包含下級(jí)地域，不能刪除" Exit Sub End If TmpOrg = MyCust.Area_In_Customer(TmpAreaId) If TmpOrg <> "" Then MsgBox "地域中包含客戶信息- " + TmpOrg + "，不允許刪除" Exit Sub End If '確認(rèn)刪除 If MsgBox("是否確定要?jiǎng)h除 " + Trim(TreeView1.SelectedItem.Text), vbYesNo, "請(qǐng)確認(rèn)") = vbNo Then Exit Sub End If CurArea.Delete (C