DM中实现客房预订业务

 　客房预订业务的特点是顾客流动性大，其用户注册方式更为灵活，预订业务除了常用的验证外，还要防止在预订满的情况下继续预订客房。本实例将为读者介绍如何实现客房预订业务。

　　效果说明　图 96-1 所示是预订业务的基本界面，用户可以直接登录或注册并预订客房。

　　

　　创作构思 通过程序检测用户是否成功登录，登录错误的是否能够注册成功，并添加用户的预订资料。通过“ DataTime ”类下的“ Compare ”，将用户预订的时间与其他用户已预订的时间进行比较，以检测是否预订满。

　　操作步骤

　　步骤一　设置应用程序的环境

　　（ 1 ）复制光盘中实例 96 的内容。将“光盘 \ 源文件 \ 实例 96 ” 目录下的所有文件复制到“ C:\ Inetpub\wwwroot\ ”目录下。在 IIS 服务器中设置默认网站的主目录为“ C:\ Inetpub\wwwroot\hotel ”（可参考实例 1 中的相关方法）。在 Dreamweaver 中新建站点“ hotel ”，其站点目录为“ C:\ Inetpub\wwwroot\hotel ”，建立站点的方法可参照实例 2 。

　　（ 2 ）“ hotel.mdb ”结构。运行 Access ，打开“ C:\ Inetpub\wwwroot\adweb\data\hotel.mdb ”，可以看到数据库“ hotel.mdb ”中有“ tbOder ”、“ tbUser ”和“ tbRoom ” 3 个数据表。“ tbOder ”表用于存储用户订房的相关资料，该表的数据结构如图 96-2 所示。“ tbUser ”表用于存储用户的注册信息，该表的数据结构如图 96-3 所示。“ tbRoom ”表用于存储酒店各类客房的价格及相应的客房数，该表的数据结构如图 96-4 所示。数据库“ hotel.mdb ”中还有一个查询表“ UserOrder ”，该查询表在设计视图中的设置如图 96-5 所示。

　　

　　

　　（ 3 ）建立数据库链接“ ADconn ”，链接数据库“ C:\ Inetpub\wwwroot\adweb \data\hotel.mdb ”，方法可参考实例 75 。

 

步骤二　设计基本页面

　　（ 1 ）“ index.aspx ”页面结构。打开“ index.aspx ”，该页面是素材直接提供的，初始打开时如图 96-6 所示。图中①、②所示是图像而不是图像按钮，圆角方框①所示的图像其作用是添加“ OnClick ”动作以显示“ Layer1 ”层，该层中添加了一个日历控件，其 ID 为“ MyCalendar1 ”；圆角方框②所示图像的作用是添加“ OnClick ”动作以显示“ Layer2 ”层，该层中添加了一个日历控件，其 ID 为“ MyCalendar2 ”。

　　提示：“ index.aspx ”初始页面中其他控件的设置情况如表 96-1 所示。

　　表 96-1 “ index.aspx ”初始页面中其他控件的设置情况

　　

控件对应文本	控件类型	控件 ID
入住时间	asp ：文本框	StartTime
离店时间	asp ：文本框	LastTime
预订数量	asp ：文本框	OrderNum
会员 ID	asp ：文本框	UserID1
会员密码	asp ：文本框	UserPass1
注册 ID	asp ：文本框	UserID
真实姓名	asp ：文本框	UseName
登录密码	asp ：文本框	UserPass
重复密码	asp ：文本框	UserPass2
电子邮件	asp ：文本框	UserEmail
联系电话	asp ：文本框	UserTel
【现在预订】按钮	asp ：按钮	Orderbt
【全部重置】按钮	表单按钮	Submit （其动作为重置表单）

 

　　（ 2 ）添加数据集【 RoomData 】。在【服务器行为】面板中添加数据集【 RoomData 】，其在【数据集】对话框中的设置如图 96-7 所示。

　　（ 3 ）修改 SQL 命令。在【数据集】对话框中单击【高级】按钮，切换到【数据集】高级对话框，将 SQL 命令由 SELECT Pice,RoomID, RoomNum,RoomType FROM tbRoom 改为 SELECT Pice,RoomID, RoomNum, trim(RoomType)+chr(32)+cstr(Pice) As RoomType FROM tbRoom ，如图 96-8 所示。

（ 4 ）添加数据列表。单击 ASP.NET 快捷菜单中的【 asp ：单选按钮列表】，操作如图 96-9 所示。   　　（ 5 ）为页面添加“ System.Data ”、“ System.Data.OleDb ”、“ System.Globalization ”和“ System.Threading ” 4 个命名空间，如图 96-10 中圆角方框所示。 　　（ 6 ）定义页面载入过程“ Page_Load ”，该过程的代码如下所述。 Sub Page_Load(ByVal Src As Object, ByVal E As EventArgs) Dim i As Integer If Not Page.IsPostBack Then For i = 0 To RoomData.RecordCount - 1 Dim str1, str2 As String str1 = RoomData.DefaultView(i).Row("RoomType") str2 = CStr(RoomData.DefaultView(i).Row("RoomID")) RoomRadio.Items.Add(New ListItem(str1, str2)) Next End If End Sub 　　（读者可打开【光盘】｜【源文件】｜【实例 96 】｜【 96.1.txt 】文件，直接复制） 　　程序说明： 　　该 “ Page_Load ”过程是在第一次载入页面时，为单选按钮列表“ RoomRadio ”添加列表项，添加列表项的标签值等于“ RoomData ”数据集下的字段“ RoomType ”，而选取值等于字段“ RoomID ”。 　　提示：也许有人会问为什么不直接用单选按钮列表的数据绑定呢？这由于通过 Dreamweaver 进行数据绑定，在程序中经常会出现无法获取单选按钮列表选取值的错误。 　　（ 7 ）定义“ MyCalendar1_SelectionChanged ”过程，用于响应日历控件“ MyCalendar1 ”的“ SelectionChanged ”事件，该过程的代码如下所述。 Protected Sub MyCalendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyCalendar1.SelectionChanged starttime.text = MyCalendar1.SelectedDate.ToShortDateString End Sub 　　（读者可打开【光盘】｜【源文件】｜【实例 96 】｜【 96.2.txt 】文件，直接复制） 　　（ 8 ）定义“ MyCalendar2_SelectionChanged ”过程，用于响应日历控件“ MyCalendar2 ”的“ SelectionChanged ”事件，该过程的代码如下所述。 Protected Sub MyCalendar2_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)Handles MyCalendar2.SelectionChanged lasttime.text= MyCalendar2.SelectedDate.ToShortDateString End Sub 　　（读者可打开【光盘】｜【源文件】｜【实例 96 】｜【 96.3.txt 】文件，直接复制）

步骤三　实现客户预订业务

　　（ 1 ）实现客户预订业务的程序流程如图 96-11 所示。

　　

　　（ 2 ）为页面添加 4 个全局变量，如图 96-12 中圆角方框所示。

　　

　　（ 3 ）定义“ Usercheck ”函数。该函数用于检测用户是否登录正确，登录不正确时是否注册成功，如果用户登录正确或者注册成功，则该函数返回“ True ”，否则将返回“ False ”，该函数的代码如下所述。

以下是引用片段： 　　Function Usercheck() As Boolean  　　Dim Hotelada1, Hotelada2 As OleDbDataAdapter  　　Dim HotelDataSet1, HotelDataSet2 As System.Data.DataSet  　　Dim Hoteldt1, Hoteldt2 As DataTable  　　Dim tbRow As DataRow  　　Dim yy As OleDbCommandBuilder  　　Hotelstring = "Select * From tbUser Where UserId='" & UserID1.Text & "' And UserPass='" & UserPass1.Text & "'"  　　Hotelada1 = New OleDbDataAdapter(Hotelstring, conn)  　　HotelDataSet1 = New System.Data.DataSet  　　Hotelada1.Fill(HotelDataSet1, "tbUser")  　　Hoteldt1 = HotelDataSet1.Tables("tbUser")  　　If Hoteldt1.Rows.Count ＞ 0 Then  　　strName = Hoteldt1.Rows(0)("UserId")  　　Else  　　If (Trim(UserID.Text) ＜＞ Nothing) And (Trim(UserPass.Text) ＜＞ Nothing) _  　　And (Trim(UserName.Text) ＜＞ Nothing) And (Trim(UserEmail.Text) ＜＞ Nothing) _  　　And (Trim(UserTel.Text) ＜＞ Nothing) Then  　　Hotelstring = "Select * from tbUser"  　　Hotelada2 = New OleDbDataAdapter(Hotelstring, conn)  　　yy = New OleDbCommandBuilder(Hotelada2)  　　HotelDataSet2 = New System.Data.DataSet  　　Hotelada2.Fill(HotelDataSet2, "tbUser")  　　Hoteldt2 = HotelDataSet2.Tables("tbUser")  　　tbRow = Hoteldt2.NewRow  　　tbRow("UserId") = UserID.Text  　　tbRow("UserPass") = UserPass.Text  　　tbRow("UserName") = UserName.Text  　　tbRow("UserEmail") = UserEmail.Text  　　tbRow("UserTel") = UserTel.Text  　　Hoteldt2.Rows.Add(tbRow)  　　Hotelada2.Update(HotelDataSet2, "tbUser")  　　strName = UserID.Text  　　Else  　　Usercheck = False  　　Exit Function  　　End If  　　End If  　　Usercheck = True  　　End Function

　　（ 4 ）定义“ Roomcheck ”函数。该函数首先检测用户有没有选择预订客房类型，如果没有选择，则该函数返回“ False ”，接着在用户选择预订客房类型的情况下，检测所选择的客房类型在预订的时间段中是否已预订满，如果是，则返回“ False ”，否则将返回“ True ”，该函数的代码如下所述。 

以下是引用片段： 　　Function Roomcheck() As Boolean  　　Dim Hotelada1, Hotelada2 As OleDbDataAdapter  　　Dim HotelDataSet1, HotelDataSet2 As System.Data.DataSet  　　Dim Hoteldt1, Hoteldt2 As DataTable  　　Dim i, RoomI As Integer  　　If RoomRadio.SelectedItem.Value ＜＞ Nothing Then  　　Hotelstring = "Select * From UserOrder Where RoomID=" & RoomRadio.SelectedItem.Value  　　Hotelada1 = New OleDbDataAdapter(Hotelstring, conn)  　　HotelDataSet1 = New System.Data.DataSet  　　Hotelada1.Fill(HotelDataSet1, "UserOrder")  　　Hoteldt1 = HotelDataSet1.Tables("UserOrder")  　　Dim Date1, Date2 As Date  　　Date1 = StartTime.Text  　　Date2 = LastTime.Text  　　For i = 0 To Hoteldt1.Rows.Count - 1  　　Dim roomdate1, roomdate2 As Date  　　roomdate1 = Hoteldt1.Rows(i)("StartTime")  　　roomdate2 = Hoteldt1.Rows(i)("LastTime")  　　If (System.DateTime.Compare(Date1, roomdate1) And System.DateTime.Compare(roomdate2, Date1)) _  　　Or (System.DateTime.Compare(Date2, roomdate1) And System.DateTime.Compare(roomdate2, Date2)) _  　　Or (System.DateTime.Compare(roomdate1, Date1) And System.DateTime.Compare(Date2, roomdate2)) Then  　　RoomI += 1  　　End If  　　 Next  　　Hotelstring = "select RoomNum From tbRoom where RoomID=" & RoomRadio.SelectedItem.Value  　　Hotelada2 = New OleDbDataAdapter(Hotelstring, conn)  　　HotelDataSet2 = New System.Data.DataSet  　　Hotelada1.Fill(HotelDataSet2, "tbRoom")  　　Hoteldt2 = HotelDataSet2.Tables("tbRoom")  　　If RoomI +CInt(OrderNum.Text) ＞ Hoteldt2.Rows(0)("RoomNum") Then  　　Roomcheck = False  　　Exit Function  　　End If  　　Else  　　Roomcheck = False  　　Exit Function  　　End If  　　Roomcheck = True  　　End Function

　　提示：程序中采用“ DataTime ”类下的“ Compare ”方法进行时间比较，查找出现时间重复的订单。以下 3 种情况属于时间重复：① 用户选择的入住时间小于订单中的“ StartTime ”字段值，选择的离店时间大于“ LastTime ”字段值；② 用户选择的入住时间大于订单中的“ StartTime ”字段值，选择的离店时间小于“ LastTime ”字段值；③ 用户选择的入住时间小于订单中的“ StartTime ”字段值，选择的离店时间小于“ LastTime ”字段值。查找得出的重复数如果等于该类型客房的最大客户数，则说明该时间段中该类型的客房已预订满。

　　（ 5 ）定义“ Orderinser ”过程用于添加用户预订客房的相关信息到“ tbOrder ”表中，该过程的代码如下所述。

以下是引用片段： 　　Sub Orderinser()  　　Dim Hotelada2 As OleDbDataAdapter  　　Dim HotelDataSet2 As System.Data.DataSet  　　Dim Hoteldt2 As DataTable  　　Dim tbRow As DataRow  　　 Dim yy As OleDbCommandBuilder  　　Hotelstring = "Select * From tbOrder"  　　Hotelada2 = New OleDbDataAdapter(Hotelstring, conn)  　　HotelDataSet2 = New System.Data.DataSet  　　yy = New OleDbCommandBuilder(Hotelada2)  　　Hotelada2.Fill(HotelDataSet2, "tbOrder")  　　Hoteldt2 = HotelDataSet2.Tables("tbOrder")  　　tbRow = Hoteldt2.NewRow  　　tbRow("UserID") = strName  　　tbRow("RoomID") = CInt(RoomRadio.SelectedItem.Value)  　　tbRow("OrderNum") = CInt(OrderNum.Text)  　　tbRow("StartTime") = StartTime.Text  　　tbRow("LastTime") = LastTime.Text  　　HotelDataSet2.Tables("tbOrder").Rows.Add(tbRow)  　　Hotelada2.Update(HotelDataSet2, "tbOrder")  　　End Sub

　　（ 6 ）定义过程“ ErrInfo ”用于出错时调用该过程显示错误信息，该过程的代码如下所述。 

以下是引用片段： 　　Sub ErrInfo(ByVal Errmess As String)  　　Dim strScript As String  　　strScript = "＜script language=javascript＞"  　　strScript += "alert('" + Errmess + "');"  　　strScript += "＜"  　　strScript += "/"  　　strScript += "script＞"  　　RegisterClientScriptBlock("showSaveMessage", strScript)  　　End Sub

　　（ 7 ）定义【现在预订】按钮的“ OnClick ”事件响应过程为“ Orderbt_Click ”，并将该过程绑定到【现在预订】按钮的“ OnClick ”事件中。“ Orderbt_Click ”过程的源代码如下所述。

以下是引用片段： 　　Protected Sub Orderbt_Click(ByVal sender As Object, ByVal e As System.EventArgs)  　　Dim Errstr As String  　　HotelConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/hotel.mdb")  　　conn = New OleDbConnection(HotelConn)  　　If Usercheck() = False Then  　　Errstr = " 请正确登录或正确输入您的注册信息！ "  　　ErrInfo(Errstr)  　　Exit Sub  　　End If  　　If Roomcheck() = False Then  　　Errstr = " 您预订客房在您预订时间段中已预订满了！ "  　　ErrInfo(Errstr)  　　Exit Sub  　　End If  　　Orderinser()  　　End Sub

　　（ 8 ）预览效果。保存“ index.apsx ”，在 IE 中预览效果，如图 96-1 所示。

　　本实例讲解了客房预订业务中最简单的流程：用户注册、登录、验证用户预订客房是否预订满，以完成客房预订业务。本实例没有对服务器控件进行验证，也没有对注册名惟一性的验证进行，有兴趣的读者可以参考实例 76 和实例 77 ，添加相关功能。当提交预订资料时，客房预订业务会把预订资料以电子邮件的方式发给预订客房的用户，本实例也没有对这方面的知识进行讲解，有兴趣的读者可以参考实例 84 中“步骤三 建立订单邮件自动回复”里的相关内容。当提交预订资料时，客房预订业务也会将资料发给酒店的总台，以便更新总台客房预计的相关数据库，由于这方面的知识已经超出 Dreamweaver 的应用范围，所以这里就不再详细介绍了。至此，本实例操作完毕。