【正文】 信息修改 客房信息添加 客房標(biāo)準(zhǔn)修改 客房標(biāo)準(zhǔn)添加 訂房信息管理 結(jié)算信息管理 客房信息管理 系統(tǒng)管理 圖 3 系統(tǒng)功能設(shè)計(jì)圖 7 住房單價(jià)，是否有空調(diào)，電視，電話，單獨(dú)衛(wèi)生間等。 3訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)，客房編號(hào)，客房種類，客房位置，客房備注信息，顧客姓名，顧客身份證號(hào)碼，入住時(shí)間，折扣，備注等。 由此可以 設(shè)計(jì) 賓館管理信息系統(tǒng)頂層圖和賓館管理信息系統(tǒng)關(guān)聯(lián)圖 （ ER圖）?，F(xiàn)在將通過賓館 9 管理信息系統(tǒng)中各個(gè)功能模塊的實(shí)現(xiàn)，講解如何使用 Visual Basic 來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。這里我們刪除這個(gè)窗體，單擊 FileSaveProject 菜單，將這個(gè)工程項(xiàng)目命名為Hotel— MIS。這樣可以極大的提高代碼的效率。下面就可以開始添加需要的代碼了。 ExecuteSQL 函數(shù)有兩個(gè)參數(shù)： SQL 和 MsgString。函數(shù)執(zhí)行時(shí)，首先判斷 SQL語句中包含的內(nèi)容，當(dāng)執(zhí)行查詢操作時(shí)， ExecuteSQL 函數(shù)將返回一個(gè)與函數(shù)同名的記錄集對(duì)象 (Recordset)，所有滿足條件的記錄包含在對(duì)象中，當(dāng)執(zhí)行如刪除、更新、添加等操作時(shí)，不返回記錄集對(duì)象。 2 添加用戶。 .1 用戶登陸設(shè)計(jì)與實(shí)現(xiàn) 用戶登錄窗體中放置了二個(gè)文本框 (TextBox)，用來輸入用戶名和用戶密碼：二個(gè)按鈕 (CommandButton)用來確定或者取消登錄：三個(gè)標(biāo)簽 (Label)用來標(biāo)示窗體的信息系統(tǒng)啟動(dòng)后，將首先出現(xiàn)如下圖，用戶首先輸入用戶名，然后輸入密碼。 用戶如果沒有輸入用戶名和用戶密碼，將出現(xiàn)消息框提示，如果輸入的用戶名在用戶表中沒有找到，將提示重新輸入用戶名，文本框 txtusername 將重新獲得輸入焦點(diǎn)。用戶登錄成功，全局變量 ok將被賦值為 true。公用模塊中的 main（）過程將根據(jù) ok 的值來決定是退出，還是進(jìn)入系統(tǒng)。當(dāng)確定數(shù)據(jù)庫中沒有相同的用戶名，并且二次輸入密碼一致時(shí)，將把該條記錄添加到數(shù)據(jù)庫中。對(duì)于每個(gè)客房標(biāo)準(zhǔn)，有 不同的硬件設(shè)施和服務(wù)。 2修改客房標(biāo)準(zhǔn)。 添加客房標(biāo)準(zhǔn)模塊設(shè)計(jì)與實(shí)現(xiàn) 在窗體放置多個(gè)文本框，用來輸入客房標(biāo)準(zhǔn)基本信息，多個(gè)下拉式文本框選擇不同的硬件設(shè)施；兩個(gè)按鈕用來確定是否添加客房標(biāo)準(zhǔn)信息；多個(gè)標(biāo)簽用來提示文本框中需要輸入的內(nèi)容 ,如下圖 : 12 Option Explicit 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。 amp。 39。保存 Call cmdSave_Click End If End If Unload Me End Sub Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim mrcc As Dim MsgText As String For intCount = 0 To 3 If Trim(txtItem(intCount) amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode = 1 Then txtSQL = select * from rooms where roomNO=39。 Trim(txtItem(0)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此客房編號(hào)的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If 14 End If If gintRmode = 2 Then 39。 amp。 39。再加入新記錄 txtSQL = select * from rooms Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(txtItem(0)) (1) = Trim(cboItem(0)) For intCount = 1 To 2 If Trim(txtItem(intCount) amp。 添加 39。 修改 End If mblChange = False End Sub Private Sub Form_Unload(Cancel As Integer) gintRmode = 0 End Sub Private Sub txtItem_Change(Index As Integer) 39。如果是添加狀態(tài)，文本框?qū)⑶宄齼?nèi)容，窗體有提示信息；如果是修改狀態(tài)，將選擇顯示當(dāng)前的記錄。程序?qū)⑴袛嗍欠裼兄貜?fù)編號(hào)的記錄，然后添加數(shù)據(jù)到數(shù)據(jù)庫中。 修改客房標(biāo)準(zhǔn)模塊設(shè)計(jì)與實(shí)現(xiàn) 選擇 “ 客房信息管理 設(shè)置客房標(biāo)準(zhǔn) 修改客房標(biāo)準(zhǔn) ” 菜單，將出現(xiàn)如圖所示的窗體，窗體中放置一個(gè)表格控件。選擇相應(yīng)記錄，單擊鼠標(biāo)右鍵，選擇彈出式菜單，將刪除當(dāng)前記錄 . 客房信息管理模塊設(shè)計(jì)與實(shí)現(xiàn) 客房信息管理模塊主要實(shí)現(xiàn)如下功能： 1 添加客房信息。3 刪除客房信息。添加 ,修改和刪除的實(shí)現(xiàn)和客房標(biāo)準(zhǔn)一樣原理我就不講了 ,下面我們看下客房查詢模塊： 選擇 “ 客房信息管理 設(shè)置客 房信息 查詢客房信息 ” 菜單，將出現(xiàn)如下窗體 ,在這里可以按照各種方式以及它們的組合進(jìn)行查詢 ,滿足查詢條件的所有記錄將顯示在客房信息列表窗體 。用于傳遞查詢塊 Private Sub chkItem_Click(Index As Integer) If Index = 0 Then txtItem(0).SetFocus Else End If End Sub Private Sub cmdExit_Click() End Sub Private Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value = vbChecked Then sQSql = roomNO = 39。 Trim(txtItem(0) amp。 39。 ) = Then sQSql = roomtype =39。 Trim(Combo1 amp。 39。 and roomtype =39。 Trim(Combo1 amp。 39。 sQSql 19 End If End Sub Private Sub Form_Load() Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As 39。它使用面向?qū)ο蟮拈_發(fā)技術(shù)，能夠輕松開發(fā)出功能強(qiáng)大的專門針對(duì)用戶的應(yīng)用程序。能夠快速、隨意地制作出用戶需要的各種形式的窗體和控件。這次數(shù)據(jù)庫課程設(shè)計(jì)使我學(xué)到了很多編程方面的知識(shí)，也發(fā)現(xiàn)自己在編程方面存在很多不足，我將不斷的學(xué)習(xí)來完善自己。 另外，通過這次課程設(shè)計(jì)，提高了自己運(yùn)用所學(xué)的基礎(chǔ)知識(shí)和技能，獨(dú)立解決一般的計(jì)算機(jī)工程問