细品DreamweaverMX内建FW技术

内容提要：Macromedia官方将在其他软件中内建Fireworks技术称为Fireworks技术，网上也称之为内建图片编辑器。Dreamweaver MX 2004给人的一个感觉就是与Macromedia公司其它产品的全面无缝集成，这样就大大缩短了开发人员的开发周 ……

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

　　（读者可打开【光盘】｜【源文件】｜【实例 96 】｜【 96.5.txt 】文件，直接复制）

　　提示：程序中采用“ 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
strScrip