1、31/31手機銷售信息治理系統(tǒng) 設(shè)計目的 銷售治理信息系統(tǒng)作為信息治理系統(tǒng)的一個分支，已逐漸成為企業(yè)信息化建設(shè)的重要組成部分，為企業(yè)治理分布在全國網(wǎng)點提供了一個功能強大，安裝部署方便，使用成本低廉，操作簡捷的實時銷售治理系統(tǒng)，不僅能夠促進銷售業(yè)務(wù)的拓展，提高銷售運作的效益，也為最終實現(xiàn)有效的“供應(yīng)鏈治理”和更加廣泛的“電子商務(wù)”奠定了基礎(chǔ)。不管是一個銷售公司依舊一個銷售商店，都有專門多的銷售數(shù)據(jù)需要治理，手工治理這些繽紛復(fù)雜的數(shù)據(jù)的方式差不多不適應(yīng)時代的潮流，實現(xiàn)數(shù)據(jù)規(guī)范化、自動化的電腦治理，是一個治理規(guī)范、運作高效的企事業(yè)單位的必定要求。因此為了實現(xiàn)各銷售單位高效治理而設(shè)計那個手機銷售信息治

2、理系統(tǒng)。手機銷售信息治理系統(tǒng)的設(shè)計與開發(fā)，從全然上解決整個商品銷售流程中數(shù)據(jù)處理效率低，處理能力差等操作過程中表現(xiàn)出來的不足之處。方便對商品資料、銷售業(yè)績等進行高效的治理。使用該程序，治理層能夠及時查詢、治理商品，還能夠?qū)Ξ?dāng)前銷售業(yè)績進行一些統(tǒng)計，給出統(tǒng)計表格，以便全面掌握商品的銷售情況。二、設(shè)計任務(wù)本系統(tǒng)要緊考慮了最為普遍的銷售治理需求進貨時入庫登記，以便日后查看和統(tǒng)計進貨情況。銷售時把相應(yīng)數(shù)量的商品從現(xiàn)存商品庫中減去，并記錄于另一個銷售庫中，以便日后產(chǎn)看和統(tǒng)計銷售信息。是銷售就難免會有顧客退貨情況發(fā)生，因此還需建立一個相應(yīng)的退貨治理，把退回的貨加入現(xiàn)存商品庫，在從銷售庫中減去，進行退貨登記

3、。還要能夠隨時查看各種信息表格，如職員信息、進貨信息、銷售信息、退貨信息。除了以上一些差不多的需求外，實際公司用來進行決策和治理分析的數(shù)據(jù)才是用得最多的數(shù)據(jù)，因此還需要有一些相應(yīng)的關(guān)于以上數(shù)據(jù)統(tǒng)計信息，如希望查看各個信息段（假如近日，本月，本年度）的進貨和銷售情況，以便以后的運作進行一個準確的預(yù)測和正確的決斷。為了調(diào)動職員的積極性，職員的薪水應(yīng)該和他的銷售情況掛上鉤，因此還要能夠準確查看各職員的銷售情況，以便對他們的業(yè)績進行考核和評比。那個系統(tǒng)是針對一般的銷售公司都有的以上需求而設(shè)計的，能夠有效的治理數(shù)據(jù)，要緊功能有：交易治理：進貨登記治理、銷售登記治理、退貨登記治理；進貨統(tǒng)計治理：近日進貨統(tǒng)

4、計，本月進貨統(tǒng)計、本季度進貨統(tǒng)計、本年度進貨統(tǒng)計；銷售統(tǒng)計治理：今日銷售統(tǒng)計、本月銷售統(tǒng)計、本季度銷售統(tǒng)計、本年度銷售統(tǒng)計；職員的銷售業(yè)績的考核；三 、設(shè)計內(nèi)容系統(tǒng)需求在系統(tǒng)開發(fā)上，我們選取的工具是Microsoft Visual Basic，數(shù)據(jù)庫采納Microsoft SQL Server 2005 。本系統(tǒng)總體的功能是實現(xiàn)手機銷售公司治理的系統(tǒng)化、規(guī)范化和自動化。要緊功能有：系統(tǒng)登陸：用戶登陸、添加用戶、修改密碼、退出系統(tǒng)；交易治理：進貨登記、銷售登記、退貨登記進貨登記包括進貨廠商登記，假如是新的進貨廠商，能夠在此登記入庫。進貨和銷售的要緊交易差不多上在此進行，每次交易（包括進貨，銷售和

5、退貨）都需要對商品名、生產(chǎn)廠商、商品型號、單價、數(shù)量、總金額、交易日期、經(jīng)手業(yè)務(wù)員編號等各項進行記錄。進貨統(tǒng)計：今日進貨統(tǒng)計、本月進貨統(tǒng)計、本季度進貨統(tǒng)計、本年度進貨統(tǒng)計。其中每次進貨統(tǒng)計差不多上統(tǒng)計差不多上按照進貨廠商和進貨金額順序排列的。使用一個表格顯示所選時刻段的全部進貨數(shù)據(jù)，包括進貨編號、商品名、生產(chǎn)廠商、產(chǎn)品型號、單價、數(shù)量、總金額、進貨日期、業(yè)務(wù)員編號等；再使用另一個表格顯示分不從各個廠商進貨的金額，還有一個文本框用于顯示現(xiàn)在間段的總進貨金額。銷售統(tǒng)計：今日銷售統(tǒng)計、本月銷售統(tǒng)計、本季度銷售統(tǒng)計、本年度銷售統(tǒng)計等。其次每次銷售統(tǒng)計差不多上按產(chǎn)品廠商和銷售金額順序排列的，用戶能夠一目

6、了然的看出各種型號的產(chǎn)品的銷售額。使用一個表格顯示所選時刻段的全部銷售數(shù)據(jù)，包括銷售編號，商品名、生產(chǎn)廠商、產(chǎn)品型號、單價、數(shù)量、總金額、銷售日期、業(yè)務(wù)員編號等；再使用一個表分不顯示各個廠商產(chǎn)品的銷售金額，還有一個文本框用于顯示現(xiàn)在間段的總銷售金額。業(yè)績查看：實現(xiàn)個職員銷售情況的統(tǒng)計，能夠一次性顯示所有職員的銷售情況，也能夠依照職員的編號查看各個職員的銷售情況。查看數(shù)據(jù)表：實現(xiàn)各種數(shù)據(jù)表的掃瞄，包括進貨表，銷售表，退貨表，職員表，進貨廠商表。掃瞄時此數(shù)據(jù)表的所有信息全部顯示。假如是職員信息或進貨商信息有變化，還能夠?qū)β殕T表和進貨商表進行修改，其他的表格則不能進行修改，防止有人制造假數(shù)據(jù)。系統(tǒng)功

7、能設(shè)計模塊對上述功能經(jīng)行集中，分塊，按照結(jié)構(gòu)化程序的要求，進行分析，得到一下圖：職員表中包括商品編號，職員姓名，職員電話，職員地址等字段，具體職員表（如表1）：employee（職員表）字段名數(shù)據(jù)類型講明職員編號varchar表示，自動標號，主鍵職員姓名varchar字段大小為8職員電話varchar字段大小為12職員地址varchar字段大小為50表1現(xiàn)存物資表中包括商品編號，生產(chǎn)廠商，商品名，型號，價格，數(shù)量，總金額，進貨年，進貨月，進貨日，業(yè)務(wù)員編號，商品配件等字段，具體現(xiàn)存物資表（如表2）：Good（現(xiàn)存表）字段名數(shù)據(jù)類型講明商品編號varchar表示，自動標號，主鍵產(chǎn)品廠商varch

8、ar字段大小為20，外鍵商品名varchar字段大小為20型號varchar字段大小為20單價 Money貨幣型數(shù)量Numeric數(shù)值型 總金額Money貨幣型進貨年Smallint短整型進貨月Smallint短整型進貨日Smallint短整型業(yè)務(wù)員編號Int整型表2已售商品表中包括有商品編號，生產(chǎn)廠商，商品名，型號，單價，數(shù)量，總金額，銷售年，銷售月，銷售日，業(yè)務(wù)員編號字段，顧客姓名，顧客聯(lián)系電話 ，商品配件具體表格（如表3）：Sell（已售商品表）字段名數(shù)據(jù)類型講明商品編號varchar表示，自動標號，主鍵產(chǎn)品廠商varchar字段大小為20，外鍵商品名varchar字段大小為20型號va

9、rchar字段大小為20單價 Money貨幣型數(shù)量Numeric數(shù)值型總金額Money貨幣型銷售年Smallint短整型銷售月Smallint短整型銷售月Smallint短整型業(yè)務(wù)員編號Int整型表3退貨表中包括有商品編號，生產(chǎn)廠商，商品名，型號，單價，數(shù)量，總金額，退貨年，退貨月，退貨日，業(yè)務(wù)員編號，顧客姓名，顧客聯(lián)系電話 ，商品配件等字段，具體表格（如表4）：Retreat（退貨表）字段名數(shù)據(jù)類型講明商品編號varchar表示，自動標號，主鍵產(chǎn)品廠商varchar字段大小為20，外鍵商品名varchar字段大小為20型號varchar字段大小為20單價 Money貨幣型數(shù)量Numeric數(shù)

10、值型總金額Money貨幣型退貨年Smallint短整型退貨月Smallint短整型退貨日Smallint短整型業(yè)務(wù)員編號Int整型表4進貨表中包括有廠商編號，廠商名稱，法人代表，電話，廠商地址，商品名，商品配件，型號，單價，數(shù)量，總金額等字段，具體表格（如表5）：Manufacturer（廠商）字段名數(shù)據(jù)類型講明廠商編號varchar標識，自動編號，主鍵廠商名稱Nvarchar唯一約束，字段大小為20法人代表Nvarchar字段大小為10廠商地址Nvarchar字段大小為100商品名Nvarchar字段大小為20型號Nvarchar字段大小為20單價 Money貨幣型數(shù)量Numeric數(shù)值型總

11、金額Money貨幣型進貨年Smallint短整型進貨月Smallint短整型進貨日Smallint短整型表5用戶表中包括編號，用戶名，密碼等字段，具體表格（如表6）：User（用戶表）字段名數(shù)據(jù)類型講明用戶編號varchar標識用戶名Nvarchar字段大小為10密碼Nvarchar字段大小為10表6數(shù)據(jù)庫設(shè)計的要緊任務(wù)是在DBMS(database management system)的支持下，按照顧用的要求，數(shù)據(jù)結(jié)構(gòu)的好壞將直接阻礙到系統(tǒng)的效率以及實現(xiàn)的效果。好的數(shù)據(jù)庫結(jié)構(gòu)會減少數(shù)據(jù)庫的存儲量、冗余度，數(shù)據(jù)的完整性和一致性比較高，系統(tǒng)具有較快的響應(yīng)速度，簡化基于數(shù)據(jù)庫的應(yīng)用程序的實現(xiàn)方法等

12、。實體具體的描述如下：sellsell生產(chǎn)廠商商品名型號商品編號數(shù)量總金額銷售日期單價業(yè)務(wù)員編號生產(chǎn)廠商goods總金額業(yè)務(wù)員編號數(shù)量進貨日期單價商品編號型號商品名Manufacturer商表廠商編號廠商名稱法人代表電話廠商地址employeeyee職員姓名職員編號職員地址職員電話賣退貨退貨進貨NMMNRetreat業(yè)務(wù)員編號退貨時刻總金額廠商商品名單價型號 退貨編號數(shù)量MNMNE-R圖對應(yīng)的關(guān)系圖如下：測試與評價 整個系統(tǒng)測試的時候出現(xiàn)了專門多的問題其中最關(guān)鍵的是連接數(shù)據(jù)的問題，前期數(shù)據(jù)差不多預(yù)備妥當(dāng)，在連接過程中卻出現(xiàn)找不到數(shù)據(jù)源等類似的錯誤，通過反復(fù)測試，原來是不記得配置數(shù)據(jù)源。連接數(shù)據(jù)

13、庫窗口：連接數(shù)據(jù)庫窗口使用windows身份登陸在做連接數(shù)據(jù)窗口的時候里面的代碼做出了專門大的努力，提供了兩種連接數(shù)據(jù)庫的方式，在此采納的是用windows身份登陸能夠免去輸入用戶名與密碼的苦惱。銷售登記實現(xiàn)窗口：在此功能差不多實現(xiàn)了一個手機銷售登記的模塊，要緊對庫存手機實現(xiàn)一個銷售登記的作用，實現(xiàn)對已售物資表的一個修改。此功能的實現(xiàn)，能夠?qū)蛻舻氖酆蠓?wù)起到一個保障作用。查看業(yè)績實現(xiàn)窗口：此功能實現(xiàn)的是職員的銷售額統(tǒng)計，職員過多的話能夠采納查詢單個職員號進行查看。此項功能要緊實現(xiàn)對職員銷售額的統(tǒng)計，也是整個公司的業(yè)績財務(wù)報表，通過此表能夠更完善的發(fā)放職員的工資待遇。結(jié)論通過對手機銷售信息治理

14、系統(tǒng)的設(shè)計與開發(fā)，從全然上解決整個商品銷售流程中數(shù)據(jù)處理效率低，處理能力差等操作過程中表現(xiàn)出來的不足之處。整個手機銷售信息治理系統(tǒng)方便了對商品資料、銷售業(yè)績等進行高效的治理。通過對手機銷售信息治理系統(tǒng)的分析，設(shè)計，到最后的實現(xiàn)，差不多上實現(xiàn)了系統(tǒng)預(yù)定的功能及需求。在系統(tǒng)分析時期，預(yù)定系統(tǒng)的要緊功能有登錄系統(tǒng)，進貨統(tǒng)計，銷售統(tǒng)計，交易治理，業(yè)績查看及查看數(shù)據(jù)表等六大要緊模塊。其中最難解決的是交易治理模塊，包括進貨登記，銷售登記及退貨登記治理。在實現(xiàn)這些功能中，遇到了許多的關(guān)系模塊之間的聯(lián)系問題，通過大量的翻閱書籍最終得以實現(xiàn)整個手機治理信息系統(tǒng)。這次課程設(shè)計做的是手機銷售信息治理系統(tǒng)，這是第一次

15、接觸到如此系統(tǒng)的設(shè)計，也是第一次接觸到這么難的設(shè)計。由于第一次接觸，在開發(fā)過程中可謂是困難重重，不知如何入手，不得不重回書本，通過翻閱大量的資料，和同學(xué)們一起討論，慢慢的有了一點點頭緒，認確實分析題目，分析材料，在原由的基礎(chǔ)上進行了改正，我最后依舊運行成功了，盡管依舊通過了一翻努力，因此汗水依舊留的專門值，這次課程設(shè)計，不僅讓我對軟件工程這門課程有了更深入的研究、對專門多重要的概念有了鞏固和掌握，還給了我今后做事的啟發(fā)。做事要塌實，不能想著一步登天，要有打算，有目的的進行做事。盲目確實不應(yīng)該再在我們新一代的大學(xué)生身上出現(xiàn)了，我們應(yīng)該認真找到自己的缺點同時及時改正。 致謝在這次的開發(fā)當(dāng)中，可謂是

16、困難重重，由于在此之前都從未接觸過此類系統(tǒng)開發(fā)，因此專門多的細節(jié)都未曾注意，導(dǎo)致后期出現(xiàn)了許多的不可預(yù)見性的錯誤。最后在同學(xué)們和老師的關(guān)心下，將問題一個一個解決，特不是在彭老師的關(guān)心下，將那些細節(jié)問題一一解決。在此我要特不感謝關(guān)心過我的同學(xué)以及彭老師的關(guān)心，感謝。附錄 源代碼清單：連接數(shù)據(jù)庫窗口代碼：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdConnect_Click() If OptionWindows.Value = True Then windows身份驗證方式 connStr = Provider=SQLO

17、LEDB.1;Integrated Security=SSPI; _ + Persist Security Info=False;Initial Catalog= + Trim(cmbDatabase.Text) _ + ;Data Source= + Trim(cmbServer.Text) Else SQL Server身份驗證方式 connStr = Provider=SQLOLEDB.1;Persist Security Info=False;User ID= _ + Trim(txtUser.Text) + ;Password= + Trim(txtPassword.Text) _

18、+ ;Initial Catalog= + Trim(cmbDatabase.Text) + ;Data Source= _ + Trim(cmbServer.Text) End If On Error GoTo errConnect If conn.State = adStateOpen Then conn.Close End If conn.Open connStr MsgBox 連接數(shù)據(jù)庫成功！, vbOKOnly + vbExclamation, 提示 顯示登錄窗體 frmLogin.Show frmLogin.SetFocus Unload Me Exit SuberrConnect

19、: MsgBox Err.Description, vbOKOnly + vbExclamation, 提示End SuPrivate Sub Form_Load() 讓窗體居中 Call MakeCenter(Me)End SubPrivate Sub OptionSqlServer_Click() If OptionSqlServer.Value = True Then lblUser.Enabled = True lblPassword.Enabled = True txtUser.Enabled = True txtPassword.Enabled = True End IfEnd S

20、ubPrivate Sub OptionWindows_Click() If OptionWindows.Value = True Then lblUser.Enabled = False lblPassword.Enabled = False txtUser.Enabled = False txtPassword.Enabled = False End IfEnd Sub銷售登記代碼：Private Sub cmdReset_Click() txtName.Text = txtFc.Text = txtType.Text = txtPrice.Text = txtQuantity.Text

21、= txtyear.Text = txtmon.Text = txtday.Text = txtem.Text = txtmoney.Text = End SubPrivate Sub cmdSell_Click() txtGoodsNo.Enabled = False If txtFc.Text = Then MsgBox 請?zhí)顚憦S商名稱！, vbOKOnly + vbInformation, 注意 txtFc.SetFocus Exit Sub ElseIf txtName.Text = Then MsgBox 請?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意

22、txtName.SetFocus Exit Sub ElseIf txtType.Text = Then MsgBox 請?zhí)顚懮唐沸吞枺? vbOKOnly + vbInformation, 注意 txtType.SetFocus Exit Sub ElseIf txtPrice.Text = Then MsgBox 請?zhí)顚懮唐穬r格！, vbOKOnly + vbInformation, 注意 txtPrice.SetFocus Exit Sub ElseIf txtQuantity.Text = Then MsgBox 請?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation,

23、注意 txtQuantity.SetFocus Exit Sub ElseIf txtyear.Text = Then MsgBox 請?zhí)顚戜N售年份！, vbOKOnly + vbInformation, 注意 txtyear.SetFocus Exit Sub ElseIf txtmon.Text = Then MsgBox 請?zhí)顚戜N售月份！, vbOKOnly + vbInformation, 注意 txtmon.SetFocus Exit Sub ElseIf txtday.Text = Then MsgBox 請?zhí)顚戜N售日！, vbOKOnly + vbInformation, 注意

24、txtday.SetFocus Exit Sub ElseIf txtem.Text = Then MsgBox 請?zhí)顚憳I(yè)務(wù)員姓名！, vbOKOnly + vbInformation, 注意 txtem.SetFocus Exit Sub ElseIf txtmoney.Text = Then MsgBox 請?zhí)顚懣偨痤~！, vbOKOnly + vbInformation, 注意 txtmoney.SetFocus Exit Sub End If Dim sqlcheck As String sqlcheck = select * from goods where 商品名= & txtNa

25、me.Text & _ and 生產(chǎn)廠商= & txtFc.Text & and 型號= & txtType.Text & rs_check.CursorLocation = adUseClient 設(shè)定游標類型 rs_check.Open sqlcheck, conn, adOpenKeyset, adLockPessimistic If rs_check.EOF = True Then MsgBox 對不起，此商品型號已無貨！請選擇其他型！, vbOKOnly + vbInformation, 注意 rs_check.Close Exit Sub ElseIf rs_check.Field

26、s(5) Val(txtQuantity.Text) Then MsgBox 此型號商品不足！, vbOKOnly + vbInformation, 注意 rs_check.Close Exit Sub End If Dim sqlsell As String sqlsell = select * from sell rs_add.Open sqlsell, conn, adOpenKeyset, adLockPessimistic 添加入銷售表 rs_add.AddNew rs_add.Fields(1) = txtFc.Text rs_add.Fields(2) = txtName.Tex

27、t rs_add.Fields(3) = txtType.Text rs_add.Fields(4) = txtPrice.Text rs_add.Fields(5) = Val(txtQuantity.Text) rs_add.Fields(6) = Val(txtmoney.Text) rs_add.Fields(7) = txtyear.Text rs_add.Fields(8) = txtmon.Text rs_add.Fields(9) = txtday.Text rs_add.Fields(10) = txtem.Text rs_add.Update 從現(xiàn)存商品表中減去 Dim o

28、ldquantity As Long 用于存放goods表中原來的此商品數(shù)量 Dim oldmoney As Long 用于存放goods表中原來的此商品進貨總額 oldquantity = rs_check.Fields(5) oldmoney = rs_check.Fields(6) rs_check.Fields(5) = oldquantity - Val(txtQuantity.Text) rs_check.Fields(6) = oldmoney - (rs_check.Fields(4) * Val(txtQuantity.Text) rs_check.Update rs_che

29、ck.Close rs_add.Close MsgBox 銷售成功！, vbOKOnly + vbExclamation, 注意End SubPrivate Sub Form_Load() 讓窗體居中 Call MakeCenter(Me)End Sub業(yè)績查詢代碼：Dim rs_check As New ADODB.RecordsetPrivate Sub cmdallem_Click() allem = True frmGrade.Show Call ShowGradeEnd SubPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdquery_Click() allem = False frmGrade.Show Call ShowGradeEnd SubPrivate Sub Form_Load() 讓窗體居中 Call MakeCenter(Me) Adodc1.ConnectionString = connStr allem = True Call ShowGradeEnd SubPrivate Sub ShowGrade() If all