【正文】
Private Sub sjhf_Click() 39。調(diào)入密碼設(shè)置 = FalseEnd Sub程序啟動(dòng)后,選擇菜單欄中“住宿管理”/“住宿登記”命令,或直接單擊工具欄中的“登記”按鈕,將打開(kāi)住宿登記模塊。: 住宿登記窗體界面Fig. Acmodation Registration form interface住宿登記模塊主要用于錄入客人入住信息,此窗體包含了大量的文本框和時(shí)間控件等,但這些控件功能都比較簡(jiǎn)單,沒(méi)有復(fù)雜的屬性設(shè)置?!暗怯洝卑粹o的Click事件主要實(shí)現(xiàn)設(shè)置控件有效和無(wú)效、自動(dòng)生成登記憑證號(hào)碼等功能。Data Source= amp。 \。按憑證號(hào)碼排序數(shù)據(jù) If Not Then 39。 d amp。當(dāng)lsph值為空為憑證號(hào)碼文本框賦值 If Then 39。把當(dāng)前月份賦給y1 = Month(Left(, 10)) 39。如果y1文本框中內(nèi)容與y2相同 = Fdate amp。 Format(Val(Right(, 3)) + 1, 000) 39。text1中存儲(chǔ)lsph文本框中后三位數(shù) End If If Then 39。 d amp。為憑證號(hào)碼文本框賦值 End If End If當(dāng)住宿信息登記完成后,“打印”按鈕處于可用狀態(tài),可以單擊“打印”按鈕打印住宿證。出錯(cuò)轉(zhuǎn)向標(biāo)簽“1” Dim X As Printer 39。設(shè)置高度和寬度 = 1100: = 300 39。設(shè)置字體大小 桂湖酒店客房 (住宿證) 39。定義變量 A = 100: B = 500: C = 4800: d = 400 39。設(shè)置字體大小 = 100 + A 39。設(shè)置打印縱坐標(biāo) d amp。 t amp。 39。為變量B賦值 …… (A, B + 100)(C, B + 100) 39。 amp。輸出給打印機(jī) Exit Sub If = 482 Then MsgBox 請(qǐng)連接打印機(jī)!, , 系統(tǒng)提示 End IfEnd Sub在主窗體中,選擇住宿管理菜單下的調(diào)房登記項(xiàng),將進(jìn)入調(diào)房登記模塊。: 調(diào)房登記窗體界面Fig. Housing Register Transfer form interface調(diào)房登記模塊主要實(shí)現(xiàn)對(duì)客人房間進(jìn)行調(diào)換的過(guò)程,源房間號(hào)列表是查詢登記表中當(dāng)前所有住宿客人的房間號(hào)碼,在選擇源房間號(hào)后,實(shí)現(xiàn)生成目標(biāo)房間號(hào)。清空Combo2中的內(nèi)容 If Then 39。 With 39。為“憑證號(hào)碼”字段賦值…… End With 39。Combo2可用 = True 39。在“憑證號(hào)碼”下拉列表框中選擇客人入住的憑證號(hào)碼,在“追加押金”文本框中輸入客人續(xù)交的押金后,在相應(yīng)的文本框中將顯示客人的入住信息,并自動(dòng)計(jì)算宿費(fèi)提醒日期和時(shí)間,還可打印追加押金票據(jù)。主要代碼如下:Private Sub Form_Activate()Dim i As Integer = (4).Text 39。查詢住宿登記信息 = select 憑證號(hào)碼 from tb_djb where 標(biāo)志= 39。order by 憑證號(hào)碼 39。如果記錄數(shù)大于0 For i = 1 To 39。從Combo1中添加項(xiàng)目 39。部分代碼如下:Private Sub Command1_Click() 39。查詢住宿登記信息 …… (預(yù)收金額) = Val() + Val() 39。刷新數(shù)據(jù) 39。如果憑證號(hào)碼為空或追加押金為空,提示消息 End IfEnd Sub系統(tǒng)維護(hù)模塊包括子模塊數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和初始化。: 數(shù)據(jù)備份界面Fig. surface of Data backup部分代碼如下:Private Sub Command1_Click() A = MsgBox(確定備份數(shù)據(jù)?, 4, 系統(tǒng)提示) If A = vbYes Then = False = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。: 數(shù)據(jù)恢復(fù)界面Fig. The surface of Data recovery主要代碼如下:Private Sub Command1_Click() A = MsgBox(確認(rèn)恢復(fù)數(shù)據(jù)庫(kù)?, 4, 系統(tǒng)提示) If A = vbYes Then = False = True 39。 = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) 39。 39。 workarea(Counter) = initial value amp。: 初始化界面Fig. The surface of Data initialization主要代碼如下:Private Sub creat_Click() 39。調(diào)用模塊中的自定義函數(shù) End If If = 1 Then = select * from tb_kf where 房態(tài) =39。ADO Data 控件ADO Data 控件與內(nèi)部 Data 控件以及 Remote Data控件 (RDC) 相似。 If 0 Then …… MsgBox 初始化完成!, , 系統(tǒng)提示 = False = End Sub結(jié)束語(yǔ)全文研究了小型酒店管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn),該系統(tǒng)是運(yùn)用Microsoft Office Access2003數(shù)據(jù)庫(kù)系統(tǒng)和Visual Basic編程語(yǔ)言開(kāi)發(fā)實(shí)現(xiàn)的。通過(guò)該系統(tǒng)的實(shí)施,可逐步提高酒店的管理水平,提升員工的素質(zhì)。在這次做畢業(yè)設(shè)計(jì)的過(guò)程中我學(xué)到了很多。但是通過(guò)這次的實(shí)踐我自身的能力確實(shí)得到了一定程度的提升,同時(shí)也了解了寫(xiě)論文的格式,所以說(shuō)這次的經(jīng)驗(yàn)是很值得我牢記于心的。從我的論文選題到論文的撰寫(xiě)完成,周老師細(xì)心、嚴(yán)謹(jǐn)?shù)囊蠛椭笇?dǎo),給了我非常大的幫助與支持。 參考文獻(xiàn)[1] 劉韜,駱娟, Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航[M].北京:人民郵電出版社,2003[2] 張玲,劉玉玫. Access數(shù)據(jù)庫(kù)技術(shù)實(shí)訓(xùn)教程.[M].北京:清華大學(xué)出版社,2008 [3] 薩師煊,王珊. 數(shù)據(jù)庫(kù)系統(tǒng)概論[M]. 北京:高等教育出版社,1983 [4] 李敏業(yè), Basic +Access數(shù)據(jù)庫(kù)應(yīng)用實(shí)例完全解析[M].北京:人民郵電出版社,2006[5] 譚浩強(qiáng). Visual basic 中文版.[M].北京:清華大學(xué)出版社,1998[6] 沈煒, Basic 編程從基礎(chǔ)到實(shí)踐.[M].北京:電子工業(yè)出版社,2008[7] 彭波. Visual Basic編程技術(shù)全接觸.[M].北京:清華大學(xué)出版社,2008[8] 白曉勇,余健等. Visual Basic課程設(shè)計(jì)案例精編.[M].北京:清華大學(xué)出版社,2007[9] 陳紫紅,安劍, Basic項(xiàng)目開(kāi)發(fā)全程實(shí)錄[M].北京:高等教育出版社,2002[10] 匡松, Basic程序設(shè)計(jì)及應(yīng)用.[M].北京:清華大學(xué)出版社,2008[11] 劉彬彬. Visual Basic項(xiàng)目開(kāi)發(fā)實(shí)例自學(xué)手冊(cè).[M].北京:人民郵電出版社,2008[12] 安劍,孫秀梅. Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)自學(xué)手冊(cè).[M].北京:人民郵電出版社,2008[13] 張瀚文,齊錦剛. Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)開(kāi)發(fā)與解析.[M].北京:高等教育出版社,2003[14] 劉彬彬. Visual Basic控件參考大全.[M].北京:人民郵電出版社,2008[15] 劉韜, Basic數(shù)據(jù)通用模塊及典型系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航.[M].北京:人民郵電出版社,2008[16] 李春葆,曾平編. Access數(shù)據(jù)庫(kù)程序設(shè)計(jì).[M].北京:清華大學(xué)出版社,200