寵物用品管理系統(tǒng)

1、西安垂E1!大孥綜合應(yīng)用軟件課程設(shè)計報告題目：寵物用品店管理系統(tǒng)學院名稱：計算機學院專業(yè)名稱：計算機科學與技術(shù)班級：計科1102學號：04111067(24)學生姓名：馮佳新指導教師:孟彩霞2013年09月09日時間：至2013年09月23日得分項白分比得分題目的新穎程度及難度5語言的難度及熟悉程度5設(shè)計結(jié)果（機器上驗收）60設(shè)計文檔20設(shè)計過程態(tài)度10總評（五級制）、課程設(shè)計目的1, 能快速掌握數(shù)據(jù)庫系統(tǒng)開發(fā)的最基本方法、思路和步驟。2, 熟悉大型數(shù)據(jù)庫管理系統(tǒng)的基本結(jié)構(gòu)，基本框架設(shè)計與組成。3, 掌握數(shù)據(jù)庫語言和其他語言綜合應(yīng)用的能力，連接方法及連接應(yīng)用和對程序的調(diào)試能力。4, 能利用信息

2、技術(shù)，數(shù)據(jù)庫技術(shù)等對系統(tǒng)進行方便地管理，改善顧客服務(wù)等。二、課程設(shè)計內(nèi)容隨著人們?nèi)粘Ｉ畹呢S富多彩，人們對新事物的不斷追求，使得各種各樣的個性寵物不斷出現(xiàn)。由于這一發(fā)展驅(qū)趨勢，提供給人們各個種類寵物的寵物店則如雨后春筍般涌現(xiàn)。本系統(tǒng)專門為實體寵物店設(shè)計，主要包括了寵物用品銷售、寵物店客戶管理、寵物貨物管理、寵物用品進貨管理、寵物用品提供商管理等多種業(yè)務(wù)管理，解決寵物店進銷存繁瑣問題，建立豐富的寵物用品資料，顧客資料；還包含了豐富的營業(yè)銷售匯總報表，讓寵物店營業(yè)情況一目了然，最終方便管理以及擴大銷售。三、軟硬件環(huán)境及系統(tǒng)所采用的體系結(jié)構(gòu)1, 操作系統(tǒng)：Windows?2, 體系結(jié)構(gòu)：系統(tǒng)的體系結(jié)

3、構(gòu)為C/S結(jié)構(gòu)開發(fā)工具：前臺為VisualBasic6.0,后臺數(shù)據(jù)庫為SQLServer2008四、需求分析(1) 1,功能描述管理員和客戶都可先注冊然后再進行相關(guān)操作。(2) 管理員可實行客戶管理、寵物用品管理、銷售管理、供應(yīng)商管理、進貨管理等操作。對客戶信息，貨品信息，供應(yīng)商信息進行相應(yīng)的添加、修改、刪除操作。(3) 用戶可通過貨品的展示選擇自己需要的物品并購買。(1) 2,實現(xiàn)目標實現(xiàn)管理員和用戶的登錄權(quán)限。(2) 實現(xiàn)管理員對客戶信息，貨品信息，供應(yīng)商信息的修改、刪除等功能實現(xiàn)貨品的界面展覽，以供客戶選擇。五、系統(tǒng)設(shè)計系統(tǒng)結(jié)構(gòu)圖(功能模塊圖)(1) 在客戶信息管理部分，要求如下?？梢?/p>

4、瀏覽客戶信息?？梢詫蛻粜畔⑦M行維護，包括添加及刪除等操作。(2) 在貨品信息管理部分，要求如下?？梢詾g覽貨品信息?？梢詫ω浧沸畔⑦M行維護，包括添加及刪除等操作。(3) 在銷售信息管理部分，要求如下?？梢詾g覽銷售信息?？梢詫︿N售信息進行維護，包括添加及刪除等操作。(4) 在供應(yīng)商信息管理部分，要求如下?？梢詾g覽供應(yīng)商信息?？梢詫?yīng)商信息進行維護，包括添加及刪除等操作。(5) 在進貨信息管理部分，要求如下?？梢詾g覽進貨信息。可以對進貨信息進行維護，包括添加及刪除等操作。(6) 在管理者信息管理部分，要求如下。顯示當前數(shù)據(jù)庫中管理者情況。對管理者信息維護操作。1. 數(shù)據(jù)庫設(shè)計系統(tǒng)E-R圖（2）邏

5、輯模式客戶（客戶編.號一姓名電話城市住址）貨品（貨品編史貨品名類別進價售價供應(yīng)商重量庫存量）銷售（銷售編號客戶編號貨品編號貨品名售價銷售數(shù)量總額銷售日血）廠商（匚家編號-廠名生產(chǎn)產(chǎn)品電話住址）進貨（進貨編號廠商編號貨品編號貨品名進價售價進價數(shù)量總額進價日期）登錄（用戶名密碼）其中，波浪線為主鍵，直線為外鍵。根據(jù)這些需要，本系統(tǒng)需要客戶表、貨品表、銷售表、廠商表、進貨表、密碼表等。六、系統(tǒng)的實施,創(chuàng)建數(shù)據(jù)庫與表打開SQLServer企業(yè)管理器，配置連接，創(chuàng)建名為“CW”的數(shù)據(jù)庫。創(chuàng)建數(shù)據(jù)庫后，為數(shù)據(jù)庫添加數(shù)據(jù)表，步驟如下。（1）在服務(wù)器資源管理器中右擊數(shù)據(jù)庫“CW”的“表”文件火。在彈出的快捷菜

6、單中執(zhí)行“新建表”命令，出現(xiàn)表設(shè)計器。（2）添加表的字段和其他詳細資料。建立好的各表如下所小。*t-litoscTLSQL5r-veiiaSQl謁二網(wǎng)舊JUCW壑月戶gj角色Ug血I0rHQitd9miiib名存E君二jtUEtdHHITdbo國甘tpuprt初dbgdbo目脾汕dbo一1fmdholeirwidtndbo日“edbo"1wcclLiffimcdbojysccminentadbo二j司肝予nt日dhoHlWEfiltaraLBfdbo囹splii廚dba二明加舛1dboH邛偽rtigfdbo3W5JllrfxtffltiIog$S踏個項目創(chuàng)建日期201379SB152

7、013/9178J3452D11/9Z17<:3B1570!3Q78：5615013173331520:3/9178JB1330008*r»l212912NOW用鶯I»12Sirt10W/B«12912赫網(wǎng)加用毛L29122DW«1291270001»1Z,配置數(shù)據(jù)源打開控制面板里面的“管理工具”,打開“數(shù)據(jù)源”，選擇“系統(tǒng)DSN選項，選擇“添加”，選擇SQLServer為驅(qū)動程序，自己命名數(shù)據(jù)源為123,配置服務(wù)器，點擊“下一步”,再“下一步”,然后更改當前默認數(shù)據(jù)庫為“CW,點擊完成，測試數(shù)據(jù)完整性后完成數(shù)據(jù)源

8、的配置。MicroftODBCSQLServerD5N配留*9.M更改默認的數(shù)據(jù)庫為on:1偵L附加教據(jù)庫又件名"|>1II為預定義的SQLig句創(chuàng)建臨時存儲過程，并刪除該存儲過程(C):I吵只有當斷開時。1當斷開時和憧結(jié)時伺樣適用M*H使用謎I引用的標識苻00>k使用osi的空佰，埴充及警告伉)町若主SQLServ&r不可用，請使用故障轉(zhuǎn)移SQL'Sarvar上一步但)下一步國)>l_瞬|幫助_|SQLServerODBC噂顧凌IMicrosaftSQLServerODBC驅(qū)動程后版本06.Ul.YbUl正在運行部測m，.fih1 jnihfl：嵌

9、jm確定,主要窗體設(shè)計及相關(guān)代碼(1)管理員登錄頁面PrivateSubcustomer_Click()UnloadMeshow_product.ShowEndSubPrivateSubmanager_Click()UnloadMeuser_login.ShowEndSubPrivateSubexit_Click()UnloadMeinitialFrame.ShowEndSubPrivateSublogin_Click()Setcn1=NewADODB.ConnectionSetrs1=NewADODB.RecordsetSetcm1=NewADODB.CommandDimstrcnnAsSt

10、ringstrcnn="driver=sqlserver;server=(local);database=CW;”cn1.Openstrcnncm1.ActiveConnection=cn1strsql="select*frommanagerswheremngId='"+idField.Text+"'andpsd='"+psdField.Text+”'”Setrs1=cn1.Execute(strsql)Ifrs1.EOF=FalseThenmngMainFrame.ShowUnloadMeElseMsgBox(

11、"用戶名或密碼錯誤，請重新登錄!")EndIfEndSubPrivateSubregister_Click()UnloadMemngRegister.ShowEndSub(2)客戶注冊頁面Dodo-pet客戶注朋處書住部.=A：iPrivateSubForm_Load()Me.AdodcI.RecordSource="select*fromcustomersSetnameField.DataSource=Adodc1MField.DataField="cusName"SetMe.cityField.DataSource=Me.Ado

12、dc1Me.cityField.DataField="city"SetMe.telField.DataSource=Me.Adodc1Me.telField.DataField="tel"SetMe.AdsField.DataSource=Me.Adodc1Me.AdsField.DataField="ads"EndSubPrivateSubnew_Click()Me.Adodc1.Recordset.AddNewEndSubPrivateSubreturn_Click()UnloadMeshow_product.ShowEndSub

13、PrivateSubsave_Click()Me.Adodc1.Recordset.UpdateMsgBox"注冊成功！",vbOKOnly,"提示EndSub(3) 貨品管理頁面(4) PrivateSubdelete_Click()Me.AdodcI.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub貨品展示頁面DimsAsStringPrivateSuborder_Click()UnloadMebuy.ShowEndSubPrivateSubregiste

14、r_Click()UnloadMecusRegister.ShowEndSubPrivateSubreturn_Click()UnloadMeinitialFrame.ShowEndSub凡是需要數(shù)據(jù)庫信息的窗體，都必須將VB與SQL連接，使用Adodc控件和Datagrid控件，設(shè)置屆性，更改相應(yīng)的ODBC數(shù)據(jù)源和記錄源，將數(shù)據(jù)庫中的信息與VB連接起來。七、系統(tǒng)評價及心得體會1、系統(tǒng)評價本次的課程設(shè)計，我能完成老師給出的最基本要求，并在此基礎(chǔ)創(chuàng)新，選擇了一個相對新穎的題目進行設(shè)計，合理之處是把系統(tǒng)分為管理員和客戶兩個方向來管理，大大提高了系統(tǒng)的效率，方便使用。包括增刪改查以及注冊等多個功能。

15、不足之處是建表太多，數(shù)據(jù)有點冗余。以后會多加改正，創(chuàng)建出更合理的管理系統(tǒng)。2、學習感受。(1) 必須牢固地掌握基礎(chǔ)知識，如數(shù)據(jù)庫，vb等，這樣才能寫出高水平的程序。(2) 當遇到問題時，多動腦筋，查資料或者上網(wǎng)，認真仔細地解決，相信問題會迎刃而解。(3) 多和同學老師交流，及時獲取更好的信息。(4) 養(yǎng)成良好的編程風格。如代碼的縮進編排，變量的命名規(guī)則等。總之，通過這次課程設(shè)計，我受益匪淺，我相信在以后的學習生活中,不管遇到什么樣的問題我都可以耐心仔細地解決。八、參考文獻數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用孟彩霞主編張榮喬平安副主編«VisualBasic程序設(shè)計語言周元哲編著«Visua

16、lBasic管理信息系統(tǒng)開發(fā)案例武新華編著九、附錄：源代碼(略)主頁面PrivateSubcustomer_Click()UnloadMeshow_product.ShowEndSubPrivateSubmanager_Click()UnloadMemanagerFrame.ShowEndSub管理員登錄頁面PrivateSubcustomer_Click()UnloadMeshow_product.ShowEndSubPrivateSubmanager_Click()UnloadMeuser_login.ShowEndSubPrivateSubexit_Click()UnloadMeinit

17、ialFrame.ShowEndSubPrivateSublogin_Click()Setcn1=NewADODB.ConnectionSetrs1=NewADODB.RecordsetSetcm1=NewADODB.CommandDimstrcnnAsStringstrcnn="driver=sqlserver;server=(local);database=CW;”cn1.Openstrcnncm1.ActiveConnection=cn1strsql="select*frommanagerswheremngId='"+idField.Text+&qu

18、ot;'andpsd='"+psdField.Text+"'"Setrs1=cn1.Execute(strsql)Ifrs1.EOF=FalseThenmngMainFrame.ShowUnloadMeElseMsgBox("用戶名或密碼錯誤，請重新登錄!")EndIfEndSubPrivateSubregister_Click()UnloadMemngRegister.ShowEndSub管理員注冊頁面PrivateSubForm_Load()Me.AdodcI.RecordSource="select*fr

19、ommanagers"SetnameField.DataSource=Adodc1MField.DataField="mngName"SetMe.psdField.DataSource=Me.Adodc1Me.psdField.DataField="psd"'Me.Adodc1.RecordSource="select*frommanagersEndSubPrivateSubregister_Click()Me.Adodc1.Recordset.AddNewEndSubPrivateSubreturn_Click(

20、)UnloadMemanagerFrame.ShowEndSubPrivateSubsave_Click()Me.Adodc1.Recordset.UpdateMe.idField.DataField="mngId"MsgBox"注冊成功！",vbOKOnly,"提示"EndSub管理主界面PrivateSubcustomer_Click()UnloadMecusFrame.ShowEndSubPrivateSubinport_Click()UnloadMeorderFrame.ShowEndSubPrivateSubproduct_

21、Click()UnloadMeproductFrame.ShowEndSubPrivateSubreturn_Click()UnloadMemanagerFrame.ShowEndSubPrivateSubsale_Click()UnloadMesaleFrame.ShowEndSub客戶信息管理頁面PrivateSubdelete_Click()Me.Adodc1.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub貨品信息管理頁面PrivateSubdelete_Click()Me.Ado

22、dc1.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub銷售信息管理頁面PrivateSubdelete_Click()Me.Adodc1.Recordset.deleteEndSub廠商信息管理頁面PrivateSubdelete_Click()Me.AdodcI.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSubPrivateSubTitel_Click()EndSub進貨信息管理頁面PrivateSubDataGrid1_Click()'SetDataGrid1.DataSource=rsEndSubPrivateSubdelete_Click()Me.Adodc1.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub客戶注冊頁面PrivateSubForm_Load()M