【正文】 =False Exit Sub End If End With End If =amp。Trim(txtItem(0))amp?！薄?=”” Then (intCount+1)=Null Else (intCount+1)=Trim(txtItem(intCount)) End If Next intCount (4)=”” (5)=Trim(txtItem(3)) If gintRmode=1 Then For intCount=0 To 3 txtItem(intCount)=”” Next intCount mblChange=False If flagRedit Then Unload frmRoom =”select*from rooms” ‘重新顯示數(shù)據(jù) 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 End If ElseIf gintRmode=2 Then Unload Me If flagRedit Then Unload frmRoom End If =”select*from rooms” End If End Sub 刪除客房信息 Private Sub menuDeleteroom_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flagTedit Then If 1 Then‘判斷客房信息列表內(nèi)容是否為空 If MsgBox(“ 真 的 要 刪 除 這 條 文 件 記 錄么？ ”,vbOKCancel+vbExclamation ,“警告 ”)=vbOK Then intCount=‘記載當前記錄位置 txtSQL=”delete from rooms where roomNO=購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 ‘ ”amp。Trim(txtItem(0)amp。Trim(Combo1amp。Trim(Combo1amp。查詢剩余客房信息 查詢訂房庫信息 具體實現(xiàn)代碼如下： Private Sub From_Load()‘載入窗體時，程序?qū)⒆詣蛹尤肟头糠N類和客房單價 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 Sub Private Sub cmdOK_Click() 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomtype=’”amp?！薄?=”” Then If Trim(Combo1(1)amp?！薄?amp?！薄?=””And Trim(Combo1(2)amp。”’” ElseIf Trim(Combo1(1)amp。””)amp。” androomprice=’”amp。Trim(Combo1(2)amp。””)””Then sQSql=sQSqlamp。”’” ElseIf Trim(Combo1(1)amp。Trim(Combo1(1)amp?！盿nd 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 putup”’y’” flagSedit=True End If End Sub Private Sub From_Load()‘添加訂房信息，載入窗體時把所有未預定的客房信息加入其中 Dim sSql As String Dim intCount As Integer =True Else MsgBox “沒有訂房信息 !” ,vbOKOnly+vbExclamation, “警告” =False Exit Sub End If txtSQl=”select*from booking where amount=’0’and roomno=’”amp?！薄薄尤胄掠涗? Set mrcc=ExecuteSQL(txtSQL,MsgText) (6)=txtItem(5) (7)=txtItem(4) bYear=DatePart(“yyyy”,txtItem(2)) ‘獲得入住日期和結算日期年代 eYear=DatePart(“yyyy”,txtItem(4)) bDays=DatePart(“y”,txtItem(2)) ‘獲得入住日期和結算日期天數(shù) eDays=DatePart(“y”,txtItem(4)) If bYear=eYear Then aDays=eDaysbDays Else aDays=(eYearbYear1)*365+(365bDays)+eDays End If =aDays*Trim(cboItem(3))*Trim(txtItem(3))/100‘計算應交房費 amMount=aDays*Trim(cboItem(3))*Trim(txtItem(3))/100 ‘更新數(shù)據(jù) Unload frmCheckout End If =”select*from booking where ammount’0’” End If End Sub 附：各模塊視圖 查詢剩余客房信息 購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 主要完成功能： ● 有關客房標準的制定、標準信息的輸入，包括標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機、電話以及單獨衛(wèi)生間等。 ● 剩余客房信息的查詢等。 ● 結算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結日期、備注信息等。 ● 結算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、結算時間、備注等。添加函數(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 End sub ‘ 添加全局變量，用來記錄各個窗口的讀寫狀態(tài)，代碼如下： Public flagTedit As Boolean ‘ 標示是否進入修改的窗體 Public flagRedit As Boolean Public flagBedit As Boolean Public flagCedit As Boolean Public gintCmode As Integer Public gintTmode As Integer ’ 記錄是添加還是修改狀態(tài)， 1 為添加， 2為修改 Public gintRmode As Integer Public gintBmode As Integer Public flagSedit As Boolean ⑵系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實現(xiàn)： Trim(txtItem(1))amp。Trim((intCo購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 unt,1))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 “ 請先進行客房標準設 置 !”,vbOKOnly+vbExclamation,“警告 ” =False Exit Sub End If ElseIf gintRmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)‘設置 SQL 語句顯示當前選擇記錄 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷購買設計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好