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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：16 大小：1.94MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩15頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　綜合應用軟件課程設計報告　　題目：寵物用品店管理系統(tǒng) 　　課程設計目的　　1，能快速掌握數(shù)據(jù)庫系統(tǒng)開發(fā)的最基本方法、思路和步驟。&l

2、t;p>　　2，熟悉大型數(shù)據(jù)庫管理系統(tǒng)的基本結(jié)構(gòu)，基本框架設計與組成。　　3，掌握數(shù)據(jù)庫語言和其他語言綜合應用的能力，連接方法及連接應用和對程序的調(diào)試能力。　　4，能利用信息技術(shù)，數(shù)據(jù)庫技術(shù)等對系統(tǒng)進行方便地管理，改善顧客服務等。　　課程設計內(nèi)容

3、　　隨著人們?nèi)粘Ｉ畹呢S富多彩，人們對新事物的不斷追求，使得各種各樣的個性寵物不斷出現(xiàn)。由于這一發(fā)展驅(qū)趨勢，提供給人們各個種類寵物的寵物店則如雨后春筍般涌現(xiàn)。　　本系統(tǒng)專門為實體寵物店設計，主要包括了寵物用品銷售、寵物店客戶管理、寵物貨物管理、寵物用品進貨管理、寵物用品提供商管理等多種業(yè)務管理,解決寵物店進銷存繁瑣問題，建立豐富的寵物用品資料，顧客資料；還包含了豐富的營業(yè)銷

4、售匯總報表，讓寵物店營業(yè)情況一目了然，最終方便管理以及擴大銷售。　　三、軟硬件環(huán)境及系統(tǒng)所采用的體系結(jié)構(gòu)　　1，操作系統(tǒng)：Windows7　　2，體系結(jié)構(gòu)：系統(tǒng)的體系結(jié)構(gòu)為C/S結(jié)構(gòu)　　3，開發(fā)工具：前臺為Visual Basic 6.0，后臺數(shù)據(jù)庫為SQL Server

5、 2008　　四、需求分析　　1，功能描述　　（1）管理員和客戶都可先注冊然后再進行相關(guān)操作。　?。?）管理員可實行客戶管理、寵物用品管理、銷售管理、供應商管理、進貨管理等操作。對客戶信息，貨品信

6、息，供應商信息進行相應的添加、修改、刪除操作。　?。?）用戶可通過貨品的展示選擇自己需要的物品并購買。　　2，實現(xiàn)目標　?。?）實現(xiàn)管理員和用戶的登錄權(quán)限。　?。?）實現(xiàn)管理員對客戶信息，貨品信息，供應商信息的修改、刪除等功能。<

7、;/p>　　（3）實現(xiàn)貨品的界面展覽，以供客戶選擇。　　系統(tǒng)設計　　1．系統(tǒng)結(jié)構(gòu)圖（功能模塊圖）　?。?）在客戶信息管理部分,要求如下。　　可以瀏覽客戶信息。</

8、p>　　可以對客戶信息進行維護,包括添加及刪除等操作。　　（2）在貨品信息管理部分,要求如下。　　可以瀏覽貨品信息。　　可以對貨品信息進行維護,包括添加及刪除等操作。　　（3）在銷售信息管理部分,要求如下。

9、　　可以瀏覽銷售信息。　　可以對銷售信息進行維護,包括添加及刪除等操作。　?。?）在供應商信息管理部分,要求如下。　　可以瀏覽供應商信息。　　可以對供應商信息進行維護，包括添加及刪除等操作。&

10、lt;/p>　?。?）在進貨信息管理部分,要求如下。　　可以瀏覽進貨信息。　　可以對進貨信息進行維護，包括添加及刪除等操作。　　（6）在管理者信息管理部分,要求如下。　　顯示當前數(shù)據(jù)庫中管理者情況。<

11、/p>　　對管理者信息維護操作。　　數(shù)據(jù)庫設計　?。?）系統(tǒng)E-R圖 　?。?）邏輯模式　　客戶（客戶編號姓名電話城市住址）</

12、p>　　貨品（貨品編號貨品名類別進價售價供應商重量庫存量）　　銷售（銷售編號客戶編號貨品編號貨品名售價銷售數(shù)量總額銷售日期）　　廠商（廠家編號廠名生產(chǎn)產(chǎn)品電話住址）　　進貨（進貨編號廠商編號貨品編號貨品名進價售價進價數(shù)量總額進價日期

13、）　　登錄（用戶名密碼）　　其中，波浪線為主鍵，直線為外鍵。 　　根據(jù)這些需要，本系統(tǒng)需要客戶表、貨品表、銷售表、廠商表、進貨表、密碼表等。　　系統(tǒng)的實施　　1，創(chuàng)建數(shù)據(jù)

14、庫與表　　打開SQL Server企業(yè)管理器，配置連接，創(chuàng)建名為“CW”的數(shù)據(jù)庫。　　創(chuàng)建數(shù)據(jù)庫后，為數(shù)據(jù)庫添加數(shù)據(jù)表，步驟如下。　　(1)在服務器資源管理器中右擊數(shù)據(jù)庫“CW”的“表”文件夾。在彈出的快捷菜單中執(zhí)行“新建表”命令，出現(xiàn)表設計器。　　(

15、2)添加表的字段和其他詳細資料。建立好的各表如下所示。　　2，配置數(shù)據(jù)源　　打開控制面板里面的“管理工具”，打開“數(shù)據(jù)源”，選擇“系統(tǒng)DSN”選項，選擇“添加”，選擇SQL Server為驅(qū)動程序，自己命名數(shù)據(jù)源為123，配置服務器，點擊“下一步”，再“下一步”，然后更改當前默認數(shù)據(jù)庫為“CW”，點擊完成，測試數(shù)據(jù)完

16、整性后完成數(shù)據(jù)源的配置。　　3，主要窗體設計及相關(guān)代碼　　管理員登錄頁面　　Private Sub customer_Click()　　Unload Me

17、　　show_product.Show　　End Sub　　Private Sub manager_Click()　　Unload Me　　user_login.Show&

18、lt;p>　　End Sub　　Private Sub exit_Click()　　Unload Me　　initialFrame.Show　　End Sub</b&

19、gt;　　Private Sub login_Click()　　Set cn1 = New ADODB.Connection　　Set rs1 = New ADODB.Recordset　　Set cm1 = New ADODB.Command&l

20、t;p>　　Dim strcnn As String　　strcnn = "driver={sql server};server=(local);database=CW;"　　cn1.Open strcnn　　cm1.ActiveConnection = cn1&

21、lt;p>　　strsql = "select * from managers where mngId='" + idField.Text + "'and psd='" + psdField.Text + "'"　　Set rs1 = cn1.Execute(strsql)&

22、lt;p>　　If rs1.EOF = False Then　　mngMainFrame.Show　　Unload Me　　Else　　MsgBox ("用戶名或密碼錯誤,請重新登

23、錄!")　　End If　　End Sub　　Private Sub register_Click()　　Unload Me

24、　　mngRegister.Show　　End Sub　　客戶注冊頁面　　Private Sub Form_Load()　　Me.Adodc1.RecordSource = &q

25、uot;select * from customers"　　Set nameField.DataSource = Adodc1　　Me.nameField.DataField = "cusName"　　Set Me.cityField.DataSource = Me.Adodc1&l

26、t;/p>　　Me.cityField.DataField = "city"　　Set Me.telField.DataSource = Me.Adodc1　　Me.telField.DataField = "tel"　　Set Me.AdsFi

27、eld.DataSource = Me.Adodc1　　Me.AdsField.DataField = "ads"　　End Sub　　Private Sub new_Click()　　Me.Adodc1.Reco

28、rdset.AddNew　　End Sub　　Private Sub return_Click()　　Unload Me　　show_product.Show<p&g

29、t;　　End Sub　　Private Sub save_Click()　　Me.Adodc1.Recordset.Update　　MsgBox "注冊成功！", vbOKOnly, "提示"

30、　　End Sub　　貨品管理頁面　　Private Sub delete_Click()　　Me.Adodc1.Recordset.delete　　End Sub</b&

31、gt;　　Private Sub return_Click()　　Unload Me　　mngMainFrame.Show　　End Sub<b&g

32、t;　　貨品展示頁面　　Dim s As String　　Private Sub order_Click()　　Unload Me　　buy.Show&

33、lt;p>　　End Sub　　Private Sub register_Click()　　Unload Me　　cusRegister.Show　　End Sub<

34、/b>　　Private Sub return_Click()　　Unload Me　　initialFrame.Show　　End Sub　　凡是

35、需要數(shù)據(jù)庫信息的窗體，都必須將VB與SQL連接，使用Adodc控件和Datagrid控件，設置屬性，更改相應的ODBC數(shù)據(jù)源和記錄源，將數(shù)據(jù)庫中的信息與VB連接起來。　　七、系統(tǒng)評價及心得體會　　1、系統(tǒng)評價　　本次的課程設計，我能完成老師給出的最基本要求，并在此基礎(chǔ)創(chuàng)新，選

36、擇了一個相對新穎的題目進行設計，合理之處是把系統(tǒng)分為管理員和客戶兩個方向來管理，大大提高了系統(tǒng)的效率，方便使用。包括增刪改查以及注冊等多個功能。不足之處是建表太多，數(shù)據(jù)有點冗余。以后會多加改正，創(chuàng)建出更合理的管理系統(tǒng)。　　2、學習感受。　?。?）必須牢固地掌握基礎(chǔ)知識，如數(shù)據(jù)庫，vb等，這樣才能寫出高水平的程序。 &

37、lt;/p>　?。?）當遇到問題時，多動腦筋，查資料或者上網(wǎng)，認真仔細地解決，相信問題會迎刃而解。　　　　（3）多和同學老師交流，及時獲取更好的信息。　　（4）養(yǎng)成良好的編程風格。如代碼的縮進編排，變量的命名規(guī)則等。　　總之，通過這次課程設計，我受益匪淺，我相信在以后的學習生活中，不管

38、遇到什么樣的問題我都可以耐心仔細地解決。　　八、參考文獻　　《數(shù)據(jù)庫系統(tǒng)原理與應用》孟彩霞主編張榮喬平安副主編　　《Visual Basic程序設計語言》周元哲編著　　《Visual Basic管理信息系統(tǒng)開發(fā)

39、案例》武新華編著　　九、附錄：源代碼（略）　　主頁面　　Private Sub customer_Click()　　Unload Me　　show_

40、product.Show　　End Sub　　Private Sub manager_Click()　　Unload Me　　managerFrame.Show<p&

41、gt;　　End Sub　　管理員登錄頁面　　Private Sub customer_Click()　　Unload Me　　show_product.Sh

42、ow　　End Sub　　Private Sub manager_Click()　　Unload Me　　user_login.Show

43、　　End Sub　　Private Sub exit_Click()　　Unload Me　　initialFrame.Show　　End Sub&l

44、t;p>　　Private Sub login_Click()　　Set cn1 = New ADODB.Connection　　Set rs1 = New ADODB.Recordset　　Set cm1 = New ADODB.Command　　Dim strc

45、nn As String　　strcnn = "driver={sql server};server=(local);database=CW;"　　cn1.Open strcnn　　cm1.ActiveConnection = cn1　　strsql

46、= "select * from managers where mngId='" + idField.Text + "'and psd='" + psdField.Text + "'"　　Set rs1 = cn1.Execute(strsql)　　If rs1.

47、EOF = False Then　　mngMainFrame.Show　　Unload Me　　Else　　MsgBox ("用戶名或密碼錯誤,請重新登錄!")</p&g

48、t;　　End If　　End Sub　　Private Sub register_Click()　　Unload Me　　mngReg

49、ister.Show　　End Sub　　管理員注冊頁面　　Private Sub Form_Load()　　Me.Adodc1.RecordSource = "select * fro

50、m managers"　　Set nameField.DataSource = Adodc1　　Me.nameField.DataField = "mngName"　　Set Me.psdField.DataSource = Me.Adodc1

51、;　　Me.psdField.DataField = "psd"　　'Me.Adodc1.RecordSource = "select * from managers"　　End Sub　　Private Sub registe

52、r_Click()　　Me.Adodc1.Recordset.AddNew　　End Sub　　Private Sub return_Click()　　Unload Me&

53、lt;p>　　managerFrame.Show　　End Sub　　Private Sub save_Click()　　Me.Adodc1.Recordset.Update　　Me.idField.DataField = &q

54、uot;mngId"　　MsgBox "注冊成功！", vbOKOnly, "提示"　　End Sub　　管理主界面　　Private Sub c

55、ustomer_Click()　　Unload Me　　cusFrame.Show　　End Sub　　Private Sub inport_Click()

56、;　　Unload Me　　orderFrame.Show　　End Sub　　Private Sub product_Click()　　Unload Me&

57、lt;/p>　　productFrame.Show　　End Sub　　Private Sub provider_Click()　　Unload Me　　proFram

58、e.Show　　End Sub　　Private Sub return_Click()　　Unload Me　　managerFrame.Show<

59、b>　　End Sub　　Private Sub sale_Click()　　Unload Me　　saleFrame.Show　　End Sub

60、　　客戶信息管理頁面　　Private Sub delete_Click()　　Me.Adodc1.Recordset.delete　　End Sub　　Private Sub

61、return_Click()　　Unload Me　　mngMainFrame.Show　　End Sub　　貨品信息管理頁面<

62、p>　　Private Sub delete_Click()　　Me.Adodc1.Recordset.delete　　End Sub　　Private Sub return_Click()　　Unload M

63、e　　mngMainFrame.Show　　End Sub　　銷售信息管理頁面　　Private Sub delete_Click()

64、　　Me.Adodc1.Recordset.delete　　End Sub　　Private Sub return_Click()　　Unload Me　　mngMainFrame.Show<

65、;/p>　　End Sub　　廠商信息管理頁面　　Private Sub delete_Click()　　Me.Adodc1.Recordset.delete<b

66、>　　End Sub　　Private Sub return_Click()　　Unload Me　　mngMainFrame.Show　　End Sub</p&g

67、t;　　Private Sub Titel_Click()　　End Sub　　進貨信息管理頁面　　Private Sub DataGrid1_Click()　　'S

68、et DataGrid1.DataSource = rs　　End Sub　　Private Sub delete_Click()　　Me.Adodc1.Recordset.delete　　End Sub</b

69、>　　Private Sub return_Click()　　Unload Me　　mngMainFrame.Show　　End Sub<b&

70、gt;　　客戶注冊頁面　　Private Sub Form_Load()　　Me.Adodc1.RecordSource = "select * from customers"　　Set nameField.DataSource = Adodc1&l

71、t;p>　　Me.nameField.DataField = "cusName"　　Set Me.cityField.DataSource = Me.Adodc1　　Me.cityField.DataField = "city"　　Set Me.telField.Da

72、taSource = Me.Adodc1　　Me.telField.DataField = "tel"　　Set Me.AdsField.DataSource = Me.Adodc1　　Me.AdsField.DataField = "ads"<

73、;p>　　End Sub　　Private Sub new_Click()　　Me.Adodc1.Recordset.AddNew　　End Sub　　Private Sub return_

74、Click()　　Unload Me　　show_product.Show　　End Sub　　Private Sub save_Click()　　Me.

75、Adodc1.Recordset.Update　　MsgBox "注冊成功！", vbOKOnly, "提示"　　End Sub　　貨品展示頁面　　Dim

76、s As String　　Private Sub Form_Load()　　End Sub　　Private Sub order_Click()　　Unload Me<

77、;p>　　buy.Show　　End Sub　　Private Sub register_Click()　　Unload Me　　cusRegister

78、.Show　　End Sub　　Private Sub return_Click()　　Unload Me　　initialFrame.Show<b

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載