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

1、遼寧工業(yè)大學設計專題說明書（論文）遼寧工業(yè)大學SQL數(shù)據(jù)庫設計課程設計說明書題目企業(yè)營銷管理系統(tǒng)院（系）：軟件工程學院專業(yè)班級：軟件工程1班學號:1313010參考地址：www.lia nsha nq 科普類別：SEO 探索網(wǎng)教師職稱：副教授起止時間：2013.12.30-2014.01.10遼寧工業(yè)大學課程設計說明書（論文）目錄第1章設計目的與要求 21.1設計目的 21.2設計環(huán)境 21.3主要參考資料 21. 4設計內容及要求 2第2章設計內容 22.1數(shù)據(jù)庫設計 32. 1. 2概念設計 32. 1. 3邏輯設計 52. 1. 4物理設計 52.1.5數(shù)據(jù)庫實現(xiàn) 62. 2程序設計 7

2、2. 2. 1概要設計 72. 2. 2程序實現(xiàn) 8第3章設計總結 19參考文獻 2022第1章設計目的與要求1.1設計目的本設計專題是軟件工程類專業(yè)的有關管理信息系統(tǒng)設計開發(fā)的一個重要環(huán)節(jié)，是本 專業(yè)學生必須學習和掌握的綜合實踐課程。本實踐課的主要目的是：（1）、掌握運用管理系統(tǒng)及數(shù)據(jù)庫原理知識進行系統(tǒng)分析和 設計的方法；（2）掌握關系數(shù)據(jù)庫的設計方法；（3）掌握SQL Server 2000技術應用;（4）掌握簡單的數(shù)據(jù)庫應用程序編寫方法；（5）理解C/S模式結構。1.2設計環(huán)境硬件：處理器：Intel Pe ntium 166MX 或更高內存：32MB硬盤空間：1GB光驅：CD-ROM

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

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

5、析。數(shù)據(jù)庫概念結構設計。數(shù)據(jù)庫邏輯結構設計2.1.1需求分析企業(yè)營銷管理系統(tǒng)涉及基礎資料管理、銷售組織、市場管理、銷售業(yè)務管理、銷售 分析、營銷資源管理以及系統(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)濟轉型，從賣方市場向買方市場過渡，以及全 球性的產(chǎn)品過剩以及產(chǎn)品的同質化，導致市場競爭加劇。在這種狀況之下，導致企業(yè)營 銷環(huán)境也在加速變化，企業(yè)營銷部門對信息的依賴日益加劇，例如：隨著商品的市場覆 蓋面的擴大，就需要掌握比以前更多更及時的市場

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

7、織E-R圖銷售訓練（業(yè)務員姓名，訓練項目，開始時間，結束時間，成績）如圖圖2.2所示2. 1. 3邏輯設計邏輯結構設計階段的任務是將概念結構設計階段所得到的概念模型轉換為具 體DBMS所能支持的數(shù)據(jù)模型（即邏輯結構），并對其進行優(yōu)化。數(shù)據(jù)庫邏輯設計所要完成的任務是：概念結構設計所得的E-R模型是對用戶需求的一種抽象的表達形式，它獨立于任何一種具體的數(shù)據(jù)模型，因而也不能為任何一個具體 的DBM新支持。為了能夠建立起最終的物理系統(tǒng)，還需要將概念結構進一步轉化為某一 DBM所支持的數(shù)據(jù)模型，然后根據(jù)邏輯設計的準則，數(shù)據(jù)的語義約束，規(guī)范化理論等對 數(shù)據(jù)模型進行適當?shù)恼{整和優(yōu)化，形成合理的全局邏輯結構，

8、SEO探索網(wǎng)并設計出用戶子模式。描述概念模型的有力工具是 E-R圖。E-R模型是一個面向問題的概念模型，即用簡 單的圖形方式描述現(xiàn)實世界中的數(shù)據(jù)。在 E-R模型中，信息由實體型，實體屬性和實體 間的聯(lián)系概念單元來表示。_*S.U直葉5AV11SJtVl圖2.4銷售組織關系表2. 1. 4物理設計數(shù)據(jù)庫物理設計階段的任務是根據(jù)具體計算機系統(tǒng)的特點，為給定的數(shù)據(jù)庫模型確定合理的存儲結構和存取方法。為了設計數(shù)據(jù)庫的物理結構，必須充分了解所有DBMS的內部特征，充分了解數(shù)據(jù)系統(tǒng)的實際應用環(huán)境，特別是數(shù)據(jù)應用處理的頻率和響應時 間的要求，充分了解崴存儲設備的特征。數(shù)據(jù)庫的物理結構設計大致包括：確定數(shù)據(jù)的

9、 存取方法，確定數(shù)據(jù)的存儲結構。物理結構設計階段實現(xiàn)的是數(shù)據(jù)庫系統(tǒng)的內模式，它的質量直接決定了整個系統(tǒng)的 性能。因此在確定數(shù)據(jù)庫的存儲結構和存取方法之前，對數(shù)據(jù)庫系統(tǒng)所支持的事物要進 行仔細的分析，獲得優(yōu)化數(shù)據(jù)庫物理設計的參數(shù)。若出現(xiàn)數(shù)據(jù)冗余情況，是因為有某些數(shù)據(jù)記錄不正確，去除了數(shù)據(jù)文件中的碎片， 以保證數(shù)據(jù)傳輸?shù)恼_性和完整性。循環(huán)冗余檢查（CRE）是一種數(shù)據(jù)傳輸檢錯功能，對數(shù)據(jù)進行多項式計算，并將得到的結果附在幀的后面，接收設備也執(zhí)行類似算法，以 保證數(shù)據(jù)傳輸?shù)恼_性和完整性。 若CRC校驗不通過，系統(tǒng)重復向硬盤復制數(shù)據(jù)，陷入 死循環(huán)，導致復制過程無法完成。2.1.5數(shù)據(jù)庫實現(xiàn)數(shù)據(jù)庫的實

10、施主要是根據(jù)邏輯結構設計和物理結構設計的結果，在計算機系統(tǒng)上建 立實際的數(shù)據(jù)庫結構，導入數(shù)據(jù)并進行程序的調試。（1）銷售組織表包含所屬名稱，負責人，所在區(qū)域，地址，電話，如表2.1所示表2.1銷售組織表字段名數(shù)據(jù)類型字段長度與格式是否為空名稱文本10否所在區(qū)域文本50否地址文本30是電話文本50是（2）銷售訓練表包含所屬業(yè)務員姓名，訓練項目，開始時間，結束時間，成績，如表2.2所示。表2.2產(chǎn)品管理表字段名數(shù)據(jù)類型字段長度與格式是否為空業(yè)務員姓名文本10否訓練項目文本50否開始時間文本30否結束時間文本50是成績文本10是（3）銷售業(yè)績考核表包含所屬業(yè)務員姓名，考核指標，完成率，分數(shù)，如表2.

11、3所示表2.3考核指標表字段名數(shù)據(jù)類型字段長度與格式是否為空業(yè)務員姓名文本10否考核指標文本50否利潤額文本30否完成率文本50是分數(shù)文本10是2. 2程序設計2. 2. 1概要設計根據(jù)以上對企業(yè)營銷和企業(yè)營銷管理系統(tǒng)系統(tǒng)的分析，一個標準的企業(yè)營銷管理系 統(tǒng)應該包括圖圖2.11所示的幾大功能。除此之外還包括信息系統(tǒng)必須具備的通用功能, 例如系統(tǒng)管理，權限設置，數(shù)據(jù)備份與恢復等。其中每個功能都由若干相關聯(lián)的子功能 模塊組成。企業(yè)營銷管理系統(tǒng)基本資料輔助工具圖2.2.1企業(yè)營銷管理系統(tǒng)應包括的基本功能銷售組織包括銷售組織，業(yè)務員管理，銷售訓練。圖222銷售組織模塊圖2. 2. 2程序實現(xiàn)程序實現(xiàn)主

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

13、on ShellExecute Lib shell32.dll Alias ShellExecuteA(ByVai hWnd As Long, ByVai IpOperation As String, ByVal lpFlie As String, ByVai IpParameters As String,ByVal lpDirectory As String, ByVal nShowCmAs Long) AsLongDim rs1 As New ADODB.RecordsetDim i, j As In tegerPublic strMenu As StringPrivate Sub For

14、m_Load()lblMe nu_Click (0)Dim pnlX As Pan el添加面板，并將它們設置為目錄。StatusBarl.Pa nels(1).AutoSize = sbrCo ntentsStatusBarl.Pa nels(1) = mytagSet p nlX = StatusBar1.Pa nels.Addpn lX.AutoSize = sbrC ontentspn lX.text =當前操作員：& czySet p nlX = StatusBar1.Pa nels.Addpn lX.Style = sbrDateSet p nIX = StatusBarl.Pa

15、nels.Addpn IX.Style = sbrTimeEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Si ngle)Picture1.Visible = FalseFor i = 0 To 3Label1(i).ForeColor = & HC0C0C0Next iEnd SubPrivate Sub Label1_Click(l ndex As In teger)If In dex 3 The nm8_Click (I ndex)End IfIf In de

16、x = 3 The n EndEnd SubPrivate Sub Label1_MouseMove(I ndex As In teger, Button As In teger, Shift AsIn teger, X As Sin gle, Y As Sin gle)Label1( In dex).ForeColor = & HC0 &End SubPrivate Sub Label2_MouseMove(I ndex As In teger, Button As In teger, Shift AsIn teger, X As Sin gle, Y As Sin gle)Picturel

17、.Left = Label2( In dex).Left - 10Picturel.Visible = TruelblCaptio n = Label2(I ndex).CaptionEnd SubPrivate Sub lblCaption_Click()Select Case lblCapti on. Capti onCase 產(chǎn)品管理m1_Click (1)Case 銷售組織m2_Click (0)Case 銷售訓練m2_Click (2)Case 銷售業(yè)績考核m2_Click (3)Case 市場跟蹤m3_Click Case 市場走勢m3_Click (2)Case 銷售數(shù)據(jù)導入m4

18、_Click (0)Case 銷售預測m4_Click (2)End SelectEnd SubPrivate Sub IbIMe nu_Click(l ndex As In teger)strMe nu = lblMe nu(l ndex).Captio nDim m As In tegerFor i = 1 To In dexpicMenu(i).Top = picMenu(i - 1).Top + picMenu.Item(i - 1).HeightNext iListView1.Top = picMenu(i - 1).Top + picMenu.Item(i - 1).HeightI

19、f Index 0 The nIf rs1.Fields(I ndex) = False ThenMsgBox對不起，您沒有使用此項功能的權限！, vbInformation,提示窗口IIrs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case In dexCase 0Load main _jbzl_qyglmain _jbzl_qygl.Show 1Case 1Load main _jbzl_cpglmain _jbzl_cpgl.Show 1Case 2jbxxtb =訓練項目表Load main _jbzl_publicmain _jbzl_pu

20、blic.Show 1Case 3jbxxtb =考核指標表Load main _jbzl_publicmain _jbzl_public.Show 1End SelectEnd SubPrivate Sub m2_Click(l ndex As In teger)text = m2(I ndex).Capti onrs1.Openselect * from 權限信息表 where 操作員=”& czy & ”,Cnn,adOpe nStaticIf rs1.RecordCou nt 0 The nIf rs1.Fields(I ndex + m1.Cou nt) = False The nM

21、sgBox對不起，您沒有使用此項功能的權限！, vbInformation,提示窗口IIrs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case In dexCase 0Load main _xszz_xszzglmain _xszz_xszzgl.Show 1Case 1Load main _xszz_ywyglmain_xszz_ywygl.Show 1Case 2Load main _xszz_xsxlglmain_xszz_xsxlgl.Show 1Case 3Load main _xszz_xsyjglmain_xszz_xsyjgl.Sho

22、w 1End SelectEnd SubPrivate Sub m3_Click(I ndex As In teger)text = m3(I ndex).Capti onrs1.Openselect * from 權限信息表 where 操作員=”& czy & ”,Cnn,adOpe nStaticIf rs1.RecordCou nt 0 The nIf rs1.Fields(I ndex + m1.Cou nt + m2.Cou nt) = False The nMsgBox對不起，您沒有使用此項功能的權限！, vbInformation,提示窗口IIrs1.CloseExit Sub

23、End IfEnd Ifrs1.CloseSelect Case In dexCase 0Load main _scgl_scfkglmain_scgl_scfkgl.Show 1Case 1Load main _scgl_scgzglmain _scgl_scgzgl.Show 1Case 2in tCP = 0Load main _cpxxmain _cpxx.Show 1End SelectEnd SubPrivate Sub m4_Click(l ndex As In teger)text = m4(I ndex).Capti onrs1.Open select * from 權限信息

24、表 where 操作員=”& czy & ”,Cnn,adOpe nStaticIf rs1.RecordCou nt 0 The nIf rs1.Fields(I ndex + m1.Cou nt + m2.Cou nt + m3.Cou nt) = False The nMsgBox對不起，您沒有使用此項功能的權限！, vbInformation,提示窗口IIrs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case In dexCase 0Load main _xsyw_xsdrmain_xsyw_xsdr.Show 1Case 1Load mai

25、n _xsyw_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(I ndex As In teger)text = m5(I ndex).Capti onrs1.Open select * from 權限信息表 where 操作員=”& czy & ”,Cnn,adOpe nStaticIf rs1.RecordCou nt 0 The

26、 nIf rs1.Fields(I ndex + m1.Cou nt + m2.Cou nt + m3.Cou nt + m4.Cou nt) = FalseThe nMsgBox對不起，您沒有使用此項功能的權限！, vblnformation,提示窗口IIrsl.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case In dexCase 0Load main_xsfx_yxsfxmain_xsfx_yxsfx.Show 1Case 1Load main_xsfx_jxsfxmain_xsfx_jxsfx.Show 1Case 2Load main _xs

27、fx_ nxsfxmain_xsfx_ nxsfx.Show 1End SelectEnd SubPrivate Sub m6_Click(l ndex As In teger)text = m6(I ndex).Capti onrs1.Openselect * from 權限信息表 where 操作員=”& czy & ”,Cnn,adOpe nStaticIf rs1.RecordCou nt 0 The nIfrs1.Fields(l ndex+ m1.Cou nt + m2.Cou nt + m3.Cou nt + m4.Cou nt + m5.Cou nt)=False ThenMs

28、gBox對不起，您沒有使用此項功能的權限！, vbInformation,提示窗口IIrs1.CloseExit SubEnd IfEnd Ifrs1.CloseSelect Case In dexCase 0Load main_yxzy_qymlglmain_yxzy_qymlgl.Show 1Case 1Load main_yxzy_grmlglmain_yxzy_grmlgl.Show 1Case 2jbxxtb = 郵箱表Load main _jbzl_publicmain _jbzl_public.Show 1Case 3Load main _yxzy_yxlpglmain_yxzy

29、_yxlpgl.Show 1End SelectEnd SubPrivate Sub m7_Click(l ndex As In teger)rs1.Open select * from 權限信息表 where 操作員=”& czy & ”, Cnn, adOpe nStaticIf rs1.RecordCou nt 0 The nIf rs1.Fields(l ndex + m1.Cou nt + m2.Cou nt + m3.Cou nt + m4.Cou nt + m5.Cou nt+ m6.Co unt) = False The nMsgBox對不起，您沒有使用此項功能的權限！, vb

30、Information,提示窗口IIrs1.CloseExit SubEnd IfEnd Ifrs1.Closetext = m7(I ndex).Captio nSelect Case In dexCase 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(I ndex As In teger)text = m8(I

31、 ndex).Captio nSelect Case In dexCase 0CommonDialog1.HelpFile = App.Path & /HELP.HLPCommon Dialog1.HelpComma nd = cdlHelpC on te ntsCommo nDialog1.ShowHelp 顯示 Visual Basic幫助目錄主題Case 1Load frm_aboutfrm_about.ShowCase 2Dim Temp As Stri ngTemp = 所要連接的網(wǎng)站名稱ShellExecute 0&, vbNullStri ng, Temp, vbNullStri ng, vbNullStri ng, 0 調用IEEnd SelectEnd Sub第3章設計總結在這次實驗中，我學會了 SQL與VB的結合，它讓我知道SQL的更多功能，加深了我 學習SQL的興趣，在實驗中建表，以及關系模式，關系代數(shù)的建立及理解，將SQL的查詢語句運用的淋漓盡致，增強了自己在數(shù)據(jù)庫中應用SQL語言的靈活性，其中包括，插入，刪除，修改，查詢涉及表和表之間的聯(lián)系，主鍵與外鍵的定義。而在編碼方面，我 從系統(tǒng)的功能，規(guī)模和使用方面考慮