企業(yè)營(yíng)銷管理系統(tǒng)論文

1、J I A N G S U U N I V E R S I Y本 科 畢 業(yè) 論 文 企業(yè)營(yíng)銷治理系統(tǒng) Enterprise Marketing Management System專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 班 級(jí)： 04計(jì)本（1） 姓 名： 蔣 崢 指導(dǎo)教師姓名： 王新勝、巫宗賓 指導(dǎo)教師職稱： 副教授、助教 2008年6企業(yè)營(yíng)銷治理系統(tǒng)專業(yè)班級(jí)：04計(jì)算機(jī)（1）班 學(xué)生姓名：蔣崢指導(dǎo)教師：王新勝、巫宗賓 職稱：副教授、助教【摘要】伴隨著中國(guó)經(jīng)濟(jì)從打算經(jīng)濟(jì)向市場(chǎng)經(jīng)濟(jì)轉(zhuǎn)型，從賣方市場(chǎng)向買方市場(chǎng)過(guò)渡，以及全球性的產(chǎn)品過(guò)剩以及產(chǎn)品的同質(zhì)化，導(dǎo)致市場(chǎng)競(jìng)爭(zhēng)加劇。在這種狀況之下，導(dǎo)致企業(yè)營(yíng)銷環(huán)境也在加速

2、變化，企業(yè)會(huì)經(jīng)常面臨著不能及時(shí)掌握銷售人員業(yè)績(jī)，對(duì)銷售人職員作過(guò)程掌握不夠，不能及時(shí)了解銷售狀況，不能對(duì)各地區(qū)銷售分公司的銷售數(shù)據(jù)進(jìn)行有效治理，不能及時(shí)對(duì)銷售數(shù)據(jù)進(jìn)行分析及對(duì)市場(chǎng)行情進(jìn)行預(yù)測(cè)，決策緩慢，不能及時(shí)調(diào)整商品的價(jià)格，延緩商機(jī)等問(wèn)題。通過(guò)企業(yè)營(yíng)銷治理系統(tǒng)能夠有效地解決這些問(wèn)題。為企業(yè)提供一個(gè)高效、規(guī)范、輕松的營(yíng)銷工作環(huán)境，滿足企業(yè)不斷進(jìn)展的需要。【關(guān)鍵詞】 企業(yè)營(yíng)銷、治理系統(tǒng)、數(shù)據(jù)庫(kù)治理系統(tǒng)Enterprise Marketing Management System【Abstract】As Chinas economy from a planned economy to market

3、economy in transition, from a sellers market to a buyers market transition and the global surplus of products and the homogenization of products, leading to intensified market competition. In such a situation, corporate marketing environment has led to accelerated change, enterprises often face can

4、not make the best of sales performance, the sales process have not and can not understand sales, not on the regional sales office Sales data for effective management, timely analysis of sales data and to predict the market prices, slow decision-making, timely adjustment of commodity prices, slow dow

5、n business opportunities, and other issues. Through business marketing management system can effectively solve these problems. To provide an efficient, standardized, easy marketing environment, companies continue to meet the needs of the development.【Key words】marketing, management system, database

6、management system目錄第一章 引言11系統(tǒng)開(kāi)發(fā)的背景伴隨著中國(guó)經(jīng)濟(jì)從打算經(jīng)濟(jì)向市場(chǎng)經(jīng)濟(jì)轉(zhuǎn)型，從賣方市場(chǎng)向買方市場(chǎng)過(guò)渡，以及全球性的產(chǎn)品過(guò)剩以及產(chǎn)品的同質(zhì)化，導(dǎo)致市場(chǎng)競(jìng)爭(zhēng)加劇。在這種狀況之下，導(dǎo)致企業(yè)營(yíng)銷環(huán)境也在加速變化，企業(yè)會(huì)經(jīng)常面臨著如下棘手的問(wèn)題：1、不能及時(shí)掌握銷售人員業(yè)績(jī)。2、對(duì)銷售人職員作過(guò)程掌握不夠。3、不能及時(shí)了解銷售狀況。4、不能對(duì)各地區(qū)銷售分公司的銷售數(shù)據(jù)進(jìn)行有效治理。5、不能及時(shí)對(duì)銷售數(shù)據(jù)進(jìn)行分析及對(duì)市場(chǎng)行情進(jìn)行預(yù)測(cè)。6、決策緩慢，不能及時(shí)調(diào)整商品的價(jià)格，延緩商機(jī)。12課題中涉及的相關(guān)技術(shù)及概念121相關(guān)技術(shù)系統(tǒng)采納了先進(jìn)的access數(shù)據(jù)庫(kù)技術(shù)，面向?qū)ο蟮?/p>

7、編程方法學(xué)以及軟件工程方法學(xué)122 Visual Basic概念簡(jiǎn)介visual Basic 6.0中文版是一種應(yīng)用程序開(kāi)發(fā)工具。Visual Basic 6.0是在原有的Basic語(yǔ)言的基礎(chǔ)上的進(jìn)一步進(jìn)展，他包含了數(shù)百條語(yǔ)句。函數(shù)及關(guān)鍵詞，其中專門多與Windows GUI有直接的關(guān)系。Visual Basic 語(yǔ)言簡(jiǎn)單易學(xué)，只要稍有語(yǔ)言基礎(chǔ)就能夠?qū)ｉT快的掌握并進(jìn)而精通?？梢暬挠脩艚缑嬖O(shè)計(jì)功能，把程序設(shè)計(jì)人員從繁瑣復(fù)雜的截面設(shè)計(jì)中解脫出來(lái)；可視化編程環(huán)境的“所見(jiàn)即所得（WYSIWYG）”功能，是界面設(shè)計(jì)如積木游戲一般，編程變成了一種享受；強(qiáng)大的多媒體功能可輕而易舉地開(kāi)發(fā)出集聲音，動(dòng)畫，影像

8、和圖片于一體的多媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫Internet程序的能力。Visual Basic 6.0 還支持用戶自己開(kāi)發(fā)ActiveX控件和制作ActiveX文檔。VB的差不多特點(diǎn)有：VB提供可視化的編程工具VB向程序員提供圖形對(duì)象（窗體，控件，菜單等）進(jìn)行應(yīng)用程序的界面設(shè)計(jì)，應(yīng)用程序的界面相當(dāng)于用工具畫出來(lái)的，大大簡(jiǎn)化了程序員的編程工作。程序采取“事件驅(qū)動(dòng)”方式VB改變了程序的機(jī)制，沒(méi)有傳統(tǒng)意義上的主程序，使程序執(zhí)行的差不多方法是有“事件”來(lái)驅(qū)動(dòng)子程序（或過(guò)程）的運(yùn)行，如用鼠標(biāo)點(diǎn)擊命令按扭，就產(chǎn)生了一個(gè)命令按扭的“單擊事件”，響應(yīng)的執(zhí)行一段程序（事件過(guò)程：Command1_Cl

9、ick()）。第二章 需求分析企業(yè)營(yíng)銷部門對(duì)信息的依靠日益加劇，例如：隨著商品的市場(chǎng)覆蓋面的擴(kuò)大，就需要掌握比往常更多更及時(shí)的市場(chǎng)信息；從價(jià)格競(jìng)爭(zhēng)進(jìn)展到非價(jià)格競(jìng)爭(zhēng)，為了有效地運(yùn)用差異化、廣告和促銷等競(jìng)爭(zhēng)工具，也需要更多的信息資源。隨著科學(xué)技術(shù)的進(jìn)展，對(duì)這些急劇增加信息的需要，已能夠通過(guò)因特網(wǎng)、傳真機(jī)等得到有效解決。然而，許多企業(yè)的信息處理還不夠精細(xì)。許多公司還沒(méi)有營(yíng)銷調(diào)研部門或只有小的營(yíng)銷調(diào)研部，許多經(jīng)理對(duì)可利用的信息感到不中意。抱怨他們不了解重要的信息在哪里；他們不能利用的信息太多而真正有用的信息太少；重要的信息來(lái)得太遲；專門難可能收到的信息的準(zhǔn)確性。第三章 總體設(shè)計(jì)3.1 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)C/

10、S結(jié)構(gòu)確實(shí)是“客戶端/服務(wù)端”的一種工作模式。一般來(lái)講，這種模式都會(huì)要求安裝一個(gè)客戶端程序，由那個(gè)程序和服務(wù)器端進(jìn)行協(xié)同工作，因?yàn)橛煽蛻舳藖?lái)專門處理一些工作，因此C/S結(jié)構(gòu)的程序一般都功能強(qiáng)大、界面漂亮，由于任務(wù)分散在服務(wù)器端和客戶端分不進(jìn)行，因此提高了硬件的利用效率，關(guān)于程序員來(lái)講，編程開(kāi)發(fā)也更加的容易?；谝陨暇壒?，在設(shè)計(jì)企業(yè)營(yíng)銷治理系統(tǒng)時(shí)，采納了傳統(tǒng)的基于兩層的C/S結(jié)構(gòu)。3.2 系統(tǒng)功能結(jié)構(gòu)企業(yè)營(yíng)銷治理系統(tǒng)的功能結(jié)構(gòu)如圖1所示。圖3-13.3 系統(tǒng)功能概述3.3.1差不多資料治理差不多資料治理為企業(yè)營(yíng)銷治理系統(tǒng)提供基礎(chǔ)資料。其要緊包括：區(qū)域治理、產(chǎn)品治理、銷售訓(xùn)練項(xiàng)目設(shè)置和銷售考核指標(biāo)

11、設(shè)置。3.3.2銷售組織銷售組織可有效地治理及操縱企業(yè)的銷售團(tuán)隊(duì)，提高銷售員的專業(yè)水平，激勵(lì)銷售員做出更大的業(yè)績(jī)。其要緊包括：銷售組織、業(yè)務(wù)員治理、銷售訓(xùn)練、銷售業(yè)績(jī)考核。3.3.3市場(chǎng)治理市場(chǎng)治理要緊依照收集產(chǎn)品在市場(chǎng)上的價(jià)格信息，對(duì)產(chǎn)品的市場(chǎng)走勢(shì)以視圖的形式進(jìn)行顯示，為企業(yè)決策者提供決策依據(jù)。其要緊包括：市場(chǎng)反饋、市場(chǎng)跟蹤、市場(chǎng)走勢(shì)。3.3.4銷售業(yè)務(wù)治理銷售業(yè)務(wù)治理要緊治理銷售流程各環(huán)節(jié)的活動(dòng)，是企業(yè)營(yíng)銷治理系統(tǒng)的核心部分。該模塊將企業(yè)所有銷售環(huán)節(jié)有機(jī)的組合起來(lái)，使其產(chǎn)品化。銷售業(yè)務(wù)治理可實(shí)現(xiàn)銷售數(shù)據(jù)的導(dǎo)入或錄入，并依照銷售數(shù)據(jù)對(duì)下一年度某一區(qū)域的銷售情況進(jìn)行預(yù)測(cè)及制訂下一年的銷售打算。

12、其要緊包括：銷售數(shù)據(jù)導(dǎo)入、銷售數(shù)據(jù)錄入、銷售預(yù)測(cè)、年銷售打算。3.3.5銷售分析銷售分析要緊對(duì)銷售過(guò)程中各種數(shù)據(jù)進(jìn)行分析，得出統(tǒng)計(jì)報(bào)表，如銷售月報(bào)表、銷售季報(bào)表。其要緊包括：月銷售分析、季銷售分析、年銷售分析。3.3.6營(yíng)銷資源治理營(yíng)銷資源治理用于治理企業(yè)營(yíng)銷活動(dòng)中所應(yīng)用到的資源，確保企業(yè)資源合理利用。實(shí)現(xiàn)了對(duì)企業(yè)名錄、個(gè)人名錄、郵件資源、營(yíng)銷禮品的靈活查詢及治理，是進(jìn)行客戶拓展的資源基礎(chǔ)，并為挖掘客戶提供依據(jù)。其要緊包括企業(yè)名錄、個(gè)人名錄、郵件資源、營(yíng)銷禮品。3.3.7系統(tǒng)治理登錄系統(tǒng)時(shí)需要驗(yàn)證身份，只有合法的用戶才能夠進(jìn)入企業(yè)營(yíng)銷治理系統(tǒng)，不同的用戶擁有不同的使用權(quán)限。系統(tǒng)治理能夠?qū)崿F(xiàn)對(duì)用

13、戶的治理，并可對(duì)系統(tǒng)內(nèi)的數(shù)據(jù)進(jìn)行初始化操作，以清空系統(tǒng)內(nèi)所有數(shù)據(jù)。其要緊包括：用戶治理、密碼修改、數(shù)據(jù)初始化。3.3.8輔助工具輔助工具中提供了使用本系統(tǒng)的關(guān)心及版權(quán)信息，并可通過(guò)相應(yīng)模塊登錄到開(kāi)發(fā)商網(wǎng)站。其要緊包括：關(guān)心、關(guān)于、網(wǎng)上明日。第四章 系統(tǒng)設(shè)計(jì)4.1 設(shè)計(jì)目標(biāo)企業(yè)營(yíng)銷治理系統(tǒng)本著經(jīng)濟(jì)、有用、高效的原則，為企業(yè)提供一個(gè)高效、規(guī)范、輕松的營(yíng)銷工作環(huán)境，滿足企業(yè)不斷進(jìn)展的需要。具體實(shí)現(xiàn)目標(biāo)如下：1、系統(tǒng)采納人機(jī)對(duì)話方式，界面美觀友好，信息查詢靈活、方便、快捷、準(zhǔn)確，數(shù)據(jù)存儲(chǔ)安全可靠。2、對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。3、萬(wàn)能查詢器實(shí)現(xiàn)自由設(shè)置查詢。4、依

14、照業(yè)務(wù)員的銷售業(yè)績(jī)完成比率，自動(dòng)計(jì)算業(yè)務(wù)員的得分情況。5、依照市場(chǎng)跟蹤數(shù)據(jù)以圖表形式顯示產(chǎn)品的市場(chǎng)走勢(shì)。6、依照本年度的銷售數(shù)據(jù)對(duì)下一年度的銷售情況進(jìn)行預(yù)測(cè)。7、與Excel實(shí)現(xiàn)無(wú)縫連接，可將Excel表中的數(shù)據(jù)直接導(dǎo)入到系統(tǒng)中。8、不同的操作員有不同的操作權(quán)限，增強(qiáng)了系統(tǒng)的安全性。9、系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。10、系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。4.2 開(kāi)發(fā)及運(yùn)行環(huán)境系統(tǒng)開(kāi)發(fā)平臺(tái)：Visual Basic 6.0。數(shù)據(jù)庫(kù)治理平臺(tái)：SQL Server2000。運(yùn)行平臺(tái)：Windows XP/ Windows 2000。分辨率：最佳效果1024768。4.3 編碼設(shè)計(jì)編碼設(shè)計(jì)

15、是數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)的前提條件，是系統(tǒng)不可缺少的重要內(nèi)容。編碼是指與原來(lái)名稱對(duì)應(yīng)的編號(hào)、符號(hào)或記號(hào)。它是進(jìn)行信息交換、處理、傳輸和實(shí)現(xiàn)信息資源共享的關(guān)鍵。編碼也用于指定數(shù)據(jù)的處理方法、區(qū)不數(shù)據(jù)類型，并指定計(jì)算機(jī)處理的內(nèi)容等。本系統(tǒng)內(nèi)部信息編碼采納了統(tǒng)一的編碼方式情況。如下所示：產(chǎn)品編號(hào)：該編號(hào)為5位數(shù)字編碼，初始值為“00001”，后面的產(chǎn)品編號(hào)依次往下排。單據(jù)號(hào)：由當(dāng)前系統(tǒng)日期、單據(jù)標(biāo)識(shí)和4位數(shù)字編碼組成。例如，銷售單單據(jù)號(hào)為2005-10-12xs0001，銷售打算單據(jù)號(hào)為2005-12-09xsjh0007。4.4 數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(tǒng)數(shù)據(jù)庫(kù)采納SQL Server 2000數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名

16、稱為db_Csell。數(shù)據(jù)庫(kù)db_Csell中包含19張表。下面是數(shù)據(jù)表概要講明及數(shù)據(jù)表的結(jié)構(gòu)。4.4.1數(shù)據(jù)表概要講明數(shù)據(jù)表樹(shù)型結(jié)構(gòu)如圖2所示。圖4-14.4.2數(shù)據(jù)表的結(jié)構(gòu)產(chǎn)品表產(chǎn)品表用來(lái)保存產(chǎn)品基礎(chǔ)信息，其結(jié)構(gòu)如表1所示。表1 產(chǎn)品信息表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度產(chǎn)品編號(hào)varchar5品名規(guī)格varchar200單位varchar10單價(jià)money8備注text16考核指標(biāo)表考核指標(biāo)表用來(lái)保存考核指標(biāo)信息，其結(jié)構(gòu)如表2所示。表2 考核指標(biāo)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint8考核指標(biāo)varchar20銷售考核表銷售考核表用來(lái)保存銷售考核詳細(xì)信息，其結(jié)構(gòu)如表3所示。表3 銷售考核表的

17、結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint8業(yè)務(wù)員編號(hào)varchar4業(yè)務(wù)員姓名varchar20考核指標(biāo)varchar20完成率varchar20分?jǐn)?shù)numeric9年度varchar10考核日期datetime8市場(chǎng)跟蹤表市場(chǎng)跟蹤表用來(lái)保存市場(chǎng)跟蹤的詳細(xì)信息，其結(jié)構(gòu)如表4所示。表4 市場(chǎng)跟蹤表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint8品名規(guī)格varchar200市場(chǎng)價(jià)格money8市場(chǎng)信息text16備注text16跟蹤月份varchar10跟蹤人varchar10錄入日期datetime8銷售表銷售表用來(lái)保存產(chǎn)品銷售詳細(xì)信息，其結(jié)構(gòu)如表5所示。表5 銷售表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度產(chǎn)品編號(hào)va

18、rchar5品名規(guī)格varchar200單位varchar10單價(jià)money8月銷量numeric9月銷售額money8銷售組織編號(hào)varchar5銷售組織名稱varchar50所在區(qū)域varchar200單據(jù)號(hào)varchar30所在月份varchar10錄入日期datetime8預(yù)測(cè)表預(yù)測(cè)表用來(lái)保存銷售預(yù)測(cè)信息，其結(jié)構(gòu)如表6所示。表6 銷售預(yù)測(cè)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint8產(chǎn)品編號(hào)varchar5品名規(guī)格varchar200預(yù)測(cè)年銷量numeric9預(yù)測(cè)年銷售額money8固定增長(zhǎng)率varchar10預(yù)測(cè)日期datetime8個(gè)人名錄表個(gè)人名錄表結(jié)構(gòu)如表7所示。表7 個(gè)人名錄表

19、的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint公司名稱varchar50姓名varchar10職務(wù)varchar10地址varchar40郵編varchar10電話varchar20手機(jī)varchar30禮品表禮品表結(jié)構(gòu)如表8所示。表8 禮品表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint禮品名稱varchar50規(guī)格varchar10單價(jià)money總數(shù)量nvarchar已發(fā)放數(shù)量nvarchar庫(kù)存數(shù)量nvarchar特點(diǎn)varchar50企業(yè)名錄表企業(yè)名錄表結(jié)構(gòu)如表9所示。表9 企業(yè)名錄表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint企業(yè)名稱varchar200負(fù)責(zé)人varchar10地址varchar50

20、郵編varchar10電話varchar20傳真varchar10是否上市varchar2區(qū)域表區(qū)域表結(jié)構(gòu)如表10所示。表10 區(qū)域表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度區(qū)域編號(hào)varchar50本級(jí)編號(hào)varchar20區(qū)域名稱varchar20區(qū)域全稱varchar200區(qū)域碼varchar5郵政編碼varchar10編碼級(jí)次bigint市場(chǎng)反饋表市場(chǎng)反饋表結(jié)構(gòu)如表11所示。表11 市場(chǎng)反饋表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint業(yè)務(wù)員編號(hào)varchar4業(yè)務(wù)員名稱varchar20反饋?lái)?xiàng)目varchar200反饋內(nèi)容varchar2147483647反饋時(shí)刻datetime所屬區(qū)域varchar2

21、00區(qū)域負(fù)責(zé)人varchar10銷售打算表銷售打算表結(jié)構(gòu)如表12所示。表12 銷售打算表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint品名規(guī)格varchar200打算銷量nvarchar打算銷售額money銷售區(qū)域varchar200打算年份varchar10單據(jù)號(hào)varchar30銷售訓(xùn)練表銷售訓(xùn)練表結(jié)構(gòu)如表13所示。表13 銷售訓(xùn)練表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint業(yè)務(wù)員編號(hào)varchar4業(yè)務(wù)員姓名varchar20訓(xùn)練項(xiàng)目varchar50時(shí)數(shù)int開(kāi)始時(shí)刻datetime結(jié)束時(shí)刻datetime成績(jī)varchar10銷售組織表銷售組織表結(jié)構(gòu)如表14所示。表14 銷售組織表的結(jié)構(gòu)字段

22、名數(shù)據(jù)類型長(zhǎng)度編號(hào)varchar5名稱varchar50負(fù)責(zé)人varchar20所在區(qū)域varchar200地址varchar50電話varchar30Emailvarchar40郵編varchar10訓(xùn)練項(xiàng)目表訓(xùn)練項(xiàng)目表結(jié)構(gòu)如表15所示。表15 訓(xùn)練項(xiàng)目表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint訓(xùn)練項(xiàng)目varchar50業(yè)務(wù)員表業(yè)務(wù)員表結(jié)構(gòu)如表16所示。表16 業(yè)務(wù)員表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度編號(hào)varchar4姓名varchar20性不varchar2身份證號(hào)varchar20聯(lián)系電話varchar20手機(jī)號(hào)碼varchar40其他聯(lián)系方式varchar40聯(lián)系地址varchar50備注v

23、archar2147483647登記日期datetime郵箱表郵箱表結(jié)構(gòu)如表17所示。表17 郵箱表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint郵箱varchar50預(yù)測(cè)表預(yù)測(cè)表結(jié)構(gòu)如表18所示。表18 預(yù)測(cè)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度IDbigint品名規(guī)格varchar200預(yù)測(cè)銷量nvarchar預(yù)測(cè)銷售額money預(yù)測(cè)年份varchar10銷售區(qū)域varchar200錄入日期datetime第五章 要緊功能模塊設(shè)計(jì)5.1 公用模塊設(shè)計(jì)用公用模塊來(lái)存放整個(gè)工程項(xiàng)目中公用的函數(shù)、全局變量等，使工程項(xiàng)目中的任何地點(diǎn)都能夠調(diào)用公用模塊中的函數(shù)、變量，極大地提高了程序開(kāi)發(fā)效率和代碼重復(fù)利用率。在營(yíng)銷資

24、源治理系統(tǒng)中，就創(chuàng)建了如此一個(gè)模塊，該模塊的名稱為Module1，其中包括自定義的全局變量、數(shù)據(jù)庫(kù)連接函數(shù)、工具欄狀態(tài)設(shè)置函數(shù)。5.1.1添加全局變量添加全局變量，用于存儲(chǔ)操作員、表和SQL語(yǔ)句，代碼如下：Public czy As String, tb As String, tb1 As String, jbxxtb As String, sql As String, sql1 As String, text As Stringtext變量要緊用于存儲(chǔ)菜單標(biāo)題，以賦給各個(gè)窗體的Caption屬性，如此為程序開(kāi)發(fā)人員帶來(lái)了方便，以免逐個(gè)設(shè)置窗體的Caption屬性。添加全局變量，用來(lái)標(biāo)記各個(gè)窗

25、體數(shù)據(jù)添加或修改的狀態(tài)，代碼如下：Public blnAddCP As Boolean, blnAddYWY As Boolean, blnAddXSZZ As Boolean, blnAddQYML As BooleanPublic blnAddGRML As Boolean, blnAddLP As Boolean, blnAddXSXL As Boolean, blnAddXSKH As BooleanPublic blnAddSCGZ As BooleanblnAdd.變量用戶記錄數(shù)據(jù)添加依舊修改狀態(tài)，賦值為True為添加，賦值為False為修改。添加全局變量，用來(lái)記錄返回到哪個(gè)窗體，

26、代碼如下：Public IntLoadDataTree As Integer, intCP As IntegerIntLoadDataTree變量用來(lái)記錄返回到哪個(gè)窗體，賦值為1返回main_xszz_xszzgl_lr窗體；賦值為2返回main_xsyw_xsyc窗體；賦值為3返回main_xsyw_xsjh窗體。IntCP變量用來(lái)記錄返回到哪個(gè)窗體，賦值為0返回main_scgl_sczs窗體，賦值為1返回main_scgl_scgzgl_lr窗體，賦值為2返回main_xsyw_xsyc窗體。添加全局變量，用來(lái)標(biāo)記DataGrid控件中RowBuffer對(duì)象內(nèi)部指定行的書簽，代碼如下：P

27、ublic CPBookmark, YWYBookmark, XSZZBookmark, QYMLBookmark, GRMLBookmark, LPBookmarkPublic XSKHBookmark, XSXLBookmark, SCGZBookmark5.1.2定義數(shù)據(jù)庫(kù)連接函數(shù)為了減少重復(fù)的數(shù)據(jù)連接和為日后修改程序提供接口，在公用模塊（Module1）中建立了數(shù)據(jù)庫(kù)連接函數(shù)cnn和cnStr。假如使用對(duì)象操作數(shù)據(jù)庫(kù)，能夠調(diào)用cnn函數(shù)；假如使用ADO控件訪問(wèn)數(shù)據(jù)庫(kù)，則能夠調(diào)用字符串函數(shù)cnStr，并將該函數(shù)值賦給ADO控件的ConnectionString屬性。代碼如下：Public

28、 Function cnstr() As String cnstr = Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=db_CsellEnd FunctionPublic Function Cnn() As ADODB.Connection 定義函數(shù) Set Cnn = New ADODB.Connection 返回一個(gè)數(shù)據(jù)庫(kù)連接 Cnn.Open Driver=SQL Server;Server=(local);Database=db_Csell;Uid=sa;Pwd=End Function

29、5.1.3定義用于設(shè)置Toolbar按鈕狀態(tài)的函數(shù)大部分功能窗體中都使用了Toolbar控件，為了操縱其狀態(tài)，定義了下面的函數(shù)，代碼如下：定義用于設(shè)置Toolbar工具欄按鈕狀態(tài)的函數(shù)Public Function tlbState(tlb As Toolbar, state As Boolean) With tlb If state = True Then .Buttons(1).Enabled = False: .Buttons(2).Enabled = False: .Buttons(3).Enabled = False .Buttons(6).Enabled = False:.Butt

30、ons(4).Enabled = True: .Buttons(5).Enabled = True Else .Buttons(1).Enabled = True: .Buttons(2).Enabled = True:.Buttons(3).Enabled = True .Buttons(6).Enabled = True: .Buttons(4).Enabled = False: .Buttons(5).Enabled = False End If End WithEnd Function5.2 主界面設(shè)計(jì)軟件界面是人與計(jì)算機(jī)之間的媒介，用戶通過(guò)軟件界面來(lái)與計(jì)算機(jī)進(jìn)行信息交換，因此，軟件界

31、面的質(zhì)量將直接關(guān)系到應(yīng)用系統(tǒng)的性能能否充分發(fā)揮，尤其是主界面。但由于自身的力量缺乏，導(dǎo)致軟件盡管功能強(qiáng)大，但卻苦于沒(méi)有人性化的精美主界面，因此阻礙了軟件的整體形象。針對(duì)這種現(xiàn)狀，企業(yè)營(yíng)銷治理系統(tǒng)的主界面改變了傳統(tǒng)的設(shè)計(jì)風(fēng)格，將美學(xué)思想整合到里面去，引入平面設(shè)計(jì)思想，真正實(shí)現(xiàn)了使用戶準(zhǔn)確、高效、輕松、愉快地工作。企業(yè)營(yíng)銷治理系統(tǒng)主界面的運(yùn)行結(jié)果如圖3所示。Outlook式導(dǎo)航欄動(dòng)態(tài)菜單欄Outlook式導(dǎo)航欄動(dòng)態(tài)菜單欄圖3 主界面主界面擔(dān)負(fù)著調(diào)用各個(gè)功能模塊，給予操作員不同的操作權(quán)限，顯示當(dāng)前操作員、操作狀態(tài)和系統(tǒng)日期等任務(wù)，其中應(yīng)用了動(dòng)態(tài)創(chuàng)建列表項(xiàng)、動(dòng)態(tài)定位列表等技術(shù)，具體步驟如下。1創(chuàng)建主窗

32、體（1）選擇“工程”“添加窗體”命令，在工程中添加一個(gè)新窗體，將該窗體的“名稱”屬性設(shè)置為frm_main，BorderStyle屬性設(shè)置為2-Sizable，Caption屬性設(shè)置為“企業(yè)營(yíng)銷治理系統(tǒng)”，Picture屬性設(shè)置為事先設(shè)計(jì)好的背景圖片。（2）在frm_main窗體上添加一個(gè)StatusBar控件和一個(gè)CommonDialog控件。2創(chuàng)建標(biāo)準(zhǔn)菜單選擇“工具”“菜單編輯器”命令，打開(kāi)菜單編輯器，在此創(chuàng)建如圖4所示的菜單結(jié)構(gòu)。圖4 標(biāo)準(zhǔn)菜單的結(jié)構(gòu)3創(chuàng)建動(dòng)態(tài)菜單欄當(dāng)鼠標(biāo)移到動(dòng)態(tài)菜單欄時(shí)，菜單項(xiàng)將凸起，菜單標(biāo)題也由原來(lái)的“黑色”變?yōu)椤凹t色”，結(jié)果如圖5所示。 圖5 動(dòng)態(tài)菜單欄的結(jié)構(gòu)創(chuàng)建動(dòng)

33、態(tài)菜單欄的步驟如下。（1）在frm_main窗體圖片的動(dòng)態(tài)菜單欄所在添加Label控件數(shù)組（Label2(0)Label2(7)），設(shè)置其BackStyle屬性為0-Transparent，F(xiàn)oreColor屬性為“&H80000012&”，Caption屬性分不為“產(chǎn)品治理”、“銷售組織”、“銷售訓(xùn)練”、“銷售業(yè)績(jī)考核”、“市場(chǎng)跟蹤”、“市場(chǎng)走勢(shì)”、“銷售數(shù)據(jù)導(dǎo)入”、“銷售預(yù)測(cè)”。（2）在窗體上添加一個(gè)Picture控件，默認(rèn)名為Picture1，設(shè)置其BorderStyle屬性為0-None；Picture屬性為事先設(shè)計(jì)好的圖片。（3）在Picture1控件里添加1個(gè)Label控件，設(shè)置“

34、名稱”屬性為lblCaption；BackStyle屬性為0-None；ForeColor屬性為&H00000080&。4創(chuàng)建Outlook式導(dǎo)航欄當(dāng)單擊Outlook式導(dǎo)航欄上的導(dǎo)航按鈕時(shí)，該導(dǎo)航欄將展開(kāi)，并顯示相應(yīng)的項(xiàng)，單擊該項(xiàng)則調(diào)入相應(yīng)的功能窗體，具體設(shè)計(jì)步驟如下。（1）在frm_main窗體上添加Picture控件數(shù)組（picMenu(0)picMenu(7)），設(shè)置其BorderStyle屬性為0-None；Picture屬性為事先設(shè)計(jì)好的圖片。（2）在picMenu(0)picMenu(7)控件數(shù)組中各添加一個(gè)Label（lblMenu）控件數(shù)組，其index屬性與picMenu控

35、件數(shù)組的index屬性相同，BackStyle屬性為0-Transparent，F(xiàn)oreColor屬性為“&H00FFFFFF&”，Caption屬性分不為“差不多資料治理”、“銷售組織”、“市場(chǎng)治理”、“銷售業(yè)務(wù)治理”、“銷售分析”、“營(yíng)銷資源治理”、“系統(tǒng)治理”、“輔助”。（3）在窗體中添加ListView控件和ImageList控件。設(shè)置ListView控件的Appearance屬性為0-ccFlat；BorderStyle屬性為0-ccNone。（4）右鍵單擊ListView控件，在彈出的菜單中選擇“屬性”命令，打開(kāi)“屬性頁(yè)”對(duì)話框，在“圖像列表”選項(xiàng)卡中，設(shè)置圖標(biāo)圖像列表（一般）為I

36、mageList1。5代碼設(shè)計(jì)Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongDim rs1 As New ADODB.RecordsetDim i, j As Integ

37、erPublic strMenu As String窗體載入時(shí)，添加狀態(tài)欄，并設(shè)置相關(guān)屬性，以顯示操作員、當(dāng)前系統(tǒng)日期等，代碼如下：Private Sub Form_Load() lblMenu_Click (0) Dim pnlX As Panel 添加面板，并將它們?cè)O(shè)置為目錄。 StatusBar1.Panels(1).AutoSize = sbrContents StatusBar1.Panels(1) = mytag Set pnlX = StatusBar1.Panels.Add pnlX.AutoSize = sbrContents pnlX.text = 當(dāng)前操作員： & czy

38、 Set pnlX = StatusBar1.Panels.Add pnlX.Style = sbrDate Set pnlX = StatusBar1.Panels.Add pnlX.Style = sbrTimeEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label1(Index).ForeColor = &HC0&End Sub當(dāng)鼠標(biāo)移到動(dòng)態(tài)菜單欄上的文字上時(shí)（Label2），Picture1控件可見(jiàn)

39、，使其Left屬性等于Label2控件數(shù)組的Left屬性，同時(shí)設(shè)置Picture1控件中的lblCaption的Caption屬性等于Label2控件數(shù)組的Caption屬性，代碼如下。Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Left = Label2(Index).Left - 10 Picture1.Visible = True lblCaption = Label2(Index).Captio

40、nEnd Sub當(dāng)鼠標(biāo)移到窗體上時(shí)恢復(fù)相關(guān)控件的屬性，代碼如下。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Visible = False For i = 0 To 3 Label1(i).ForeColor = &HC0C0C0 Next iEnd SubPrivate Sub Label1_Click(Index As Integer) If Index 3 Then m8_Click (Index) End If If Index =

41、3 Then EndEnd Sub通過(guò)動(dòng)態(tài)菜單欄顯示的標(biāo)題，調(diào)用相應(yīng)菜單的Click事件過(guò)程，代碼如下。Private Sub lblCaption_Click() Select Case lblCaption.Caption Case 產(chǎn)品治理 m1_Click (1) 此處代碼省略，詳細(xì)內(nèi)容請(qǐng)參見(jiàn)光盤 End SelectEnd Sub單擊導(dǎo)航欄上的導(dǎo)航按鈕，動(dòng)態(tài)調(diào)整導(dǎo)航按鈕的高度、ListView控件的高度，并向ListView控件添加項(xiàng)，代碼如下。Private Sub lblMenu_Click(Index As Integer) strMenu = lblMenu(Index).C

42、aption Dim m As Integer For i = 1 To Index picMenu(i).Top = picMenu(i - 1).Top + picMenu.Item(i - 1).Height Next i ListView1.Top = picMenu(i - 1).Top + picMenu.Item(i - 1).Height If Index 0 Then If rs1.Fields(Index) = False Then MsgBox 對(duì)不起，您沒(méi)有使用此項(xiàng)功能的權(quán)限！, vbInformation, 提示窗口 rs1.Close Exit Sub End If

43、 End If rs1.Close Select Case Index Case 0 Load main_jbzl_qygl main_jbzl_qygl.Show 1 Case 1 Load main_jbzl_cpgl main_jbzl_cpgl.Show 1 Case 2 jbxxtb = 訓(xùn)練項(xiàng)目表 Load main_jbzl_public main_jbzl_public.Show 1 Case 3 jbxxtb = 考核指標(biāo)表 Load main_jbzl_public main_jbzl_public.Show 1 End SelectEnd SubPrivate Sub m

44、2_Click(Index As Integer) text = m2(Index).Caption rs1.Open select * from 權(quán)限信息表 where 操作員= & czy & , Cnn, adOpenStatic If rs1.RecordCount 0 Then If rs1.Fields(Index + 11) = False Then MsgBox 對(duì)不起，您沒(méi)有使用此項(xiàng)功能的權(quán)限！, vbInformation, 提示窗口 rs1.Close Exit Sub End If End If rs1.Close Select Case Index Case 0 Lo

45、ad main_xszz_xszzgl main_xszz_xszzgl.Show 1 Case 1 Load main_xszz_ywygl main_xszz_ywygl.Show 1 Case 2 Load main_xszz_xsxlgl main_xszz_xsxlgl.Show 1 Case 3 Load main_xszz_xsyjgl main_xszz_xsyjgl.Show 1 End SelectEnd Sub此處代碼與上述代碼的設(shè)計(jì)思路相同，因此省略，詳細(xì)內(nèi)容可參見(jiàn)光盤5.3 產(chǎn)品治理產(chǎn)品治理模塊要緊用于對(duì)企業(yè)內(nèi)部產(chǎn)品進(jìn)行有效的治理，建立詳細(xì)的產(chǎn)品檔案，實(shí)現(xiàn)產(chǎn)品信息的添

46、加、修改、刪除及查詢功能，其中查詢可通過(guò)萬(wàn)能查詢器對(duì)產(chǎn)品信息進(jìn)行多種條件查詢。產(chǎn)品治理模塊的運(yùn)行結(jié)果如圖6所示。圖6 產(chǎn)品治理單擊“增加”按鈕，添加新的產(chǎn)品信息，如圖7所示。圖7 產(chǎn)品信息添加單擊“修改”按鈕，修改產(chǎn)品信息，如圖8所示。圖8 產(chǎn)品信息修改單擊“查找”按鈕，打開(kāi)萬(wàn)能查詢器，可實(shí)現(xiàn)產(chǎn)品信息的多種條件查詢，如圖9所示。圖9 產(chǎn)品查詢1父窗體設(shè)計(jì)（1）選擇“工程”“添加窗體”命令，添加一個(gè)窗體，將該窗體的“名稱”屬性設(shè)置為main_jbzl_cpgl。（2）在窗體中設(shè)計(jì)如圖6所示的工具欄。（3）在窗體上添加一個(gè)ADO控件和一個(gè)DataGrid控件。（4）要緊控件的屬性設(shè)置如表1所示。表

47、1 要緊控件對(duì)象的屬性列表對(duì)象屬性值功能Adodc1CommandTypeConnectionStringRecordSourceVisible2-adCmdTextProvider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_CSellselect * from 產(chǎn)品信息表False提供數(shù)據(jù)綁定DataGrid1DataSourceAdodc1顯示產(chǎn)品信息（5）程序代碼。Private Sub Form_Activate() If sql1 Then Adodc1.RecordSource = sq

48、l1 Adodc1.Refresh End IfEnd SubPrivate Sub Form_Load() Me.Caption = textEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql1 = 清空查詢字符串End SubPrivate Sub DataGrid1_DblClick() If Adodc1.Recordset.RecordCount 0 Then blnAddCP = False CPBookmark = DataGrid1.Bookmark Load mai

49、n_jbzl_cpgl_lr main_jbzl_cpgl_lr.Show 1 Else MsgBox 系統(tǒng)沒(méi)有要修改的數(shù)據(jù)！, , 提示窗口 End IfEnd Sub單擊工具欄按鈕，調(diào)出相應(yīng)窗體或執(zhí)行相應(yīng)操作，代碼如下。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case add 添加狀態(tài) blnAddCP = True Load main_jbzl_cpgl_lr main_jbzl_cpgl_lr.Show 1 Case modify 修改狀態(tài)，調(diào)

50、用DataGrid1_DblClick過(guò)程 DataGrid1_DblClick Case delete 刪除指定記錄 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete Adodc1.Refresh Else MsgBox 系統(tǒng)沒(méi)有要?jiǎng)h除的數(shù)據(jù)！, , 提示窗口 End If Case find 調(diào)出萬(wàn)能查詢器 tb1 = 產(chǎn)品信息表 Load main_fzfind main_fzfind.Show 1 Case all 顯示所有記錄 Adodc1.RecordSource = select * from 產(chǎn)品信息表

51、 order by 產(chǎn)品編號(hào) Adodc1.Refresh Case close Unload Me End SelectEnd Sub2子窗體設(shè)計(jì)（1）在工程中添加一個(gè)新窗體，將該窗體的”名稱”屬性設(shè)置為main_jbzl_cpgl_lr。（2）在窗體上添加TextBox控件數(shù)組（text1(0)text1(4)）和兩個(gè)CommandButton控件。（3）程序代碼。Dim rs1 As New ADODB.Recordset窗體載入時(shí)，將首先通過(guò)布爾型變量blnAddCP推斷是添加依舊修改。假如是添加狀態(tài)，由系統(tǒng)將自動(dòng)生成產(chǎn)品編號(hào)，并清空除“產(chǎn)品編號(hào)”以外的文本框中的內(nèi)容；假如是修改狀態(tài)，

52、則顯示當(dāng)前所選擇的記錄。Private Sub Form_Load() If blnAddCP = True Then Me.Caption = 產(chǎn)品信息添加 rs1.Open select * from 產(chǎn)品信息表 order by 產(chǎn)品編號(hào), Cnn, adOpenKeyset If rs1.RecordCount 0 Then rs1.MoveLast Text1(0) = Format(Val(rs1.Fields(產(chǎn)品編號(hào)) + 1, 00000) Else Text1(0) = 00001 End If rs1.Close For i = 1 To Text1.UBound Tex

53、t1(i) = Next i Else Me.Caption = 產(chǎn)品信息修改 With main_jbzl_cpgl.Adodc1.Recordset For i = 0 To Text1.UBound Text1(i) = .Fields(i) Next i End With End IfEnd Sub用戶輸入內(nèi)容完畢后，單擊【保存】按鈕，觸發(fā)Click事件，代碼如下。Private Sub Command1_Click() On Error GoTo SaveErr If blnAddCP = True Then Cnn.Execute (insert into 產(chǎn)品信息表 values

54、( + Text1(0) + , + Text1(1) + , + Text1(2) + _ , + Text1(3) + , + Text1(4) + ) Else Cnn.Execute (update 產(chǎn)品信息表 set 品名規(guī)格 = + Text1(1) + ,單位 = + Text1(2) + _ ,單價(jià) = + Text1(3) + ,備注= + Text1(4) + where 產(chǎn)品編號(hào) = + Text1(0) + ) End If main_jbzl_cpgl.Adodc1.Refresh main_jbzl_cpgl.DataGrid1.Bookmark = CPBookm

55、ark Unload Me Exit SubSaveErr: MsgBox Err.DescriptionEnd Sub5.4 銷售組織銷售組織模塊要緊實(shí)現(xiàn)對(duì)企業(yè)的銷售分公司、銷售網(wǎng)點(diǎn)等進(jìn)行有效治理，其中包括銷售組織信息的添加、修改、刪除及查找等功能。銷售組織模塊的運(yùn)行結(jié)果如圖10所示。圖10 銷售組織模塊的運(yùn)行結(jié)果單擊“增加”按鈕，添加新的銷售組織信息，如圖11所示。圖11 銷售組織添加單擊“修改”按鈕，修改銷售組織信息，如圖12所示。圖12 銷售組織修改1父窗體設(shè)計(jì)（1）選擇“工程”“添加窗體”命令，添加一個(gè)窗體，將該窗體的“名稱”屬性設(shè)置為main_xszz_xszzgl。（2）在窗體中

56、設(shè)計(jì)如圖10所示的工具欄。（3）在窗體上添加一個(gè)ADODC控件和一個(gè)DataGrid控件。（4）要緊控件的屬性設(shè)置如表2所示。表2 要緊控件對(duì)象的屬性列表對(duì)象屬性值功能Adodc1RecordSourcselect * from 銷售組織表提供數(shù)據(jù)綁定DataGrid1DataSourceAdodc1顯示銷售組織信息（5）程序代碼。Private Sub Form_Activate() If sql1 Then Adodc1.RecordSource = sql1 Adodc1.Refresh End IfEnd SubPrivate Sub Form_Load() Me.Caption =

57、textEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql1 = 清空查詢字符串End Sub雙擊DataGrid表格，進(jìn)入修改狀態(tài)，同時(shí)調(diào)出main_xszz_xszzgl_lr窗體，代碼如下。Private Sub DataGrid1_DblClick() If Adodc1.Recordset.RecordCount 0 Then blnAddXSZZ = False XSZZBookmark = DataGrid1.Bookmark Load main_xszz_xszzgl

58、_lr main_xszz_xszzgl_lr.Show 1 Else MsgBox 系統(tǒng)沒(méi)有要修改的數(shù)據(jù)！, , 提示窗口 End IfEnd Sub單擊工具欄按鈕，調(diào)出相應(yīng)窗體或執(zhí)行相應(yīng)操作，代碼如下。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case add 添加狀態(tài) blnAddXSZZ = True Load main_xszz_xszzgl_lr main_xszz_xszzgl_lr.Show 1 Case modify 修改狀態(tài)，調(diào)用Da

59、taGrid1_DblClick過(guò)程 DataGrid1_DblClick Case delete 刪除指定的記錄 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete Adodc1.Refresh Else MsgBox 系統(tǒng)沒(méi)有要?jiǎng)h除的數(shù)據(jù)！, , 提示窗口 End If Case find 調(diào)出萬(wàn)能查詢器 tb1 = 銷售組織表 Load main_fzfind main_fzfind.Show 1 Case all 顯示所有記錄 Adodc1.RecordSource = select * from 銷售組織表 o

60、rder by 編號(hào) Adodc1.Refresh Case close Unload Me End SelectEnd Sub2子窗體設(shè)計(jì)（1）在工程中添加一個(gè)新窗體，將該窗體的“名稱”屬性設(shè)置為main_xszz_xszzgl_lr。（2）在窗體上添加TextBox控件數(shù)組（text1(0)text1(10)）和3個(gè)CommandButton控件。（3）在窗體上添加一個(gè)DTPicker控件，默認(rèn)名稱為DTPicker1。該控件屬于ActiveX控件，在使用前應(yīng)先將其添加到工具箱中。具體添加方法如下：在“部件”對(duì)話框中選中Micrsoft Windows Common Controls-2