基于vb的酒店管理系統(tǒng)設(shè)計(jì)報(bào)告-資料下載頁
2025-06-27 21:06本頁面
【正文】 n = TrueElseExit SubEnd If界面如下：代碼如下：Dim sql As StringDim conn As New Dim rs_bookstyle As New If Trim() = ThenMsgBox 登記號(hào)不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = ThenMsgBox 房間號(hào)不能為空, vbOKOnly + vbExclamation, Exit SubEnd If provider=。 data source= amp。 amp。 sql = select * from 退房登記表 where 登記號(hào)=39。 amp。 Trim() amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() MsgBox 退房成功！, vbOKOnly, = = = = = = = ElseMsgBox 信息重復(fù)！, vbOKOnly + vbExclamation, = = = = = = = Exit SubEnd If、退房查詢可以查看有那一些房間已經(jīng)退房了。代碼好下：. 退房信息刪除數(shù)據(jù)保存有一定的保存期限，如果過了那一個(gè)期限，就把數(shù)據(jù)刪除。界面如下：代碼如下：Dim rs_tushu As New Dim conn As New Dim sql As String findform = False sql = select * from 退房登記表 where 登記號(hào) = 39。 amp。 amp。 39。 provider=。 data source= amp。 amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Set = rs_tushu Dim i i = MsgBox(真的刪除嗎？, 1 + 48, 刪除) If i = 1 Then Set = rs_tushu Set = rs_tushu End If客戶信息可以查看客戶的信息，有助于酒店的安全管理?？头啃畔⒂兄诳头康墓芾?。報(bào)表打印可以打印數(shù)據(jù)，讓數(shù)據(jù)用紙質(zhì)的方式來存檔。價(jià)位標(biāo)準(zhǔn)可以讓用戶知道客房的類型、等級(jí)和價(jià)格。備份數(shù)據(jù)把數(shù)據(jù)另外保存一份。代碼如下：Dim fsSet fs = CreateObject()If ( amp。 ) Then amp。 amp。 \, amp。 MsgBox 備份完成!, 64, 數(shù)據(jù)庫備份情況End If系統(tǒng)簡介對系統(tǒng)的介紹。四、存在的問題就是在客戶在入住酒店的時(shí)候，管理員在給用戶登記是要輸入時(shí)間，系統(tǒng)不能自動(dòng)輸入時(shí)間，退房的時(shí)候也一樣。用戶在退房付款的時(shí)候，只能用人工來計(jì)算付款金額，系統(tǒng)不能自動(dòng)結(jié)算。管理系統(tǒng)的數(shù)據(jù)可能備份，但是不能恢復(fù)。五．心德體會(huì)設(shè)計(jì)之前由于數(shù)據(jù)庫知識(shí)的空白，使得我毫無頭緒，無從下去手，只是盲目的按照課本和參考資料進(jìn)行設(shè)計(jì)和編程，沒有動(dòng)腦子思考，也沒有進(jìn)行結(jié)構(gòu)的規(guī)劃，使得我的程序進(jìn)行到一半時(shí)夭折，那時(shí)候我就開始意識(shí)到，不應(yīng)該盲目，我認(rèn)真地看了課本，有了數(shù)據(jù)庫的思想和思路，自己又重新規(guī)劃了系統(tǒng)的結(jié)構(gòu)，但是由于時(shí)間的關(guān)系，我錯(cuò)過了中期檢查，但是我并沒有氣餒，而是更加熱情地的投入到系統(tǒng)的設(shè)計(jì)中。 這次課程設(shè)計(jì)實(shí)習(xí)我流的汗和淚，都是以成功的完成課程設(shè)計(jì)任務(wù)為收獲的。不斷的調(diào)試，使我認(rèn)識(shí)即時(shí)丁點(diǎn)的錯(cuò)誤也可以導(dǎo)致系統(tǒng)的非正常運(yùn)行，細(xì)節(jié)決定成敗。我只有在以后的學(xué)習(xí)之路上做到一絲不茍，才能獲得
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1