【正文】 ”’” Else Call menuAddroomtype_Click End If Else =”select*from roomtype” End If End Sub Private Sub From_Resize()‘窗體變化時，調(diào)整標(biāo)簽和表格位置，使標(biāo)簽處于窗體的最上方，而表格始終處于標(biāo)簽下方 If vbMinimized And vbMinimized Then‘邊界處理 If 10* Then Exit Sub End If If + Exit Sub End If =‘控制控件的位置 =()/2 =++ = =+100 = End If End Sub ⑷刪除客房標(biāo)準(zhǔn) 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。 ② 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 本 系統(tǒng)根據(jù)以上的設(shè)計規(guī)劃出的實(shí)體有：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、訂房信息實(shí)體、結(jié)算信息實(shí)體。添加訂房信息 ””)””And Trim(Combo1(2)amp。”’” End If Else If Trim(Combo1(1)amp?！薄?)””And Trim(Combo1(2)amp。 ””)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?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) If =False Then MsgBox” 已經(jīng)存在相同客房標(biāo)準(zhǔn)的記錄 !”,vbOKOnly+vbExclamation,“警告 ” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typeid=’”amp。 ⒊系統(tǒng)功能模塊設(shè)計 按結(jié)構(gòu)化程序設(shè)計思想，分析得出如下系統(tǒng)功能模塊圖 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 圖Ⅰ 系統(tǒng)功 能模塊圖 ⒋數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫設(shè)計步驟： ● 數(shù)據(jù)庫需求分析 ● 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 ● 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 ①數(shù)據(jù)庫 需求分析 分析調(diào)查有關(guān)賓館管理信息需求的基礎(chǔ)上得 本系統(tǒng)所處理的數(shù)據(jù)流程 賓館管理信息系統(tǒng) 結(jié)算信息管理 訂房信息管理 客房信息管理 系統(tǒng)管理 結(jié)算信息查詢 結(jié)算信息修改 結(jié)算信息添加 訂房信息查詢 訂房信息修改 訂房信息添加 剩余客房信息查詢 設(shè)置客房信息 設(shè)置客房標(biāo)準(zhǔn) 密碼管理 用戶管理 客房信息查詢 客房信息修改 客房信息添加 客房標(biāo)準(zhǔn)修改 客房標(biāo)準(zhǔn)添加 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 圖Ⅱ 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理過程的內(nèi)容和流程分析，設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu) ： ● 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項有：標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視、電話、單獨(dú)衛(wèi)生間等。 ● 客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等。 刪除客房信息 ”’” Set mrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作 Unload frmRoom =”select*from rooms” End If End If End If End Sub 修改訂房信息 Trim(Combo1(2)amp。”’” ElseIf Trim(Combo1(1)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 Sub End Sub Pri If IsDate(txtItem(4)) Then txtItem(4)=Format(txtItem(4),”yyyy mmdd”) Else MsgBox “ 入 庫 時 間 應(yīng) 輸 入 日 期（ yyyymmyy） !”,vbOKOnly+vbExclamation, “警告 ” txtItem(4).SetFocus 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 Exit Sub End If txtSQl=”select *from booking where bookno=’”amp。 ● 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。Trim(txtItem(0))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 “ 請先進(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è)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) txtSQL=”select DISTINCT typename from roomtype” 。 ● 剩余客房信息的查詢等。”and 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 putup”’y’” flagSedit=True End If End Sub Private 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(Combo1(2)amp。””)=””And Trim(Combo1(2)amp。查詢剩余客房信息 刪除客房信息 Private Sub menuDeleteroom_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flag