寵物用品管理系統(tǒng)-數(shù)據(jù)庫課程設(shè)計(共15頁)

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

2、對 程序的調(diào)試能力。 4，能利用信息技術(shù)，數(shù)據(jù)庫技術(shù)等對系統(tǒng)進行方便地管理，改善顧客服務(wù)等。2、 課程設(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)：Wi

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

4、（功能模塊圖） 寵物店用品管理系統(tǒng)管理員注冊客戶注冊 管理員登錄 用戶登錄貨品購買貨品查詢廠商管理銷售管理貨品管理進貨管理客戶管理（1）在客戶信息管理部分,要求如下。l 可以瀏覽客戶信息。l 可以對客戶信息進行維護,包括添加及刪除等操作。 （2）在貨品信息管理部分,要求如下。l 可以瀏覽貨品信息。l 可以對貨品信息進行維護,包括添加及刪除等操作。 （3）在銷售信息管理部分,要求如下。l 可以瀏覽銷售信息。l 可以對銷售信息進行維護,包括添加及刪除等操作。 （4）在供應(yīng)商信息管理部分,要求如下。l 可以瀏覽供應(yīng)商信息。l 可以對供應(yīng)商信息進行維護，包括添加及刪除等操作。 （5）在進貨信息管理部分

5、,要求如下。l 可以瀏覽進貨信息。l 可以對進貨信息進行維護，包括添加及刪除等操作。 （6）在管理者信息管理部分,要求如下。l 顯示當前數(shù)據(jù)庫中管理者情況。l 對管理者信息維護操作。2 數(shù)據(jù)庫設(shè)計 （1）系統(tǒng)E-R圖 類別姓名編號電話 姓名進價貨品 購買 編號客 戶售價提供商住址登錄密碼所居城市存儲量重量 供應(yīng)編號提供商廠名地址產(chǎn)品名電話（2）邏輯模式 客戶（客戶編號 姓名 電話 城市 住址） 貨品（貨品編號 貨品名 類別 進價 售價 供應(yīng)商 重量 庫存量） 銷售（銷售編號 客戶編號 貨品編號 貨品名 售價 銷售數(shù)量 總額 銷售日期） 廠商（廠家編號 廠名 生產(chǎn)產(chǎn)品 電話 住址） 進貨 （進貨

6、編號 廠商編號 貨品編號 貨品名 進價 售價 進價數(shù)量 總額 進價日期） 登錄 （用戶名 密碼） 其中，波浪線為主鍵，直線為外鍵。 根據(jù)這些需要，本系統(tǒng)需要客戶表、貨品表、銷售表、廠商表、進貨表、密碼表等。6、 系統(tǒng)的實施 1，創(chuàng)建數(shù)據(jù)庫與表打開SQL Server企業(yè)管理器，配置連接，創(chuàng)建名為“CW”的數(shù)據(jù)庫。創(chuàng)建數(shù)據(jù)庫后，為數(shù)據(jù)庫添加數(shù)據(jù)表，步驟如下。 (1)在服務(wù)器資源管理器中右擊數(shù)據(jù)庫“CW”的“表”文件夾。在彈出的快捷菜單中執(zhí)行“新建表”命令，出現(xiàn)表設(shè)計器。(2)添加表的字段和其他詳細資料。建立好的各表如下所示。 2，配置數(shù)據(jù)源 打開控制面板里面的“管理工具”，打開“數(shù)據(jù)源”，選擇“

7、系統(tǒng)DSN”選項，選擇“添加”，選擇SQL Server為驅(qū)動程序，自己命名數(shù)據(jù)源為123，配置服務(wù)器，點擊“下一步”，再“下一步”，然后更改當前默認數(shù)據(jù)庫為“CW”，點擊完成，測試數(shù)據(jù)完整性后完成數(shù)據(jù)源的配置。 3，主要窗體設(shè)計及相關(guān)代碼（1） 管理員登錄頁面 Private Sub customer_Click()Unload Meshow_product.ShowEnd SubPrivate Sub manager_Click()Unload Meuser_login.ShowEnd SubPrivate Sub exit_Click()Unload MeinitialFrame.Sho

8、wEnd SubPrivate Sub login_Click()Set cn1 = New ADODB.ConnectionSet rs1 = New ADODB.RecordsetSet cm1 = New ADODB.CommandDim strcnn As Stringstrcnn = "driver=sql server;server=(local);database=CW;"cn1.Open strcnncm1.ActiveConnection = cn1strsql = "select * from managers where mngId='

9、;" + idField.Text + "'and psd='" + psdField.Text + "'"Set rs1 = cn1.Execute(strsql)If rs1.EOF = False ThenmngMainFrame.ShowUnload MeElseMsgBox ("用戶名或密碼錯誤,請重新登錄!")End IfEnd SubPrivate Sub register_Click()Unload MemngRegister.ShowEnd Sub（2） 客戶注冊頁面 Private

10、 Sub Form_Load()Me.Adodc1.RecordSource = "select * from customers"Set nameField.DataSource = Adodc1MField.DataField = "cusName"Set Me.cityField.DataSource = Me.Adodc1Me.cityField.DataField = "city"Set Me.telField.DataSource = Me.Adodc1Me.telField.DataField = "

11、;tel"Set Me.AdsField.DataSource = Me.Adodc1Me.AdsField.DataField = "ads"End SubPrivate Sub new_Click()Me.Adodc1.Recordset.AddNewEnd SubPrivate Sub return_Click()Unload Meshow_product.ShowEnd SubPrivate Sub save_Click()Me.Adodc1.Recordset.UpdateMsgBox "注冊成功！", vbOKOnly, "

12、;提示"End Sub（3） 貨品管理頁面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub（4） 貨品展示頁面 Dim s As StringPrivate Sub order_Click()Unload Mebuy.ShowEnd SubPrivate Sub register_Click()Unload MecusRegister.ShowEnd SubPrivate Sub return_Cl

13、ick()Unload MeinitialFrame.ShowEnd Sub 凡是需要數(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)的效率，方便使用。包括增刪改查以及注冊等多個功能。不足之處是建表太多，數(shù)據(jù)有點冗余。以后會多加改正，創(chuàng)建出更合理的管理系統(tǒng)。2、學習感受。 （1）必須牢固地掌

14、握基礎(chǔ)知識，如數(shù)據(jù)庫，vb等，這樣才能寫出高水平的程序。 （2）當遇到問題時，多動腦筋，查資料或者上網(wǎng)，認真仔細地解決，相信問題會迎刃而解。（3）多和同學老師交流，及時獲取更好的信息。（4）養(yǎng)成良好的編程風格。如代碼的縮進編排，變量的命名規(guī)則等。 總之，通過這次課程設(shè)計，我受益匪淺，我相信在以后的學習生活中，不管遇到什么樣的問題我都可以耐心仔細地解決。八、參考文獻數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用 孟彩霞 主編 張榮 喬平安副主編Visual Basic程序設(shè)計語言 周元哲 編著Visual Basic管理信息系統(tǒng)開發(fā)案例 武新華編著九、附錄：源代碼（略）主頁面 Private Sub customer_C

15、lick()Unload Meshow_product.ShowEnd SubPrivate Sub manager_Click()Unload MemanagerFrame.ShowEnd Sub管理員登錄頁面Private Sub customer_Click()Unload Meshow_product.ShowEnd SubPrivate Sub manager_Click()Unload Meuser_login.ShowEnd SubPrivate Sub exit_Click()Unload MeinitialFrame.ShowEnd SubPrivate Sub login_

16、Click()Set cn1 = New ADODB.ConnectionSet rs1 = New ADODB.RecordsetSet cm1 = New ADODB.CommandDim strcnn As Stringstrcnn = "driver=sql server;server=(local);database=CW;"cn1.Open strcnncm1.ActiveConnection = cn1strsql = "select * from managers where mngId='" + idField.Text + &

17、quot;'and psd='" + psdField.Text + "'"Set rs1 = cn1.Execute(strsql)If rs1.EOF = False ThenmngMainFrame.ShowUnload MeElseMsgBox ("用戶名或密碼錯誤,請重新登錄!")End IfEnd SubPrivate Sub register_Click()Unload MemngRegister.ShowEnd Sub管理員注冊頁面Private Sub Form_Load()Me.Adodc1.Reco

18、rdSource = "select * from managers"Set nameField.DataSource = Adodc1MField.DataField = "mngName"Set Me.psdField.DataSource = Me.Adodc1Me.psdField.DataField = "psd"'Me.Adodc1.RecordSource = "select * from managers"End SubPrivate Sub register_Click()Me

19、.Adodc1.Recordset.AddNewEnd SubPrivate Sub return_Click()Unload MemanagerFrame.ShowEnd SubPrivate Sub save_Click()Me.Adodc1.Recordset.UpdateMe.idField.DataField = "mngId"MsgBox "注冊成功！", vbOKOnly, "提示"End Sub管理主界面Private Sub customer_Click()Unload MecusFrame.ShowEnd SubP

20、rivate Sub inport_Click()Unload MeorderFrame.ShowEnd SubPrivate Sub product_Click()Unload MeproductFrame.ShowEnd SubPrivate Sub provider_Click()Unload MeproFrame.ShowEnd SubPrivate Sub return_Click()Unload MemanagerFrame.ShowEnd SubPrivate Sub sale_Click()Unload MesaleFrame.ShowEnd Sub客戶信息管理頁面Privat

21、e Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub貨品信息管理頁面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub銷售信息管理頁面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEn

22、d SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub廠商信息管理頁面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd SubPrivate Sub Titel_Click()End Sub進貨信息管理頁面Private Sub DataGrid1_Click()'Set DataGrid1.DataSource = rsEnd SubPrivate Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub客戶注冊頁面Private Sub Form_Load()Me.Adodc1.RecordSource = "select * from customers"Set nameFi