【正文】 eIf Trim() = 維修 Then .Status = 4 End If If Modify = False Then 39。如果原始編號等于現(xiàn)有編號，則修改記錄； .Update (OrgRId) Else 39。預(yù)定信息記錄 ,Status=1 的為預(yù)定信息 = Conn = SELECT ListId As 編號 , RoomNo As 客房編號 , Days As 預(yù)定天數(shù) , _ + Price As 預(yù)定單價 , Rate As 預(yù)定折扣 , OtherFee As 其他收費 , _ + Memo As 備注說明 FROM OrderList WHERE OrderId= _ + Trim(OId) + ORDER BY ListId Set = Adodc1 With DataGrid1 .Columns(0).Width = 0 .Columns(1).Width = 1200 .Columns(2).Width = 1200 .Columns(3).Width = 1200 .Columns(4).Width = 1200 .Columns(5).Width = 1200 .Columns(6).Width = 3000 End With End Sub P288 客房預(yù)定信息管理 窗體 Private Sub Refresh_OrderRoom() Dim TmpSrouce As String TmpSource = SELECT As 編號 , As 客戶編號 , As 客戶姓名 , _ + As 押金 , As 預(yù)定時間 , _ + As 操作人 FROM OrderRoom o, Customer c, Users u _ + WHERE = And = ORDER BY DESC If Trim(txtCustName) Then TmpSource = TmpSource + And LIKE 39。 End If = Conn = TmpSource Set = Adodc1 39。客房信息記錄 ,只顯示空房列表，即 status=0 = Conn = SELECT As 房間編號 , As 房間類型 , _ + As 房間個數(shù) , As 床位數(shù)量 , As 朝向 , + as 價格 , as 物品清單 FROM Room r, RoomType t _ + WHERE = And =0 ORDER BY Set = Adodc1 With DataGrid1 .Columns(0).Width = 0 .Columns(1).Width = 1000 .Columns(2).Width = 1000 .Columns(3).Width = 1000 .Columns(4).Width = 1000 .Columns(5).Width = 1000 .Columns(6).Width = 1000 End With End Sub 客房入住登記信息管理 Public Sub Refresh_Reg() 39。% + MakeStr(txtCustName) + %39?？蛻粜彰? (3).Width = 1000 39。入住時間 (5).Width = 1000 39。入住天數(shù) (7).Width = 1000 39。折扣 (9).Width = 1000 39。押金 (11).Width = 1000 39。入住信息記錄 Dim TmpSource As String TmpSource = SELECT As 編號 , As 客戶編號 , As 客戶姓名 , _ + As 房間編號 , As 入住時間 , As 退房時間 , _ + As 入住天數(shù) , As 報價 , As 折扣 , As 其他收費 , _ + As 押金 , As 其他說明 , As 操作人 _ + FROM Registration r, Customer c , Users u _ + WHERE = And = And =1 If Trim(txtCustName) Then TmpSource = TmpSource + And LIKE 39。 End If = Conn = TmpSource Set = Adodc1 (0).Width = 0 (1).Width = 0 (2).Width = 1000 (3).Width = 1000 (4).Width = 1200 39。退房時間 (6).Width = 1000 39。報價 (8).Width = 1000 (9).Width = 1000 End Sub 續(xù)住登記管理 Private Sub Cmd_OK_Click() If Trim(txtLeaveDate) = False Then MsgBox 請錄入退房日期 Exit Sub End If If Val(txtDays) = 0 Then MsgBox 請錄入入住天數(shù) Exit Sub End If If Val(txtOtherFee) 0 Then MsgBox 請錄入有效的其他費用 Exit Sub End If If Val(txtFirstPay) 0 Then MsgBox 請錄入有效的押金 Exit Sub End If 39。如果是已退房記錄，則不能再執(zhí)行退房操作 If = 0 Then = True Else = False End If End Sub Private Sub DataGrid1_Click() End Sub 退房登記管理 收銀統(tǒng)計管理模塊設(shè)計 收銀統(tǒng)計管理模塊可以實現(xiàn)以下功能： 實收房款管理 客戶消費統(tǒng)計表 實收款統(tǒng)計表 實收房款信息編輯窗體的名稱為 FrmFRoomEdit,其布局如下圖所示。 在窗體 FrmPayFRoomMan 中，可以分別查看到“已退房”和“已結(jié)款”。 客戶消費統(tǒng)計表 客戶消費統(tǒng)計表窗體名稱為 FrmPayFRoomMan 窗體布局如下圖所示。查詢條件 If Trim(txtCid) Then strSearch = And LIKE 39。 End If 39。表Customer 可以提供客戶的基本信息，表 Registration 可以提供客戶的登記入住信息，表PayforRoom 可以提供客戶實結(jié)房款 的信息。 Private Sub Refresh_Pay() Dim strSearch As String 39。全部 strSearch = Case 1 39。 + Trim() + 39。小于 strSearch = WHERE OptTime39。 Case 3 39。 + Trim() + 39。設(shè)置記錄源 = Conn = SELECT OptTime As 收費日期 , Sum(Amount) As 收費總金額 _ + FROM PayforRoom + strSearch + GROUP BY OptTime Set = Adodc1 (0).Width = 3200 (1).Width = 3300 End Sub 用戶信息管理模塊設(shè)計 根據(jù)用戶的不同，用戶管理模塊的功能也不相同。如果沒有選擇用戶名，則返回 If = Then Exit Sub End If 39。設(shè)置用戶名 lblUserName = 39。 （ 1） 當用戶單擊“修改”按鈕時觸發(fā) Cmd_modi_click 事件。 10． 1． 3 在主界面中增加用戶管理代碼 （ 1）在主界面中單擊“系統(tǒng)用戶管理” /“用戶管理”菜單，將打開用戶管理窗體，代碼如下： Private Sub m_Uers_Click() 39。在主界面中單擊“系統(tǒng)用戶管理” /“修改密碼”菜單項，將打開修改密碼窗體，代碼如下： Private Sub m_Pwd_Click() 39。 2．用戶信息編輯窗體 本窗體可以用來添加和修改用戶信息，窗休名稱為 FrmUserEdit，窗體布局如下： 用戶單擊“確定”按鈕觸發(fā) Cmd_ok_click 事件，代碼如下： Private Sub Cmd_OK_Click() If Len(txtPass) 6 Then MsgBox 密碼不能小于 6 Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認密碼不相同，請重新確認 Exit Sub End If 39。如果改變了當前 的用戶，則必須更新 CurUser 對象。武漢理工大學出版社 . [10].趙增敏 .SQL SERVER 2021 實用教程 .北京 :電子工業(yè)出版社 .