【正文】 Dim sTokens() As String ‘異常處理 On Error GoTo ExecuteSQL_Error’ ‘用 Split 函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens=Split(SQL) Set n=NEW ‘ 打開連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL End sub ‘ 添加全局變量，用來記錄各個(gè)窗口的讀寫狀態(tài)，代碼如下： Public flagTedit As Boolean ‘ 標(biāo)示是否進(jìn)入修改的窗體 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)建 用戶管理模塊主要實(shí)現(xiàn)： ● 結(jié)算信息的修改和查詢，包括客房編號(hào)、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)日期、備注信息等。 主要完成功能： ● 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等?！薄薄尤胄掠涗? Set mrcc=ExecuteSQL(txtSQL,MsgText) (6)=txtItem(5) (7)=txtItem(4) bYear=DatePart(“yyyy”,txtItem(2)) ‘獲得入住日期和結(jié)算日期年代 eYear=DatePart(“yyyy”,txtItem(4)) bDays=DatePart(“y”,txtItem(2)) ‘獲得入住日期和結(jié)算日期天數(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‘計(jì)算應(yīng)交房費(fèi) 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 附：各模塊視圖 Trim(Combo1(1)amp?！薄?””Then sQSql=sQSqlamp?！?androomprice=’”amp。”’” ElseIf Trim(Combo1(1)amp?！薄?amp。查詢訂房庫信息 具體實(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 Sub Private Sub cmdOK_Click() 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomtype=’”amp。Trim(Combo1amp。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ù) 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 End If ElseIf gintRmode=2 Then Unload Me If flagRedit Then Unload frmRoom End If =”select*from rooms” End If End Sub “添加 ” 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 End If ElseIf gintRmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)‘設(shè)置 SQL 語句顯示當(dāng)前選擇記錄 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) 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 Else MsgBox “ 請(qǐng) 先 進(jìn) 行 客 房 標(biāo) 準(zhǔn) 設(shè)置 !”,vbOKOnly+vbExclamation, “警告 ” =False Exit Sub End If End With End If =amp。Trim((intCo購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 unt,1))amp。 ● 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、結(jié)算時(shí)間、備注等。 ● 剩余客房信息的查詢等。 ⒉系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 ● 結(jié)算信息的輸入，包括客房編號(hào)、客房種類、位置、 客房 單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日期、備注信息等。其各個(gè)表格的設(shè)計(jì)結(jié)果如下 列名 數(shù)據(jù)類型 可否為空 說明 Typeid Varchar NOT NULL 標(biāo)準(zhǔn)編號(hào) Typename Varchar NOT NULL 標(biāo)準(zhǔn)名稱 Area Numeric NULL 房間面積 Bednum Numeric NULL 床位數(shù)量 Haircondition Varchar NULL 是否有空調(diào) Htelephone Varchar NULL 是否有電話 Htelevision Varchar NULL 是否有電視 Htoilet Varchar NULL 是否有單獨(dú)衛(wèi)生間 Price Numeric NULL 單價(jià) 結(jié)算信息實(shí)體 客房信息 顧客 信息 結(jié)算時(shí)間 結(jié)算金額 客房標(biāo)準(zhǔn)信息 客房登記 客房信息管理 訂 房 訂房信息管理 結(jié)算信息管理 客房結(jié)算 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 Roomtype 客房標(biāo)準(zhǔn)信息表 列名 數(shù)據(jù)類型 可否為空 說明 roomNO Varchar NOT NULL 客房編號(hào) Roomtype Varchar NOT NULL 客房種類 Roomposition Varchar NU