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

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