freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb課程設計餐飲管理系統(tǒng)(編輯修改稿)

2025-05-09 00:32 本頁面
 

【文章內(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
點擊復制文檔內(nèi)容
公司管理相關推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1