计算机毕业设计介绍：
4基于.NET的酒店预订信息管理系统的实现
首先用户登陆后，即可完成本系统的所有功能，如登记客人信息，预订房间，退房，查看客人信息，查看房间信息，修改密码等操作。
实现登记，订房，退房等窗体显示的功能都较简单。登记窗体的显示是由rentroom.vb实现的，其重要代码如Dim ob_rentroom As New rentroom ob_rentroom.Show()，调用登记窗体后，主窗体不隐藏。订房、退房、查看客人信息等窗体的显示实现代码如上面的登记代码类似，在此就不在一一介绍了。其中实现退出功能中语句Application.Exit()是将整个程序关闭。为了使程序完全退出，最好使用“退出”按钮，勿直接关闭窗口。
4.1顾客基本信息的登记
登记模块主要对客人的姓名，性别，类型，证件类型，证件号码，房间号，入住日期，押金等信息的录入，并将空闲的房间显示在页面上。当用户录入客人信息，点击“保存信息”时，房间表中可选择的房间数量就减少一个，登记的客人信息在顾客信息表中也有了相应的记录。
该窗体主要的代码如下：
程序初始化：
Private Sub rentroom_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
SqlDataAdapter1.SelectCommand.CommandText = "select 房号,类型,房价,状态 from 房间表 where 状态 = '空闲'"
SqlDataAdapter1.Fill(Ds1, "房间表")
Me.BindingContext(Ds1, "顾客信息表").AddNew()
‘为“顾客信息表”添加新行
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
初始化的目的是从数据表“房间表”中选择空闲的房间，并将其信息如房号,类型,房价,状态返回到Datagrid控件体现出来。
“保存信息”主要是保存用户录入客户的基本信息如姓名,房号，入住日期等。当保存信息后，房间的数量将减少，同时也更改房间的状态。若用户在保存信息时没添加客户姓名或选择房间，系统都会自动弹出消息框，提醒用户添加其信息。由以下代码实现：
Private Sub btsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsave.Click
……………………………………’判断是否添加姓名或选择房间
Me.BindingContext(Ds1, "顾客信息表").EndCurrentEdit()
‘将数据返回数据集
SqlDataAdapter2.Update(Ds1, "顾客信息表")
‘更新数据，返回数据源
Ds1.Tables("顾客信息表").Clear()
‘以下代码把选择的房间状态由“空闲”改为“营业中”
Dim comstr As String = "update 房间表 set 状态 = '营业中' where 房号 = '" & Ds1.房间表.Rows(DataGrid1.CurrentRowIndex).Item(0) & "'"
Dim sqlcom As New SqlCommand(comstr, SqlConnection1)
SqlConnection1.Open()
sqlcom.ExecuteNonQuery()
‘执行数据库语句，即添加新行
MsgBox("录入成功！ ")
Me.BindingContext(Ds1,"顾客信息表").CancelCurrentEdit()
Ds1.Clear()
SqlDataAdapter1.Fill(Ds1, "房间表")
Me.BindingContext(Ds1, "顾客信息表").AddNew()
Catch ex As Exception
MsgBox(ex.Message)
Finally
SqlConnection1.Close()
End Try
End Sub
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第6页为计算机毕业论文部分......