數(shù)據(jù)庫賓館客房管理系統(tǒng)-文庫吧資料
2024-09-18 09:41本頁面
【正文】 tripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 刪除房間信息 Dim frm6 As New Form11 () () End Sub 管理員信息更新按鈕單擊事件的代碼： Private Sub 添加管理員 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 添加管理員 Dim frm6 As New Form7 () () 天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 16 End Sub Private Sub 修改管理員 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 修改管理員 Dim frm6 As New Form8 () () End Sub Private Sub 刪除管理員 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 刪除管理員 Dim frm6 As New Form9 () () End Sub 返回按鈕單擊事件的代碼： Private Sub 返回 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 返回 Dim frm6 As New Form5 () () End Sub 刪除房間信息界面 查詢按鈕單擊事件的代碼： Private Sub Button1_Click(ByVal sender As , ByVal e As ) 天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 17 Handles If = Then () End If Dim a As String a = select * from 結(jié)賬實體 where 房間號 = 39。 = conn = = a = m () () (ds, 房間信息表 ) = (房間信息表 ) If = Then () End If End Sub 房間號查詢按鈕單擊事件的代碼： Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles If = Then () End If Dim a As String a = select * from 房間信息表 where 房間號 = amp。 = str = m (ds, 顧客信息表 ) = (顧客信息表 ) () End Sub 重置按鈕單擊事件的代碼： Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = = = = End Sub 返回按鈕單擊事件的代碼： Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim frm3 As New Form5 () () End Sub 房間信息查詢界面 天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 13 房間使用查詢按鈕單擊事件的代碼： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Then () End If Dim a As String a = select * from 房間信息表 = conn = = a = m () () (ds, 房間信息表 ) = (房間信息表 ) If = Then () End If End Sub 可用房間查詢按鈕單擊事件的代碼： Private Sub Button2_Click(ByVal sender As , ByVal e As ) 天津理工
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1