【文章內(nèi)容簡介】 ub 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 包間席位刪除_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() Then ( New 席位和包間 With { .席位編號 = , .預定時間 = }) Try () (插入成功！) Close() Catch (插入失敗！) End Try 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 包間席位修改 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 包間席位修改_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 表項 Try Dim 刪除數(shù)據(jù) = 查詢結(jié)果 (刪除數(shù)據(jù)) () (刪除成功！) Catch ex As Exception (刪除失敗！) End Try Close() 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 Dim 菜品價格 = From 表項 In Where = Select Try IsDBNull() Catch ex As Exception 菜品價格 = From 表項 In Where = Select End Try 39。If IsDBNull() Then 39。 菜品價格 = From 表項 In 39。 Where = 39。 Select 39。End If ( New 菜單 With { .菜單名 = , .內(nèi)容 = , .價格 = }) 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 Button1_Click(sender As Object, e As EventArgs) Handles = = Dim 菜品價格 = From 表項 In Where = Select If IsDBNull(菜品價格) Then 菜品價格 = From 表項 In Where = Select End If = Try () (修改成功！) Close() Catch (修改失?。? End Try End Sub 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 菜單修改_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 Button4_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 菜單刪除 () Button2_Click(Nothing, Nothing) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 菜單添加 () Button2_Click(Nothing, Nothing) End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 菜單修改 () Button2_Click(Nothing, Nothing) End Sub