【文章內(nèi)容簡(jiǎn)介】 ub Button1_Click(sender As Object, e As EventArgs) Handles Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext Dim 查詢(xún)結(jié)果 = From 表項(xiàng) In Where = Select 表項(xiàng) If Not IsDBNull(查詢(xún)結(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ù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext Dim 查詢(xún)結(jié)果 = From 表項(xiàng) In Where = Select 表項(xiàng) If Not IsDBNull() Then ( New 席位和包間 With { .席位編號(hào) = , .預(yù)定時(shí)間 = }) Try () (插入成功！) Close() Catch (插入失?。? End Try Else (席位已預(yù)訂！) 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ù)庫(kù) As 數(shù)據(jù)庫(kù)DataContext = New 數(shù)據(jù)庫(kù)DataContext Dim 修改項(xiàng) As 席位和包間 = New 席位和包間 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Dim 查詢(xún)結(jié)果 = From 表項(xiàng) In Where = Select 表項(xiàng) 修改項(xiàng) = () 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ù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext Dim 查詢(xún)結(jié)果 = From 表項(xiàng) In Where () Select 表項(xiàng) Try Dim 刪除數(shù)據(jù) = 查詢(xún)結(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ù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext Dim 菜品價(jià)格 = From 表項(xiàng) In Where = Select Try IsDBNull() Catch ex As Exception 菜品價(jià)格 = From 表項(xiàng) In Where = Select End Try 39。If IsDBNull() Then 39。 菜品價(jià)格 = From 表項(xiàng) In 39。 Where = 39。 Select 39。End If ( New 菜單 With { .菜單名 = , .內(nèi)容 = , .價(jià)格 = }) 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ù)庫(kù) As 數(shù)據(jù)庫(kù)DataContext = New 數(shù)據(jù)庫(kù)DataContext Dim 修改項(xiàng) As 菜單 = New 菜單 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles = = Dim 菜品價(jià)格 = From 表項(xiàng) In Where = Select If IsDBNull(菜品價(jià)格) Then 菜品價(jià)格 = From 表項(xiàng) In Where = Select End If = Try () (修改成功！) Close() Catch (修改失敗！) End Try End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Dim 查詢(xún)結(jié)果 = From 表項(xiàng) In Where = Select 表項(xiàng) 修改項(xiàng) = () 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ù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext Dim 查詢(xún)結(jié)果 = From 表項(xiàng) In Where () Select 表項(xiàng) = 查詢(xún)結(jié)果 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Dim 數(shù)據(jù)庫(kù) = New 數(shù)據(jù)庫(kù)DataContext Dim 查詢(xún)結(jié)果 = From 表項(xiàng) In Select 表項(xiàng) = 查詢(xún)結(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