基于access數(shù)據(jù)庫技術(shù)的企業(yè)營銷管理系統(tǒng)設(shè)計(jì)畢業(yè)論文.doc

基于access數(shù)據(jù)庫技術(shù)的企業(yè)營銷管理系統(tǒng)設(shè)計(jì)畢業(yè)論文第一章 引言11系統(tǒng)開發(fā)的背景伴隨著中國經(jīng)濟(jì)從計(jì)劃經(jīng)濟(jì)向市場(chǎng)經(jīng)濟(jì)轉(zhuǎn)型，從賣方市場(chǎng)向買方市場(chǎng)過渡，以及全球性的產(chǎn)品過剩以及產(chǎn)品的同質(zhì)化，導(dǎo)致市場(chǎng)競(jìng)爭(zhēng)加劇。在這種狀況之下，導(dǎo)致企業(yè)營銷環(huán)境也在加速變化，企業(yè)會(huì)經(jīng)常面臨著如下棘手的問題：q1、不能及時(shí)掌握銷售人員業(yè)績(jī)。q2、對(duì)銷售人員工作過程掌握不夠。q3、不能及時(shí)了解銷售狀況。q4、不能對(duì)各地區(qū)銷售分公司的銷售數(shù)據(jù)進(jìn)行有效管理。q5、不能及時(shí)對(duì)銷售數(shù)據(jù)進(jìn)行分析及對(duì)市場(chǎng)行情進(jìn)行預(yù)測(cè)。q6、決策緩慢，不能及時(shí)調(diào)整商品的價(jià)格，延緩商機(jī)。12課題中涉及的相關(guān)技術(shù)及概念121相關(guān)技術(shù)系統(tǒng)采用了先進(jìn)的access數(shù)據(jù)庫技術(shù)，面向?qū)ο蟮木幊谭椒▽W(xué)以及軟件工程方法學(xué)122 Visual Basic概念簡(jiǎn)介visual Basic 6.0中文版是一種應(yīng)用程序開發(fā)工具。Visual Basic 6.0是在原有的Basic語言的基礎(chǔ)上的進(jìn)一步發(fā)展，他包含了數(shù)百條語句。函數(shù)及關(guān)鍵詞，其中很多與Windows GUI有直接的關(guān)系。Visual Basic 語言簡(jiǎn)單易學(xué)，只要稍有語言基礎(chǔ)就可以很快的掌握并進(jìn)而精通?？梢暬挠脩艚缑嬖O(shè)計(jì)功能，把程序設(shè)計(jì)人員從繁瑣復(fù)雜的截面設(shè)計(jì)中解脫出來；可視化編程環(huán)境的“所見即所得（WYSIWYG）”功能，是界面設(shè)計(jì)如積木游戲一般，編程變成了一種享受；強(qiáng)大的多媒體功能可輕而易舉地開發(fā)出集聲音，動(dòng)畫，影像和圖片于一體的多媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫Internet程序的能力。Visual Basic 6.0 還支持用戶自己開發(fā)ActiveX控件和制作ActiveX文檔。VB的基本特點(diǎn)有：1） VB提供可視化的編程工具2） VB向程序員提供圖形對(duì)象（窗體，控件，菜單等）進(jìn)行應(yīng)用程序的界面設(shè)計(jì)，應(yīng)用程序的界面相當(dāng)于用工具畫出來的，大大簡(jiǎn)化了程序員的編程工作。3） 程序采取“事件驅(qū)動(dòng)”方式4） VB改變了程序的機(jī)制，沒有傳統(tǒng)意義上的主程序，使程序執(zhí)行的基本方法是有“事件”來驅(qū)動(dòng)子程序（或過程）的運(yùn)行，如用鼠標(biāo)點(diǎn)擊命令按扭，就產(chǎn)生了一個(gè)命令按扭的“單擊事件”，響應(yīng)的執(zhí)行一段程序（事件過程：Command1_Click()）。第二章 需求分析企業(yè)營銷部門對(duì)信息的依賴日益加劇，例如：隨著商品的市場(chǎng)覆蓋面的擴(kuò)大，就需要掌握比以前更多更及時(shí)的市場(chǎng)信息；從價(jià)格競(jìng)爭(zhēng)發(fā)展到非價(jià)格競(jìng)爭(zhēng)，為了有效地運(yùn)用差異化、廣告和促銷等競(jìng)爭(zhēng)工具，也需要更多的信息資源。隨著科學(xué)技術(shù)的發(fā)展，對(duì)這些急劇增加信息的需要，已能夠通過因特網(wǎng)、傳真機(jī)等得到有效解決。然而，許多企業(yè)的信息處理還不夠精細(xì)。許多公司還沒有營銷調(diào)研部門或只有小的營銷調(diào)研部，許多經(jīng)理對(duì)可利用的信息感到不滿意。抱怨他們不了解重要的信息在哪里；他們不能利用的信息太多而真正有用的信息太少；重要的信息來得太遲；很難估計(jì)收到的信息的準(zhǔn)確性。第三章 總體設(shè)計(jì)3.1 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)C/S結(jié)構(gòu)就是“客戶端/服務(wù)端”的一種工作模式。一般來說，這種模式都會(huì)要求安裝一個(gè)客戶端程序，由這個(gè)程序和服務(wù)器端進(jìn)行協(xié)同工作，因?yàn)橛煽蛻舳藖韺ｉT處理一些工作，所以C/S結(jié)構(gòu)的程序一般都功能強(qiáng)大、界面漂亮，由于任務(wù)分散在服務(wù)器端和客戶端分別進(jìn)行，所以提高了硬件的利用效率，對(duì)于程序員來說，編程開發(fā)也更加的容易。基于以上原因，在設(shè)計(jì)企業(yè)營銷管理系統(tǒng)時(shí)，采用了傳統(tǒng)的基于兩層的C/S結(jié)構(gòu)。3.2 系統(tǒng)功能結(jié)構(gòu)企業(yè)營銷管理系統(tǒng)的功能結(jié)構(gòu)如圖1所示。圖3-13.3 系統(tǒng)功能概述3.3.1基本資料管理基本資料管理為企業(yè)營銷管理系統(tǒng)提供基礎(chǔ)資料。其主要包括：區(qū)域管理、產(chǎn)品管理、銷售訓(xùn)練項(xiàng)目設(shè)置和銷售考核指標(biāo)設(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)管理主要根據(jù)收集產(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è)營銷管理系統(tǒng)的核心部分。該模塊將企業(yè)所有銷售環(huán)節(jié)有機(jī)的組合起來，使其產(chǎn)品化。銷售業(yè)務(wù)管理可實(shí)現(xiàn)銷售數(shù)據(jù)的導(dǎo)入或錄入，并根據(jù)銷售數(shù)據(jù)對(duì)下一年度某一區(qū)域的銷售情況進(jìn)行預(yù)測(cè)及制訂下一年的銷售計(jì)劃。其主要包括：銷售數(shù)據(jù)導(dǎo)入、銷售數(shù)據(jù)錄入、銷售預(yù)測(cè)、年銷售計(jì)劃。3.3.5銷售分析銷售分析主要對(duì)銷售過程中各種數(shù)據(jù)進(jìn)行分析，得出統(tǒng)計(jì)報(bào)表，如銷售月報(bào)表、銷售季報(bào)表。其主要包括：月銷售分析、季銷售分析、年銷售分析。3.3.6營銷資源管理營銷資源管理用于管理企業(yè)營銷活動(dòng)中所應(yīng)用到的資源，確保企業(yè)資源合理利用。實(shí)現(xiàn)了對(duì)企業(yè)名錄、個(gè)人名錄、郵件資源、營銷禮品的靈活查詢及管理，是進(jìn)行客戶拓展的資源基礎(chǔ)，并為挖掘客戶提供依據(jù)。其主要包括企業(yè)名錄、個(gè)人名錄、郵件資源、營銷禮品。3.3.7系統(tǒng)管理登錄系統(tǒng)時(shí)需要驗(yàn)證身份，只有合法的用戶才可以進(jìn)入企業(yè)營銷管理系統(tǒng)，不同的用戶擁有不同的使用權(quán)限。系統(tǒng)管理可以實(shí)現(xiàn)對(duì)用戶的管理，并可對(duì)系統(tǒng)內(nèi)的數(shù)據(jù)進(jìn)行初始化操作，以清空系統(tǒng)內(nèi)所有數(shù)據(jù)。其主要包括：用戶管理、密碼修改、數(shù)據(jù)初始化。3.3.8輔助工具輔助工具中提供了使用本系統(tǒng)的幫助及版權(quán)信息，并可通過相應(yīng)模塊登錄到開發(fā)商網(wǎng)站。其主要包括：幫助、關(guān)于、網(wǎng)上明日。第四章 系統(tǒng)設(shè)計(jì)4.1 設(shè)計(jì)目標(biāo)企業(yè)營銷管理系統(tǒng)本著經(jīng)濟(jì)、實(shí)用、高效的原則，為企業(yè)提供一個(gè)高效、規(guī)范、輕松的營銷工作環(huán)境，滿足企業(yè)不斷發(fā)展的需要。具體實(shí)現(xiàn)目標(biāo)如下：q1、系統(tǒng)采用人機(jī)對(duì)話方式，界面美觀友好，信息查詢靈活、方便、快捷、準(zhǔn)確，數(shù)據(jù)存儲(chǔ)安全可靠。q2、對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。q3、萬能查詢器實(shí)現(xiàn)自由設(shè)置查詢。q4、根據(jù)業(yè)務(wù)員的銷售業(yè)績(jī)完成比率，自動(dòng)計(jì)算業(yè)務(wù)員的得分情況。q5、根據(jù)市場(chǎng)跟蹤數(shù)據(jù)以圖表形式顯示產(chǎn)品的市場(chǎng)走勢(shì)。q6、根據(jù)本年度的銷售數(shù)據(jù)對(duì)下一年度的銷售情況進(jìn)行預(yù)測(cè)。q7、與Excel實(shí)現(xiàn)無縫連接，可將Excel表中的數(shù)據(jù)直接導(dǎo)入到系統(tǒng)中。q8、不同的操作員有不同的操作權(quán)限，增強(qiáng)了系統(tǒng)的安全性。q9、系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。q10、系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。4.2 開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：Visual Basic 6.0。數(shù)據(jù)庫管理平臺(tái)：SQL Server2000。運(yùn)行平臺(tái)：Windows XP/ Windows 2000。分辨率：最佳效果1024768。4.3 編碼設(shè)計(jì)編碼設(shè)計(jì)是數(shù)據(jù)庫系統(tǒng)開發(fā)的前提條件，是系統(tǒng)不可缺少的重要內(nè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ì)劃單據(jù)號(hào)為2005-12-09xsjh0007。4.4 數(shù)據(jù)庫設(shè)計(jì)本系統(tǒng)數(shù)據(jù)庫采用SQL Server 2000數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為db_Csell。數(shù)據(jù)庫db_Csell中包含19張表。下面是數(shù)據(jù)表概要說明及數(shù)據(jù)表的結(jié)構(gòu)。4.4.1數(shù)據(jù)表概要說明數(shù)據(jù)表樹型結(jié)構(gòu)如圖2所示。圖4-14.4.2數(shù)據(jù)表的結(jié)構(gòu)q 產(chǎn)品表產(chǎn)品表用來保存產(chǎn)品基礎(chǔ)信息，其結(jié)構(gòu)如表1所示。表1 產(chǎn)品信息表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度產(chǎn)品編號(hào)varchar5品名規(guī)格varchar200單位varchar10單價(jià)money8備注text16q 考核指標(biāo)表考核指標(biāo)表用來保存考核指標(biāo)信息，其結(jié)構(gòu)如表2所示。表2 考核指標(biāo)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint8考核指標(biāo)varchar20q 銷售考核表銷售考核表用來保存銷售考核詳細(xì)信息，其結(jié)構(gòu)如表3所示。表3 銷售考核表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint8業(yè)務(wù)員編號(hào)varchar4業(yè)務(wù)員姓名varchar20考核指標(biāo)varchar20完成率varchar20分?jǐn)?shù)numeric9年度varchar10考核日期datetime8q 市場(chǎng)跟蹤表市場(chǎng)跟蹤表用來保存市場(chǎng)跟蹤的詳細(xì)信息，其結(jié)構(gòu)如表4所示。表4 市場(chǎng)跟蹤表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint8品名規(guī)格varchar200市場(chǎng)價(jià)格money8市場(chǎng)信息text16備注text16跟蹤月份varchar10跟蹤人varchar10錄入日期datetime8q 銷售表銷售表用來保存產(chǎn)品銷售詳細(xì)信息，其結(jié)構(gòu)如表5所示。表5 銷售表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度產(chǎn)品編號(hào)varchar5品名規(guī)格varchar200單位varchar10單價(jià)money8月銷量numeric9月銷售額money8銷售組織編號(hào)varchar5銷售組織名稱varchar50所在區(qū)域varchar200單據(jù)號(hào)varchar30所在月份varchar10錄入日期datetime8q 預(yù)測(cè)表預(yù)測(cè)表用來保存銷售預(yù)測(cè)信息，其結(jié)構(gòu)如表6所示。表6 銷售預(yù)測(cè)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint8產(chǎn)品編號(hào)varchar5品名規(guī)格varchar200預(yù)測(cè)年銷量numeric9預(yù)測(cè)年銷售額money8固定增長率varchar10預(yù)測(cè)日期datetime8q 個(gè)人名錄表個(gè)人名錄表結(jié)構(gòu)如表7所示。表7 個(gè)人名錄表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint公司名稱varchar50姓名varchar10職務(wù)varchar10地址varchar40郵編varchar10電話varchar20手機(jī)varchar30q 禮品表禮品表結(jié)構(gòu)如表8所示。表8 禮品表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint禮品名稱varchar50規(guī)格varchar10單價(jià)money總數(shù)量nvarchar已發(fā)放數(shù)量nvarchar庫存數(shù)量nvarchar特點(diǎn)varchar50q 企業(yè)名錄表企業(yè)名錄表結(jié)構(gòu)如表9所示。表9 企業(yè)名錄表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint企業(yè)名稱varchar200負(fù)責(zé)人varchar10地址varchar50郵編varchar10電話varchar20傳真varchar10是否上市varchar2q 區(qū)域表區(qū)域表結(jié)構(gòu)如表10所示。表10 區(qū)域表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度區(qū)域編號(hào)varchar50本級(jí)編號(hào)varchar20區(qū)域名稱varchar20區(qū)域全稱varchar200區(qū)域碼varchar5郵政編碼varchar10編碼級(jí)次bigintq 市場(chǎng)反饋表市場(chǎng)反饋表結(jié)構(gòu)如表11所示。表11 市場(chǎng)反饋表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint業(yè)務(wù)員編號(hào)varchar4業(yè)務(wù)員名稱varchar20反饋項(xiàng)目varchar200反饋內(nèi)容varchar2147483647反饋時(shí)間datetime所屬區(qū)域varchar200區(qū)域負(fù)責(zé)人varchar10q 銷售計(jì)劃表銷售計(jì)劃表結(jié)構(gòu)如表12所示。表12 銷售計(jì)劃表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint品名規(guī)格varchar200計(jì)劃銷量nvarchar計(jì)劃銷售額money銷售區(qū)域varchar200計(jì)劃年份varchar10單據(jù)號(hào)varchar30q 銷售訓(xùn)練表q 銷售訓(xùn)練表結(jié)構(gòu)如表13所示。表13 銷售訓(xùn)練表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint業(yè)務(wù)員編號(hào)varchar4業(yè)務(wù)員姓名varchar20訓(xùn)練項(xiàng)目varchar50時(shí)數(shù)int開始時(shí)間datetime結(jié)束時(shí)間datetime成績(jī)varchar10q 銷售組織表銷售組織表結(jié)構(gòu)如表14所示。表14 銷售組織表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度編號(hào)varchar5名稱varchar50負(fù)責(zé)人varchar20所在區(qū)域varchar200地址varchar50電話varchar30Emailvarchar40郵編varchar10q 訓(xùn)練項(xiàng)目表訓(xùn)練項(xiàng)目表結(jié)構(gòu)如表15所示。表15 訓(xùn)練項(xiàng)目表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint訓(xùn)練項(xiàng)目varchar50q 業(yè)務(wù)員表業(yè)務(wù)員表結(jié)構(gòu)如表16所示。表16 業(yè)務(wù)員表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度編號(hào)varchar4姓名varchar20性別varchar2身份證號(hào)varchar20聯(lián)系電話varchar20手機(jī)號(hào)碼varchar40其他聯(lián)系方式varchar40聯(lián)系地址varchar50備注varchar2147483647登記日期datetimeq 郵箱表郵箱表結(jié)構(gòu)如表17所示。表17 郵箱表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint郵箱varchar50q 預(yù)測(cè)表預(yù)測(cè)表結(jié)構(gòu)如表18所示。表18 預(yù)測(cè)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長度IDbigint品名規(guī)格varchar200預(yù)測(cè)銷量nvarchar預(yù)測(cè)銷售額money預(yù)測(cè)年份varchar10銷售區(qū)域varchar200錄入日期datetime第五章 主要功能模塊設(shè)計(jì)5.1 公用模塊設(shè)計(jì)用公用模塊來存放整個(gè)工程項(xiàng)目中公用的函數(shù)、全局變量等，使工程項(xiàng)目中的任何地方都可以調(diào)用公用模塊中的函數(shù)、變量，極大地提高了程序開發(fā)效率和代碼重復(fù)利用率。在營銷資源管理系統(tǒng)中，就創(chuàng)建了這樣一個(gè)模塊，該模塊的名稱為Module1，其中包括自定義的全局變量、數(shù)據(jù)庫連接函數(shù)、工具欄狀態(tài)設(shè)置函數(shù)。5.1.1添加全局變量添加全局變量，用于存儲(chǔ)操作員、表和SQL語句，代碼如下：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屬性，這樣為程序開發(fā)人員帶來了方便，以免逐個(gè)設(shè)置窗體的Caption屬性。添加全局變量，用來標(biāo)記各個(gè)窗體數(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為修改。添加全局變量，用來記錄返回到哪個(gè)窗體，代碼如下：Public IntLoadDataTree As Integer, intCP As IntegerIntLoadDataTree變量用來記錄返回到哪個(gè)窗體，賦值為1返回main_xszz_xszzgl_lr窗體；賦值為2返回main_xsyw_xsyc窗體；賦值為3返回main_xsyw_xsjh窗體。IntCP變量用來記錄返回到哪個(gè)窗體，賦值為0返回main_scgl_sczs窗體，賦值為1返回main_scgl_scgzgl_lr窗體，賦值為2返回main_xsyw_xsyc窗體。添加全局變量，用來標(biāo)記DataGrid控件中RowBuffer對(duì)象內(nèi)部指定行的書簽，代碼如下：Public CPBookmark, YWYBookmark, XSZZBookmark, QYMLBookmark, GRMLBookmark, LPBookmarkPublic XSKHBookmark, XSXLBookmark, SCGZBookmark5.1.2定義數(shù)據(jù)庫連接函數(shù)為了減少重復(fù)的數(shù)據(jù)連接和為日后修改程序提供接口，在公用模塊（Module1）中建立了數(shù)據(jù)庫連接函數(shù)cnn和cnStr。如果使用對(duì)象操作數(shù)據(jù)庫，可以調(diào)用cnn函數(shù)；如果使用ADO控件訪問數(shù)據(jù)庫，則可以調(diào)用字符串函數(shù)cnStr，并將該函數(shù)值賦給ADO控件的ConnectionString屬性。代碼如下：Public 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ù)庫連接 Cnn.Open Driver=SQL Server;Server=(local);Database=db_Csell;Uid=sa;Pwd=End Function5.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:.Buttons(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ī)之間的媒介，用戶通過軟件界面來與計(jì)算機(jī)進(jìn)行信息交換，因此，軟件界面的質(zhì)量將直接關(guān)系到應(yīng)用系統(tǒng)的性能能否充分發(fā)揮，尤其是主界面。但由于自身的力量缺乏，導(dǎo)致軟件雖然功能強(qiáng)大，但卻苦于沒有人性化的精美主界面，因此影響了軟件的整體形象。針對(duì)這種現(xiàn)狀，企業(yè)營銷管理系統(tǒng)的主界面改變了傳統(tǒng)的設(shè)計(jì)風(fēng)格，將美學(xué)思想整合進(jìn)去，引入平面設(shè)計(jì)思想，真正實(shí)現(xiàn)了使用戶準(zhǔn)確、高效、輕松、愉快地工作。企業(yè)營銷管理系統(tǒng)主界面的運(yùn)行結(jié)果如圖3所示。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)建主窗體（1）選擇“工程”“添加窗體”命令，在工程中添加一個(gè)新窗體，將該窗體的“名稱”屬性設(shè)置為frm_main，BorderStyle屬性設(shè)置為2-Sizable，Caption屬性設(shè)置為“企業(yè)營銷管理系統(tǒng)”，Picture屬性設(shè)置為事先設(shè)計(jì)好的背景圖片。（2）在frm_main窗體上添加一個(gè)StatusBar控件和一個(gè)CommonDialog控件。2創(chuàng)建標(biāo)準(zhǔn)菜單選擇“工具”“菜單編輯器”命令，打開菜單編輯器，在此創(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)題也由原來的“黑色”變?yōu)椤凹t色”，結(jié)果如圖5所示。 圖5 動(dòng)態(tài)菜單欄的結(jié)構(gòu)創(chuàng)建動(dòng)態(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è)置“名稱”屬性為lblCaption；BackStyle屬性為0-None；ForeColor屬性為&H00000080&。4創(chuàng)建Outlook式導(dǎo)航欄當(dāng)單擊Outlook式導(dǎo)航欄上的導(dǎo)航按鈕時(shí)，該導(dǎo)航欄將展開，并顯示相應(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控件數(shù)組的index屬性相同，BackStyle屬性為0-Transparent，F(xiàn)oreColor屬性為“&H00FFFFFF&”，Caption屬性分別為“基本資料管理”、“銷售組織”、“市場(chǎng)管理”、“銷售業(yè)務(wù)管理”、“銷售分析”、“營銷資源管理”、“系統(tǒng)管理”、“輔助”。（3）在窗體中添加ListView控件和ImageList控件。設(shè)置ListView控件的Appearance屬性為0-ccFlat；BorderStyle屬性為0-ccNone。（4）右鍵單擊ListView控件，在彈出的菜單中選擇“屬性”命令，打開“屬性頁”對(duì)話框，在“圖像列表”選項(xiàng)卡中，設(shè)置圖標(biāo)圖像列表（普通）為ImageList1。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 IntegerPublic 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 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控件可見，使其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).CaptionEnd 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 = 3 Then EndEnd Sub通過動(dòng)態(tài)菜單欄顯示的標(biāo)題，調(diào)用相應(yīng)菜單的Click事件過程，代碼如下。Private Sub lblCaption_Click() Select Case lblCaption.Caption Case 產(chǎn)品管理 m1_Click (1) 此處代碼省略，詳細(xì)內(nèi)容請(qǐng)參見光盤 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).Caption 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ì)不起，您沒有使用此項(xiàng)功能的權(quán)限！, vbInformation, 提示窗口 rs1.Close Exit Sub End If 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 m2_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ì)不起，您沒有使用此項(xiàng)功能的權(quán)限！, vbInformation, 提示窗口 rs1.Close Exit Sub End If End If rs1.Close Select Case Index Case 0 Load 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)容可參見光盤5.3 產(chǎn)品管理產(chǎn)品管理模塊主要用于對(duì)企業(yè)內(nèi)部產(chǎn)品進(jìn)行有效的管理，建立詳細(xì)的產(chǎn)品檔案，實(shí)現(xiàn)產(chǎ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)品信息修改單擊“查找”按鈕，打開萬能查詢器，可實(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所示。表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 = sql1 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 main_jbzl_cpgl_lr main_jbzl_cpgl_lr.Show 1 Else MsgBox 系統(tǒng)沒有要修改的數(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)用DataGrid1_DblClick過程 DataGrid1_DblClick Case delete 刪除指定記錄 If Adodc1.Recordset.RecordCount 0 Then