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

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