【正文】 seIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = 39。我們可以根據(jù)需要為窗體添加多級(jí)菜單。 表 3 room 資料數(shù)據(jù)表 字段名 類型 大小 說明 房間號(hào) Text 3 房間號(hào) 客房等級(jí) Text 8 客房等級(jí) 客房類型 Text 8 客房類型 客房?jī)r(jià)格 Text 單精度型 客房?jī)r(jià)格 客房狀態(tài) Text 3 客房狀態(tài) 客房備注信息 備注 8 客房備注信息 （ 4） quit 資料數(shù)據(jù)表。 如下圖 1 所示，是酒店客房管理系統(tǒng)的系統(tǒng)模塊示意圖。主要用于賓館旅客入住情況登記 ,包括旅客的姓名及身份證號(hào)的登記 ,以及入住房間信息 .當(dāng)旅客離開時(shí) ,需要辦理退房結(jié)帳手續(xù) .對(duì)于一定時(shí)間沒有旅客入住情況實(shí)現(xiàn)基本查詢 ,報(bào)表打印功能 .對(duì)于賓館本身也實(shí)現(xiàn)了客房增減 ,入住情況查詢等功能 . 無論各種等級(jí)的賓館 ,使用客房管理系統(tǒng)都具有非常實(shí)用的價(jià)值 .使用該系統(tǒng)可以大大節(jié)省時(shí)間 ,提高辦公效率 ,而且非常方便的實(shí)現(xiàn)旅客信息的查詢 ,以及對(duì)賓館本身客房 入住情況及時(shí)了解 .因此 ,客房管理系統(tǒng)的開發(fā)無疑具有深遠(yuǎn)的意義 . 本系統(tǒng)是采用 Visual 高級(jí)語言進(jìn)行程序編制，以 Access 數(shù)據(jù)庫為程序數(shù)據(jù)庫。在數(shù)據(jù)庫的設(shè)計(jì)過程中，首先是收集、分析需求；再從需求抽象出一般的實(shí)體、關(guān)系和他們的屬性；再將這些實(shí)體、關(guān)系和屬性按照一定的規(guī)則轉(zhuǎn)化為二元表結(jié)構(gòu)。 如下圖 4所示。 同樣，我們可以利用工具欄中的 picturebox 控件來改變窗體的背景圖案。 amp。 39。 amp。)) End If dtgroomqueryinforefresh End Sub Private Sub CmdOK_Click() Dim s1 As String Dim i As Integer Dim j As Integer Dim a(18) As String j = Len() s1 = Dim c As Integer c = 1 For i = 1 To j a(i) = Mid(s1, i, 1) If a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub 沈 陽 大 學(xué) 課程 設(shè)計(jì)說明書 ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = ~ Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = 39。有就提示 ,然后退出 MsgBox 已經(jīng)有相同登記號(hào) !, vbOKOnly + vbInformation, 提示 SendKeys {HOME}+{END} = Exit Sub End If .AddNew !登記號(hào) = Trim() End If !付款金額 = Val(Trim()) !登記日期 = Trim() !退房時(shí)間 = Update If Trim() = Then MsgBox 備注不能為空 !, vbOKOnly + vbInformation, 提示 End If !退房備注信息 = Update Unload Me !客房狀態(tài) = 空 With Delete End With End With End Sub 沈 陽 大 學(xué) 課程 設(shè)計(jì)說明書 Private Sub Command1_Click() If optroom Then opentable , select * from room where ((( ) like 39。 6 參考文獻(xiàn) [1] 劉天惠 . Visual Basic程序設(shè)計(jì)教程 [M].北京 :清華大學(xué)出版社 , [2] 劉新民 ,蔡瓊 ,白康生 .Visual Basic 程序設(shè)計(jì) [M].北京 :清華大學(xué)出版社 , [3] 周升 ,李靜 .Visual Basic 程序設(shè)計(jì)藝術(shù) [M].南京 :南京大學(xué)出版社 , [4] 李微 ,周見明 .Visual Basic 數(shù)據(jù)庫 開發(fā)應(yīng)用 .[M].上海 :上海交大出版社 , [5] 魏知名 ， 李密 .Visual Basic 應(yīng)用開發(fā) 100 例 .[M].天津 :天津大學(xué)出版社 ， [6] 蔣伏加 ,Visual Basic 程序設(shè)計(jì)教程 [M].北京 :北京郵電大學(xué)出版社， [7] 曾強(qiáng)聰 ,Visual 程序設(shè)計(jì)教程 [M].北京 :中國水利水電出版社 , 7 附錄 酒店 客房管理系統(tǒng)程序代碼 Private Sub CmdOK_Click() Dim s1 As String Dim i As Integer Dim j