【正文】 amp。 ) = Then (intCount + 1) = Null Else (intCount + 1) = Trim(txtItem(intCount)) End If Next intCount (4) = (5) = Trim(txtItem(3)) If gintRmode = 1 Then For intCount = 0 To 3 txtItem(intCount) = Next intCount mblChange = False If flagRedit Then Unload frmRoom = select * from rooms End If ElseIf gintRmode = 2 Then Unload Me If flagRedit Then Unload frmRoom End If = select * from rooms End If 15 End Sub Private Sub Form_Load() Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode = 1 Then = amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) End If 39。 Trim(txtItem(0)) amp。先刪除已有記錄 txtSQL = delete from rooms where roomNO=39。 39。 amp。 ) = Then Select Case intCount Case 0 sMeg = 客房編號(hào) Case 1 sMeg = 客房位置 End Select sMeg = sMeg amp。 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() If mblChange And Then If MsgBox(保存當(dāng)前記錄的變化嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then 39。 Trim(cboItem(0)) amp。初始化員工名稱和 ID If Index = 0 Then txtSQL = select typename,price from roomtype where typename=39。是否改動(dòng)過記錄， ture 為改過 Dim mblChange As Boolean Dim mrc As Public txtSQL As String Private Sub cboItem_Change(Index As Integer) 39。 3 刪除客房標(biāo)準(zhǔn)。客房標(biāo)準(zhǔn)管理模塊主要實(shí)現(xiàn)如下功能： 1 添加客房標(biāo)準(zhǔn)。 .3 修改密碼設(shè)計(jì)與實(shí)現(xiàn) 在這個(gè)窗體中放置了二個(gè)文本框，用來輸入密碼和確認(rèn)密碼，二個(gè)按鈕按鈕用來確定是否修改密碼，二個(gè)標(biāo)簽用來標(biāo)示文本框的內(nèi)容 ,如下圖 , 客房標(biāo)準(zhǔn)管理模塊設(shè)計(jì)與實(shí)現(xiàn) 賓館在運(yùn)行中需要設(shè)置不同的客房標(biāo)準(zhǔn)來適應(yīng)不同消費(fèi)水平顧客的需要。 .2 添加用戶設(shè)計(jì)與實(shí)現(xiàn) 進(jìn)入系統(tǒng)后，選擇菜單 “ 系統(tǒng) |添加用戶 ” ，就可以添加用戶，出現(xiàn)添加用戶的窗體在這個(gè)窗體中放置了二個(gè)文本框，用來輸入密碼和確認(rèn)密碼，二個(gè)按鈕用來確定是否修改密碼，二個(gè)標(biāo)簽用來標(biāo) 示文本框的內(nèi)容， 11 一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據(jù)庫中與新建用戶名相同的記錄，如果有相同記錄將提示用戶重新輸入用戶名。一旦三次輸入密碼均不正確，全局變量 ok將被賦值為 false。如果用戶輸入的密碼不正確，文本框 txtpassword 將重新獲得輸入焦點(diǎn)。如果用戶 3次輸入密碼不正確，將退出程序。 3 修改用戶密碼。在 ExecuteSQL 函數(shù)中使用了ConnectString 函數(shù)，這個(gè)函數(shù)用來連接數(shù)據(jù)庫 10 用戶管理模塊設(shè)計(jì)與實(shí)現(xiàn) 用戶管理模 塊主要實(shí)現(xiàn)： 1 用戶登錄。其中 SQL用來存放需要執(zhí)行的 SQL 語句， MsgString 用來返回執(zhí)行的提示信息。由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫中的各個(gè)數(shù)據(jù)，因此需要一個(gè)公用的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語句。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 Module bas。 賓館管理信息系統(tǒng)主窗體設(shè)計(jì) 這個(gè)項(xiàng)目我們使用多文檔界面，單擊 VB軟件工具欄中 ADD MDI Form 按鈕，生成一個(gè)窗體，在這個(gè)窗體上添加所有的控件，創(chuàng)建好的窗體如下 : 公用模塊設(shè)計(jì) 在 Visual Basic 中可以用公用模塊來存放整個(gè)工程項(xiàng)目公用的函數(shù)，過程和全局變量等。 賓館系統(tǒng) HotelMIS 工程項(xiàng)目的創(chuàng)建 啟動(dòng) Visual Basic 后，單擊 FileNew Project 菜單，在工程模板中選擇Standsard EXE,Visual Basic 將自動(dòng)產(chǎn)生一個(gè) Form 窗體，屬性都是缺省設(shè)置。 賓 館 管 理 信 息 系 統(tǒng)管 理 員用 戶I D , 密 碼信 息 信 息I D , 密 碼 圖 4 賓館管理信息系統(tǒng)頂層圖 用 戶2入 住3查 詢4結(jié) 帳用 戶1主 界 面 數(shù) 據(jù) 庫 數(shù) 據(jù)密 碼用 戶 號(hào)入 住 請(qǐng) 求查 詢 請(qǐng) 求 結(jié) 帳 要 求金 額查 詢信 息 入 住 圖 5 賓館管理信息系統(tǒng)關(guān)聯(lián)圖 客房標(biāo)準(zhǔn)信息表 roomtype 列名 數(shù)據(jù)類型 可否為空 說明 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 varc