【文章內(nèi)容簡介】 房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、 入住時間、折扣、結(jié)算時間、備注等。 有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)流程，我們就能進行下面的數(shù)據(jù)庫設(shè)計。 4． 1． 2 數(shù)據(jù)概念結(jié)構(gòu)設(shè)計 得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及他們之間的關(guān)系，為以后的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。 本程序根據(jù)上面的設(shè)計規(guī)劃出的實體由：客房標準信息實體、客房信息實體、訂房信息實體、結(jié)算信息實體。各個實體具體的描述 ER 圖如下。 訂房信息輸入 訂房信息管理 結(jié)算信息輸入 結(jié)算信息管理 基本信息返回 客房標準信息管理 基本信息錄入 客房信息管理 顧客登記 客房標準信息實體 ER 圖如圖 42 所示。 圖 42 客房標準信息實體 客房信息實體 ER 圖如圖 43 所示。 圖 43 客房信息實體 ER 圖 結(jié)算信息實體 ER 圖如圖 44 所示。 客房標準信息實體 標準編號 標準名稱 床位數(shù)量 客房單價 …… 客房信息實體 標準標準 客房位置 客房單價 客房編號 …… 結(jié)算信息實體 圖 44 結(jié)算信息實體 ER 圖 實體之間關(guān)系的 ER 圖如圖 45 所示。 圖 45 實體之間關(guān)系 ER 圖 4． 1． 3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)化為 SQLServer 2021 數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。賓館客房管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。表 41為物資基本信息表。 表 41 roomtype 客房標準信息表 列名 數(shù)據(jù)類型 可否為空 說明 顧客信息 客房信息 結(jié)算時間 結(jié)算金額 …… 客房標準信息 客房登 記 客房信息管理 訂房 結(jié)算信息管理 客房結(jié)算 訂房信息管理 typeid varchar NOT NULL 標準編號 typename varchar NOT NULL 標準名稱 area numeric NULL 房間面積 benumbs numeric NULL 床位數(shù)量 haircondition varchar NULL 是否有空調(diào) htelephone varchar NULL 是否有電話 htelevision varchar NULL 是否有電視 htoilet varchar NULL 是否有單獨衛(wèi)生間 price numeric NULL 單價 表 42 位客房信息表格 表 42 room客 房信息表格 列名 數(shù)據(jù)類型 可否為空 說明 roomNO varchar NOT NULL 客房編號 roomtypen varchar NOT NULL 客房種類 roomposition varchar NULL 客房位置 roomprice numeric NULL 單價 putup varchar NULL 是否被鎖定 roommemo text NOT NULL 備注 表 43 位訂房信息表 表 43 bookin 訂房信息表 列名 數(shù)據(jù)類型 可否為空 說 明 bookno varchar NOT NULL 訂房編號 customname varchar NOT NULL 顧客姓名 customID varchar NOT NULL 身份證號碼 roomno varchar NOT NULL 客房編號 indata datatime NULL 入住日期 discount numeric NULL 折扣 inmemo textr NULL 備注 checkdate datatime NULL 結(jié)算日期 ammount numeric NULL 金額 數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn) 經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)?，F(xiàn)在就可以在 SQL Server 2021 數(shù)據(jù)庫系統(tǒng)中實現(xiàn)該邏輯結(jié)構(gòu)。 系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務是實現(xiàn)賓館各種信息的系統(tǒng)化 、 規(guī)范化和自動化 。 系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎(chǔ)上完成的 。 這個賓館客房管理信息系統(tǒng)需要完成的功能主要有： ① 有關(guān)客房標準的制定、標準信息的輸入、包括標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機、電話以及單獨衛(wèi)生間等。 ② 客房標準信 息的修改、查詢等。 ③ 客房基本信息的輸入，包括客房編號、客房類型、客房設(shè)置、客房單價、備注等。 ④ 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。 ⑤ 剩余客房信息的查詢。 ⑥ 結(jié)算信息的輸入，包括客房編號、客房種類、客房設(shè)置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)算日起、備注信息等。 ⑦ 結(jié)算信息的修改和查詢，包括客房編號、客房種類、客房設(shè)置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)算日起、備注信息等。 。 4． 2． 1 創(chuàng)建工程項目 Hotel_MIS 啟動 VisualBasic 后。單擊 File Project 菜單，在工程模板中選擇Standard EXE， VisualBasic 將自動產(chǎn)生一個 Form 窗體，屬性都是缺省設(shè)置。這里我們刪除這個窗體，單擊 File|Save Project 菜單，將這個工程項目命名為 Hotel_MIS 。 4． 2． 2 創(chuàng)建賓館客房管理信息系統(tǒng)的主窗體 這個項目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form 按鈕 ，生成一個窗體。在這個窗體上添加所需的控件，創(chuàng)建好 的窗體如圖所示。 圖 賓館客房管理信息系統(tǒng)主窗體 在主窗體中加入狀態(tài)欄控件，可以實時的反應系統(tǒng)中的各個狀態(tài)的變化。狀態(tài)欄控件需要在通常的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進行設(shè)置。選中狀態(tài)欄控件，單擊鼠標右鍵，選中 Property 菜單，然后設(shè)置屬性。面板 1 用來顯示各種文本信息，面板 2用來顯示單前日期，面板 3用來顯示當前時間。 4． 2． 3 創(chuàng)建主窗體菜單 在如圖 1－ 14 所示的主窗體重，單擊鼠標右鍵，選擇彈出式菜單重的“ Menu Editor”命令，創(chuàng)建如圖所示的菜單結(jié)構(gòu)： 主窗體中的菜單結(jié)構(gòu) 4． 2． 4 用戶管理模塊主要實現(xiàn) ： 1， 用戶登錄 2， 添加用戶。 3， 修改用戶密碼。 4， 用戶登錄界面 本系統(tǒng)由此界面進入代碼如下： Option Explicit Private Sub cmdCancel_Click() 39。結(jié)束程序 End End Sub Private Sub cmdOk_Click() Static intLoginTimes As Integer If Trim() = Then 39。如果用戶名為空 MsgBox 用戶名不能為空！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If 39。打開數(shù)據(jù)庫中的 Users 表 39。查找用戶名 Name=39。 amp。 amp。 39。, , adSearchForward, 1 39。也可以用下面的過濾方式 39。 = Name=39。 amp。 amp。 39。 If Not Then 39。找到記錄 strUserName = !Name strPassword = !Password Else 39。沒找 到記錄 strUserName = strPassword = End If If strUserName = And strPassword = Then 39。關(guān)閉數(shù)據(jù)庫中的 Users 表 Unload Me 39。關(guān)閉窗體 39。顯示主窗體 Else 39。用戶名或密碼不對 MsgBox 用戶名或密碼不對！ , vbOKOnly + vbInformation, 提示 intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 39。超過三次 39。關(guān)閉數(shù)據(jù)庫中的 Users 表 End 39。退出整個程序 End If 39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub Private Sub Form_Load() 39。打開用戶表 OpenTable adoUsers, Users End Sub 5，修改用戶密碼界面 此界面由用戶自行設(shè)定修改，放便用戶更新。代碼如下： Option Explicit Private Sub cmdCancel_Click() 39。結(jié) 束程序 Unload Me End Sub Private Sub cmdOk_Click() 39。打開數(shù)據(jù)庫中的 Users 表 39。查找用戶名 Name=39。 amp。 strUserName amp。 39。, , adSearchForward, 1 39。也可以用下面的過濾方式 39。 = Name=39。 amp。 amp。 39。 If Not Then 39。找到記錄 strUserName = !Name strPassword = !Password Else 39。沒找到記錄 strUserName = strPassword = End If If strPassword = And = Then !Name = strUserName !Password = NewPassword 39。關(guān)閉數(shù)據(jù)庫中的 Users 表 Unload Me 39。關(guān)閉窗體 End If End Sub Private Sub Form_Load() 39。打開用戶表 OpenTable adoUsers, Users End Sub 賓館在運營中需要設(shè)置不同的客房標準來適應不同消費水平顧客的需要。對于每個客房標準，有不同的硬件設(shè)施和服務。客房標準管理模塊主要實現(xiàn)如下功能： 1， 添加客房標準。 2， 修改客房標準。 3， 陜西戶客房標準。 6．添加客房標準窗體的創(chuàng)建 選擇“客房信息管理設(shè)置客房標準添加客房標準”菜單，將出現(xiàn)如圖所 示的窗體。 添加客房標準窗體 在窗體上放置多個文本框，用來輸入客房標準基本信息，多個下拉式文本框選擇不同的硬件設(shè)施；兩個按鈕用來確定是否添加客房標準信息；多個標簽用來提示文本框中需要輸入的內(nèi)容。這些控件的屬性見表，添加客房窗體中各個控件的屬性設(shè)置。代碼如下： Private Sub dtgGuestInfo_Click() End Sub Private Sub Form_Activate() Form_Load End Sub Private Sub Form_Load()