【正文】 xtItem(3)=.Fields(5) txtSQL=”select DISTINCT typename from roomtype” 。Trim((intCount,1))amp。Trim(txtItem(0))amp。各個(gè)實(shí)體具體的描述Ｅ Ｒ圖如下： 客房 標(biāo)準(zhǔn)設(shè)置 基本信息輸入 客房登記 基本信息錄入 客房信息管理 顧客登記 訂房信息管理 訂房信息管理 結(jié)算信息輸入 結(jié)算信息管理 客房信息返回 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 客房標(biāo)準(zhǔn)信息實(shí)體Ｅ Ｒ 圖 客房信息實(shí)體Ｅ Ｒ圖 訂房信息實(shí)體 Ｅ Ｒ 圖 客房標(biāo)準(zhǔn)信息實(shí)體 標(biāo)準(zhǔn)編號(hào) 標(biāo)準(zhǔn)名稱 床位數(shù)量 客房單價(jià) 客房信息實(shí)體 客房標(biāo)準(zhǔn) 客房編號(hào) 客房位置 客房單價(jià) 訂房信息實(shí)體 客房信息 顧客信息 折 扣 入住時(shí)間 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 結(jié)算信息實(shí)體 Ｅ Ｒ 圖 實(shí)體之間關(guān)系Ｅ Ｒ圖 ③數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì) 首先將 賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 SQL 2021 數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 ● 訂房信息的修改和查詢，包括客房編號(hào)、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等。添加結(jié)算信息 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 賓館管理信息系統(tǒng) 系統(tǒng) 平臺(tái)： Windows 2021 數(shù)據(jù)庫服務(wù)器： Microsoft SQL Server 2021 開發(fā)工 具： Visual Basic 系統(tǒng)開發(fā)人員： ⒈編寫目的 賓館在正常的運(yùn)營中需要對(duì)客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率?！薄?‘顯示相關(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 “ 入 庫 時(shí) 間 應(yīng) 輸 入 日 期（ yyyymmyy） !”,vbOKOnly+vbExclamation, “警告 ” txtItem(4).SetFocus 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 Exit Sub End If txtSQl=”select *from booking where bookno=’”amp?！薄?=””Then sQSql=sQSqlamp?！薄? ElseIf Trim(Combo1(1)amp。””) ””And Trim(Combo1(2)amp。Trim(Combo1(2)amp?！薄?”” Then sQSql=”roomprice=’”amp。修改訂房信息 ”’” Else sQSql=sQSqlamp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作 Unload frmRoom =”select*from rooms” End If End If End If End Sub Trim(txtItem(0))amp。刪除客房信息 Trim(txtItem(0))amp。 ● 客房信息，包括的數(shù)據(jù)項(xiàng)有：客房編號(hào)、客房種類、客房位置、客房單價(jià)、備注等。 ● 客房基本信息的輸入，包括客房編號(hào)、客房類型、客房位置、客房單價(jià)、備注等。 ● 客房標(biāo)準(zhǔn)信息的修改、查詢等。 ⒊系統(tǒng)功能模塊設(shè)計(jì) 按結(jié)構(gòu)化程序設(shè)計(jì)思想，分析得出如下系統(tǒng)功能模塊圖 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 圖Ⅰ 系統(tǒng)功 能模塊圖 ⒋數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì)步驟： ● 數(shù)據(jù)庫需求分析 ● 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) ● 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì) ①數(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è)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 圖Ⅱ 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對(duì)一般賓館管理信息系統(tǒng)的需求，通過對(duì)賓館管理過程的內(nèi)容和流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu) ： ● 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項(xiàng)有：標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視、電話、單獨(dú)衛(wèi)生間等。用戶登陸?！薄? 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。修改客房信息 ” ’ ” Set mrc=ExecuteSQL(txtSQL,msgText) If =False Then MsgBox “已經(jīng)存在此客房編號(hào)的記錄！” ,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。添加訂房信息 ”” )””And Trim(Combo1(2)amp?！薄?””Then sQSql=”roomprice =’”amp?！薄? End If Else If Trim(Combo1(1)amp?！薄?amp?！薄?””And Trim(Combo1(2)amp。Trim(cboItem(0))amp。添加訂房信息 ● 訂房信息的輸入，包括客房編號(hào)、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等。 ② 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 本 系統(tǒng)根據(jù)以上的設(shè)計(jì)規(guī)劃出的實(shí)體有：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、訂房信息實(shí)體、結(jié)算信息實(shí)體。修改用戶 具體客房標(biāo)準(zhǔn)添加代碼： Private Sub Form_Load() ‘載入窗 體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 Dim i As Integer If gintTmode=1 Then ‘ 判斷是否屬于添加狀態(tài) 編號(hào)的記錄 !”,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 If End Sub Private Sub From_Resize()‘窗體變化時(shí)，調(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( “真的要?jiǎng)h除這條文件記錄么？ ” ，vbOKCancel+vbExclamation,” 警告 ”)=vbOK Then intCount= txtSQL=”delete from roomtype where typeid’”a