基于vb的酒店管理系統(tǒng)設(shè)計報告(完整版)
【正文】 l Basic提供的各種功能的組件快速搭建一個應(yīng)用程序。酒店管理系統(tǒng)客房管理酒店管理備份數(shù)據(jù)報表打印客戶管理退出幫助 模塊功能的設(shè)計總模塊操作員登錄主界面酒店管理幫助退出報表打印客戶管理備份數(shù)據(jù)客房管理系統(tǒng)簡介入住管理退房管理客戶表打印退房表打印入住表打印客房表打印客房刪除客房查詢客房登記客房瀏覽價位標準客戶查詢客戶登記客戶瀏覽客房刪除客戶查詢酒店管理模塊酒店管理入住管理退房管理客房刪除客戶登記客戶瀏覽客戶瀏覽客戶登記客房刪除客戶查詢在開發(fā)小型酒店管理系統(tǒng)時，對客戶的信息的管理必不可少，通過對系統(tǒng)進行的需求分析、業(yè)務(wù)流程設(shè)計以及系統(tǒng)功能結(jié)構(gòu)的確定，規(guī)劃出系統(tǒng)中使用的數(shù)據(jù)庫實體對象及實體ER圖。查詢(Query)可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。如果你沒有用戶名，你也可以在這里點擊注冊新用戶。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶,請重輸入！, vbOKOnly + vbExclamation, = Else username = If Trim((1)) = Trim() Then Unload Me Else MsgBox 密碼不正確,請重輸入！, vbOKOnly + vbExclamation, = End If End If End If t = t + 1 If t = 3 Then Unload Me End If新用戶在這里注冊，如果你所輸入的用戶名己存在，它就會提示“用戶名己存在，請重新注冊！”密碼和確認密碼要一致，否則就會提示“兩次密碼不一致，請重新輸入！”。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic If = Then MsgBox 用戶名不能為空，請輸入用戶名！, vbOK0nly + vbExclamation, ElseIf = Then MsgBox 密碼不能為空，請輸入密碼！, vbOK0nly + vbExclamation, ElseIf Then Dim hh hh = MsgBox(確信要注冊新用戶嗎?, vbYesNo, ) If hh = vbYes Then rs_bookstyle(姓名) = Trim() rs_bookstyle(密碼) = Trim() If = Then MsgBox 恭喜，您已經(jīng)注冊成功！ amp。如果你在增加、修改、刪除用戶的入住信息，先點擊上面的按鈕，然后在表里進行增加、修改、刪除，最后保存的時候你就點擊更新就可以保存了。 amp。 sql = select * from 退房登記表 where 登記號=39。 amp。價位標準可以讓用戶知道客房的類型、等級和價格。用戶在退房付款的時候，只能用人工來計算付款金額，系統(tǒng)不能自動結(jié)算。五．心德體會設(shè)計之前由于數(shù)據(jù)庫知識的空白，使得我毫無頭緒，無從下去手，只是盲目的按照課本和參考資料進行設(shè)計和編程，沒有動腦子思考，也沒有進行結(jié)構(gòu)的規(guī)劃，使得我的程序進行到一半時夭折，那時候我就開始意識到，不應(yīng)該盲目，我認真地看了課本，有了數(shù)據(jù)庫的思想和思路，自己又重新規(guī)劃了系統(tǒng)的結(jié)構(gòu)，但是由于時間的關(guān)系，我錯過了中期檢查，但是我并沒有氣餒，而是更加熱情地的投入到系統(tǒng)的設(shè)計中。代碼如下：Dim fsSet fs = CreateObject()If ( amp。
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1