【正文】 lete from rooms where roomNO=‘”amp。Trim((intCount,1)amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作　　　　　　　　Unload frmRoom =”select*from rooms” End If End If End If End Sub查詢客房信息Private Sub From_Load()‘載入窗體時(shí)，將自動(dòng)加入所有記錄的入庫時(shí)間 Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As txtSQL=”select DISTINCT typename from roomtype”‘初始化客房種類 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Trim((0)) Loop =0 Else MsgBox “請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,”警告” Exit Sub End If End SubPrivate Sub cmdOK_Click()‘設(shè)置完查詢內(nèi)容和方式后，單擊cmdOk按鈕查詢 Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomNO=’”amp。Trim(txtItem(0)amp?！薄?amp?！薄? End If If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp?！薄?=”” Then sQSql=”roomtype=’”amp。Trim(Combo1amp。””)amp?！薄? Else sQSql=sQSqlamp。”and roomtype=’”amp。Trim(Combo1amp。””)amp。”’” End If End If If Trim(sQSql)=”” Then MsgBox “請(qǐng)?jiān)O(shè)置查詢條件！”,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。sQSql End If End Sub⑹訂房信息管理模塊的創(chuàng)建訂房信息管理模塊主要實(shí)現(xiàn)如下功能：查詢剩余客房信息添加訂房信息修改訂房信息刪除訂房信息查詢訂房庫信息具體實(shí)現(xiàn)代碼如下：Private Sub From_Load()‘載入窗體時(shí)，程序?qū)⒆詣?dòng)加入客房種類和客房單價(jià) Dim txtSQL As String Dim MsgText As String Dim mrc As txtSQL=”select distinct typename from roomtype”‘選擇所有客房種類 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Combo1(0).AddItem (0) Loop End If txtSQL=”select distinct price from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Combo1(1).AddItem (0) Combo1(2).AddItem (0) Loop End If End SubPrivate Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomtype=’”amp。Trim(Combo1(0)amp?！薄?amp?！薄? End if If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp?！薄?=”” Then If Trim(Combo1(1)amp?！薄?””And Trim(Combo1(2)amp?！薄?””Then sQSql=”roomprice=’”amp。Trim(Combo1(1)amp?！薄?amp。And roomprice =’”amp。Trim(Combo1(2)amp。””)”’” ElseIf Trim(Combo1(1)amp。””)=””And Trim(Combo1(2)amp?！薄?””Then sQSql=”roomprice =’”amp。Trim(Combo1(2)amp。””)amp?！薄? ElseIf Trim(Combo1(1)amp?！薄?””And Trim(Combo1(2)amp?！薄?””Then sQSql=”roomprice=’”amp。Trim(Combo1(1)amp?！薄?amp?！薄? End If Else If Trim(Combo1(1)amp。””)””And Trim(Combo1(2)amp。””)””Then sQSql=sQSqlamp。”androomprice=’”amp。Trim(Combo1(1)amp?！薄?amp?！薄痑nd roomprice =’”amp。Trim(Combo1(2)amp。””)amp?！薄? ElseIf Trim(Combo1(1)amp。””)=””And Trim(Combo1(2)amp?！薄?””Then sQSql=sQSqlamp。”and roomprice =’”amp。Trim(Combo1(2)amp?！薄?amp?！薄? ElseIf Trim(Combo1(1)amp?！薄?””And Trim(Combo1(2)amp?！薄?=””Then sQSql=sQSqlamp?！盿nd roomprice=’”amp。Trim(Combo1(1)amp。””)amp。”’” End If End If If Trim(sQSql)=”” Then MsgBox “請(qǐng)?jiān)O(shè)置查詢條件!”,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。sQSqlamp?！盿nd putup”’y’” flagSedit=True End If End SubPrivate Sub From_Load()‘添加訂房信息，載入窗體時(shí)把所有未預(yù)定的客房信息加入其中 Dim sSql As String Dim intCount As Integer Dim MsgText As String If flagSedit Then ‘判斷打開方式 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then For intCount=0 To 3 cboItem(intCount).AddItem (intCount) cboItem(intCount).ListIndex=0 Next intCount txtItem(5)=(5) End If txtNo=GetRkno() gintBmode=1 Else If gintBmode=1 Then =amp?！疤砑印? txtSQL=”select DISTINCT roomNO from rooms where putup’y’” Set mrc=ExecuteSQL() If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop Else MsgBox “請(qǐng)先進(jìn)行客房登記!”,vbOKOnly+vbExclamation,“警告” =False Exit Sub End If txtNo=GetRkno ElseIf gintBmode=2 Then Set (txtSQL,MsgText) If Then With mrc txtNO=!bookno For intCount=0 To 1 If Not IsNull(.Fields(intCount+1)) Then txtItem(intCount)=.Fields(intCount+1) End If Next intCount cboItem(0).AddItem !roomno cboItem(0).ListIndex=0 For intCount=2 To 4 If Not IsNull(.Fields(intCount+2)) Then txtItem(intCount)=.Fields(intCount+2) End If Next intCount End With End If =amp?！靶薷摹? txtSQL=”select*from rooms where roomNO=’”amp。Trim(cboItem(0))amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then For intCount=1 To 3 cboItem(intCount).AddItem (intCount) cboItem(intCount).ListIndex=0 Next intCount txtItem(5)=(5) End If End If End If mblChange=FalseEnd SubPrivate Sub cmdSave_Click()‘添加記錄到數(shù)據(jù)庫中 Dim intCount As Integer Dim sMeg As String Dim mrcc As Dim MsgText As String For intCount=0 To 3‘判斷輸入內(nèi)容是否為空 If Trim(txtItem(intCount)amp?！薄?=”” Then Select Case intCount Case 0 sMeg=“顧客姓名”