【正文】 ntCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) 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 Else MsgBox “ 請(qǐng) 先 進(jìn) 行 客 房 標(biāo) 準(zhǔn) 設(shè)置 !”,vbOKOnly+vbExclamation, “警告 ” =False Exit Sub End If End With End If =amp。刪除客房信息 添加客房信息 Trim((intCount,1))amp。Trim((intCount,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語(yǔ)句，并返回記錄集對(duì)象 Dim n As Dim rst As Dim sTokens() As String ‘異常處理 On Error GoTo ExecuteSQL_Error’ ‘用 Split 函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens=Split(SQL) Set n=NEW ‘ 打開(kāi)連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL End sub ‘ 添加全局變量，用來(lái)記錄各個(gè)窗口的讀寫(xiě)狀態(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)用戶(hù)管理模塊的創(chuàng)建 用戶(hù)管理模塊主要實(shí)現(xiàn)： 各個(gè)實(shí)體具體的描述Ｅ Ｒ圖如下： 客房標(biāo)準(zhǔn)信息實(shí)體Ｅ Ｒ 圖 客房信息實(shí)體Ｅ Ｒ圖 訂房信息實(shí)體 Ｅ Ｒ 圖 客房標(biāo)準(zhǔn)信息實(shí)體 標(biāo)準(zhǔn)編號(hào) 標(biāo)準(zhǔn)名稱(chēng) 床位數(shù)量 客房單價(jià) 客房信息實(shí)體 客房標(biāo)準(zhǔn) 客房編號(hào) 客房位置 客房單價(jià) 訂房信息實(shí)體 客房信息 顧客信息 折 扣 入住時(shí)間 結(jié)算信息實(shí)體 Ｅ Ｒ 圖 實(shí)體之間關(guān)系Ｅ Ｒ圖 ③數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 首先將 賓館管理信息系統(tǒng)的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為 SQL 2020 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù) 據(jù)模型，即：數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。 ● 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類(lèi)、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、結(jié)算時(shí)間、備注等。 ● 客房信息，包括的數(shù)據(jù)項(xiàng)有：客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、備注等。 ● 結(jié)算信息的修改和查詢(xún)，包括客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)日期、備注信息等。 ● 訂房信息的修改和查詢(xún)，包括客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備 注信息等。 ● 剩余客房信息的查詢(xún)等。 ● 客房基本信息的輸入，包括客房編號(hào)、客房類(lèi)型、客房位置、客房單價(jià)、備注等。 主要完成功能： ● 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱(chēng)、房間面積、床位數(shù)量、 住房單價(jià)、是否有空調(diào)、電視機(jī)、電話(huà)以及單獨(dú)衛(wèi)生間等。 賓館管理信息系統(tǒng) 系統(tǒng) 平臺(tái)： Windows 2020 數(shù)據(jù)庫(kù)服務(wù)器： Microsoft SQL Server 2020 開(kāi)發(fā)工具： Visual Basic 系統(tǒng)開(kāi)發(fā)人員： ⒈編寫(xiě)目的 賓館在正常的運(yùn)營(yíng)中需要對(duì)客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。 ⒉系統(tǒng)功能分析 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 ● 客房標(biāo)準(zhǔn)信息的修改、查詢(xún)等。 ● 客房基本信息的查詢(xún)、修改，包括客房編號(hào)、客房類(lèi)型、客房位置、客房單價(jià)、備注等。 ● 訂房信息的輸入，包括客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等。 ● 結(jié)算信息的輸入，包括客房編號(hào)、客房種類(lèi)、位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日期、備注信息等。 ⒊系統(tǒng)功能模塊設(shè)計(jì) 按結(jié)構(gòu)化程序設(shè)計(jì)思想，分析得出如下系統(tǒng)功能模塊圖 圖Ⅰ 系統(tǒng)功 能模塊圖 ⒋數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì)步驟： ● 數(shù)據(jù)庫(kù)需求分析 ● 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) ● 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) ①數(shù)據(jù)庫(kù)需求分析 分析調(diào)查有關(guān)賓館管理信息需求的基礎(chǔ)上得 本系統(tǒng)所處理的數(shù)據(jù)流程 賓館管理信息系統(tǒng) 結(jié)算信息管理 訂房信息管理 客房信息管理 系統(tǒng)管理 結(jié)算信息查詢(xún) 結(jié)算信息修改 結(jié)算信息添加 訂房信息查詢(xún) 訂房信息修改 訂房信息添加 剩余客房信息查詢(xún) 設(shè)置客房信息 設(shè)置客房標(biāo)準(zhǔn) 密碼管理 用戶(hù)管理 客房信息查詢(xún) 客房信息修改 客房信息添加 客房標(biāo)準(zhǔn)修改 客房標(biāo)準(zhǔn)添加 圖Ⅱ 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對(duì)一般賓館管理信息系統(tǒng)的需求，通過(guò)對(duì)賓館管理過(guò)程的內(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)名稱(chēng)、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視、電話(huà)、單獨(dú)衛(wèi)生間等。 ● 訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類(lèi)、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、備注等。 ② 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 本 系統(tǒng)根據(jù)以上的設(shè)計(jì)規(guī)劃出的實(shí)體有：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、訂房信客房標(biāo)準(zhǔn)設(shè)置 基本信息輸入 客房登記 基本信息錄入 客房信息管理 顧客登記 訂房信息管理 訂房信息管理 結(jié)算信息輸入 結(jié)算信息管理 客房信息返回 息實(shí)體、結(jié)算信息實(shí)體。其各個(gè)表格的設(shè)計(jì)結(jié)果如下 列名 數(shù)據(jù)類(lèi)型 可否為空 說(shuō)明 Typeid Varchar NOT NULL 標(biāo)準(zhǔn)編號(hào) Typename Varchar NOT NULL 標(biāo)準(zhǔn)名稱(chēng) Area Numeric NULL 房間面積 Bednum Numeric NULL 床位數(shù)量 Haircondition Varchar NULL 是否有空調(diào) Htelephone Varchar NULL 是否有電話(huà) Htelevision Varchar NULL 是否有電視 Htoilet Varchar NULL 是否有單獨(dú)衛(wèi)生間 結(jié)算信息實(shí)體 客房信息 顧客 信息 結(jié)算時(shí)間 結(jié)算金額 客房標(biāo)準(zhǔn)信息 客房登記 客房信息管理 訂 房 訂房信息管理 結(jié)算信息管理 客房結(jié)算 Price Numeric NULL 單價(jià) Roomtype 客房標(biāo)準(zhǔn)信息表 列名 數(shù)據(jù)類(lèi)型 可否為空 說(shuō)明 roomNO Varchar NOT NULL 客房編號(hào) Roomtype Varchar NOT NULL 客房種類(lèi) Roomposition Varchar NULL 客房位置 Roomprice Numeric NULL 單價(jià) Putup Varchar NOT NULL 是否被預(yù)定 Roommemo Text NULL 備注 Rooms 客房信息表 列名 數(shù)據(jù)類(lèi)型 可否為空 說(shuō) 明 Bookno Varchar NOT NULL 訂房編號(hào) Customname Varchar NOT NULL 顧客姓名 CustomID Varchar NOT NULL 身份證號(hào)碼 Roomno Varchar NOT NULL 客房編號(hào) Indate Datetime NULL 入住日期 Discount Numeric NULL 折扣 Inmeno Text NULL 備注 Checkdate Datetime NULL 結(jié)算日期 Amount Numeric NULL 金額 Bookin 訂房信息表 ⒌數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn) 利用 SQL 2020 數(shù)據(jù)庫(kù)系統(tǒng)中的查詢(xún)分析實(shí)現(xiàn)數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)，其表格如下： 創(chuàng)建系統(tǒng)用戶(hù)表格 user_Info CREATE TABLE [dbo].[user_Info1]( [user_ID][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [user_PWD] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [user_Des] [char](10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建客房標(biāo)準(zhǔn)信息表格 roomtype CREATE TABLE [dbo].[roomtype]( [typeid][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [typename][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [area][numeric](5,0) NULL, [bednum][numeric](2,0) NULL, [haircondition][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelephone][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelevision][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htoilet][char](2) COLLATE Chinese_PRC_CI_AS NULL, [price][numeric](10,2)