數(shù)據(jù)庫賓館客房管理系統(tǒng)(編輯修改稿)
2024-10-16 09:41 本頁面
【文章內(nèi)容簡介】 te Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim user As String Dim password As String user = 天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 9 password = Dim str As String str = select ID,Password from 管理員 where ID=39。 amp。 user amp。 39。 and Password=39。 amp。 password amp。 39。 = conn = = str = m Try () (ds) If (0). 0 Then Dim frm1 As New Form5 () () Else (密碼或用戶名錯誤，請重新輸入 , 提示信息 ) = = () End If Catch ex As Exception (登陸失敗 , 提示信息 ) End Try End Sub 退出按鈕的單擊事件代碼： Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub 賓館客房 管理系統(tǒng)界面 天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 10 顧客信息登記按鈕的單擊事件代碼： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim frm5 As New Form3 () () End Sub 房間信息查詢按鈕的單擊事件代碼： Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim frm5 As New Form2 () () End Sub 信息更新按鈕的單擊事件代 碼： Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles Dim frm5 As New Form6 () () End Sub 結(jié)賬按鈕單擊事件的代碼： Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim frm5 As New Form4 () 天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 11 () End Sub 退出按鈕單擊事件的代碼 : Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim frm5 As New Form1 () () End Sub 顧客 信息 登記 界面 登記按鈕單擊事件的代碼： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim str As String str = insert into 顧客信息表 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) If = Then () End If = conn = 天津理工大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 12 = str = m (ds, 顧客信息表 ) str = select * from 顧客信息表 where 顧客姓名 =39。 amp。 amp。 39。 = str = m (ds, 顧客信息表 ) = (顧客信息表 ) () End Sub 重置按鈕單擊事件的代碼： Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles =
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1