打印本文 
关闭窗口 效果说明 图 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 。
| 热门推荐： | 五种方法快速查找对方IP地址 | IE 7.0浏览器秘密全揭露 |
步骤二 设计基本页面
（ 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
程序说明：
该 “ 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
（ 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
| 热门推荐： | 五种方法快速查找对方IP地址 | IE 7.0浏览器秘密全揭露 |
步骤三 实现客户预订业务
（ 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 的应用范围，所以这里就不再详细介绍了。至此，本实例操作完毕。
| 热门推荐： | 五种方法快速查找对方IP地址 | IE 7.0浏览器秘密全揭露 |
打印本文 关闭窗口