【正文】 ”’”‘顯示相關(guān)顧客信息 Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not Then txtNO=mrcc!bookno txtItem(0)=mrcc!customname txtItem(1)=mrcc!customID txtItem(2)=mrcc!indate txtItem(3)=mrcc!discount txtItem(5)=mrcc!inmemo For intCount =0 To 3 txtItem(intCount).Enabled=False Next intCount End If End If End If?！薄?‘顯示有關(guān)客房的具體信息 Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not Then cboItem(1).AddItem mrcc!roomtype cboItem(2).AddItem mrcc!roomposition cboItem(3).AddItem mrcc!roomprice cboItem(1).Enabled=False cboItem(2).Enabled=False cboItem(3).Enabled=False cboItem(1).ListIndex=0 cboItem(2).ListIndex=0 cboItem(3).ListIndex=0 =True Else MsgBox “沒(méi)有訂房信息!”,vbOKOnly+vbExclamation, “警告” =False Exit Sub End If txtSQl=”select*from booking where amount=’0’and roomno=’”amp?！靶薷摹? End If mblChange=FalseEnd SubPrivate Sub cboItem_Click(Index As Integer)‘選擇不同客房，觸發(fā)cboItem下拉式文本框的click事件，顯示相應(yīng)的顧客信息 Dim sSql As String Dim MsgText String Dim mrcc As Dim intCount As Integer If gintCmode =1 Then ‘判斷是否處于添加狀態(tài)，否則將退出 If Index=0 Then cboItem(1).Enabled=True cboItem(2).Enabled=True cboItem(3).Enabled=True cboItem(1).Clear‘清除原有內(nèi)容 cboItem(2).Clear cboItem(3).Clear txtSQL=”select roomNO,roomtype,roomposition,roomprice from where roomNo =’”amp。cboItem(0)amp。查詢結(jié)算信息具體實(shí)現(xiàn)代碼如下：Private Sub From_Load()‘窗體載入時(shí)，自動(dòng)加入所有未結(jié)算客房信息 Dim sSql As String Dim intCount As Integer Dim MsgText As String If gintCmode=1 Then ‘判斷是否處于添加狀態(tài) =amp。添加結(jié)算信息Trim(vboItem(0))amp。Trim(txtNo)amp?！薄?=””Then Select Case intCount Case 0 sMeg=“客房編號(hào)” Case 1 sMeg=“客房種類” Case 2 sMeg=“客房位置” Case 3 sMeg=“客房單價(jià)” End Select sMeg=sMegamp。””)=”” Then Select Case intCount Case 0 sMeg=“顧客姓名” Case 1 sMeg=“身份證號(hào)碼” Case 2 sMeg=“折扣” Case 3 sMeg=“入住時(shí)間” End Select sMeg=sMegamp。Trim(cboItem(0))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。sQSqlamp?！薄?amp?！盿nd roomprice=’”amp?！薄?””And Trim(Combo1(2)amp?！薄?amp?！盿nd roomprice =’”amp?！薄?=””And Trim(Combo1(2)amp?！薄?amp?！薄痑nd roomprice =’”amp。Trim(Combo1(1)amp?！薄?””Then sQSql=sQSqlamp?！薄? End If Else If Trim(Combo1(1)amp。Trim(Combo1(1)amp。””)””And Trim(Combo1(2)amp?！薄?amp?！薄?””Then sQSql=”roomprice =’”amp。””)”’” ElseIf Trim(Combo1(1)amp。And roomprice =’”amp。Trim(Combo1(1)amp?！薄?””And Trim(Combo1(2)amp。”’” End if If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。Trim(Combo1(0)amp。刪除訂房信息添加訂房信息sQSql End If End Sub⑹訂房信息管理模塊的創(chuàng)建訂房信息管理模塊主要實(shí)現(xiàn)如下功能：””)amp?！盿nd roomtype=’”amp?！薄?amp?！薄?=”” Then sQSql=”roomtype=’”amp?！薄?amp。查詢客房信息Private Sub From_Load()‘載入窗體時(shí)，將自動(dòng)加入所有記錄的入庫(kù)時(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((intCount,1)amp?！薄? Else Call menuAddroom_Click‘添加記錄　　　End If Else =”select*from rooms” End IfEnd Sub 修改客房信息Private Sub menuModifyroom_Click()‘選擇修改房間信息，觸menuModifyroom的Click事件,程序判斷為修改狀態(tài)后，首先刪除原有記錄，然后把新內(nèi)容加入到數(shù)據(jù)庫(kù)中 Dim intCount As Integer If flagRedit Then ‘判斷記錄窗體是否打開(kāi) If 1 Then‘判斷客房信息列表內(nèi)容是否為空 gintRmode=2‘設(shè)置為修改狀態(tài)　　　　 intCount=‘紀(jì)錄當(dāng)前記錄位置=”select*from rooms where roomNO=’”amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) End If txtSQL=”select*from rooms”‘再加入新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) ‘為數(shù)據(jù)庫(kù)對(duì)象添加記錄 (0)=Trim(txtItem(0)) (1)=Trim(txtItem(0)) For intCount=1 To 2 If Trim(txtItem(intCount)amp?！薄? Set mrc=ExecuteSQL(txtSQL,msgText) If =False Then MsgBox “已經(jīng)存在此客房編號(hào)的記錄！”,vbOKOnly+vbExclamation,“警告” txtI