【正文】 which is to be liberal of praise 。 and virtue was never so beholding to human nature, as it received his due at the second hand. Neither had the fame of Cicero, Seneca, Plinius Secundus, borne her age so well, if it had not been joined with some vanity in themselves: like unto varnish, that makes sealings not only shine, but last But all this while, when I speak of vainglory, I mean not of that property, that Tacitus doth attribute to Mucianus。 and those mat are of solid and sober natures have more of the ballast, than of the sail. In fame of learning, the flight w ill be slow, without some feathers of ostentation. Q ui de contenm enda gloria libros scribunt, nomen suum inscribunt. Socrates, Aristotle, Galen, were men firil of ostentation. Certainly vainglory helpeth to perpetuate a man\39。 as if a man that negotiates between two princes, to draw them to join in a war against the third, doth extol the forces of either of them above measure, the one to the other: and sometimes, he that deals between man and man, raiseth his own credit with both by pretending greater interest than he hath in either. And in these , and the like kinds, it often falls out that somewhat is produced of nothing: for lies are sufficient to breed opinion, and opinion brings on substance. In military manders and soldiers, vainglory is an essential point。 beaucoup de bruit, peu de fruit: much bruit, little fruit Yet certainly there is use of this quality, in civil affairs. Where there is an opinion, and fame to be created, either of virtue, or greatness, these men are good trumpeters. Again, as Titus Livius noteth, in the case of Antiochus, and the Aetolians。 for all bravery stands upon parisons. They must needs be violent, to make good their own vaunts. Neither can they be secret, and therefore not effectual。 but we have a wild journey, also which is national and modern, and that is the journey to Amack on the night of the New Year. All indifferent poets and poetesses, musicians, newspaper writers, and artistic notabilities, I mean those who are no good, ride in the New Year39。t know what that is! The journey of the witches on broomsticks is well enough known that journey is taken on St. John39。s eve I was reading the book, and had lost myself in it so pletely, that I fot my usual New Year39。 the fly sat upon the axletree of the chariot wheel, and said. What a dust do I raise? So are there some vain persons, that whatsoever goeths indeed! They could tell us something worth hearing, if they only knew how to talk. It39。 最后，我還要感謝支持以及幫助過(guò)我的人，尤其是我的指導(dǎo)老師 —?jiǎng)⑵G玉老師，她仔細(xì)、認(rèn)真、負(fù)責(zé)的態(tài)度，對(duì)我的幫助是非常大的，使得我更好地完成了《酒店客房管理系統(tǒng)》的設(shè)計(jì)和開發(fā)工作。這次畢業(yè)設(shè)計(jì)不盡使 我了解了 VB 在數(shù)據(jù)庫(kù)方面編程的概要，更讓我知道了計(jì)算機(jī)的編程秘訣在于嚴(yán)密的思考與仔細(xì)的推敲，只有這樣，才會(huì)有一個(gè)完善的軟件生成。 權(quán)限設(shè)置界面如圖 619 所示 畢業(yè)論文 30 圖 619 權(quán)限設(shè)置界面 結(jié)論 通過(guò)使用 VB 自己動(dòng)手開發(fā)小規(guī)模的酒店客房管理系統(tǒng)，使我加深了對(duì)軟件的理解。 If And And = (密碼 ) Then If Then (密碼 ) = 畢業(yè)論文 29 MsgBox (密碼修改成功 ,退出操作員密碼修改 !) = True Unload Me Else MsgBox (請(qǐng)輸入新密碼 !!) End If Else If = Then MsgBox (請(qǐng)輸入操作員 !) Else If (操作員 ) Then = MsgBox (無(wú)此操作員 ,請(qǐng)重新輸入 !) End If End If If = Then MsgBox (請(qǐng)輸入操作員原密碼 !) Else If Then MsgBox (原密碼錯(cuò)誤 ,請(qǐng)重新輸入原密碼 !) End If End If End If End Sub 初始化模塊設(shè)計(jì) 初始化界面如圖 618 所示。 amp。修改操作員密碼 = select * from qxsz where 操作員 =39。 密碼設(shè)置界面如圖 617 所示。在密碼設(shè)置模塊中主要實(shí)現(xiàn)如下功能： 完成操作員密碼的修改。 操作員設(shè)置界面如圖 616 所示。 在操作員設(shè)置模塊中主要實(shí)現(xiàn)如下功能： 完成操作員及密碼的設(shè)置。 在客房銷售統(tǒng)計(jì)模塊中主要實(shí)現(xiàn)按任意年匯總客房應(yīng)收宿費(fèi)、雜費(fèi)、電話費(fèi)、會(huì)議費(fèi)等的功能。其中： 在登記預(yù)收?qǐng)?bào)表模塊中主要實(shí)現(xiàn)按時(shí)間匯總應(yīng)收宿費(fèi)總額、預(yù)收宿費(fèi)總額的功能。代碼如下 (Text9 為押金金額， DBCombo3 為房間價(jià)格， Text14 為提醒日期）： ＜＞ ”“Then =Val() ＝ ＋ Int(Val()／ Val(DBCombolText)) ＝ EndIf 日結(jié)設(shè)計(jì) 該部分包括登記預(yù) 收?qǐng)?bào)表模塊、客房銷售報(bào)表模塊和客房銷售統(tǒng)計(jì)模塊。為了解決這種情況 ，本系統(tǒng)設(shè)計(jì)了宿費(fèi)提醒功能，可以及時(shí)提醒酒店客人什么時(shí)間需補(bǔ)交多少宿費(fèi)。 圖 612 住宿查詢界面 2．實(shí)現(xiàn)過(guò)程 （ 1）在 “客房管理系統(tǒng) ”工程中，添加一個(gè)新窗體，命名為 main_zscx. （ 2）程序代碼： PrivateSubFormesLoed（） Datal． DatabaseName＝ App． Path＆ ’入 KI 息 l． MD 丑 ”’自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 EndSub PrivateSubFormesUnfoad（ CaneelAsInteger） rnain． Enabled＝ True EndSUb PrivateSubCommandl_cliek（） ’查詢住宿信息 Datal． Reeordsource＝ ”seleet＊ fromonldjbwhere 姓名 like”＋ Chr（ 34）＋textl． text＋ ”＊ ”＋ Chr（ 34）＋ ”“ Datal． Refresh EndSllb PrlvateSubCornrnand2_Cliek（） main． Enabled＝ True UnloadMe EndSub 畢業(yè)論文 26 宿費(fèi)提醒模塊設(shè)計(jì) 宿費(fèi)提醒的實(shí)現(xiàn)方法： 客人在住宿前首先要說(shuō)明住宿天數(shù)，根據(jù)客人住宿天數(shù)和房間價(jià)格，酒店要向客人收取一定的住宿押金。在住宿查詢模塊中主要實(shí)現(xiàn)輸入客人姓名檢索住宿信息的功能。 客戶結(jié)款界面如圖 611 所示。 選擇結(jié)款方式，實(shí)現(xiàn)掛賬結(jié)款的功能。 圖 610 掛賬查詢界面 客戶結(jié)款模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，選擇 “掛賬管理 ”菜單下的 “客戶結(jié)款 ”項(xiàng)，將進(jìn)入客戶結(jié)款模塊。 按日期檢索符合條件的掛賬信息、還款信息。 掛賬管理設(shè)計(jì) 掛賬查詢模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，選擇 “掛賬管理 ”菜單下的 “掛賬查詢 ”項(xiàng)，將進(jìn)入掛賬查詢模塊。 點(diǎn)擊入住圖形的按鈕，查看客人詳細(xì)的住宿信息。在房態(tài)查看模塊中主要實(shí)現(xiàn)如下功能： 以圖形方式顯示入住房、空閑房、維修房。允許修改 客房信息 = True End Sub Private Sub Command2_Click() 39。 \ End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Text1_Change() 39。 完成客房基本信息的修改與刪除。 圖 67 客房設(shè)置 客房查詢模塊設(shè)計(jì) 1．實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，選擇 “客房管理 ”菜單下的 “客房查詢 ”項(xiàng)，將進(jìn)入客房查詢模塊。 完成客房基本信息的查詢。Text） EndSub 6． 7 客房管理設(shè)計(jì) 客房設(shè)置模塊設(shè)計(jì) 實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，選擇 “客房管理 ”菜單下的 “客房設(shè)置 ”項(xiàng)，將進(jìn)入客房設(shè)置模塊。 PublicSubJSQ’定義計(jì)算住宿天數(shù)的函數(shù) ＞ ＞ 11:59:00PMThen ＞ 12:00:00PMThen ＞ 6:00:00PMThen ＝ 一 ＋ 1 Else ＝ 一 ＋ EndIf Flse ＝ 一 EndIf RIeP ＝ 一 EndIf Else ＜ 2:00:00AMThen ＞ 2:00:00AMThen ＞ 12:00:00PMThen ＞ 6:00:00PMThen ＝ 1＋ 1 Else ＝ 1＋ EndIf Else ＝ 1 FnriIf Flan ＝ 1 EndIf EISe Texts． Text＝ l Elldlf Endlf EndSub PublicSubssje（） ’定義計(jì)算實(shí)收金額和退還金額的函數(shù) Texssje． Text＝ Val（ Texzhje． Text）＋ Val（ Texzf． Text）＋ Val（ Texdhf． Text）畢業(yè)論文 21 ＋ Val（ Texpef． Text）＋ Val（ Texh 江 Text）＋ Val（ Textef． Text） Texthje． Text＝ Val（ Texyj下面是針對(duì)酒店客房管理設(shè)計(jì)的宿費(fèi)運(yùn)算公式： 宿費(fèi)＝房?jī)r(jià) x 天數(shù) 如果客人退宿結(jié)賬時(shí)間在住宿當(dāng)天，可以按如下算法： 畢業(yè)論文 20 如客人退宿結(jié)賬時(shí)間早于 18:00,那么住宿天數(shù)為