【文章內(nèi)容簡(jiǎn)介】 函數(shù) 在數(shù)據(jù)庫(kù) RoomInfo 中讀取房間編號(hào)、房間狀態(tài)和房間名稱的信息，通過(guò)房間編號(hào)來(lái)判定在 MSFlexGrid 控件中顯示的位置，然后通過(guò)房間狀態(tài)來(lái)確定所顯示的圖片文件。 ShowRoomStatus 函數(shù)的代碼如下： Function ShowRoomStatus() Dim strRoomName As String Dim strRoomState As String Dim iRoomID As Integer Dim dr As New ?定義新的 ADO 對(duì)象 Dim Str As String Dim iRecord As Integer Dim i As Integer 39。清空房間圖標(biāo)準(zhǔn)備重新顯示 39。在數(shù)據(jù)庫(kù)中讀取房間信息，確定房間編號(hào)、房 間狀態(tài)和房間名稱。 Str = select RoomID,RoomName,RoomState from RoomInfo Str, g_DBConn, adOpenStatic, adLockOptimistic iRecord = For i = 0 To iRecord If Then Exit Function End If iRoomID = dr(RoomID).Value strRoomName = Trim(dr(RoomName).Value) strRoomState = Trim(dr(RoomState).Value) 39。通過(guò)房間編號(hào)來(lái)確定顯示的位置 If (iRoomID Mod 10) 0 Then = Int(iRoomID / 10) = ((iRoomID Mod 10) 1) ElseIf (iRoomID Mod 10) = 0 Then = Int(iRoomID / 10) 1 = 9 End If 14 39。根據(jù)房間狀態(tài)讀取所要顯示的圖片文件 Select Case strRoomState Case 空房 ?如果房間狀態(tài)為空房 = flexAlignCenterTop Set = LoadResPicture(KONGFANG, vbResBitmap) = strRoomName Case 占用 = flexAlignCenterTop Set = LoadResPicture(ZHANYONG, vbResBitmap) = strRoomName Case 維修 = flexAlignCenterTop Set = LoadResPicture(WEIXIU, vbResBitmap) = strRoomName Case 預(yù)定 = flexAlignCenterTop Set = LoadResPicture(YUDING, vbResBitmap) = strRoomName Case 打掃 = flexAlignCenterTop Set = LoadResPicture(DASAO, vbResBitmap) = strRoomName End Select Next i End Functio 39。定義函數(shù)結(jié)束 在主界面的下方顯示處于各種房間狀態(tài)的房間個(gè)數(shù)是通過(guò) ShowRoomCount函數(shù) 來(lái)實(shí)現(xiàn)的。代碼如下： Function ShowRoomCount() 39。定義函數(shù) Dim RSCount As New Recordset 39。定義新的記錄集對(duì)象 Dim Str As String Str = select RoomID from RoomInfo where amp。 RoomState=39?？辗?39。?查找空房 Str, g_DBConn, adOpenStatic, adLockOptimistic 39。在標(biāo)簽中顯示空房 “” 間 ，其中多少間是通過(guò) RSCount 的 RecordCount 方法來(lái)計(jì)算的 = 空房 : amp。 amp。 間 Str = select RoomID from RoomInfo where amp。 RoomState=39。占用 39。 Str, g_DBConn, adOpenStatic, adLockOptimistic = 占用 : amp。 amp。 間 Str = select RoomID from RoomInfo where amp。 RoomState=39。預(yù)定 39。 15 Str, g_DBConn, adOpenStatic, adLockOptimistic = 預(yù)訂 : amp。 amp。 間 Str = select RoomID from RoomInfo where amp。 RoomState=39。維修 39。 Str, g_DBConn, adOpenStatic, adLockOptimistic = 維修 : amp。 amp。 間 Str = select RoomID from RoomInfo where amp。 RoomState=39。打掃 39。 Str, g_DBConn, adOpenStatic, adLockOptimistic = 打掃 : amp。 amp。 間 End Function 同時(shí)在主界面中，我使用了 Time 控件，它的功能是在一段時(shí)間內(nèi)更新一次ShowRoomStatus 和 ShowRoomCount()函數(shù)，以隨時(shí)顯示最新的房間信息，在這里我設(shè)置了 五秒更新一次。 房間信息 管理 界面 在基本信息的 下拉菜單中有房間信息選項(xiàng)， 單擊它就可以 查看各個(gè)房間的詳細(xì)信息，如圖 43 所示： 圖 43 房間信息界面 房間信息 界面 將所有房間的信息都詳細(xì)的顯示在 DateGrid 控件中，用戶可以 對(duì) 房間進(jìn)行添加、刪除和修改操作 。在這里要注意，當(dāng)刪除房間時(shí)，只能刪除沒(méi)有過(guò)任何使用記錄的房間，因?yàn)槠渌碇杏衅湎嚓P(guān)的記錄，如果要?jiǎng)h除，必須先將所有相關(guān)記錄刪除。 16 窗體中的添加、修改和刪除 只 對(duì)管理員和高級(jí)用戶有效。對(duì)于普通用戶，只能顯示房間信息，無(wú)法實(shí)現(xiàn)添加、修改和刪除操作 ，這三個(gè)按鈕 都 變成灰色無(wú)法使用。 這是因?yàn)?在房間 信息 窗體的設(shè)計(jì)過(guò)程中，通過(guò) Login 窗體中記錄的 信息 已經(jīng)知道該用戶的權(quán)限，在該窗體 Form 的 Load 事件中，已經(jīng)設(shè)置普通用戶是不能進(jìn)行添加、刪除和修改操作的。 房間信息 窗體 的 Load 事件的代碼： Private Sub Form_Load() = ( ) / 2 39。垂直方向居中 = ( ) / 2 39。水平方向居中 If = 0 Then 39。如果用戶的權(quán)限為 0，即普通用戶時(shí)，添加、刪除和修改三個(gè)按鈕顯示為灰。 = False = False = False End If 39。設(shè)置 Adodc 連接字符串 = g_DBConn = adCmdTable = RoomInfo 39。連接的數(shù)據(jù)庫(kù) 39。設(shè)置 Grid 與 Adodc1 關(guān)聯(lián) ，使其顯示當(dāng)前的房間信息 Set = Adodc1 End Sub 會(huì)員信息 管理 界面 在基本信息中，選擇下拉菜單中的會(huì)員信息就可以查看所有會(huì)員的基本信息。如圖44 所示。 圖 6 會(huì)員信息界面 17 會(huì)員信息窗體能顯 示會(huì)員的詳細(xì)信息，并有添加會(huì)員、修改會(huì)員信息、刪除會(huì)員的功能。窗體中的添加、修改和刪除功能 也同樣只 針對(duì)管理員和高級(jí)用戶有效。 其 實(shí)現(xiàn)和房間信息的實(shí)現(xiàn)技術(shù)相同，連接的表是 MemberInfo。 預(yù)定 、開(kāi)房、結(jié)帳、維修和打掃 界面 在該系統(tǒng)中，所涉及到的房間業(yè)務(wù)包括預(yù)定、開(kāi)房、結(jié)帳、維修和打掃。 下面將分別介紹其功能的實(shí)現(xiàn)。 （ 1）預(yù)定 用戶 可以通過(guò)預(yù)定單在預(yù)定單明細(xì)表 （ DestineInfo） 中添加新的預(yù)定信息。在預(yù)定單中，通過(guò)選擇會(huì)員單選框來(lái)從會(huì)員信息表中讀取會(huì)員信息，并且自動(dòng)生成可選的會(huì)員編號(hào)，并且通 過(guò)選擇的會(huì)員編號(hào)顯示會(huì)員姓名、客戶電話。 同理 ，如果選擇了房間編號(hào)，則系統(tǒng)自動(dòng)填充房間類型和房間價(jià)格。 預(yù)定單界面如圖 45，當(dāng)選擇會(huì)員單選框時(shí)的預(yù)定單界面如圖 46： 圖 45 預(yù)定單界面 圖 圖 46 有會(huì)員信息的預(yù)定界面 自動(dòng)生成下拉列表框中的代碼如下： Private Sub Form_Load() Dim DBStr As String Dim AddDestineID As New 39。建立新的 ADO 對(duì)象 Dim i As Integer Dim sDestinedID As String 39。界面顯示位置 = ( ) / 2 39。垂直方向居中 = ( ) / 2 39。水平方向居中 39。隱藏會(huì)員信息和預(yù)訂單編號(hào)信息 18 = False = False = False 39。當(dāng)前日期 = Date 39。自動(dòng)生成預(yù)定單編號(hào) DBStr = select DestineID from DestineInfo = adOpenStatic = adUseClient DBStr, g_DBConn, adOpenForwardOnly, adLockOptimistic If Then sDestinedID = 0001 = sDestinedID