计算机毕业设计介绍：
4.2预订信息的管理
预订信息管理在实现登记客人信息的同时，还完成了预订入住和取消预订等功能，并将显示订房客人信息和空闲房间信息在页面上。当用户录入客户信息并点击保存信息时，客户信息显示在已订房间Datagrid中，同时减少可选择的房间数量，将该房间的状态更新为预订。该模块中，“取消预订”功能实现取消已经订了房间的功能，将房间的状态设为空闲，同时删除“顾客信息表”中相应的记录。“预订入住”功能实现把订了的房间转为入住状态，同时把对应的顾客信息的状态改为“入住” ，预订日期为当前日期。
程序初始化，从房间表中选择状态为空闲的房号，类型, 房价,状态返回到Datagrid1控件体现出来，从“顾客信息表”中返回状态为预订的客人信息如姓名，房号，押金，预订日期。
“保存信息”功能的实现和登记窗体中的类似，为避免累赘在此就不在重复介绍了。
“取消预订”主要由以下代码实现：
Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click
‘首先判断是否真的要取消预订
‘以下将取消的房间状态设为"空闲"，“顾客信息表”中客人的状态改为“退房”
Dim comstr1 As String="update 房间表 set 状态='空闲'where房号='" & DataSet21.顾客信息表.Rows(DataGrid2.CurrentRowIndex).Item(1) & "'"
Dim comstr2 As String="update 顾客信息表set状态='退房'where房号='"&DataSet21.顾客信息表.Rows(DataGrid2.CurrentRowIndex).Item(1)&"'"
Dim sqlcom1 As New SqlCommand(comstr1, SqlConnection1)
Dim sqlcom2 As New SqlCommand(comstr2, SqlConnection1)
SqlConnection1.Open()
sqlcom1.ExecuteNonQuery()
sqlcom2.ExecuteNonQuery()
DataSet21.顾客信息表.Rows(DataGrid2.CurrentRowIndex).Delete()
SqlDataAdapter3.Update(DataSet21, "顾客信息表")
Ds1.Clear()
SqlDataAdapter1.Fill(Ds1, "房间表")
‘清窗数据集重新填充，把空闲的房间重新显示出来
Catch
Finally
SqlConnection1.Close()
End Try
End Sub
“预订入住”主要由以下代码实现：
Private Sub btbook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbook.Click
‘判断是否真的要办理入住
‘以下改变"房间表"和"顾客信息表"的状态
Dim comstr1 As String = "update 房间表 set 状态 = '营业中' where 房号 = '" & DataSet21.顾客信息表.Rows(DataGrid2.CurrentRowIndex).Item(1) & "'"
以下把状态改为"入住",预订日期改为当前时间
Dim comstr2 As String = "update 顾客信息表 set 状态 = '入住',入住日期='"&Now()&"'where入住日期='"& DataSet21.顾客信息表. Rows(DataGrid2.CurrentRowIndex).Item(3) & "'"
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第7页为计算机毕业论文部分......