【正文】 應(yīng)收宿費(fèi) 貨幣 8 金額總計(jì) 貨幣 8 預(yù)收宿費(fèi) 貨幣 8 退還宿費(fèi) 貨幣 8 退房日期 日期 /時(shí)間 8 退房時(shí)間 日期 /時(shí)間 8 備注 文本 50 BZ 數(shù)字 雙精度型 5 系統(tǒng)詳細(xì)設(shè)計(jì)與實(shí)現(xiàn) 系統(tǒng)公共模塊設(shè)計(jì) 在系統(tǒng)中使用公共模塊，可節(jié)省系統(tǒng)資源，實(shí)現(xiàn)代碼重用。其中 ESQL()函數(shù)用于打開(kāi)到數(shù)據(jù)庫(kù)的連接， StrCnn()函數(shù)用于返回于一個(gè)連接串。創(chuàng)建 對(duì)象 Public adoRs As New 39。H KFKL DHFDKH FKDS Public Sub Main() 39。Data Source= amp。 \。定義函數(shù) Dim n As 39。定義 記錄集 Set n = New 39。打開(kāi)連接 Set rs = New Trim(sql), n, adOpenKeyset, adLockOptimistic Set ESQL = rs End Function Public Function StrCnn() 39。Data Source= amp。 \。窗體如圖 所示： DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。 主要代碼如下： Private Sub Image1_Click() Static itimes As Integer (4).Text = = select * from tb_user where 操作員 =39。 39。如果記錄數(shù)大于零 If = (密碼 ) Then 39。H KFKL DHFDKH FKDS If itimes = 3 Then 39。在程序主窗體中通過(guò)選擇菜單命令或單擊工具欄中的按鈕，可調(diào)用相應(yīng)程序窗體或進(jìn)行相應(yīng)操作；可根據(jù)操作員不同，確定操作員的相應(yīng)權(quán)限，在主窗體狀態(tài)欄中顯示了系統(tǒng)時(shí)間和當(dāng)前系統(tǒng)操作員。同時(shí)在主窗體和添加一個(gè) Toolbar 控件，作為工具欄。 DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。例如，在主窗體模塊中單擊工具欄中的按鈕，發(fā)生 ButtonClick 事件，并用 Key 屬性標(biāo)識(shí)被單擊的按鈕。調(diào)入住宿登記 Case TF tf_Click 39。調(diào)入住宿查詢(xún) Case TX sftx_Click 39。重新登錄 Load main_Login Case exit If MsgBox(確定退出該系統(tǒng)？ , 4, 系統(tǒng)提示 ) = vbYes Then End End If End Select End Sub 單擊主窗體中的菜單項(xiàng)，通過(guò)菜單命令實(shí)現(xiàn)調(diào)出各個(gè)窗體或執(zhí)行相應(yīng)操作，在各子菜單的 Click 事件下實(shí)現(xiàn)相應(yīng) 操作。調(diào)入數(shù)據(jù)備份 = False End Sub Private Sub sjhf_Click() 39。H KFKL DHFDKH FKDS End Sub ?? Private Sub ma_Click() 39。在住宿登記模塊中能夠自動(dòng)生成住宿登記憑證號(hào)碼，提供空閑房間供用戶(hù)選擇，實(shí)現(xiàn)客人住宿登記，收取客人預(yù)交宿費(fèi)，實(shí)際宿費(fèi)、宿費(fèi)提醒時(shí)間、退宿時(shí)間、打印住宿登記單據(jù)。 打開(kāi)住宿登記模塊，單擊“登記”按鈕，開(kāi)始進(jìn)行住宿登記。自動(dòng)生成登記憑證號(hào)碼的主要代碼發(fā)下： DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。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。H KFKL DHFDKH FKDS = 8000: = 8000 39。設(shè)置打印位置 = 12 39。打印文字 Dim A, B, C, d As Integer 39。為變量賦值 = 10 39。設(shè)置打印橫坐標(biāo) = B + 200 39。 amp。 NO. amp。打印日期、時(shí)間和憑證號(hào)碼 B = B + d 39。打印一條直線(xiàn) = 100 + A = B + 200 操作員 : amp。 歡迎光臨 39。在調(diào)房登記模塊中選擇客人入住的房間號(hào)和空閑房間號(hào)，實(shí)現(xiàn)調(diào)房登記，系統(tǒng)只允許調(diào)換等價(jià)客房。H KFKL DHFDKH FKDS 圖 調(diào)房登記窗體界面 Fig. Housing Register Transfer form interface 調(diào)房登記模塊主要實(shí)現(xiàn)對(duì)客人房間進(jìn)行調(diào)換的過(guò)程，源房間號(hào)列表是查詢(xún)登記表中當(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 可用 DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。Texbz 可用 End If End Sub 追加押金模塊設(shè)計(jì) 在主窗體中，選擇住宿管理菜單下的追加押金項(xiàng)，將進(jìn)入追加押金模塊。追加押金界面如圖 所示： 圖 追加押金窗體界面 Fig. Additional Deposit form interface 在窗體的 A 事件中，主要實(shí)現(xiàn)查詢(xún)數(shù)據(jù)表中住宿客人信息，對(duì)“憑證號(hào)碼”列表框賦值。賦值給 ，顯示當(dāng)前操作員 39。139。H KFKL DHFDKH FKDS 39。如果記錄數(shù)大于 0 For i = 1 To 39。從 Combo1 中添加項(xiàng)目 39。部分代碼如下： Private Sub Command1_Click() 39。查詢(xún)住宿登記信息 ?? (預(yù)收金額 ) = Val() + Val() 39。刷新數(shù)據(jù) 39。如果憑證號(hào)碼為空或追加押金為空，提示消息 End If End Sub 系統(tǒng)維護(hù)模塊的具體實(shí)現(xiàn) 系統(tǒng)維護(hù)模塊包括子模塊數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和初始化。H KFKL DHFDKH FKDS 中。 Counter = Counter Open str1 For Binary As 1 Open str2 For Binary As 2 Do While Not EOF(1) Get 1, , char Put 2, , char Loop Close Next Counter = MsgBox 數(shù)據(jù)庫(kù)備份成功！ , , 系統(tǒng)提示 DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。如下圖 所示： 圖 數(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。H KFKL DHFDKH FKDS Open str1 For Binary As 1 Open str2 For Binary As 2 Do While Not EOF(1) Get 1, , char Put 2, , char Loop Close Next Counter = MsgBox 數(shù)據(jù)庫(kù)恢復(fù)成功！ , , 系統(tǒng)提示 = True End If End Sub 初始化模塊，對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行初始化即刪除數(shù)據(jù)庫(kù)中的數(shù)據(jù)，用戶(hù)在使用本系統(tǒng)之前，需要先對(duì)本系統(tǒng)進(jìn)行初始化操作，但是在使用過(guò)程中則要謹(jǐn)慎初始化，因?yàn)閳?zhí)行初始化后原有的數(shù)據(jù)將被刪除。清空選定表中的數(shù)據(jù) A = MsgBox(確認(rèn)初始化該數(shù)據(jù)？ , 4, 系統(tǒng) 提示 ) If A = vbYes Then ?? If = 1 Then DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。調(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 Access2021 數(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í)也DJGFJKHF DKFH SKHF LHAK DHFHAKLH DJKHF JHFJK JKDHFKLH FKDH KFHDSKH FKLDSFL。 致謝 在這里，首先感謝我的指導(dǎo)老師周培春老師。我還要感謝我的同學(xué)們給我的幫助和指導(dǎo)，使我能較好的掌握相關(guān)的開(kāi)發(fā)技術(shù)上，這是我完成本次畢業(yè)設(shè)計(jì)和畢業(yè)論文的 保障。H KFKL DHFDKH FKDS [14] 劉彬彬 . Visual Basic 控件參考大全 .[M].北京 :人民郵電出版社 ,2021 [15] 劉韜 ,駱娟 .Visual Basic 數(shù)據(jù)通用模塊及典型系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 .[M].北京 :人民郵電出版社 ,2021 [16] 李春葆 ,曾平編 . Access 數(shù)據(jù)庫(kù)程序設(shè)計(jì) .[M].北京 :清華大學(xué)出版社 ,2021