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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：docx 頁(yè)數(shù)：16 大?。?.94MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

寵物用品管理系統(tǒng)--數(shù)據(jù)庫(kù)課程設(shè)計(jì)_第1頁(yè)

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

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

文檔簡(jiǎn)介

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

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

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

4、售匯總報(bào)表，讓寵物店?duì)I業(yè)情況一目了然，最終方便管理以及擴(kuò)大銷售。　　三、軟硬件環(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，開(kāi)發(fā)工具：前臺(tái)為Visual Basic 6.0，后臺(tái)數(shù)據(jù)庫(kù)為SQL Server

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

6、息，供應(yīng)商信息進(jìn)行相應(yīng)的添加、修改、刪除操作。　　（3）用戶可通過(guò)貨品的展示選擇自己需要的物品并購(gòu)買(mǎi)。　　2，實(shí)現(xiàn)目標(biāo)　?。?）實(shí)現(xiàn)管理員和用戶的登錄權(quán)限。　?。?）實(shí)現(xiàn)管理員對(duì)客戶信息，貨品信息，供應(yīng)商信息的修改、刪除等功能。<

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

8、p>　　可以對(duì)客戶信息進(jìn)行維護(hù),包括添加及刪除等操作。　?。?）在貨品信息管理部分,要求如下。　　可以瀏覽貨品信息。　　可以對(duì)貨品信息進(jìn)行維護(hù),包括添加及刪除等操作。　?。?）在銷售信息管理部分,要求如下。

9、　　可以瀏覽銷售信息。　　可以對(duì)銷售信息進(jìn)行維護(hù),包括添加及刪除等操作。　　（4）在供應(yīng)商信息管理部分,要求如下。　　可以瀏覽供應(yīng)商信息。　　可以對(duì)供應(yīng)商信息進(jìn)行維護(hù)，包括添加及刪除等操作。&

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

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

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

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

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

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

16、整性后完成數(shù)據(jù)源的配置。　　3，主要窗體設(shè)計(jì)及相關(guān)代碼　　管理員登錄頁(yè)面　　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 ("用戶名或密碼錯(cuò)誤,請(qǐng)重新登

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

24、　　mngRegister.Show　　End Sub　　客戶注冊(cè)頁(yè)面　　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 "注冊(cè)成功！", vbOKOnly, "提示"

30、　　End Sub　　貨品管理頁(yè)面　　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;　　貨品展示頁(yè)面　　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ù)庫(kù)信息的窗體，都必須將VB與SQL連接，使用Adodc控件和Datagrid控件，設(shè)置屬性，更改相應(yīng)的ODBC數(shù)據(jù)源和記錄源，將數(shù)據(jù)庫(kù)中的信息與VB連接起來(lái)。　　七、系統(tǒng)評(píng)價(jià)及心得體會(huì)　　1、系統(tǒng)評(píng)價(jià)　　本次的課程設(shè)計(jì)，我能完成老師給出的最基本要求，并在此基礎(chǔ)創(chuàng)新，選

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

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

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

39、案例》武新華編著　　九、附錄：源代碼（略）　　主頁(yè)面　　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　　管理員登錄頁(yè)面　　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 ("用戶名或密碼錯(cuò)誤,請(qǐng)重新登錄!")</p&g

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

49、ister.Show　　End Sub　　管理員注冊(cè)頁(yè)面　　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 "注冊(cè)成功！", 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、　　客戶信息管理頁(yè)面　　Private Sub delete_Click()　　Me.Adodc1.Recordset.delete　　End Sub　　Private Sub

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

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

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

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

65、;/p>　　End Sub　　廠商信息管理頁(yè)面　　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　　進(jìn)貨信息管理頁(yè)面　　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;　　客戶注冊(cè)頁(yè)面　　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 "注冊(cè)成功！", vbOKOnly, "提示"　　End Sub　　貨品展示頁(yè)面　　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

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

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

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載