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

正文內(nèi)容

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

2025-05-09 00:32 本頁(yè)面
 

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