【正文】 身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。● 結(jié)算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、結(jié)算時間、備注等。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ‘執(zhí)行SQL語句，并返回記錄集對象Dim n As Dim rst As Dim sTokens() As String‘異常處理On Error GoTo ExecuteSQL_Error’‘用Split函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 sTokens=Split(SQL) Set n=NEW ‘打開連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL MsgString=sTokens(0)amp。 Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer)‘判斷是否為回車鍵 If Keyasc=13 Then ‘ Keyasc用來保存當(dāng)前按鍵 ‘轉(zhuǎn)換成Tab鍵 SendKeys”{TAB}” End IfEnd sub‘添加全局變量，用來記錄各個窗口的讀寫狀態(tài)，代碼如下：Public flagTedit As Boolean ‘ 標(biāo)示是否進入修改的窗體Public flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode As Integer Public gintTmode As Integer ’記錄是添加還是修改狀態(tài)，1為添加，2為修改Public gintRmode As IntegerPublic gintBmode As Integer Public flagSedit As Boolean⑵系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實現(xiàn)： ””)=”” Then Select Case intCount Case 0 sMeg=”標(biāo)準(zhǔn)編號” Case 1 sMeg=”標(biāo)準(zhǔn)名稱” Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價” End Select sMeg=sMegamp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) If =False Then MsgBox “已經(jīng)存在此標(biāo)準(zhǔn)編號的記錄!”,vbOKOnly+vbExclamation,”警告” txtItem(0).SetFocus Exit Sub End If End If txtSQL=”select * from roomtype where typeid’”amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) If =False Then MsgBox”已經(jīng)存在相同客房標(biāo)準(zhǔn)的記錄!”,vbOKOnly+vbExclamation,“警告” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typeid=’”amp。”” End Select Next i Loop End With End SubPrivate Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)‘選擇記錄，然后單擊鼠標(biāo)右鍵，觸發(fā)MouseUp事件 If Button=2 And Shift=0 Then PopupMenu End IfEnd SubPrivate Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then ‘判斷是否打開記錄窗體 If 1 Then fintTmode=2‘設(shè)置為修改狀態(tài) intCount=‘記下選擇記錄 =”select*from roomtype where typeid’”amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘關(guān)閉記錄窗體 =”select*from roomtype”‘重新選擇所有記錄 End If End If End IfEnd Sub⑸客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實現(xiàn)如下功能： 查詢客房信息 具體實現(xiàn)代碼如下：Private Sub From_Load()‘載入窗體時，自動添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判斷是否處于添加狀態(tài) =amp?！安荒転榭眨　? MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode=1 Then‘判斷是否有重復(fù)記錄 txtSQL=”select * from rooms where roomNO=‘”amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) End If txtSQL=”select*from rooms”‘再加入新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) ‘為數(shù)據(jù)庫對象添加記錄 (0)=Trim(txtItem(0)) (1)=Trim(txtItem(0)) For intCount=1 To 2 If Trim(txtItem(intCount)amp?！薄? Else Call menuAddroom_Click‘添加記錄　　　End If Else =”select*from rooms” End IfEnd Sub 查詢客房信息Private Sub From_Load()‘載入窗體時，將自動加入所有記錄的入庫時間 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 “請先進行客房標(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?！薄?=”” Then sQSql=”roomtype=’”amp。”and roomtype=’”amp。sQSql End If End Sub⑹訂房信息管理模塊的創(chuàng)建訂房信息管理模塊主要實現(xiàn)如下功能：刪除訂房信息”’” End if If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。Trim(Combo1(1)amp?！薄?”’” ElseIf Trim(Combo1(1)amp?！薄?amp。Trim(Combo1(1)amp?！薄?””Then sQSql=sQSqlamp?！薄痑nd roomprice =’”amp?！薄?=””And Trim(Combo1(2)amp。””)amp。”and roomprice=’”amp。sQSqlamp。Trim(cboItem(0))amp。””)=””Then Select Case intCount Case 0 sMeg=“客房編號” Case 1 sMeg=“客房種類” Case 2 sMeg=“客房位置” Case 3 sMeg=“客房單價” End Select sMeg=sMegamp。Trim(vboItem(0))amp。查詢結(jié)算信息具體實現(xiàn)代碼如下：Private Sub From_Load()‘窗體載入時，自動加入所有未結(jié)算客房信息 Dim sSql As String Dim intCount As Integer Dim MsgText As String If gintCmode=1 Then ‘判斷是否處于添加狀態(tài) =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?！薄薄@示相關(guān)顧客信息 Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not Then txtNO=mrcc!bookno txtItem(0)=mrcc!customname txtItem(1)=mrcc!customID txt