【正文】 QL End sub‘添加全局變量，用來記錄各個窗口的讀寫狀態(tài)，代碼如下：Public flagTedit As Boolean ‘ 標示是否進入修改的窗體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)： Trim(txtItem(1))amp。添加客房信息 Trim(txtItem(0))amp。刪除客房信息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=‘”amp。Trim(Combo1amp。查詢剩余客房信息”’” Else sQSql=sQSqlamp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作　　　　　　　　Unload frmRoom =”select*from rooms” End If End If End If End SubTrim(txtItem(0))amp。刪除客房信息 Trim(txtItem(0))amp。 ● 客房信息，包括的數(shù)據(jù)項有：客房編號、客房種類、客房位置、客房單價、備注等。● 客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等。添加客房信息 ”’” 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。Trim(Combo1(2)amp。””)amp?！薄?””Then sQSql=”roomprice=’”amp。Trim(Combo1(2)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?！薄? End If If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。Trim((intCount,1))amp?！薄?=”” Then Select Case intCount Case 0 sMeg=“客房編號” Case 1 sMeg=“客房位置” End Select sMeg=sMegamp。Trim((intCount,1))amp。Trim(txtItem(0))amp。各個實體具體的描述ＥＲ圖如下：客房標準信息實體標準編號標準名稱床位數(shù)量客房單價客房標準信息實體ＥＲ圖客房信息實體客房標準客房編號客房位置客房單價客房信息實體ＥＲ圖訂房信息實體客房信息顧客信息折 扣入住時間訂房信息實體ＥＲ圖結算信息實體客房信息顧客信息結算時間結算金額結算信息實體ＥＲ圖客房標準信息客房登記客房信息管理訂 房訂房信息管理結算信息管理客房結算實體之間關系ＥＲ圖③數(shù)據(jù)庫邏輯結構設計 首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結構轉化為SQL 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結構?！?訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。賓館管理信息系統(tǒng)系統(tǒng)平臺：Windows 2000數(shù)據(jù)庫服務器：Microsoft SQL Server 2000開發(fā)工具：Visual Basic 系統(tǒng)開發(fā)人員： ⒈編寫目的賓館在正常的運營中需要對客房資源、顧客信息、結算信息進行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率?！?訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。②數(shù)據(jù)庫概念結構設計 本系統(tǒng)根據(jù)以上的設計規(guī)劃出的實體有：客房標準信息實體、客房信息實體、訂房信息實體、結算信息實體。修改用戶 具體客房標準添加代碼：Private Sub Form_Load() ‘載入窗體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String Dim i As Integer If gintTmode=1 Then ‘判斷是否屬于添加狀態(tài)編號的記錄!”,vbOKOnly+vbExclamation,”警告” txtItem(0).SetFocus Exit Sub End If End If txtSQL=”select * from roomtype where typeid’”amp?！薄? Else Call menuAddroomtype_Click End If Else =”select*from roomtype” End IfEnd SubPrivate Sub From_Resize()‘窗體變化時，調(diào)整標簽和表格位置，使標簽處于窗體的最上方，而表格始終處于標簽下方 If vbMinimized And vbMinimized Then‘邊界處理 If 10* Then Exit Sub End If If + Exit Sub End If =‘控制控件的位置 =()/2 =++ = =+100 = End IfEnd Sub⑷刪除客房標準Private Sub menuDeleteroomtype_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flagTedit Then ‘判斷是否打開記錄窗體 If 1 Then If MsgBox(“真的要刪除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then intCount= txtSQL=”delete from roomtype where typeid’”amp?！靶薷摹? End If mblChange=FalseEnd SubPrivate Sub cmdSave_Click()‘單擊保存按鈕觸發(fā)事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As Dim Msgtext As String For intCount=0 To 3 If Trim(TxtItem(intCount)amp。修改客房信息Private Sub menuModifyroom_Click()‘選擇修改房間信息，觸menuModifyroom的Click事件,程序判斷為修改狀態(tài)后，首先刪除原有記錄，然后把新內(nèi)容加入到數(shù)據(jù)庫中 Dim intCount As Integer If flagRedit Then ‘判斷記錄窗體是否打開 If 1 Then‘判斷客房信息列表內(nèi)容是否為空 gintRmode=2‘設置為修改狀態(tài)　　　　 intCount=‘紀錄當前記錄位置=”select*from rooms where roomNO=’”amp?！薄?amp?！薄?amp。Trim(Combo1(0)amp。And roomprice =’”amp。””)””And Trim(Combo1(2)amp。Trim(Combo1(1)amp?！盿nd roomprice =’”amp?！薄?amp。用戶登陸窗口● 客房標準信息的修改、查詢等。⒊系統(tǒng)功能模塊設計 按結構化程序設計思想，分析得出如下系統(tǒng)功能模塊圖 賓館管理信息系統(tǒng)結算信息管理訂房信息管理客房信息管理系統(tǒng)管理結算信息查詢結算信息修改結算信息添加訂房信息查詢訂房信息修改訂房信息添加剩余客房信息查詢設置客房信息設置客房標準密碼管理用戶管理客房信息查詢客房信息修改客房信息添加客房標準修改客房標準添加 圖Ⅰ系統(tǒng)功能模塊圖⒋數(shù)據(jù)庫設計數(shù)據(jù)庫設計步驟：● 數(shù)據(jù)庫需求分析● 數(shù)據(jù)庫概念結構設計● 數(shù)據(jù)庫邏輯結構設計①數(shù)據(jù)庫需求分析分析調(diào)查有關賓館管理信息需求的基礎上得本系統(tǒng)所處理的數(shù)據(jù)流程 客房標準設置基本信息輸入客房登記基本信息錄入客房信息管理顧客登記訂房信息管理訂房信息管理結算信息輸入結算信息管理客房信息返回圖Ⅱ 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理過程的內(nèi)容和流程分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構：● 客房標準信息，包括的數(shù)據(jù)項有：標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視、電話、單獨衛(wèi)生間等。用戶登陸。”’” Set mrc=ExecuteSQL(txtSQL,MsgText) If =False Then MsgBox”已經(jīng)存在相同客房標準的記錄!”,vbOKOnly+vbExclamation,“警告” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typeid=’”amp。修改客房信息 ”’” Set mrc=ExecuteSQL(txtSQL,msgText) If =False Then MsgBox “已經(jīng)存在此客房編號的記錄！”,vbOKOnly+vbExclamation,“警告” txtItem(0).SetFocus Exit Sub End If End If If gintRmode=2 Then ‘判斷是否處于修改狀態(tài) txtSQL=”delete from rooms where roomNO=‘”amp。Trim((intCount,1)amp。””)amp。添加訂