【正文】 的作用，能及時、方便、靈動地進行查詢、修改、刪除等維護性操作。4. 查詢管理：能夠?qū)Ω鞣N基本信息進行查詢，也能對包間和席位預訂和使用狀態(tài)信息進行查詢?？梢詫崿F(xiàn)對餐飲基本信息的瀏覽，查找，編輯等操作。由于是一個對餐飲項目進行管理，要求其要有明確的權(quán)限分配，并且要有較快的響應速度，系統(tǒng)還要有較高的可靠性。⑷ 響應速度系統(tǒng)的響應速度不得超過1秒。并需要根據(jù)各流程的次序和客戶訂餐順序等計算出該訂單的收支。管理員等用戶可以查看往屆資料，消費記錄，員工信息等。⑴ 基本信息查詢模塊可以對員工信息、酒水信息、客戶信息、訂單信息、菜單和主食信息等進行瀏覽和查找。如果是管理員則進入登錄界面，如果不是管理員身份，則進入返回界面。系統(tǒng)功能圖如圖7所示：圖7系統(tǒng)功能圖系統(tǒng)功能主要由基本功能模塊、編輯功能模塊、添加修改功能模塊、刪除功能模塊、消費管理功能模塊、保存功能模塊、統(tǒng)計功能模塊組成。(3) 統(tǒng)計功能模塊可以對營業(yè)功能進行統(tǒng)計整合，保存消費記錄等功能。部門信息表結(jié)構(gòu)如表1所示。本系統(tǒng)選用ADO方式連接數(shù)據(jù)庫。運營模塊，員工可以對未結(jié)賬的項目進行管理。本部分程序流程如圖8所示。程序如下：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In Where () Select 表項 = 查詢結(jié)果 End Sub （1）用戶進入菜單信息模塊之后，點擊“查詢”按鈕，系統(tǒng)彈出“查詢”對話框，在對話框中相應的位置收入酒水的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到菜單表中。程序如下： Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 菜單修改 () Button2_Click(Nothing, Nothing) End Sub（4）用戶進入菜單信息模塊之后，點擊“刪除”按鈕，系統(tǒng)彈出“刪除”對話框，在對話框中相應的位置收入菜單的各種信息，點擊“確定”按鈕，如果數(shù)據(jù)無誤，則數(shù)據(jù)添加到酒水表中。它與認知學、人機工程學、心理學等學科領域有密切的聯(lián)系。剛開始的時候完全不知道在哪里著手，但慢慢地我就一點點地理清了頭緒，我先在網(wǎng)上找了許多關于餐飲方面的資料，然后根據(jù)課設的主要內(nèi)容將資料進行篩選，再進行整理和歸納。 圖12登陸界面(2) 等待一會后即進入到系統(tǒng)主界面，如圖13所示。 圖15菜單信息查詢(5) 點擊“主食”進入到主食界面，如圖16所示。 菜品價格 = From 表項 In 39。TODO: 這行代碼將數(shù)據(jù)加載到表“”中。您可以根據(jù)需要移動或刪除它。 () End SubEnd Class管理界面：Public Class 管理界面 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 員工資料管理 () End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 酒水資料管理 () End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 菜單資料管理 () End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 主食管理 () End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 包間和席位管理 () End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 消費信息管理 () End Sub Private Sub 管理界面_Load(sender As Object, e As EventArgs) Handles End SubEnd Class酒水刪除：Public Class 酒水刪除 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In Where () Select 表項 If Not IsDBNull(查詢結(jié)果) Then Dim 刪除數(shù)據(jù) = () (刪除數(shù)據(jù)) () (刪除成功！) Else (刪除失敗！) End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Close() End Sub Private Sub 酒水刪除_Load(sender As Object, e As EventArgs) Handles End SubEnd Class酒水添加：Public Class 酒水添加 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext ( New 酒水資料 With { .名稱 = , .價格 = }) Try () (插入成功！) Close() Catch (插入失??！) End Try End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Close() End Sub Private Sub 酒水添加_Load(sender As Object, e As EventArgs) Handles 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 Dim 查詢結(jié)果 = From 表項 In Where = Select 表項 修改項 = () Try = = Catch End Try End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles = = Try () (修改成功！) Close() Catch (修改失??！) End Try End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles End Sub Private Sub Label2_Click(sender As Object, e As EventArgs) Handles End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles End Sub Private Sub Label3_Click(sender As Object, e As EventArgs) Handles End Sub Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles End Sub Private Sub 酒水修改_Load(sender As Object, e As EventArgs) Handles End SubEnd Class酒水資料管理：Public Class 酒水資料管理 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In Where () Select 表項 = 查詢結(jié)果 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Dim 數(shù)據(jù)庫 = New 數(shù)據(jù)庫DataContext Dim 查詢結(jié)果 = From 表項 In Select 表項 = 查詢結(jié)果 End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 酒水添加 () End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 酒水刪除 () End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles