酒店管理系統(tǒng)開發(fā)文檔(編輯修改稿)
2025-09-03 09:31 本頁面
【文章內(nèi)容簡介】 .TextMatrix(0,1)=”標(biāo)準(zhǔn)編號(hào)” .TextMatrix(0,2)=”標(biāo)準(zhǔn)名稱” .TextMatrix(0,3)=”房間面積” .TextMatrix(0,4)=”床位數(shù)量” .TextMatrix(0,5)=”是否有空調(diào)” .TextMatrix(0,6)=”是否有電話” .TextMatrix(0,7)=”是否有電視” .TextMatrix(0,8)=”是否有衛(wèi)生間” .TextMatrix(0,9)=”房間單價(jià)” .FixedRows=1‘固定表頭 For i=0 To 9 ‘設(shè)置各列的對(duì)齊方式 .ColAlignment(i)=0 Next i .FillStyle=flexFillRepeat‘表頭項(xiàng)居中 .Col=0 .Row=0 .RowSel=1 .ColSel=.Cols1 .CellAlignment=4 .ColWidth(0)=300‘設(shè)置單元大小 .ColWidth(1)=1000 .ColWidth(2)=2000 .ColWidth(3)=2000 .ColWidth(4)=1000 .ColWidth(5)=1000 .ColWidth(6)=1000 .ColWidth(7)=1000 .ColWidth(8)=1000 .ColWidth(9)=1000 .Row=1End WithEnd Sub……………Private Sub From_Resize()‘窗體變化時(shí)，調(diào)整標(biāo)簽和表格位置，使標(biāo)簽處于窗體的最上方，而表格始終處于標(biāo)簽下方 If vbMinimized And vbMinimized Then‘邊界處理 If 10* Then Exit Sub End If If + Exit Sub End If =‘控制控件的位置 =()/2 =++ = =+100 = End IfEnd Sub. 刪除客房標(biāo)準(zhǔn)Private Sub menuDeleteroomtype_Click()Dim txtSQL As StringDim intCount As IntegerDim mrc As Dim MsgText As StringIf flagTedit Then ‘判斷是否打開記錄窗體If 1 ThenIf MsgBox(“真的要?jiǎng)h除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then intCount= txtSQL=”delete from roomtype where typeid’”amp。Trim((intCount,1))amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘關(guān)閉記錄窗體 =”select*from roomtype”‘重新選擇所有記錄 End If End If End IfEnd Sub 客房信息管理模塊主要實(shí)現(xiàn)如下功能：添加客房信息修改客房信息刪除客房信息查詢客房信息 具體實(shí)現(xiàn)代碼如下：Private Sub From_Load()‘載入窗體時(shí)，自動(dòng)添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判斷是否處于添加狀態(tài) =amp?！疤砑印? txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex=0‘顯示記錄內(nèi)容 Else MsgBox “請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告” =False Exit Sub
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1