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