【正文】 ataContext 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 Button2_Click(sender As Object, e As EventArgs) Handles Close() End Sub 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 員工信息添加_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 Button2_Click(sender As Object, e As EventArgs) Handles Close() 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 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 表項 = 查詢結(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 Button5_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 數(shù)據(jù)表_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles End Sub Private Sub TextBox1_TextChanged(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 Button5_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 Button3_Click(sender As Object, e As EventArgs) Handles Dim 窗口 = New 主食添加 () End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Close() End Sub Private Sub 數(shù)據(jù)表_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles End SubEnd Class主食刪除：Public Class 主食刪除 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 Button1_Click(sender As Object, e As EventArgs) Handles = = 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完成日期：2015年7月5日