【正文】 商務(wù)酒店管理系統(tǒng) 25 在整個(gè)開(kāi)發(fā)過(guò)程中深深體會(huì)到，多與用戶交流，并盡可能多的從用戶那里獲取信息；要嚴(yán)格按照軟件工程的開(kāi)發(fā)思路，不能急于求成，一來(lái)就馬上編程，應(yīng)該多做分析和研究，理清思路。 amp。 ● 查看入住信息：包括以入住和未入住的房間信息。 3．可擴(kuò)充性原則 應(yīng)該保證該系統(tǒng)在系統(tǒng)的功能，結(jié)構(gòu)方面具有可擴(kuò)充性。數(shù)據(jù)表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。 2． 2． 4怎樣開(kāi)發(fā)一個(gè)學(xué)生信息管理系統(tǒng)的查詢模塊？ 查詢模塊的設(shè)計(jì)分析 根據(jù)實(shí)際情況，我們使用原型法 (Rapid Prototyping) 即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件模型。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 對(duì)象 (Object) 對(duì)象是 VB 系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。 當(dāng)今，席卷全球的信息化大潮把信息管理推倒了時(shí)代發(fā)展的前沿，信息管理系統(tǒng)已經(jīng)成為全社會(huì)注視的熱點(diǎn)。操作人員只需輸入一些簡(jiǎn)單的漢字、數(shù)字，即可 達(dá)到自己的目標(biāo)。顯然，今天的賓館與過(guò)去的旅館相比已經(jīng)有了很大的不同。隨著社會(huì)的進(jìn)步，經(jīng)濟(jì)的發(fā)展，當(dāng)今社會(huì)人員流動(dòng)越來(lái)越頻繁，賓館管理 工作也變得越來(lái)越復(fù)雜。對(duì)于大中型賓館來(lái)說(shuō)，利用計(jì)算機(jī)支持高效率完成日常事務(wù)，是適應(yīng)現(xiàn)代要求、推動(dòng)管理走向科學(xué)化、規(guī)范化的必要條件；而且賓館管理又是一項(xiàng)非常煩瑣的事情，數(shù)量之大，核算極其不便。國(guó) 外許多發(fā)達(dá)國(guó)家在這一方面采用先進(jìn)技術(shù)，發(fā)展水平領(lǐng)先一步。本程序所應(yīng)用到的對(duì)象類(lèi)型有標(biāo)簽 框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)， ADO控件 (Adodc1)等。 Windows 下的 Visual Basic 編程環(huán)境簡(jiǎn)介 1 、面對(duì)對(duì)象 的編程 面向?qū)ο蟮脑O(shè)計(jì)方法 (OOP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問(wèn)題著手，以直觀自然的方式描述客觀世界的實(shí)體。使用戶可以較快地確定需求，然后采用循環(huán)進(jìn) 化的開(kāi)發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。另外， Access 允許創(chuàng) 建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。以便適應(yīng)企業(yè)以后發(fā) 展的需要，做出相應(yīng)的功能結(jié)構(gòu)上的調(diào)整。 ● 房間結(jié)帳：通過(guò)輸入房間號(hào)查看的顧客的入住時(shí)間和費(fèi)用，然后結(jié)算。 roomNo amp。前一階段的工作的好壞將直接影響后一階段工作的開(kāi)展；多學(xué)習(xí)多請(qǐng)教，更多新的技術(shù)不斷的涌現(xiàn)，可以通過(guò)請(qǐng)教別人或者多上網(wǎng)學(xué)習(xí)別人的編程方法、研究編程案例，可以轉(zhuǎn)變成你的知識(shí)， 才能做的更好。但可以這樣說(shuō)，這次課程設(shè)計(jì)只是一個(gè)開(kāi)始，只有以后通過(guò)不斷的努力不斷的專研和學(xué)習(xí)，才能掌握更多的軟件設(shè)計(jì)的技術(shù)和方法，才能設(shè)計(jì)出更好更完善的軟件作品來(lái)。 Set mrc = ExecuteSQL(sqlStr, msgtext) If = True Then MsgBox Have no user,Please try again!, , 警告 商務(wù)酒店管理系統(tǒng) 17 Else If Trim((password)) = Trim() Then ok = True user = Else MsgBox 密碼不正確，請(qǐng)重新輸入！ , , waring = End If End If End If micount = micount + 1 If micount = 3 Then Unload Me End If Exit Sub End Sub 商務(wù)酒店管理系統(tǒng) 18 主界面 7. 3 客房設(shè)置界面 商務(wù)酒店管理系統(tǒng) 19 關(guān)鍵代碼（添加） Private Sub cmdAdd_Click() Dim rstRoom As Dim roomNo As String Dim roomType As String Dim roomPrice As String Dim roomMemo As String roomNo = Trim() roomType = Trim() roomPrice = Trim() roomMemo = Trim() If roomNo = Then MsgBox 請(qǐng)將信息補(bǔ)充完整 , vbOKOnly + vbExclamation, 警告 Exit Sub End If sqlStr = select * from roomInfo Set rstRoom = ExecuteSQL(sqlStr, msgText) (roomNO) = roomNo (roomType) = roomType (roomPrice) = roomPrice (roomMemo) = roomMemo 商務(wù)酒店管理系統(tǒng) 20 MsgBox 房間添加完成！ , vbOKOnly + vbExclamation, 警告 initForm End Sub 訂房界面 關(guān)鍵代碼（保存） Private Sub cmdSave_Click() Dim rstCheckIn As Dim rstRoom As Dim customerName As String Dim customerID As String Dim discount As String Dim roomNo As String Dim custMemo As String 商務(wù)酒店管理系統(tǒng) 21 Dim dateIn As String roomNo = customerName = customerID = discount = custMemo = dateIn = Format(Date, yyyymmdd) sqlStr = select * from checkIn Set rstCheckIn = ExecuteSQL(sqlStr, msgText) (roomNO) = roomNo (customerName) = customerName (customerID) = customerID (discount) = discount (memo) = custMemo (date_in) = dateIn sqlStr = select * from roomInfo where roomNO=39。 ● 修改入住信息：通過(guò)房間號(hào)查詢到顧客的信息，然后進(jìn)行修改。 2．可靠性原則 該系統(tǒng)應(yīng)有較高的可靠性，在系統(tǒng)設(shè)計(jì)及程序設(shè)計(jì)上應(yīng)該強(qiáng)調(diào)系統(tǒng)的可靠性。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 本系統(tǒng)就用了 Cool工具中的 Statubar 控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個(gè)欄中，在樣式這一欄中選擇了文本，在第二個(gè)