數(shù)據(jù)庫賓館客房管理系統(tǒng)-展示頁
2024-09-22 09:41本頁面
【正文】 大學(xué)中環(huán)信息學(xué)院數(shù)據(jù)應(yīng)用技術(shù)課程設(shè)計說明書 14 Handles If = Then () End If Dim a As String a = select * from 房間信息表 where 狀態(tài) =39。 amp。) 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。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。 = 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。 password amp。 and Password=39。 user amp。Integrated Security=SSPI) Dim m As New SqlCommand Dim ds As New DataSet Dim da As New SqlDataAdapter End Class 登陸界面 （ 界面設(shè)置了用戶登錄的確認(rèn)機(jī)制 ） 確定按鈕的單擊事件代碼： Private 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 A
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1