【正文】 “添加 ” 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” 。刪除客房信息 添加客房信息 Trim((intCount,1))amp。Trim((intCo購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 unt,1))amp。Trim(txtItem(0))amp。Trim(txtItem(1))amp。Trim(txtItem(0))amp。 添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ‘ 執(zhí)行 SQL 語句，并返回記錄集對象 Dim n As Dim rst As Dim sTokens() As String ‘異常處理 On Error GoTo ExecuteSQL_Error’ ‘用 Split 函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 sTokens=Split(SQL) Set n=NEW ‘ 打開連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL End sub ‘ 添加全局變量，用來記錄各個窗口的讀寫狀態(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)： 各個實(shí)體具體的描述Ｅ Ｒ圖如下： 客房 標(biāo)準(zhǔn)設(shè)置 基本信息輸入 客房登記 基本信息錄入 客房信息管理 顧客登記 訂房信息管理 訂房信息管理 結(jié)算信息輸入 結(jié)算信息管理 客房信息返回 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 客房標(biāo)準(zhǔn)信息實(shí)體Ｅ Ｒ 圖 客房信息實(shí)體Ｅ Ｒ圖 訂房信息實(shí)體 Ｅ Ｒ 圖 客房標(biāo)準(zhǔn)信息實(shí)體 標(biāo)準(zhǔn)編號 標(biāo)準(zhǔn)名稱 床位數(shù)量 客房單價 客房信息實(shí)體 客房標(biāo)準(zhǔn) 客房編號 客房位置 客房單價 訂房信息實(shí)體 客房信息 顧客信息 折 扣 入住時間 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 結(jié)算信息實(shí)體 Ｅ Ｒ 圖 實(shí)體之間關(guān)系Ｅ Ｒ圖 ③數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 首先將 賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 SQL 2021 數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 ● 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、結(jié)算時間、備注等。 ● 客房信息，包括的數(shù)據(jù)項(xiàng)有：客房編號、客房種類、客房位置、客房單價、備注等。 ● 結(jié)算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。 ● 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。 ● 剩余客房信息的查詢等。 ● 客房基本信息的輸入，包括客房編號、 客房類型、客房位置、客房單價、備注等。 主要完成功能： ● 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。添加結(jié)算信息 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 賓館管理信息系統(tǒng) 系統(tǒng) 平臺： Windows 2021 數(shù)據(jù)庫服務(wù)器： Microsoft SQL Server 2021 開發(fā)工 具： Visual Basic 系統(tǒng)開發(fā)人員： ⒈編寫目的 賓館在正常的運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。查詢剩余客房信息 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 添加客房信息 ”’”‘加入新記錄 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)交房費(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 附：各模塊視圖 ”’” ‘顯示相關(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。”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?！薄? End If End If If Trim(sQSql)=”” Then MsgBox “請?jiān)O(shè)置查詢條件 !” ,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。Trim(Combo1(1)amp?！薄?=””Then