企業(yè)營銷管理系統(tǒng)課程設(shè)計

1、遼寧工業(yè)大學(xué)設(shè)計專題說明書（論文）遼寧工業(yè)大學(xué)SQL 數(shù)據(jù)庫設(shè)計課程設(shè)計說明書題目：企業(yè)營銷管理系統(tǒng)院（系） :專業(yè)班級：軟件工程學(xué)院軟件工程 1班學(xué)號：1313010參考地址：科普類別：教師職稱：SEO探索網(wǎng)副教授起止時間：遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）目錄第 1 章設(shè)計目的與要求21.1 設(shè)計目的21.2 設(shè)計環(huán)境21.3 主要參考資料21.4 設(shè)計內(nèi)容及要求 .2第 2 章設(shè)計內(nèi)容 .22.1 數(shù)據(jù)庫設(shè)計3212 概念設(shè)計3213 邏輯設(shè)計5214 物理設(shè)計5數(shù)據(jù)庫實現(xiàn) .62 2 程序設(shè)計7221 概要設(shè)計7222 程序?qū)崿F(xiàn)8第 3 章 設(shè)計總結(jié) .19參考文獻 .201遼寧工業(yè)大

2、學(xué)課程設(shè)計說明書（論文）第 1 章設(shè)計目的與要求1.1 設(shè)計目的本設(shè)計專題是軟件工程類專業(yè)的有關(guān)管理信息系統(tǒng)設(shè)計開發(fā)的一個重要環(huán)節(jié)，是本專業(yè)學(xué)生必須學(xué)習(xí)和掌握的綜合實踐課程。本實踐課的主要目的是： (1) 、掌握運用管理系統(tǒng)及數(shù)據(jù)庫原理知識進行系統(tǒng)分析和設(shè)計的方法；（ 2）掌握關(guān)系數(shù)據(jù)庫的設(shè)計方法； （3）掌握SQL Server 2000技術(shù)應(yīng)用；（ 4）掌握簡單的數(shù)據(jù)庫應(yīng)用程序編寫方法；（5）理解 C/S 模式結(jié)構(gòu)。1.2 設(shè)計環(huán)境硬件：處理器： Intel Pentium 166MX或更高內(nèi)存： 32MB硬盤空間： 1GB光驅(qū)： CD-ROM 48X軟件：操作系統(tǒng)：Windows 200

3、0/Windows 98/ Windows xp網(wǎng)絡(luò)協(xié)議： TCP/IP數(shù)據(jù)庫： SQL Server20001.3 主要參考資料1. 管理信息系統(tǒng) 黃梯云 高等教育出版社2. 數(shù)據(jù)庫系統(tǒng)概論 薩師煊 高等教育出版社3. SQL Server 2000 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)技術(shù)朱如龍編，機械工業(yè)出版社。4. SQLServer 2000 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)技術(shù)實驗指導(dǎo)朱如龍編，機械工業(yè)出版社1. 4 設(shè)計內(nèi)容及要求一、內(nèi)容1. 要求根據(jù)管理信息系統(tǒng)及數(shù)據(jù)庫設(shè)計原理，按照數(shù)據(jù)庫系統(tǒng)設(shè)計的步驟和規(guī)范，完成各階段的設(shè)計內(nèi)容。2. 需求分析具體實際，數(shù)據(jù)流圖、數(shù)據(jù)字典、關(guān)系模型要正確規(guī)范3. 在 sql

4、 server2000 上實現(xiàn)設(shè)計的數(shù)據(jù)庫模型。4. 對應(yīng)用程序進行概要設(shè)計。2遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）5. 用 VB實現(xiàn)簡單的應(yīng)用程序編寫。二、要求設(shè)計過程中，要嚴格遵守課程設(shè)計的時間安排，聽從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，規(guī)范完整地撰寫出課程設(shè)計報告。第 2章設(shè)計內(nèi)容2.1 數(shù)據(jù)庫設(shè)計據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。設(shè)計數(shù)據(jù)庫系統(tǒng)時應(yīng)該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟：

5、數(shù)據(jù)庫需要分析。數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計。數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計需求分析企業(yè)營銷管理系統(tǒng)涉及基礎(chǔ)資料管理、銷售組織、市場管理、銷售業(yè)務(wù)管理、銷售分析、營銷資源管理以及系統(tǒng)管理等多種數(shù)據(jù)信息。管理用戶包括系統(tǒng)管理員和經(jīng)理。企業(yè)營銷管理系統(tǒng)本著經(jīng)濟、實用、高效的原則，為企業(yè)提供一個高效、規(guī)范、輕松的營銷工作環(huán)境，滿足企業(yè)不斷發(fā)展的需要。伴隨著中國經(jīng)濟從計劃經(jīng)濟向市場經(jīng)濟轉(zhuǎn)型，從賣方市場向買方市場過渡，以及全球性的產(chǎn)品過剩以及產(chǎn)品的同質(zhì)化，導(dǎo)致市場競爭加劇。在這種狀況之下，導(dǎo)致企業(yè)營銷環(huán)境也在加速變化，企業(yè)營銷部門對信息的依賴日益加劇，例如：隨著商品的市場覆蓋面的擴大，就需要掌握比以前更多更及時的市場信息；從

6、價格競爭發(fā)展到非價格競爭，為了有效地運用差異化、廣告和促銷等競爭工具，也需要更多的信息資源。212 概念設(shè)計邏輯結(jié)構(gòu)設(shè)計一般分為三步進行：從 E-R 圖向關(guān)系模式轉(zhuǎn)化數(shù)據(jù)庫的邏輯3遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）設(shè)計主要是將概念模型轉(zhuǎn)換成一般的關(guān)系模式，也就是將E-R 圖中的實體、 實體的屬性和實體之間的聯(lián)系轉(zhuǎn)化為關(guān)系模式。一個實體類型轉(zhuǎn)換為一個關(guān)系模型, 將每種實體類型轉(zhuǎn)換為一個關(guān)系，實體的屬性就是關(guān)系的屬性，實體的關(guān)鍵字就是關(guān)系的關(guān)鍵字。針對第 2 個基本銷售組織模塊進行詳細的說明。關(guān)系模型如下所示：每個關(guān)系模型的第一個數(shù)據(jù)項為該關(guān)系的主鍵銷售組織（名稱，負責人，所在區(qū)域，地址，電話）如

7、圖圖2.1 所示。名稱電話負責人銷售組織地址所在區(qū)域圖 2.1 銷售組織E-R 圖銷售訓(xùn)練（業(yè)務(wù)員姓名，訓(xùn)練項目，開始時間，結(jié)束時間，成績）如圖圖 2.2 所示業(yè)務(wù)員姓名銷售訓(xùn)練開始時間訓(xùn)練項目成績結(jié)束時間圖 2.2銷售訓(xùn)練 E-R 圖銷售業(yè)績考核（業(yè)務(wù)員姓名，考核指標，完成率，分數(shù)，年度）如圖圖2.3 所示業(yè)務(wù)員姓名銷售業(yè)績考核年度考核指標完成率分數(shù)圖 2.3 考核指標E-R 圖4遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）213 邏輯設(shè)計邏輯結(jié)構(gòu)設(shè)計階段的任務(wù)是將概念結(jié)構(gòu)設(shè)計階段所得到的概念模型轉(zhuǎn)換為具體 DBMS所能支持的數(shù)據(jù)模型（即邏輯結(jié)構(gòu)） ，并對其進行優(yōu)化。數(shù)據(jù)庫邏輯設(shè)計所要完成的任務(wù)是：概

8、念結(jié)構(gòu)設(shè)計所得的E-R 模型是對用戶需求的一種抽象的表達形式，它獨立于任何一種具體的數(shù)據(jù)模型，因而也不能為任何一個具體的 DBMS所支持。為了能夠建立起最終的物理系統(tǒng)，還需要將概念結(jié)構(gòu)進一步轉(zhuǎn)化為某一DBMS所支持的數(shù)據(jù)模型，然后根據(jù)邏輯設(shè)計的準則，數(shù)據(jù)的語義約束，規(guī)范化理論等對數(shù)據(jù)模型進行適當?shù)恼{(diào)整和優(yōu)化，形成合理的全局邏輯結(jié)構(gòu)，SEO探索網(wǎng)并設(shè)計出用戶子模式。描述概念模型的有力工具是E-R 圖。 E-R 模型是一個面向問題的概念模型，即用簡單的圖形方式描述現(xiàn)實世界中的數(shù)據(jù)。在E-R 模型中，信息由實體型，實體屬性和實體間的聯(lián)系概念單元來表示。圖 2.4 銷售組織關(guān)系表214 物理設(shè)計數(shù)據(jù)庫

9、物理設(shè)計階段的任務(wù)是根據(jù)具體計算機系統(tǒng)的特點，為給定的數(shù)據(jù)庫模型確定合理的存儲結(jié)構(gòu)和存取方法。為了設(shè)計數(shù)據(jù)庫的物理結(jié)構(gòu)，必須充分了解所有DBMS的內(nèi)部特征，充分了解數(shù)據(jù)系統(tǒng)的實際應(yīng)用環(huán)境，特別是數(shù)據(jù)應(yīng)用處理的頻率和響應(yīng)時間的要求，充分了解崴存儲設(shè)備的特征。數(shù)據(jù)庫的物理結(jié)構(gòu)設(shè)計大致包括：確定數(shù)據(jù)的存取方法，確定數(shù)據(jù)的存儲結(jié)構(gòu)。5遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）物理結(jié)構(gòu)設(shè)計階段實現(xiàn)的是數(shù)據(jù)庫系統(tǒng)的內(nèi)模式，它的質(zhì)量直接決定了整個系統(tǒng)的性能。因此在確定數(shù)據(jù)庫的存儲結(jié)構(gòu)和存取方法之前，對數(shù)據(jù)庫系統(tǒng)所支持的事物要進行仔細的分析，獲得優(yōu)化數(shù)據(jù)庫物理設(shè)計的參數(shù)。若出現(xiàn)數(shù)據(jù)冗余情況，是因為有某些數(shù)據(jù)記錄不正確

10、，去除了數(shù)據(jù)文件中的碎片，以保證數(shù)據(jù)傳輸?shù)恼_性和完整性。循環(huán)冗余檢查（CRE）是一種數(shù)據(jù)傳輸檢錯功能，對數(shù)據(jù)進行多項式計算，并將得到的結(jié)果附在幀的后面，接收設(shè)備也執(zhí)行類似算法，以保證數(shù)據(jù)傳輸?shù)恼_性和完整性。若 CRC 校驗不通過， 系統(tǒng)重復(fù)向硬盤復(fù)制數(shù)據(jù)， 陷入死循環(huán)，導(dǎo)致復(fù)制過程無法完成。數(shù)據(jù)庫實現(xiàn)數(shù)據(jù)庫的實施主要是根據(jù)邏輯結(jié)構(gòu)設(shè)計和物理結(jié)構(gòu)設(shè)計的結(jié)果，在計算機系統(tǒng)上建立實際的數(shù)據(jù)庫結(jié)構(gòu)，導(dǎo)入數(shù)據(jù)并進行程序的調(diào)試。（ 1）銷售組織表包含所屬名稱，負責人，所在區(qū)域，地址，電話，如表2.1 所示。表 2.1銷售組織表字段名數(shù)據(jù)類型字段長度與格式是否為空名稱文本10否所在區(qū)域文本50否地址文本

11、30是電話文本50是(2)銷售訓(xùn)練表包含所屬業(yè)務(wù)員姓名，訓(xùn)練項目，開始時間，結(jié)束時間，成績,如表2.2 所示。表 2.2產(chǎn)品管理表字段名數(shù)據(jù)類型字段長度與格式是否為空業(yè)務(wù)員姓名文本10否訓(xùn)練項目文本50否開始時間文本30否結(jié)束時間文本50是成績文本10是（ 3）銷售業(yè)績考核表包含所屬業(yè)務(wù)員姓名，考核指標，完成率，分數(shù)，如表2.3 所示。表 2.3考核指標表字段名數(shù)據(jù)類型字段長度與格式是否為空業(yè)務(wù)員姓名文本10否考核指標文本50否利潤額文本30否完成率文本50是分數(shù)文本10是6遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）2 2 程序設(shè)計221 概要設(shè)計根據(jù)以上對企業(yè)營銷和企業(yè)營銷管理系統(tǒng)系統(tǒng)的分析，一個標

12、準的企業(yè)營銷管理系統(tǒng)應(yīng)該包括圖圖2.11 所示的幾大功能。除此之外還包括信息系統(tǒng)必須具備的通用功能，例如系統(tǒng)管理，權(quán)限設(shè)置，數(shù)據(jù)備份與恢復(fù)等。其中每個功能都由若干相關(guān)聯(lián)的子功能模塊組成。企業(yè)營銷管理系統(tǒng)基銷市銷銷營系輔本售場售售銷統(tǒng)助資組管業(yè)分資管工料織理務(wù)析源理具管管理理區(qū)產(chǎn)銷業(yè)銷市銷數(shù)數(shù)月年企郵密數(shù)幫關(guān)網(wǎng)域品售務(wù)售場售據(jù)據(jù)銷銷業(yè)箱碼據(jù)助于上管管組員 訓(xùn)跟預(yù)導(dǎo)導(dǎo)售 售 名資修初明理理織管練蹤測出入分分錄源改始日理析析化圖企業(yè)營銷管理系統(tǒng)應(yīng)包括的基本功能銷售組織包括銷售組織，業(yè)務(wù)員管理，銷售訓(xùn)練。7遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）銷售組織銷業(yè)銷售務(wù)售組員訓(xùn)織管練理圖銷售組織模塊圖222 程序

13、實現(xiàn)程序?qū)崿F(xiàn)主要是代碼在編譯器中運行得到的結(jié)果，課程信息類型管理窗體主要由文本框及命令按鈕組成，管理員點擊“添加、修改、刪除、關(guān)閉”按鈕系統(tǒng)會通過上述四個控件與數(shù)據(jù)庫進行連接并進行數(shù)據(jù)的相應(yīng)操作。實現(xiàn)具體功能：用戶雙擊“企業(yè)營銷管理系統(tǒng).exe ”文件的圖標，即可進入到企業(yè)營銷管理系統(tǒng)登錄界面。系統(tǒng)登錄界面如圖3.1 所示。8遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）圖 3.1系統(tǒng)登錄在“用戶名稱”文本框中輸入“ mr”，“密碼”文本框中輸入“ mrsoft ”，單擊【確定】按鈕或連續(xù)兩次按 Enter 鍵，即可進入企業(yè)營銷管理系統(tǒng)。企業(yè)營銷管理系統(tǒng)主界面如圖 3.2 所示。圖 3.2企業(yè)營銷管理系統(tǒng)

14、主界面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 nShowCmdAs Long) As LongDim rs1 As New ADODB.RecordsetDim i,

15、j As IntegerPublic strMenu As StringPrivate Sub Form_Load()lblMenu_Click (0)Dim pnlX As Panel' 添加面板，并將它們設(shè)置為目錄。StatusBar1.Panels(1).AutoSize = sbrContentsStatusBar1.Panels(1) = mytagpnlX.AutoSize = sbrContentspnlX.text = "當前操作員： " & czypnlX.Style = sbrDate9遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）pnlX.Styl

16、e = sbrTimeEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, YAs Single)Picture1.Visible = FalseFor i = 0 To 3Label1(i).ForeColor = &HC0C0C0Next iEnd SubPrivate Sub Label1_Click(Index As Integer)If Index < 3 Thenm8_Click (Index)End IfIf Index = 3 Then EndEnd

17、SubPrivate Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)Label1(Index).ForeColor = &HC0&End SubPrivate Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Left = Label2(Index).Lef

18、t - 10Picture1.Visible = TruelblCaption = Label2(Index).CaptionEnd SubPrivate Sub lblCaption_Click()Select Case lblCaption.CaptionCase "產(chǎn)品管理 "m1_Click (1)Case "銷售組織 "m2_Click (0)Case "銷售訓(xùn)練 "m2_Click (2)Case "銷售業(yè)績考核 "m2_Click (3)Case "市場跟蹤 "m3_Click (

19、1)Case "市場走勢 "m3_Click (2)Case "銷售數(shù)據(jù)導(dǎo)入 "m4_Click (0)Case "銷售預(yù)測 "m4_Click (2)10遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）End SelectEnd SubPrivate Sub lblMenu_Click(Index As Integer)strMenu = lblMenu(Index).CaptionDim m As IntegerFor i = 1 To IndexpicMenu(i).Top = picMenu(i - 1).Top + picMenu.Ite

20、m(i - 1).Height Next iListView1.Top = picMenu(i - 1).Top + picMenu.Item(i - 1).HeightIf Index < 7 Then picMenu(Index + 1).Top = ListView1.Top + ListView1.Height For i = Index + 2 To picMenu.Count - 1picMenu(i).Top = picMenu.Item(i - 1).Top + picMenu.Item(i - 1).Height Next iSelect Case IndexCase

21、0ListView1.Enabled = TrueFor i = 0 To m1.Count - 1Key = "【" & m1.Item(i).Caption & "】"m = i + 1Next iCase 1ListView1.Enabled = TrueFor i = 0 To m2.Count - 1Key = "【" & m2.Item(i).Caption & "】"m = i + m1.CountNext iCase 2ListView1.Enabled = True

22、For i = 0 To m3.Count - 1Key = "【" & m3.Item(i).Caption & "】"m = m1.Count + m2.Count + iNext iCase 3ListView1.Enabled = TrueFor i = 0 To m4.Count - 1Key = "【" & m4.Item(i).Caption & "】"m = m1.Count + m2.Count + m3.Count + i11遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）Ne

23、xt iCase 4ListView1.Enabled = TrueFor i = 0 To m5.Count - 1Key = "【" & m5.Item(i).Caption & "】"m = m1.Count + m2.Count + m3.Count + m4.Count + iNext iCase 5ListView1.Enabled = TrueFor i = 0 To m6.Count - 1Key = "【" & m6.Item(i).Caption & "】"m =

24、 m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + iNext iCase 6ListView1.Enabled = TrueFor i = 0 To m7.Count - 1Key = "【" & m7.Item(i).Caption & "】"m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count +iNext iCase 7ListView1.Enabled = TrueFor i = 0 To

25、 m8.Count - 1Key = "【" & m8.Item(i).Caption & "】"m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count + m7.Count + iNext iEnd SelectEnd SubPrivate Sub ListView1_Click()Select Case strMenuCase "基本資料管理 "Case "銷售組織 "12遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）Case

26、"市場管理 "Case "銷售業(yè)務(wù)管理 "Case "銷售分析 "Case "營銷資源管理 "Case "系統(tǒng)管理 "Case "輔助 "End SelectEnd SubPrivate Sub m1_Click(Index As Integer)text = m1(Index).Captionrs1.Open "select * from 權(quán) 限信 息表 where 操作 員 ='" & czy & "'&quo

27、t;, Cnn, adOpenStaticIf rs1.RecordCount > 0 ThenIf rs1.Fields(Index) = False ThenMsgBox" 對不起，您沒有使用此項功能的權(quán)限！",vbInformation," 提示窗口"rs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case IndexCase 0Load main_jbzl_qyglmain_jbzl_qygl.Show 1Case 1Load main_jbzl_cpglmain_jbzl_cpgl.Show 1C

28、ase 2jbxxtb = "訓(xùn)練項目表 "Load main_jbzl_publicmain_jbzl_public.Show 1Case 3jbxxtb = "考核指標表 "Load main_jbzl_publicmain_jbzl_public.Show 1End SelectEnd Sub13遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）Private Sub m2_Click(Index As Integer)text = m2(Index).Captionrs1.Open "select * from 權(quán) 限信 息表 where 操作 員 =

29、'" & czy & "'", Cnn, adOpenStaticIf rs1.RecordCount > 0 ThenIf rs1.Fields(Index + m1.Count) = False ThenMsgBox" 對不起，您沒有使用此項功能的權(quán)限！",vbInformation," 提示窗口"rs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case IndexCase 0Load main_xszz_xszzglmain_xszz_xs

30、zzgl.Show 1Case 1Load main_xszz_ywyglmain_xszz_ywygl.Show 1Case 2Load main_xszz_xsxlglmain_xszz_xsxlgl.Show 1Case 3Load main_xszz_xsyjglmain_xszz_xsyjgl.Show 1End SelectEnd SubPrivate Sub m3_Click(Index As Integer)text = m3(Index).Captionrs1.Open "select * from 權(quán) 限信 息表 where 操作 員 ='" &

31、amp; czy & "'", Cnn, adOpenStaticIf rs1.RecordCount > 0 ThenIf rs1.Fields(Index + m1.Count + m2.Count) = False ThenMsgBox" 對不起，您沒有使用此項功能的權(quán)限！",vbInformation," 提示窗口"rs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case IndexCase 0Load main_scgl_scfkgl14遼寧工業(yè)大學(xué)課程設(shè)計說明

32、書（論文）main_scgl_scfkgl.Show 1Case 1Load main_scgl_scgzglmain_scgl_scgzgl.Show 1Case 2intCP = 0Load main_cpxxmain_cpxx.Show 1End SelectEnd SubPrivate Sub m4_Click(Index As Integer)text = m4(Index).Captionrs1.Open "select * from 權(quán) 限信 息表 where 操作 員 ='" & czy & "'", Cn

33、n, adOpenStaticIf rs1.RecordCount > 0 ThenIf rs1.Fields(Index + m1.Count + m2.Count + m3.Count) = False ThenMsgBox" 對不起，您沒有使用此項功能的權(quán)限！",vbInformation," 提示窗口"rs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case IndexCase 0Load main_xsyw_xsdrmain_xsyw_xsdr.Show 1Case 1Load main_xsyw

34、_xslrmain_xsyw_xslr.Show 1Case 2Load main_xsyw_xsycmain_xsyw_xsyc.Show 1Case 3Load main_xsyw_xsjhmain_xsyw_xsjh.Show 1End SelectEnd SubPrivate Sub m5_Click(Index As Integer)text = m5(Index).Captionrs1.Open "select * from 權(quán) 限信 息表 where 操作 員 ='" & czy & "'", Cnn, ad

35、OpenStaticIf rs1.RecordCount > 0 ThenIf rs1.Fields(Index + m1.Count + m2.Count + m3.Count + m4.Count) = False15遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）ThenMsgBox" 對不起，您沒有使用此項功能的權(quán)限！",vbInformation," 提示窗口"rs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case IndexCase 0Load main_xsfx_yxsfxmain_xsfx_yxsfx.

36、Show 1Case 1Load main_xsfx_jxsfxmain_xsfx_jxsfx.Show 1Case 2Load main_xsfx_nxsfxmain_xsfx_nxsfx.Show 1End SelectEnd SubPrivate Sub m6_Click(Index As Integer)text = m6(Index).Captionrs1.Open "select * from 權(quán) 限信 息表 where 操作 員 ='" & czy & "'", Cnn, adOpenStaticIf rs1

37、.RecordCount > 0 ThenIf rs1.Fields(Index + m1.Count + m2.Count + m3.Count + m4.Count + m5.Count) = False ThenMsgBox" 對不起，您沒有使用此項功能的權(quán)限！",vbInformation," 提示窗口"rs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case IndexCase 0Load main_yxzy_qymlglmain_yxzy_qymlgl.Show 1Case 1Load main

38、_yxzy_grmlglmain_yxzy_grmlgl.Show 1Case 2jbxxtb = "郵箱表 "Load main_jbzl_public16遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）main_jbzl_public.Show 1Case 3Load main_yxzy_yxlpglmain_yxzy_yxlpgl.Show 1End SelectEnd SubPrivate Sub m7_Click(Index As Integer)rs1.Open "select * from 權(quán) 限信 息表 where 操作 員 ='" &

39、 czy & "'", Cnn, adOpenStaticIf rs1.RecordCount > 0 ThenIfrs1.Fields(Index+ m1.Count + m2.Count + m3.Count + m4.Count + m5.Count+ m6.Count) = False ThenMsgBox" 對不起，您沒有使用此項功能的權(quán)限！",vbInformation," 提示窗口"rs1.CloseExit SubEnd IfEnd Ifrs1.Closetext = m7(Index).Capt

40、ionSelect Case IndexCase 0Load main_xtgl_czqxmain_xtgl_czqx.Show 1Case 1Load main_xtgl_mmmain_xtgl_mm.ShowCase 2Load main_xtgl_sjcshmain_xtgl_sjcsh.ShowEnd SelectEnd SubPrivate Sub m8_Click(Index As Integer)text = m8(Index).CaptionSelect Case IndexCase 0CommonDialog1.HelpFile = App.Path & "/HELP.HLP" CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.ShowHelp ' 顯示 Visual Basic 幫助目錄主題 Case 1Load frm_aboutfrm_about.ShowCase 2Dim Temp As String17遼寧工業(yè)大學(xué)課程設(shè)計說明書（論文）'所要連接的網(wǎng)站名稱ShellExecute 0&, vbNullString, Temp, vbNullString,