数据库宾馆客房管理系统

数据库宾馆客房管理系统内容摘要：

te Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim user As String Dim password As String user = 天津理工大学中环信息学院数据应用技术课程设计说明书 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 宾馆客房 管理系统界面 天津理工大学中环信息学院数据应用技术课程设计说明书 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 结账按钮单击事件的代码： Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim frm5 As New Form4 () 天津理工大学中环信息学院数据应用技术课程设计说明书 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 = 天津理工大学中环信息学院数据应用技术课程设计说明书 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 =。