【文章內(nèi)容簡介】 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。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 “請設(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)建訂房信息管理模塊主要實現(xiàn)如下功能：查詢剩余客房信息添加訂房信息修改訂房信息刪除訂房信息查詢訂房庫信息具體實現(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 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?！盿ndroomprice=’”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?！盿nd 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 “請設(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()‘添加訂房信息，載入窗體時把所有未預(yù)定的客房信息加入其中 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。Trim(cboItem(0))amp?！薄薄@示相關(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 Exit SubEnd SubPri If IsDate(txtItem(4)) Then txtItem(4)=Format(txtItem(4),”yyyymmdd”) Else MsgBox “入庫時間應(yīng)輸入日期（yyyymmyy）!”,vbOKOnly+vbExclamation,“警告” txtItem(4).SetFocus Exit Sub End If txtSQl=”select *from booking where bookno=’”amp。Trim(txtNo)amp?！薄薄尤胄掠涗? 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‘計算應(yīng)交房費 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附：各模塊視圖用戶登陸窗口添加客房信息 查詢客房信息 查詢剩余客房信息 添加訂房信息 添加結(jié)算信息賓館管理信息系統(tǒng)系統(tǒng)平臺：Windows 2000數(shù)據(jù)庫服務(wù)器：Microsoft SQL Server 2000開發(fā)工具：Visual Basic 系統(tǒng)開發(fā)人員： ⒈編寫目的賓館在正常的運營中需要對客房資源、顧客信息、結(jié)算信息進行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。⒉系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。主要完成功能：● 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機、電話以及單獨衛(wèi)生間等?！?客房標(biāo)準(zhǔn)信息的修改、查詢等。● 客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等?！?客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等?！?剩余客房信息的查詢等?！?訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。● 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等?！?結(jié)算信息的輸入，包括客房編號、客房種類、位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)算日期、備注信息等?！?結(jié)算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。⒊系統(tǒng)功能模塊設(shè)計 按結(jié)構(gòu)化程序設(shè)計思想，分析得出如下系統(tǒng)功能模塊圖 賓館管理信息系統(tǒng)結(jié)算信息管理訂房信息管理客房信息管理系統(tǒng)管理結(jié)算信息查詢結(jié)算信息修改結(jié)算信息添加訂房信息查詢訂房信息修改訂房信息添加剩余客房信息查詢設(shè)置客房信息設(shè)置客房標(biāo)準(zhǔn)密碼管理用戶管理客房信息查詢客房信息修改客房信息添加客房標(biāo)準(zhǔn)修改客房標(biāo)準(zhǔn)添加 圖Ⅰ系統(tǒng)功能模塊圖⒋數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計步驟：● 數(shù)據(jù)庫需求分析● 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計●