vb課程設(shè)計(jì)--餐飲管理系統(tǒng)

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

已閱讀1頁(yè)，還剩45頁(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、　　VB課程設(shè)計(jì)任務(wù)書　　系別信息工程系專業(yè) 電子信息工程 　　課程設(shè)計(jì)題目餐飲管理系統(tǒng) 　　課程設(shè)計(jì)時(shí)間: 2015 年 6 月 22

2、日至 2015 年 8 月 5 日　　課程設(shè)計(jì)的內(nèi)容及要求：　?。ㄒ唬┲饕獌?nèi)容　　本系統(tǒng)主要應(yīng)用于餐飲業(yè)，實(shí)現(xiàn)對(duì)飯店信息和消費(fèi)信息的管理。主要內(nèi)容如下：　　飯店基本信息管理

3、;　　其中包括員工資料的管理、酒水資料管理、菜單資料管理、主食資料管理、席位和包間信息管理；主要實(shí)現(xiàn)對(duì)基本信息的錄入、更新；　　席位和包間預(yù)定管理：根據(jù)用戶的預(yù)定要求輸入預(yù)訂信息，當(dāng)超過(guò)預(yù)定時(shí)間1小時(shí)時(shí)，自動(dòng)刪除該預(yù)定記錄；當(dāng)客戶到達(dá)時(shí)也要更新預(yù)定狀態(tài)信息；　　客戶消費(fèi)管理：主要記錄顧客的消費(fèi)信息。<p

4、>　　查詢管理：能夠?qū)Ω鞣N基本信息進(jìn)行查詢，也能對(duì)包間和席位預(yù)訂和使用狀態(tài)信息進(jìn)行查詢。　　能夠根據(jù)客戶消費(fèi)記錄統(tǒng)計(jì)一天營(yíng)業(yè)額。　?。ǘ┗疽?lt;/b>　?。ㄈ┲饕獏⒖紩?lt;/b>　　（

5、四）評(píng)語(yǔ)　?。ㄎ澹┏煽?jī)　　指導(dǎo)教師 2015 年 6 月 22 日　　餐飲管理系統(tǒng)　　目錄</b&g

6、t;　　1 需求分析1　　1.1功能需求1　　1.2數(shù)據(jù)需求1　　1.3性能需求2<

7、;p>　　2系統(tǒng)設(shè)計(jì)3　　2.1系統(tǒng)總體處理流程3　　2.2功能模塊設(shè)計(jì)3　　2.3數(shù)據(jù)庫(kù)設(shè)計(jì)4　　3詳細(xì)設(shè)計(jì)6　　3.1 數(shù)據(jù)庫(kù)連接6

8、　　3.2功能模塊設(shè)計(jì)與實(shí)現(xiàn)6　　3.2.1基本信息查詢模塊設(shè)計(jì)與實(shí)現(xiàn)6　　3.3人機(jī)界面設(shè)計(jì)10　　課設(shè)總結(jié)12　　參考文獻(xiàn)13</p&

9、gt;　　附錄1-用戶手冊(cè)14　　附錄2-源程序18　　1 需求分析　　軟件需求分析也稱為需求分析工程，是軟件生命期中重要的一步，本軟件通過(guò)對(duì)飯店基本信息管理，席位和包間預(yù)訂管理，客戶消費(fèi)管理和查詢管理，實(shí)現(xiàn)了對(duì)飯店信息和消費(fèi)信息的管理。為餐飲管理水

10、平的提高提供了技術(shù)的支持。　　在需求分析階段，要對(duì)經(jīng)過(guò)可行性分析所確定的系統(tǒng)目標(biāo)和功能做近一步的詳細(xì)論述，確定系統(tǒng)“做什么”的問(wèn)題。　　1.1功能需求　　隨著餐飲業(yè)的不斷發(fā)展，餐飲管理系統(tǒng)的內(nèi)容對(duì)于決策者和管理者來(lái)說(shuō)都非常重要。本系統(tǒng)主要包括桌臺(tái)顯示、消費(fèi)查，。人事檔案及權(quán)限

11、等幾大部分，具有良好的用戶接口，使用方便，具有完善的查詢，對(duì)維護(hù)系統(tǒng)起到輔助決策的作用，能及時(shí)、方便、靈動(dòng)地進(jìn)行查詢、修改、刪除等維護(hù)性操作。餐飲管理系統(tǒng)有足夠的存儲(chǔ)容量，滿足酒店每日營(yíng)業(yè)的變動(dòng)，另外，對(duì)于操作用戶有一定的管理，并對(duì)用戶的權(quán)限有一定的設(shè)置超級(jí)管理員擁有所有權(quán)限。經(jīng)理除了系統(tǒng)維護(hù)外，其他操縱都可以，普通用戶只能實(shí)現(xiàn)輔助工具的使用權(quán)限。　　1.飯店基本信息管理

12、　　其中包括員工資料的管理、酒水資料管理、菜單資料管理、主食資料管理、席位和包間信息管理；主要實(shí)現(xiàn)對(duì)基本信息的錄入、更新；　　2.席位和包間預(yù)定管理：根據(jù)用戶的預(yù)定要求輸入預(yù)訂信息，當(dāng)超過(guò)預(yù)定時(shí)間1小時(shí)時(shí)，自動(dòng)刪除該預(yù)定記錄；當(dāng)客戶到達(dá)時(shí)也要更新預(yù)定狀態(tài)信息；　　3.客戶消費(fèi)管理：主要記錄顧客的消費(fèi)信息。&

13、lt;p>　　4.查詢管理：能夠?qū)Ω鞣N基本信息進(jìn)行查詢，也能對(duì)包間和席位預(yù)訂和使用狀態(tài)信息進(jìn)行查詢。　　5.能夠根據(jù)客戶消費(fèi)記錄統(tǒng)計(jì)一天營(yíng)業(yè)額。　　1.2數(shù)據(jù)需求　　系統(tǒng)中涉及到的數(shù)據(jù)較多，例如項(xiàng)目信息。由于數(shù)據(jù)比較繁多，根據(jù)系統(tǒng)要完成的功能，在此一一列出其中涉及到

14、的數(shù)據(jù)信息，具體如下：　　⑴ 餐飲信息管理　　餐飲管理工作人員通過(guò)本系統(tǒng)來(lái)進(jìn)行訂餐、菜單、消費(fèi)等信息管理?？梢詫?shí)現(xiàn)對(duì)餐飲基本信息的瀏覽，查找，編輯等操作。　　基本數(shù)據(jù)包括員工資料，酒水資料，菜單，主食，席位包間，客戶消費(fèi)等。<b

15、>　?、?項(xiàng)目信息管理　　員工的添加、修改、刪除，酒水的購(gòu)入和售出，席位和包間的預(yù)定、修改、退訂，主食的購(gòu)入和使用，客戶的消費(fèi)時(shí)間、消費(fèi)金額等。　　1.3性能需求　　系統(tǒng)是對(duì)餐館，飯店進(jìn)行系統(tǒng)管理的一個(gè)軟件。由于是一個(gè)對(duì)餐飲項(xiàng)目進(jìn)行管理，要求其要有明

16、確的權(quán)限分配，并且要有較快的響應(yīng)速度，系統(tǒng)還要有較高的可靠性。　?、?安全性　　要求程序在運(yùn)行過(guò)程中不會(huì)造成數(shù)據(jù)丟失，病毒侵入。　?、?穩(wěn)定性　　要求程序在長(zhǎng)時(shí)間運(yùn)行之后，不會(huì)出現(xiàn)故障、崩潰。&l

17、t;/p>　　⑶ 可靠性　　當(dāng)用戶輸入非法數(shù)據(jù)或不符合格式要求的數(shù)據(jù)時(shí)，系統(tǒng)有相應(yīng)的錯(cuò)誤處理措施。　?、?響應(yīng)速度　　系統(tǒng)的響應(yīng)速度不得超過(guò)1秒。

18、2系統(tǒng)設(shè)計(jì)　　2.1系統(tǒng)總體處理流程　　系統(tǒng)首先進(jìn)行用戶登錄，當(dāng)用戶登錄時(shí)驗(yàn)證用戶身份，如圖1所示　　圖1　　如果是帳號(hào)密碼正確，則進(jìn)入界面如圖2所示

19、圖2　　如果是錯(cuò)誤身份，則進(jìn)入界面　　圖3　　處理流程如圖4所示。　　圖4 處理流程圖　　2.2功能模塊設(shè)計(jì)<

20、;/b>　　根據(jù)餐飲服務(wù)需求，本系統(tǒng)主要滿足各餐飲行業(yè)的工作需求，餐飲管理人員，工作人員的錄入統(tǒng)計(jì)和管理功能。餐館工作人員需要錄入身份，庫(kù)存，使用，損耗，收入等內(nèi)容，每一個(gè)流程都錄入所需的添加或是修改、刪除等的內(nèi)容。并需要根據(jù)各流程的次序和客戶訂餐順序等計(jì)算出該訂單的收支。結(jié)賬部分，在訂單和結(jié)賬兩個(gè)階段，分別由不同的工作人員對(duì)該訂單所消費(fèi)的賬目進(jìn)行結(jié)算，審核其是否有誤，并由管理人員進(jìn)行錄入

21、，最后由終期管理人員計(jì)算出該客戶該訂單的消費(fèi)。軟件還需要滿足不同流程的設(shè)置。由餐飲管理員設(shè)置，每個(gè)工作人員的權(quán)限，可以對(duì)系統(tǒng)基本信息和工作信息的查看、編輯等。管理員等用戶可以查看往屆資料，消費(fèi)記錄，員工信息等。系統(tǒng)功能圖如圖5所示。　　圖5系統(tǒng)功能圖　　系統(tǒng)功能主要由基本功能模塊、編輯功能模塊、添加修改功能模塊、刪除

22、功能模塊、消費(fèi)管理功能模塊、保存功能模塊、統(tǒng)計(jì)功能模塊組成。功能具體如下所示。　?、?基本信息查詢模塊　　可以對(duì)員工信息、酒水信息、客戶信息、訂單信息、菜單和主食信息等進(jìn)行瀏覽和查找。　?、?基本信息維護(hù)模塊　　可以對(duì)信息進(jìn)行添加、修改和刪除等功能。

23、　　(3) 統(tǒng)計(jì)功能模塊　　可以對(duì)營(yíng)業(yè)功能進(jìn)行統(tǒng)計(jì)整合，保存消費(fèi)記錄等功能。　　系統(tǒng)首先進(jìn)行用戶登錄，當(dāng)用戶登錄時(shí)驗(yàn)證用戶身份。如果是管理員則進(jìn)入登錄界面，如果不是管理員身份，則進(jìn)入返回界面。處理流程如圖6所示。　　圖6 系統(tǒng)處理流程圖

24、;　　2.2功能模塊設(shè)計(jì)　　根據(jù)餐飲管理需求，本系統(tǒng)主要滿足桌臺(tái)顯示、消費(fèi)查詢。人事檔案及權(quán)限等幾大部分，具有良好的用戶接口，使用方便，具有完善的查詢，對(duì)維護(hù)系統(tǒng)起到輔助決策的作用，能及時(shí)、方便、靈動(dòng)地進(jìn)行查詢、修改、刪除等維護(hù)性操作等功能。系統(tǒng)功能圖如圖7所示：　　圖7系統(tǒng)功能圖</p&g

25、t;　　系統(tǒng)功能主要由基本功能模塊、編輯功能模塊、添加修改功能模塊、刪除功能模塊、消費(fèi)管理功能模塊、保存功能模塊、統(tǒng)計(jì)功能模塊組成。功能具體如下所示。　?、?基本信息查詢模塊　　可以對(duì)員工信息、酒水信息、客戶信息、訂單信息、菜單和主食信息等進(jìn)行瀏覽和查找。　?、?基本信息維護(hù)模塊</p

26、>　　可以對(duì)信息進(jìn)行添加、修改和刪除等功能。　　(3) 統(tǒng)計(jì)功能模塊　　可以對(duì)營(yíng)業(yè)功能進(jìn)行統(tǒng)計(jì)整合，保存消費(fèi)記錄等功能。　　2.3數(shù)據(jù)庫(kù)設(shè)計(jì)　　數(shù)據(jù)庫(kù)設(shè)計(jì)(Database Design)是指對(duì)于一個(gè)給定的

27、應(yīng)用環(huán)境，構(gòu)造最優(yōu)的數(shù)據(jù)庫(kù)模式，建立數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)，使之能夠有效地存儲(chǔ)數(shù)據(jù)，滿足各種用戶的應(yīng)用需求（信息要求和處理要求）。本節(jié)主要通過(guò)數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)、數(shù)據(jù)庫(kù)表設(shè)計(jì)對(duì)數(shù)據(jù)庫(kù)設(shè)計(jì)進(jìn)行詳細(xì)介紹。　?、?菜單表　　菜單表主要存儲(chǔ)餐館的基本信息，包括號(hào)、菜單名、負(fù)責(zé)人姓名、聯(lián)系方式、辦公地點(diǎn)等。部門信息表結(jié)構(gòu)如表1所示。&

28、lt;/p>　　表 1菜單表　　表說(shuō)明：　　主鍵：號(hào)　?、?酒水表　　酒水表主要存儲(chǔ)菜單的酒

29、水編號(hào)，名稱、價(jià)格等。酒水表結(jié)構(gòu)如表2所示。　　表 2酒水表　　表說(shuō)明：　　主鍵：酒水編號(hào)　　3詳細(xì)設(shè)計(jì)</p&g

30、t;　　3.1 數(shù)據(jù)庫(kù)連接　　VB的數(shù)據(jù)庫(kù)連接方式主要有三種，ODBC、ADO和DAO。本系統(tǒng)選用ADO方式連接數(shù)據(jù)庫(kù)。　　3.2功能模塊設(shè)計(jì)與實(shí)現(xiàn)　　餐飲管理系統(tǒng)根據(jù)功能的不同分為以下幾大類：　　基本信息查詢模

31、塊，主要是對(duì)菜單，客戶，主食，包間，消費(fèi)，酒水，員工信息等基本信息的瀏覽和查詢。基本信息維護(hù)模塊，此模塊可以實(shí)現(xiàn)對(duì)餐館，服務(wù)，運(yùn)營(yíng)，消費(fèi)等基本信息的添加，修改，刪除，只有管理員和部分審核人員才擁有此模塊的使用權(quán)限。上傳下載模塊，管理員可以修改一些材料或資料，供大家下瀏覽。運(yùn)營(yíng)模塊，員工可以對(duì)未結(jié)賬的項(xiàng)目進(jìn)行管理。酒水模塊，由不同的員工對(duì)餐館的項(xiàng)目進(jìn)行管理。　　3.2.1 酒水信息模塊</

32、p>　　酒水信息模塊主要包含酒水信息的添加、修改、刪除、查詢功能。　　添加　　用戶進(jìn)入酒水信息模塊之后，點(diǎn)擊“添加”按鈕，系統(tǒng)彈出“添加”對(duì)話框，在對(duì)話框中相應(yīng)的位置收入酒水的各種信息，點(diǎn)擊“確定”按鈕，如果數(shù)據(jù)無(wú)誤，則數(shù)據(jù)添加到酒水表中。本部分程序流程如圖8所示。

33、　　圖8酒水信息添加程序流程圖　　本部分對(duì)應(yīng)程序段如下：　　Public Class 酒水添加　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click<p&

34、gt;　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　數(shù)據(jù)庫(kù).酒水資料.InsertOnSubmit(　　New 酒水資料 With　　{　　.名稱 = TextBox1.Text,<p&

35、gt;　　.價(jià)格 = TextBox2.Text　　})　　Try　　數(shù)據(jù)庫(kù).SubmitChanges()　　MessageBox.Show("插入成功！")</p&g

36、t;　　Close()　　Catch　　MessageBox.Show("插入失??！")　　End Try<b

37、>　　End Sub　　Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click　　Close()　　End Sub</

38、b>　　End Class　　修改　　用戶進(jìn)入酒水信息模塊之后，點(diǎn)擊“修改”按鈕，系統(tǒng)彈出“修改”對(duì)話框，在對(duì)話框中相應(yīng)的位置收入酒水的各種信息，點(diǎn)擊“確定”按鈕，如果數(shù)據(jù)無(wú)誤，則數(shù)<

39、b>　　據(jù)添加到酒水表中。　　Public Class 酒水修改　　Dim 數(shù)據(jù)庫(kù) As 數(shù)據(jù)庫(kù)DataContext = New 數(shù)據(jù)庫(kù)DataContext　　Dim 修改項(xiàng) As 酒水資料 = New 酒水資料　　Private Sub T

40、extBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).酒水資料　　Where 表項(xiàng).酒水編號(hào) = TextBox1.Text　　S

41、elect 表項(xiàng)　　修改項(xiàng) = 查詢結(jié)果.FirstOrDefault()　　Try　　TextBox2.Text = 修改項(xiàng).名稱　　TextBox3.Text = 修改項(xiàng).價(jià)格<p

42、>　　Catch　　End Try　　End Sub　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles B

43、utton1.Click　　修改項(xiàng).名稱 = TextBox2.Text　　修改項(xiàng).價(jià)格 = TextBox3.Text　　Try　　數(shù)據(jù)庫(kù).SubmitChanges()　　MessageB

44、ox.Show("修改成功！")　　Close()　　Catch　　MessageBox.Show("修改失??！")　　End Try&l

45、t;/b>　　End Sub　　Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click　　End Sub

46、　　Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click　　End Sub　　Private Sub TextBox2_TextChanged(sender As Object, e As Ev

47、entArgs) Handles TextBox2.TextChanged　　End Sub　　Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

48、End Sub　　Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged　　End Sub　　Private Sub B

49、utton2_Click(sender As Object, e As EventArgs) Handles Button2.Click　　End Sub　　End Class　　刪除</p&g

50、t;　　用戶進(jìn)入酒水信息模塊之后，點(diǎn)擊“刪除”按鈕，系統(tǒng)彈出“刪除”對(duì)話框，在對(duì)話框中相應(yīng)的位置收入酒水的各種信息，點(diǎn)擊“確定”按鈕，如果數(shù)據(jù)　　無(wú)誤，則數(shù)據(jù)添加到酒水表中。　　查詢　　用戶進(jìn)入酒水信息模塊之后，點(diǎn)擊“查詢”按鈕，系統(tǒng)彈出“查詢”對(duì)話框，

51、在對(duì)話框中相應(yīng)的位置收入酒水的各種信息，點(diǎn)擊“確定”按鈕，如果數(shù)據(jù)無(wú)　　誤，則數(shù)據(jù)添加到酒水表中。程序如下：　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)D

52、ataContext　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).酒水資料　　Where 表項(xiàng).名稱.Contains(TextBox1.Text)　　Select 表項(xiàng)　　數(shù)據(jù)表.DataSource = 查詢結(jié)果<

53、/p>　　End Sub　　3.2.2菜單信息模塊 　?。?）用戶進(jìn)入菜單信息模塊之后，點(diǎn)擊“查詢”按鈕，系統(tǒng)彈出“查詢”對(duì)話框，在對(duì)話框中相應(yīng)的位置收入酒水的各種信息，點(diǎn)擊“確定”按鈕，如果數(shù)據(jù)無(wú)誤，則數(shù)據(jù)添加到菜單表中。本部分程序流程如圖9所示。

54、;　　圖9　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 查詢結(jié)果 = From 表項(xiàng)

55、 In 數(shù)據(jù)庫(kù).菜單　　Where 表項(xiàng).菜單名.Contains(TextBox1.Text)　　Select 表項(xiàng)　　數(shù)據(jù)表.DataSource = 查詢結(jié)果　　End Sub</p&

56、gt;　　用戶進(jìn)入菜單信息模塊之后，點(diǎn)擊“添加”按鈕，系統(tǒng)彈出“添加”對(duì)話框，在對(duì)話框中相應(yīng)的位置收入菜單的各種信息，點(diǎn)擊“確定”按鈕，如　　果數(shù)據(jù)無(wú)誤，則數(shù)據(jù)添加到酒水表中。程序如下：　　Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Butt

57、on3.Click　　Dim 窗口 = New 菜單添加　　窗口.ShowDialog()　　Button2_Click(Nothing, Nothing)　　End Sub　　）用戶進(jìn)入菜單

58、信息模塊之后，點(diǎn)擊“修改”按鈕，系統(tǒng)彈出“修改”對(duì)話框，在對(duì)話框中相應(yīng)的位置收入菜單的各種信息，點(diǎn)擊“確定”按鈕，如　　果數(shù)據(jù)無(wú)誤，則數(shù)據(jù)添加到酒水表中。程序如下：　　Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click&

59、lt;p>　　Dim 窗口 = New 菜單修改　　窗口.ShowDialog()　　Button2_Click(Nothing, Nothing)　　End Sub　　（4）用戶進(jìn)入菜單信息模塊之后，點(diǎn)擊“刪除”按鈕，系統(tǒng)彈出

60、“刪除”對(duì)話框，在對(duì)話框中相應(yīng)的位置收入菜單的各種信息，點(diǎn)擊“確定”按鈕，如果數(shù)據(jù)無(wú)誤，則數(shù)據(jù)添加到酒水表中。程序如下：　　Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click　　Dim 窗口 = New 菜單刪除<

61、p>　　窗口.ShowDialog()　　Button2_Click(Nothing, Nothing)　　Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click　　Dim 窗口 = New 菜單刪除

62、　　窗口.ShowDialog()　　Button2_Click(Nothing, Nothing)　　End Sub　　3.3人機(jī)界面設(shè)計(jì)　　人機(jī)交互技

63、術(shù)(Human-Computer Interaction Techniques)是指通過(guò)計(jì)算機(jī)輸入、輸出設(shè)備，以有效地方式實(shí)現(xiàn)人與計(jì)算機(jī)對(duì)話的技術(shù)。它包括機(jī)器通過(guò)輸出或顯示設(shè)備給人提供大量有關(guān)信息及提示請(qǐng)示等，人通過(guò)輸入設(shè)備給機(jī)器輸入有關(guān)信息及提示請(qǐng)示等，人通過(guò)輸入設(shè)備給機(jī)器輸入有關(guān)信息，回答問(wèn)題等。人機(jī)交互技術(shù)是計(jì)算機(jī)用戶界面設(shè)計(jì)中的重要內(nèi)容之一。它與認(rèn)知學(xué)、人機(jī)工程學(xué)、心理學(xué)等學(xué)科領(lǐng)域有密切的聯(lián)系。<p

64、>　　通過(guò)以上設(shè)計(jì)達(dá)到人機(jī)界面的友好、美觀，使用戶的心情更加愉悅。主界面如圖10所示：　　圖10主界面　　員工信息界面如圖11所示。　　圖11員工信息界面　　課設(shè)總結(jié)<

65、;/b>　　在這次課程設(shè)計(jì)之前，我只接觸過(guò)一次關(guān)于VB的課程設(shè)計(jì)，但那次是在老師的指導(dǎo)下完成的，這次就需要我自己獨(dú)立完成這次的課程設(shè)計(jì)。剛開始的時(shí)候完全不知道在哪里著手，但慢慢地我就一點(diǎn)點(diǎn)地理清了頭緒，我先在網(wǎng)上找了許多關(guān)于餐飲方面的資料，然后根據(jù)課設(shè)的主要內(nèi)容將資料進(jìn)行篩選，再進(jìn)行整理和歸納。經(jīng)過(guò)兩個(gè)星期的努力我終于完成了報(bào)告?？粗鲁鰻t的作品感覺(jué)特別的有成就感。

66、　　我認(rèn)為實(shí)踐周的程序設(shè)計(jì)是給我們學(xué)習(xí)的一個(gè)大好機(jī)會(huì)，使我們?cè)谶@樣的機(jī)會(huì)里學(xué)到了一定的知識(shí)，畢竟理論要通過(guò)實(shí)踐來(lái)鍛煉，也只有自己參與了這樣的一個(gè)鍛煉，才能更好的發(fā)現(xiàn)自己的不足并加以改進(jìn)和完善!　　參考文獻(xiàn)　　[1] 王珊,薩師煊.數(shù)據(jù)庫(kù)系統(tǒng)概論（第四版）.高等教育出版社,2006年

67、;　　[2] 沈克水,劉肅平.數(shù)據(jù)庫(kù)原理與應(yīng)用.人民郵電出版社,2006年.　　[3] 李建中.數(shù)據(jù)庫(kù)系統(tǒng)原理（第2版）.電子工業(yè)出版社,2006年　　[4] 楊冬青.數(shù)據(jù)庫(kù)系統(tǒng)概念.機(jī)械工業(yè)出版社,2006年　　[5] 龔沛曾,楊志強(qiáng).C/C++程序設(shè)計(jì)教程. 高等教育出版社,2004年&

68、lt;/p>　　附錄1-用戶手冊(cè)　　(1)運(yùn)行系統(tǒng)，出現(xiàn)信息，如圖12所示。　　圖12登陸界面　　(2) 等待一會(huì)后即進(jìn)入到系統(tǒng)主界面，如圖13所示。

69、　　圖13 主界面　　(3) 在此界面可以進(jìn)行于昂信息、酒水信息、菜單、主食、席位和包間、客戶消費(fèi)的操作。點(diǎn)擊“員工資料”進(jìn)入到員工資料界面，如圖14所示。　　圖14員工資料管理　　點(diǎn)擊“菜單”進(jìn)入到菜單界面，如圖15所示。<

70、p>　　圖15菜單信息查詢　　(5) 點(diǎn)擊“主食”進(jìn)入到主食界面，如圖16所示。　　圖16主食信息　　(6)選擇主界面的系統(tǒng)退出，系統(tǒng)自動(dòng)退出。　　附錄2-源程序</

71、b>　　登陸界面：　　Public Class Form1　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

72、Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).用戶登陸表　　Where 表項(xiàng).帳號(hào).Contains(TextBox1.Text)　　Select 表項(xiàng).密碼　　Try

73、　　IsDBNull(查詢結(jié)果)　　Catch ex As Exception　　MessageBox.Show("用戶名密碼不存在！")　　End Try　　If IsD

74、BNull(查詢結(jié)果) Then　　MessageBox.Show("用戶名密碼不存在！")　　Else　　If 查詢結(jié)果.FirstOrDefault.Contains(TextBox2.Text) Then

75、Dim 窗口 = New 管理界面　　窗口.ShowDialog()　　Else　　MessageBox.Show("用戶名密碼不存在！")　　End If

76、　　End If　　End Sub　　Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

77、;　　Close()　　End Sub　　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load　　End Sub<

78、;/p>　　End Class　　包間和席位管理：　　Public Class 包間和席位管理　　Private Sub Button1_Click(sender As Object, e As EventAr

79、gs) Handles Button1.Click　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).席位和包間　　Where 表項(xiàng).席位編號(hào) = TextBox1.Text　　Select

80、表項(xiàng)　　數(shù)據(jù)表.DataSource = 查詢結(jié)果　　End Sub　　Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

81、　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).席位和包間　　Select 表項(xiàng)　　數(shù)據(jù)表.DataSource = 查詢結(jié)果

82、　　End Sub　　Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click　　Dim 窗口 = New 包間席位添加　　窗口.ShowDialog()<p

83、>　　End Sub　　Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click　　Dim 窗口 = New 包間席位刪除　　窗口.ShowDialog()<

84、/p>　　End Sub　　Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click　　Dim 窗口 = New 包間席位修改　　窗口.Sho

85、wDialog()　　End Sub　　Private Sub 包間和席位管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load　　End Sub

86、　　Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click　　End Sub　　End Class<b&g

87、t;　　包間和席位刪除：　　Public Class 包間席位刪除　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext&

88、lt;/p>　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).席位和包間　　Where 表項(xiàng).席位編號(hào) = TextBox1.Text　　Select 表項(xiàng)　　If Not IsDBNull(查詢結(jié)果) Then<

89、;p>　　Dim 刪除數(shù)據(jù) = 查詢結(jié)果.FirstOrDefault()　　數(shù)據(jù)庫(kù).席位和包間.DeleteOnSubmit(刪除數(shù)據(jù))　　數(shù)據(jù)庫(kù).SubmitChanges()　　MessageBox.Show("刪除成功！")<b&g

90、t;　　Else　　MessageBox.Show("刪除失??！")　　End If　　End Sub　　Private Sub 包間席位刪除_Load(s

91、ender As Object, e As EventArgs) Handles MyBase.Load　　End Sub　　End Class　　席位和包間添加：<p&

92、gt;　　Public Class 包間席位添加　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 查詢結(jié)果 = From 表項(xiàng)

93、 In 數(shù)據(jù)庫(kù).席位和包間　　Where 表項(xiàng).席位編號(hào) = TextBox1.Text　　Select 表項(xiàng)　　If Not IsDBNull(查詢結(jié)果.FirstOrDefault) Then　　數(shù)據(jù)庫(kù).席位和包間.InsertO

94、nSubmit(　　New 席位和包間 With　　{　　.席位編號(hào) = TextBox1.Text,　　.預(yù)定時(shí)間 = Date.Now　　})<

95、/p>　　Try　　數(shù)據(jù)庫(kù).SubmitChanges()　　MessageBox.Show("插入成功！")　　Close()

96、　Catch　　MessageBox.Show("插入失?。?quot;)　　End Try　　Else　　MessageBox.Show("席位已預(yù)訂！&

97、quot;)　　End If　　End Sub　　Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click&

98、lt;p>　　Close()　　End Sub　　Private Sub 包間席位添加_Load(sender As Object, e As EventArgs) Handles MyBase.Load　　End

99、 Sub　　End Class　　席位和包間修改：　　Public Class 包間席位修改　　Dim 數(shù)據(jù)庫(kù) As 數(shù)據(jù)庫(kù)DataContext = New 數(shù)據(jù)庫(kù)DataC

100、ontext　　Dim 修改項(xiàng) As 席位和包間 = New 席位和包間　　Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged　　Dim 查詢結(jié)果 = From 表項(xiàng) In

101、數(shù)據(jù)庫(kù).席位和包間　　Where 表項(xiàng).預(yù)定編號(hào) = TextBox1.Text　　Select 表項(xiàng)　　修改項(xiàng) = 查詢結(jié)果.FirstOrDefault()　　Try&

102、lt;p>　　TextBox2.Text = 修改項(xiàng).預(yù)定時(shí)間　　TextBox3.Text = 修改項(xiàng).席位編號(hào)　　Catch　　End Try　　End Sub<

103、/b>　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　修改項(xiàng).預(yù)定時(shí)間 = Date.Now　　修改項(xiàng).席位編號(hào) = TextBox3.Text

104、　　Try　　數(shù)據(jù)庫(kù).SubmitChanges()　　MessageBox.Show("修改成功！")　　Close()　　Catch&

105、lt;/p>　　MessageBox.Show("修改失?。?quot;)　　End Try　　End Sub　　Private Sub 包間席位修改_Load(sender As Object, e

106、 As EventArgs) Handles MyBase.Load　　End Sub　　End Class　　菜單刪除：　　Public Class 菜單刪

107、除　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).菜單&

108、lt;p>　　Where 表項(xiàng).菜單名.Contains(TextBox1.Text)　　Select 表項(xiàng)　　Try　　Dim 刪除數(shù)據(jù) = 查詢結(jié)果　　數(shù)據(jù)庫(kù).菜單.DeleteAllO

109、nSubmit(刪除數(shù)據(jù))　　數(shù)據(jù)庫(kù).SubmitChanges()　　MessageBox.Show("刪除成功！")　　Catch ex As Exception　　MessageBox.Show("刪除失?。?quot;)</p&

110、gt;　　End Try　　Close()　　End Sub　　Private Sub Button2_Click(sender As Object, e As EventArg

111、s) Handles Button2.Click　　Close()　　End Sub　　Private Sub 菜單刪除_Load(sender As Object, e As EventArgs) Handles MyBase.Load

112、　　End Sub　　End Class　　菜單添加：　　Public Class 菜單添加　　Private Su

113、b Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 菜品價(jià)格 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).主食　　Where 表項(xiàng).名稱 = TextBox2.T

114、ext　　Select 表項(xiàng).價(jià)格　　Try　　IsDBNull(菜品價(jià)格.First)　　Catch ex As Exception　　菜品價(jià)格 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).酒水資料&

115、lt;/p>　　Where 表項(xiàng).名稱 = TextBox2.Text　　Select 表項(xiàng).價(jià)格　　End Try　　'If IsDBNull(菜品價(jià)格.First) Then　　'

116、菜品價(jià)格 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).酒水資料　　' Where 表項(xiàng).名稱 = TextBox2.Text　　' Select 表項(xiàng).價(jià)格　　'End If

117、數(shù)據(jù)庫(kù).菜單.InsertOnSubmit(　　New 菜單 With　　{　　.菜單名 = TextBox1.Text,　　.內(nèi)容 = TextBox2.Text,　　.價(jià)格 = 菜品價(jià)格.

118、FirstOrDefault　　})　　Try　　數(shù)據(jù)庫(kù).SubmitChanges()　　MessageBox.Show("插入成功！")<p&

119、gt;　　Close()　　Catch　　MessageBox.Show("插入失?。?quot;)　　End Try　　End

120、Sub　　Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click　　Close()　　End Sub</

121、p>　　Private Sub 菜單添加_Load(sender As Object, e As EventArgs) Handles MyBase.Load　　End Sub　　End Class<b&

122、gt;　　菜單修改：　　Public Class 菜單修改　　Dim 數(shù)據(jù)庫(kù) As 數(shù)據(jù)庫(kù)DataContext = New 數(shù)據(jù)庫(kù)DataContext　　Dim 修改項(xiàng) As 菜單 = New 菜單　　Private Sub Button1_Cli

123、ck(sender As Object, e As EventArgs) Handles Button1.Click　　修改項(xiàng).菜單名 = TextBox2.Text　　修改項(xiàng).內(nèi)容 = TextBox3.Text　　Dim 菜品價(jià)格 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).主食

124、;　　Where 表項(xiàng).名稱 = TextBox3.Text　　Select 表項(xiàng).價(jià)格　　If IsDBNull(菜品價(jià)格) Then　　菜品價(jià)格 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).酒水資料　　Where 表項(xiàng).名稱 = TextBox3.Text

125、　　Select 表項(xiàng).價(jià)格　　End If　　修改項(xiàng).價(jià)格 = 菜品價(jià)格.FirstOrDefault　　Try　　數(shù)據(jù)庫(kù).SubmitChanges()

126、　　MessageBox.Show("修改成功！")　　Close()　　Catch　　MessageBox.Show("修改失??！")

127、;　　End Try　　End Sub　　Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged　　D

128、im 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).菜單　　Where 表項(xiàng).菜單名 = TextBox1.Text　　Select 表項(xiàng)　　修改項(xiàng) = 查詢結(jié)果.FirstOrDefault()　　Try</b

129、>　　TextBox2.Text = 修改項(xiàng).菜單名　　TextBox3.Text = 修改項(xiàng).內(nèi)容　　Catch　　End Try

130、;　　End Sub　　Private Sub 菜單修改_Load(sender As Object, e As EventArgs) Handles MyBase.Load　　End Sub　　End Class&l

131、t;/p>　　菜單資料管理：　　Public Class 菜單資料管理　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click　　Dim

132、數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext　　Dim 查詢結(jié)果 = From 表項(xiàng) In 數(shù)據(jù)庫(kù).菜單　　Where 表項(xiàng).菜單名.Contains(TextBox1.Text)　　Select 表項(xiàng)　　數(shù)據(jù)表.DataSour

眾賞文庫(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ì)自己和他人造成任何形式的傷害或損失。

vb課程設(shè)計(jì)--餐飲管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

vb課程設(shè)計(jì)--餐飲管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載