VB課程設(shè)計餐飲管理系統(tǒng)

1、 課程名稱 VB課程設(shè)計 系 別 信息工程系 專 業(yè) 電子信息工程 班 級 B241201 學(xué) 號 B24120104 學(xué)生姓名 劉冬冬 指導(dǎo)教師 孟桂英 2015年7月VB課程設(shè)計任務(wù)書系 別 信息工程系 專業(yè) 電子信息工程 課程設(shè)計題目 餐飲管理系統(tǒng) 班級 B241201 學(xué)號 B24120104 姓名 劉冬冬 課程設(shè)計時間: 2015 年 6 月 22 日至 2015 年 8 月 5 日課程設(shè)計的內(nèi)容及要求：（一）主要內(nèi)容本系統(tǒng)主要應(yīng)用于餐飲業(yè)，實現(xiàn)對飯店信息和消費信息的管理。主要內(nèi)容如下：1. 飯店基本信息管理其中包括員工資料的管理、酒水資料管理、菜單資料管理、主食資料管理、席位和包間

2、信息管理；主要實現(xiàn)對基本信息的錄入、更新；2. 席位和包間預(yù)定管理：根據(jù)用戶的預(yù)定要求輸入預(yù)訂信息，當(dāng)超過預(yù)定時間1小時時，自動刪除該預(yù)定記錄；當(dāng)客戶到達時也要更新預(yù)定狀態(tài)信息；3. 客戶消費管理：主要記錄顧客的消費信息。4. 查詢管理：能夠?qū)Ω鞣N基本信息進行查詢，也能對包間和席位預(yù)訂和使用狀態(tài)信息進行查詢。5. 能夠根據(jù)客戶消費記錄統(tǒng)計一天營業(yè)額。（二）基本要求1該系統(tǒng)開發(fā)工具采用VB6.0，數(shù)據(jù)庫使用SQL Server；2獨立完成系統(tǒng)的設(shè)計、編碼和調(diào)試，通過指導(dǎo)教師當(dāng)場驗收；3交出完整的課設(shè)報告。（三）主要參考書（四）評語 （五）成績 指導(dǎo)教師 2015 年 6 月 22 日餐飲管理系統(tǒng)

3、 目 錄1 需求分析11.1功能需求11.2數(shù)據(jù)需求11.3性能需求22系統(tǒng)設(shè)計32.1系統(tǒng)總體處理流程32.2功能模塊設(shè)計32.3數(shù)據(jù)庫設(shè)計43詳細設(shè)計63.1 數(shù)據(jù)庫連接63.2功能模塊設(shè)計與實現(xiàn)63.2.1基本信息查詢模塊設(shè)計與實現(xiàn)63.3人機界面設(shè)計10課設(shè)總結(jié)12參考文獻13附錄1-用戶手冊14附錄2-源程序181 需求分析軟件需求分析也稱為需求分析工程，是軟件生命期中重要的一步，本軟件通過對飯店基本信息管理，席位和包間預(yù)訂管理，客戶消費管理和查詢管理，實現(xiàn)了對飯店信息和消費信息的管理。為餐飲管理水平的提高提供了技術(shù)的支持。在需求分析階段，要對經(jīng)過可行性分析所確定的系統(tǒng)目標(biāo)和功能做近

4、一步的詳細論述，確定系統(tǒng)“做什么”的問題。1.1功能需求隨著餐飲業(yè)的不斷發(fā)展，餐飲管理系統(tǒng)的內(nèi)容對于決策者和管理者來說都非常重要。本系統(tǒng)主要包括桌臺顯示、消費查，。人事檔案及權(quán)限等幾大部分，具有良好的用戶接口，使用方便，具有完善的查詢，對維護系統(tǒng)起到輔助決策的作用，能及時、方便、靈動地進行查詢、修改、刪除等維護性操作。餐飲管理系統(tǒng)有足夠的存儲容量，滿足酒店每日營業(yè)的變動，另外，對于操作用戶有一定的管理，并對用戶的權(quán)限有一定的設(shè)置超級管理員擁有所有權(quán)限。經(jīng)理除了系統(tǒng)維護外，其他操縱都可以，普通用戶只能實現(xiàn)輔助工具的使用權(quán)限。1.飯店基本信息管理其中包括員工資料的管理、酒水資料管理、菜單資料管理、

5、主食資料管理、席位和包間信息管理；主要實現(xiàn)對基本信息的錄入、更新；2.席位和包間預(yù)定管理：根據(jù)用戶的預(yù)定要求輸入預(yù)訂信息，當(dāng)超過預(yù)定時間1小時時，自動刪除該預(yù)定記錄；當(dāng)客戶到達時也要更新預(yù)定狀態(tài)信息；3.客戶消費管理：主要記錄顧客的消費信息。4.查詢管理：能夠?qū)Ω鞣N基本信息進行查詢，也能對包間和席位預(yù)訂和使用狀態(tài)信息進行查詢。5.能夠根據(jù)客戶消費記錄統(tǒng)計一天營業(yè)額。1.2數(shù)據(jù)需求系統(tǒng)中涉及到的數(shù)據(jù)較多，例如項目信息。由于數(shù)據(jù)比較繁多，根據(jù)系統(tǒng)要完成的功能，在此一一列出其中涉及到的數(shù)據(jù)信息，具體如下： 餐飲信息管理餐飲管理工作人員通過本系統(tǒng)來進行訂餐、菜單、消費等信息管理?？梢詫崿F(xiàn)對餐飲基本信息

6、的瀏覽，查找，編輯等操作?；緮?shù)據(jù)包括員工資料，酒水資料，菜單，主食，席位包間，客戶消費等。 項目信息管理員工的添加、修改、刪除，酒水的購入和售出，席位和包間的預(yù)定、修改、退訂，主食的購入和使用，客戶的消費時間、消費金額等。1.3性能需求 系統(tǒng)是對餐館，飯店進行系統(tǒng)管理的一個軟件。由于是一個對餐飲項目進行管理，要求其要有明確的權(quán)限分配，并且要有較快的響應(yīng)速度，系統(tǒng)還要有較高的可靠性。 安全性要求程序在運行過程中不會造成數(shù)據(jù)丟失，病毒侵入。 穩(wěn)定性要求程序在長時間運行之后，不會出現(xiàn)故障、崩潰。 可靠性當(dāng)用戶輸入非法數(shù)據(jù)或不符合格式要求的數(shù)據(jù)時，系統(tǒng)有相應(yīng)的錯誤處理措施。 響應(yīng)速度系統(tǒng)的響應(yīng)速度不

7、得超過1秒。 2系統(tǒng)設(shè)計2.1系統(tǒng)總體處理流程系統(tǒng)首先進行用戶登錄，當(dāng)用戶登錄時驗證用戶身份，如圖1所示圖1如果是帳號密碼正確，則進入界面如圖2所示圖2如果是錯誤身份，則進入界面圖3處理流程如圖4所示。 圖4 處理流程圖2.2功能模塊設(shè)計根據(jù)餐飲服務(wù)需求，本系統(tǒng)主要滿足各餐飲行業(yè)的工作需求，餐飲管理人員，工作人員的錄入統(tǒng)計和管理功能。餐館工作人員需要錄入身份，庫存，使用，損耗，收入等內(nèi)容，每一個流程都錄入所需的添加或是修改、刪除等的內(nèi)容。并需要根據(jù)各流程的次序和客戶訂餐順序等計算出該訂單的收支。結(jié)賬部分，在訂單和結(jié)賬兩個階段，分別由不同的工作人員對該訂單所消費的賬目進行結(jié)算，審核其是否有誤，并

8、由管理人員進行錄入，最后由終期管理人員計算出該客戶該訂單的消費。軟件還需要滿足不同流程的設(shè)置。由餐飲管理員設(shè)置，每個工作人員的權(quán)限，可以對系統(tǒng)基本信息和工作信息的查看、編輯等。管理員等用戶可以查看往屆資料，消費記錄，員工信息等。系統(tǒng)功能圖如圖5所示。圖5系統(tǒng)功能圖系統(tǒng)功能主要由基本功能模塊、編輯功能模塊、添加修改功能模塊、刪除功能模塊、消費管理功能模塊、保存功能模塊、統(tǒng)計功能模塊組成。功能具體如下所示。 基本信息查詢模塊可以對員工信息、酒水信息、客戶信息、訂單信息、菜單和主食信息等進行瀏覽和查找。 基本信息維護模塊可以對信息進行添加、修改和刪除等功能。(3) 統(tǒng)計功能模塊可以對營業(yè)功能進行統(tǒng)計

9、整合，保存消費記錄等功能。系統(tǒng)首先進行用戶登錄，當(dāng)用戶登錄時驗證用戶身份。如果是管理員則進入登錄界面，如果不是管理員身份，則進入返回界面。處理流程如圖6所示。圖6 系統(tǒng)處理流程圖2.2功能模塊設(shè)計根據(jù)餐飲管理需求，本系統(tǒng)主要滿足桌臺顯示、消費查詢。人事檔案及權(quán)限等幾大部分，具有良好的用戶接口，使用方便，具有完善的查詢，對維護系統(tǒng)起到輔助決策的作用，能及時、方便、靈動地進行查詢、修改、刪除等維護性操作等功能。系統(tǒng)功能圖如圖7所示：圖7系統(tǒng)功能圖系統(tǒng)功能主要由基本功能模塊、編輯功能模塊、添加修改功能模塊、刪除功能模塊、消費管理功能模塊、保存功能模塊、統(tǒng)計功能模塊組成。功能具體如下所示。 基本信息查

10、詢模塊可以對員工信息、酒水信息、客戶信息、訂單信息、菜單和主食信息等進行瀏覽和查找。 基本信息維護模塊可以對信息進行添加、修改和刪除等功能。(3) 統(tǒng)計功能模塊可以對營業(yè)功能進行統(tǒng)計整合，保存消費記錄等功能。2.3數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計(Database Design)是指對于一個給定的應(yīng)用環(huán)境，構(gòu)造最優(yōu)的數(shù)據(jù)庫模式，建立數(shù)據(jù)庫及其應(yīng)用系統(tǒng)，使之能夠有效地存儲數(shù)據(jù)，滿足各種用戶的應(yīng)用需求（信息要求和處理要求）。本節(jié)主要通過數(shù)據(jù)庫邏輯設(shè)計、數(shù)據(jù)庫表設(shè)計對數(shù)據(jù)庫設(shè)計進行詳細介紹。 菜單表菜單表主要存儲餐館的基本信息，包括號、菜單名、負責(zé)人姓名、聯(lián)系方式、辦公地點等。部門信息表結(jié)構(gòu)如表1所示。表 1菜

11、單表字段名稱字段類型字段長度是否為空字段說明號int12否標(biāo)識菜單名Nvarchar(50)50否菜單名內(nèi)容Nvarchar(50)50否內(nèi)容價格int11是價格表說明：主鍵：號 酒水表酒水表主要存儲菜單的酒水編號，名稱、價格等。酒水表結(jié)構(gòu)如表2所示。表 2酒水表字段名稱字段類型字段長度是否為空字段說明酒水編號int50否酒水編號名稱Nvarchaar(50)12否名稱價格int50否價格表說明：主鍵：酒水編號3詳細設(shè)計3.1 數(shù)據(jù)庫連接VB的數(shù)據(jù)庫連接方式主要有三種，ODBC、ADO和DAO。本系統(tǒng)選用ADO方式連接數(shù)據(jù)庫。3.2功能模塊設(shè)計與實現(xiàn)餐飲管理系統(tǒng)根據(jù)功能的不同分為以下幾大類：基

12、本信息查詢模塊，主要是對菜單，客戶，主食，包間，消費，酒水，員工信息等基本信息的瀏覽和查詢?；拘畔⒕S護模塊，此模塊可以實現(xiàn)對餐館，服務(wù)，運營，消費等基本信息的添加，修改，刪除，只有管理員和部分審核人員才擁有此模塊的使用權(quán)限。上傳下載模塊，管理員可以修改一些材料或資料，供大家下瀏覽。運營模塊，員工可以對未結(jié)賬的項目進行管理。酒水模塊，由不同的員工對餐館的項目進行管理。3.2.1 酒水信息模塊酒水信息模塊主要包含酒水信息的添加、修改、刪除、查詢功能。(1) 添加用戶進入酒水信息模塊之后，點擊“添加”按鈕，系統(tǒng)彈出“添加”對話框，在對話框中相應(yīng)的位置收入酒水的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無

13、誤，則數(shù)據(jù)添加到酒水表中。本部分程序流程如圖8所示。圖8酒水信息添加程序流程圖本部分對應(yīng)程序段如下：Public Class 酒水添加 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext 數(shù)據(jù)庫.酒水資料.InsertOnSubmit( New 酒水資料 With .名稱 = TextBox1.Text, .價格 = TextBox2.Text ) Try 數(shù)據(jù)庫.SubmitChanges() MessageBox.Show

14、("插入成功！") Close() Catch MessageBox.Show("插入失??！") End Try End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Close() End SubEnd Class(2) 修改用戶進入酒水信息模塊之后，點擊“修改”按鈕，系統(tǒng)彈出“修改”對話框，在對話框中相應(yīng)的位置收入酒水的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到酒水表中。Public Class 酒水修改 Dim

15、數(shù)據(jù)庫 As 數(shù)據(jù)庫DataContext = New 數(shù)據(jù)庫DataContext Dim 修改項 As 酒水資料 = New 酒水資料 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.酒水資料 Where 表項.酒水編號 = TextBox1.Text Select 表項 修改項 = 查詢結(jié)果.FirstOrDefault() Try TextBox2.Text = 修改項.名稱 TextBox3

16、.Text = 修改項.價格 Catch End Try End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 修改項.名稱 = TextBox2.Text 修改項.價格 = TextBox3.Text Try 數(shù)據(jù)庫.SubmitChanges() MessageBox.Show("修改成功！") Close() Catch MessageBox.Show("修改失敗！") End Try End Sub Private Sub

17、 Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged End Sub Private Sub Label3_Click(sender

18、 As Object, e As EventArgs) Handles Label3.Click End Sub Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click End SubEnd Class(3) 刪除用戶進入酒水信息模塊之后，點擊“刪除”按鈕，系統(tǒng)彈出“刪除”對話框，在

19、對話框中相應(yīng)的位置收入酒水的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到酒水表中。(4) 查詢用戶進入酒水信息模塊之后，點擊“查詢”按鈕，系統(tǒng)彈出“查詢”對話框，在對話框中相應(yīng)的位置收入酒水的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無 誤，則數(shù)據(jù)添加到酒水表中。程序如下：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.酒水資料 Where 表項.名稱.Contain

20、s(TextBox1.Text) Select 表項 數(shù)據(jù)表.DataSource = 查詢結(jié)果 End Sub3.2.2菜單信息模塊 （1）用戶進入菜單信息模塊之后，點擊“查詢”按鈕，系統(tǒng)彈出“查詢”對話框，在對話框中相應(yīng)的位置收入酒水的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到菜單表中。本部分程序流程如圖9所示。 圖9 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 I

21、n 數(shù)據(jù)庫.菜單 Where 表項.菜單名.Contains(TextBox1.Text) Select 表項 數(shù)據(jù)表.DataSource = 查詢結(jié)果 End Sub（2） 用戶進入菜單信息模塊之后，點擊“添加”按鈕，系統(tǒng)彈出“添加”對話框，在對話框中相應(yīng)的位置收入菜單的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到酒水表中。程序如下： Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim 窗口 = New 菜單添加 窗口.ShowDialog() Button2_

22、Click(Nothing, Nothing) End Sub（3） ）用戶進入菜單信息模塊之后，點擊“修改”按鈕，系統(tǒng)彈出“修改”對話框，在對話框中相應(yīng)的位置收入菜單的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到酒水表中。程序如下： Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim 窗口 = New 菜單修改 窗口.ShowDialog() Button2_Click(Nothing, Nothing) End Sub（4）用戶進入菜單信息模塊之后，點擊“刪除”

23、按鈕，系統(tǒng)彈出“刪除”對話框，在對話框中相應(yīng)的位置收入菜單的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到酒水表中。程序如下： Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim 窗口 = New 菜單刪除 窗口.ShowDialog() Button2_Click(Nothing, Nothing) Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Di

24、m 窗口 = New 菜單刪除 窗口.ShowDialog() Button2_Click(Nothing, Nothing) End Sub3.3人機界面設(shè)計人機交互技術(shù)(Human-Computer Interaction Techniques)是指通過計算機輸入、輸出設(shè)備，以有效地方式實現(xiàn)人與計算機對話的技術(shù)。它包括機器通過輸出或顯示設(shè)備給人提供大量有關(guān)信息及提示請示等，人通過輸入設(shè)備給機器輸入有關(guān)信息及提示請示等，人通過輸入設(shè)備給機器輸入有關(guān)信息，回答問題等。人機交互技術(shù)是計算機用戶界面設(shè)計中的重要內(nèi)容之一。它與認知學(xué)、人機工程學(xué)、心理學(xué)等學(xué)科領(lǐng)域有密切的聯(lián)系。通過以上設(shè)計達到人機界面

25、的友好、美觀，使用戶的心情更加愉悅。主界面如圖10所示：圖10主界面員工信息界面如圖11所示。 圖11員工信息界面課設(shè)總結(jié) 在這次課程設(shè)計之前，我只接觸過一次關(guān)于VB的課程設(shè)計，但那次是在老師的指導(dǎo)下完成的，這次就需要我自己獨立完成這次的課程設(shè)計。剛開始的時候完全不知道在哪里著手，但慢慢地我就一點點地理清了頭緒，我先在網(wǎng)上找了許多關(guān)于餐飲方面的資料，然后根據(jù)課設(shè)的主要內(nèi)容將資料進行篩選，再進行整理和歸納。經(jīng)過兩個星期的努力我終于完成了報告?？粗鲁鰻t的作品感覺特別的有成就感。我認為實踐周的程序設(shè)計是給我們學(xué)習(xí)的一個大好機會，使我們在這樣的機會里學(xué)到了一定的知識，畢竟理論要通過實踐來鍛煉，也只有

26、自己參與了這樣的一個鍛煉，才能更好的發(fā)現(xiàn)自己的不足并加以改進和完善!參考文獻1 王珊,薩師煊.數(shù)據(jù)庫系統(tǒng)概論（第四版）.高等教育出版社,2006年2 沈克水,劉肅平.數(shù)據(jù)庫原理與應(yīng)用.人民郵電出版社,2006年.3 李建中.數(shù)據(jù)庫系統(tǒng)原理（第2版）.電子工業(yè)出版社,2006年4 楊冬青.數(shù)據(jù)庫系統(tǒng)概念.機械工業(yè)出版社,2006年5 龔沛曾,楊志強.C/C+程序設(shè)計教程. 高等教育出版社,2004年附錄1-用戶手冊(1)運行系統(tǒng)，出現(xiàn)信息，如圖12所示。 圖12登陸界面(2) 等待一會后即進入到系統(tǒng)主界面，如圖13所示。 圖13 主界面(3) 在此界面可以進行于昂信息、酒水信息、菜單、主食、席位

27、和包間、客戶消費的操作。點擊“員工資料”進入到員工資料界面，如圖14所示。 圖14員工資料管理(5) 點擊“菜單”進入到菜單界面，如圖15所示。 圖15菜單信息查詢(5) 點擊“主食”進入到主食界面，如圖16所示。 圖16主食信息 (6)選擇主界面的系統(tǒng)退出，系統(tǒng)自動退出。附錄2-源程序登陸界面：Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In

28、 數(shù)據(jù)庫.用戶登陸表 Where 表項.帳號.Contains(TextBox1.Text) Select 表項.密碼 Try IsDBNull(查詢結(jié)果) Catch ex As Exception MessageBox.Show("用戶名密碼不存在！") End Try If IsDBNull(查詢結(jié)果) Then MessageBox.Show("用戶名密碼不存在！") Else If 查詢結(jié)果.FirstOrDefault.Contains(TextBox2.Text) Then Dim 窗口 = New 管理界面 窗口.ShowDialog()

29、 Else MessageBox.Show("用戶名密碼不存在！") End If End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Close() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class包間和席位管理：Public Class 包間和席位管理 Private Sub B

30、utton1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.席位和包間 Where 表項.席位編號 = TextBox1.Text Select 表項 數(shù)據(jù)表.DataSource = 查詢結(jié)果 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫D

31、ataContext Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.席位和包間 Select 表項 數(shù)據(jù)表.DataSource = 查詢結(jié)果 End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim 窗口 = New 包間席位添加 窗口.ShowDialog() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim 窗口 =

32、New 包間席位刪除 窗口.ShowDialog() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim 窗口 = New 包間席位修改 窗口.ShowDialog() End Sub Private Sub 包間和席位管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button6_Click(sender As Object, e As Eve

33、ntArgs) Handles Button6.Click End SubEnd Class包間和席位刪除：Public Class 包間席位刪除 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.席位和包間 Where 表項.席位編號 = TextBox1.Text Select 表項 If Not IsDBNull(查詢結(jié)果) Then Dim 刪除數(shù)據(jù) = 查詢結(jié)果.

34、FirstOrDefault() 數(shù)據(jù)庫.席位和包間.DeleteOnSubmit(刪除數(shù)據(jù)) 數(shù)據(jù)庫.SubmitChanges() MessageBox.Show("刪除成功！") Else MessageBox.Show("刪除失??！") End If End Sub Private Sub 包間席位刪除_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class席位和包間添加：Public Class 包間席位添加 Private Sub Button1_

35、Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.席位和包間 Where 表項.席位編號 = TextBox1.Text Select 表項 If Not IsDBNull(查詢結(jié)果.FirstOrDefault) Then 數(shù)據(jù)庫.席位和包間.InsertOnSubmit( New 席位和包間 With .席位編號 = TextBox1.Text, .預(yù)定時間 = Date.Now ) Try 數(shù)據(jù)庫.Subm

36、itChanges() MessageBox.Show("插入成功！") Close() Catch MessageBox.Show("插入失敗！") End Try Else MessageBox.Show("席位已預(yù)訂！") End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Close() End Sub Private Sub 包間席位添加_Load(sender As Object,

37、e As EventArgs) Handles MyBase.Load End SubEnd Class席位和包間修改：Public Class 包間席位修改 Dim 數(shù)據(jù)庫 As 數(shù)據(jù)庫DataContext = New 數(shù)據(jù)庫DataContext Dim 修改項 As 席位和包間 = New 席位和包間 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.席位和包間 Where 表項.預(yù)定編號 =

38、TextBox1.Text Select 表項 修改項 = 查詢結(jié)果.FirstOrDefault() Try TextBox2.Text = 修改項.預(yù)定時間 TextBox3.Text = 修改項.席位編號 Catch End Try End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 修改項.預(yù)定時間 = Date.Now 修改項.席位編號 = TextBox3.Text Try 數(shù)據(jù)庫.SubmitChanges() MessageBox.Show("

39、;修改成功！") Close() Catch MessageBox.Show("修改失敗！") End Try End Sub Private Sub 包間席位修改_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class菜單刪除：Public Class 菜單刪除 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataC

40、ontext Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.菜單 Where 表項.菜單名.Contains(TextBox1.Text) Select 表項 Try Dim 刪除數(shù)據(jù) = 查詢結(jié)果 數(shù)據(jù)庫.菜單.DeleteAllOnSubmit(刪除數(shù)據(jù)) 數(shù)據(jù)庫.SubmitChanges() MessageBox.Show("刪除成功！") Catch ex As Exception MessageBox.Show("刪除失?。?quot;) End Try Close() End Sub Private Sub Button2_Click(send

41、er As Object, e As EventArgs) Handles Button2.Click Close() End Sub Private Sub 菜單刪除_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class菜單添加：Public Class 菜單添加 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 菜品

42、價格 = From 表項 In 數(shù)據(jù)庫.主食 Where 表項.名稱 = TextBox2.Text Select 表項.價格 Try IsDBNull(菜品價格.First) Catch ex As Exception 菜品價格 = From 表項 In 數(shù)據(jù)庫.酒水資料 Where 表項.名稱 = TextBox2.Text Select 表項.價格 End Try 'If IsDBNull(菜品價格.First) Then ' 菜品價格 = From 表項 In 數(shù)據(jù)庫.酒水資料 ' Where 表項.名稱 = TextBox2.Text ' Select

43、 表項.價格 'End If 數(shù)據(jù)庫.菜單.InsertOnSubmit( New 菜單 With .菜單名 = TextBox1.Text, .內(nèi)容 = TextBox2.Text, .價格 = 菜品價格.FirstOrDefault ) Try 數(shù)據(jù)庫.SubmitChanges() MessageBox.Show("插入成功！") Close() Catch MessageBox.Show("插入失??！") End Try End Sub Private Sub Button2_Click(sender As Object, e As Ev

44、entArgs) Handles Button2.Click Close() End Sub Private Sub 菜單添加_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class菜單修改：Public Class 菜單修改 Dim 數(shù)據(jù)庫 As 數(shù)據(jù)庫DataContext = New 數(shù)據(jù)庫DataContext Dim 修改項 As 菜單 = New 菜單 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles

45、Button1.Click 修改項.菜單名 = TextBox2.Text 修改項.內(nèi)容 = TextBox3.Text Dim 菜品價格 = From 表項 In 數(shù)據(jù)庫.主食 Where 表項.名稱 = TextBox3.Text Select 表項.價格 If IsDBNull(菜品價格) Then 菜品價格 = From 表項 In 數(shù)據(jù)庫.酒水資料 Where 表項.名稱 = TextBox3.Text Select 表項.價格 End If 修改項.價格 = 菜品價格.FirstOrDefault Try 數(shù)據(jù)庫.SubmitChanges() MessageBox.Show("修改成功！") Close() Catch MessageBox.Show("修改失敗！") End Try End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Dim 查詢結(jié)果 = From 表項 In 數(shù)據(jù)庫.菜單 Where 表項.菜單名 = TextBox1.Text Select 表項 修改項