【文章內(nèi)容簡(jiǎn)介】 圖 5 賓館管理信息系統(tǒng)關(guān)聯(lián)圖 客房標(biāo)準(zhǔn)信息表 roomtype 列名 數(shù)據(jù)類型 可否為空 說(shuō)明 typeid varchar NOT NULL 標(biāo)準(zhǔn)編號(hào) typename varchar NOT NULL 標(biāo)準(zhǔn)名稱 area numeric NULL 房間面積 8 bednum numeric NULL 床位數(shù)量 haircondition varchar NULL 是否有空調(diào) htelephone varchar NULL 是否有電話 htelevision varchar NULL 是否有電視 htoilet varchar NULL 是否有獨(dú)立衛(wèi)生間 price numeric NULL 單價(jià) 客房信息表 rooms 列名 數(shù)據(jù)類型 可否為 空 說(shuō)明 roomno varchar NOT NULL 客房編號(hào) roomtype varchar NOT NULL 客房種類 roomposition varchar NULL 客房位置 roomprice numeric NULL 單價(jià) putup varchar NOT NULL 是否被預(yù)定 roommemo text NULL 備注 訂房信息表 booking 列名 數(shù)據(jù)類型 可否為空 說(shuō)明 bookno varchar NOT NULL 訂房編號(hào) customname varchar NOT NULL 顧客姓名 customid varchar NOT NULL 身份證號(hào)碼 roomno varchar NOT NULL 客房編號(hào) indate varchar NULL 入住日期 discount numeric NULL 折扣 inmemo text NULL 備注 checkdate datetime NULL 結(jié)算日期 ammount numeric NULL 金額 4 系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn) 經(jīng)過(guò)系統(tǒng)分析 ,有關(guān)數(shù)據(jù)庫(kù)結(jié)構(gòu)的所有后 臺(tái)工作已經(jīng)完成?，F(xiàn)在將通過(guò)賓館 9 管理信息系統(tǒng)中各個(gè)功能模塊的實(shí)現(xiàn)，講解如何使用 Visual Basic 來(lái)編寫數(shù)據(jù)庫(kù)系統(tǒng)的客戶端程序。 賓館系統(tǒng) HotelMIS 工程項(xiàng)目的創(chuàng)建 啟動(dòng) Visual Basic 后，單擊 FileNew Project 菜單，在工程模板中選擇Standsard EXE,Visual Basic 將自動(dòng)產(chǎn)生一個(gè) Form 窗體，屬性都是缺省設(shè)置。這里我們刪除這個(gè)窗體，單擊 FileSaveProject 菜單，將這個(gè)工程項(xiàng)目命名為Hotel— MIS。 賓館管理信息系統(tǒng)主窗體設(shè)計(jì) 這個(gè)項(xiàng)目我們使用多文檔界面，單擊 VB軟件工具欄中 ADD MDI Form 按鈕，生成一個(gè)窗體，在這個(gè)窗體上添加所有的控件，創(chuàng)建好的窗體如下 : 公用模塊設(shè)計(jì) 在 Visual Basic 中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù)，過(guò)程和全局變量等。這樣可以極大的提高代碼的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 Module bas。下面就可以開始添加需要的代碼了。由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫(kù)中的各個(gè)數(shù)據(jù)，因此需要一個(gè)公用的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語(yǔ)句。 ExecuteSQL 函數(shù)有兩個(gè)參數(shù)： SQL 和 MsgString。其中 SQL用來(lái)存放需要執(zhí)行的 SQL 語(yǔ)句， MsgString 用來(lái)返回執(zhí)行的提示信息。函數(shù)執(zhí)行時(shí)，首先判斷 SQL語(yǔ)句中包含的內(nèi)容，當(dāng)執(zhí)行查詢操作時(shí)， ExecuteSQL 函數(shù)將返回一個(gè)與函數(shù)同名的記錄集對(duì)象 (Recordset)，所有滿足條件的記錄包含在對(duì)象中，當(dāng)執(zhí)行如刪除、更新、添加等操作時(shí)，不返回記錄集對(duì)象。在 ExecuteSQL 函數(shù)中使用了ConnectString 函數(shù)，這個(gè)函數(shù)用來(lái)連接數(shù)據(jù)庫(kù) 10 用戶管理模塊設(shè)計(jì)與實(shí)現(xiàn) 用戶管理模 塊主要實(shí)現(xiàn)： 1 用戶登錄。 2 添加用戶。 3 修改用戶密碼。 .1 用戶登陸設(shè)計(jì)與實(shí)現(xiàn) 用戶登錄窗體中放置了二個(gè)文本框 (TextBox)，用來(lái)輸入用戶名和用戶密碼：二個(gè)按鈕 (CommandButton)用來(lái)確定或者取消登錄：三個(gè)標(biāo)簽 (Label)用來(lái)標(biāo)示窗體的信息系統(tǒng)啟動(dòng)后，將首先出現(xiàn)如下圖，用戶首先輸入用戶名，然后輸入密碼。如果用戶 3次輸入密碼不正確，將退出程序。 用戶如果沒有輸入用戶名和用戶密碼，將出現(xiàn)消息框提示，如果輸入的用戶名在用戶表中沒有找到，將提示重新輸入用戶名，文本框 txtusername 將重新獲得輸入焦點(diǎn)。如果用戶輸入的密碼不正確，文本框 txtpassword 將重新獲得輸入焦點(diǎn)。用戶登錄成功，全局變量 ok將被賦值為 true。一旦三次輸入密碼均不正確，全局變量 ok將被賦值為 false。公用模塊中的 main（）過(guò)程將根據(jù) ok 的值來(lái)決定是退出，還是進(jìn)入系統(tǒng)。 .2 添加用戶設(shè)計(jì)與實(shí)現(xiàn) 進(jìn)入系統(tǒng)后，選擇菜單 “ 系統(tǒng) |添加用戶 ” ，就可以添加用戶，出現(xiàn)添加用戶的窗體在這個(gè)窗體中放置了二個(gè)文本框，用來(lái)輸入密碼和確認(rèn)密碼，二個(gè)按鈕用來(lái)確定是否修改密碼，二個(gè)標(biāo)簽用來(lái)標(biāo) 示文本框的內(nèi)容， 11 一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據(jù)庫(kù)中與新建用戶名相同的記錄，如果有相同記錄將提示用戶重新輸入用戶名。當(dāng)確定數(shù)據(jù)庫(kù)中沒有相同的用戶名，并且二次輸入密碼一致時(shí)，將把該條記錄添加到數(shù)據(jù)庫(kù)中。 .3 修改密碼設(shè)計(jì)與實(shí)現(xiàn) 在這個(gè)窗體中放置了二個(gè)文本框，用來(lái)輸入密碼和確認(rèn)密碼，二個(gè)按鈕按鈕用來(lái)確定是否修改密碼，二個(gè)標(biāo)簽用來(lái)標(biāo)示文本框的內(nèi)容 ,如下圖 , 客房標(biāo)準(zhǔn)管理模塊設(shè)計(jì)與實(shí)現(xiàn) 賓館在運(yùn)行中需要設(shè)置不同的客房標(biāo)準(zhǔn)來(lái)適應(yīng)不同消費(fèi)水平顧客的需要。對(duì)于每個(gè)客房標(biāo)準(zhǔn)，有 不同的硬件設(shè)施和服務(wù)。客房標(biāo)準(zhǔn)管理模塊主要實(shí)現(xiàn)如下功能： 1 添加客房標(biāo)準(zhǔn)。 2修改客房標(biāo)準(zhǔn)。 3 刪除客房標(biāo)準(zhǔn)。 添加客房標(biāo)準(zhǔn)模塊設(shè)計(jì)與實(shí)現(xiàn) 在窗體放置多個(gè)文本框，用來(lái)輸入客房標(biāo)準(zhǔn)基本信息，多個(gè)下拉式文本框選擇不同的硬件設(shè)施；兩個(gè)按鈕用來(lái)確定是否添加客房標(biāo)準(zhǔn)信息；多個(gè)標(biāo)簽用來(lái)提示文本框中需要輸入的內(nèi)容 ,如下圖 : 12 Option Explicit 39。是否改動(dòng)過(guò)記錄， ture 為改過(guò) Dim mblChange As Boolean Dim mrc As Public txtSQL As String Private Sub cboItem_Change(Index As Integer) 39。有變化設(shè)置 gblchange mblChange = True End Sub Private Sub cboItem_Click(Index As Integer) Dim sSql As String Dim MsgText As String Dim mrcc As 39。初始化員工名稱和 ID If Index = 0 Then txtSQL = select typename,price from roomtype where typename=39。 amp。 Trim(cboItem(0)) amp。 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not Then txtItem(2) = mrcc!price = True Else MsgBox 請(qǐng)先建立客房標(biāo)準(zhǔn)！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If End If Exit Sub 13 End Sub Private Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub Private Sub cmdExit_Click()