數(shù)據(jù)庫課程設(shè)計(jì)賓館住宿管理系統(tǒng)方案(編輯修改稿)
2025-06-10 01:29 本頁面
【文章內(nèi)容簡介】 39。檢驗(yàn)密碼是否正確 If Trim((1)) = Trim() Then userID = userpow = (2) Unload Me Else MsgBox 密碼不正確, vbOKOnly + vbExclamation, End If End IfEnd Ift = t + 1If t = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider=。 amp。 _ data source= connectionstringt = 0End Sub程序啟動(dòng)后，在系統(tǒng)登陸界面驗(yàn)證完操作員及操作員密碼后，將進(jìn)入主程序界面。主程序界面要實(shí)現(xiàn)：（1）選擇菜單或工具欄，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。（2）根據(jù)操作員不同，確定操作員相應(yīng)的權(quán)限。 主程序窗口[登陸代碼實(shí)現(xiàn)]Private Sub add_user_Click()End SubPrivate Sub double_check_Click()End SubPrivate Sub check_Click()End SubPrivate Sub double_client_Click()End SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub khts_Click()End SubPrivate Sub MDIForm_Load()frmdata = Falsefind = FalseEnd SubPrivate Sub modify_pw_Click()End SubPrivate Sub only_check_Click()End SubPrivate Sub only_client_Click()End SubPrivte Sub zbgl_Click()End Sub程序啟動(dòng)后，選擇“客人入住”菜單下的“散客入住”和“團(tuán)客入住”項(xiàng)，將進(jìn)入住宿登記模塊。在住宿登記模塊主要實(shí)現(xiàn)如下功能：（1）自動(dòng)生成住宿登記憑證號(hào)碼。（2）提供空房間供用戶選擇。（3）實(shí)現(xiàn)客人住宿登記，收取客人預(yù)交宿費(fèi)。（4）自動(dòng)計(jì)算折前宿費(fèi)、實(shí)際宿費(fèi)、宿費(fèi)提醒時(shí)間、退宿時(shí)間。 散客入住 散客入住界面[登陸代碼實(shí)現(xiàn)]Option ExplicitDim rs_client As New Private Sub Command1_Click()If Not IsNull() Then If Trim((房號(hào)).CellText()) = Then MsgBox 房號(hào)不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((房價(jià)).CellText()) = Then MsgBox 房價(jià)不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((姓名).CellText()) = Then MsgBox 姓名不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((性別).CellText()) = Then MsgBox 性別不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim((抵達(dá)日).CellText())) Then MsgBox 請(qǐng)按照格式hhmm輸入抵達(dá)日, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim((離店日).CellText())) Then MsgBox 請(qǐng)按照格式hhmm輸入離店日, vbOKOnly + vbExclamation, Exit Sub End If MsgBox 添加信息成功！, vbOKOnly + vbExclamation, = False = FalseElse MsgBox 沒有添加信息！, vbOKOnly + vbExclamation, End If = 新增記錄 = True = True = FalseEnd Ifadderror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf = 修改記錄 Then answer = MsgBox(確定要修改嗎？, vbYesNo, ) If answer = vbYes Then = 確定 = False = False = True = True Else Exit Sub End IfElse If Not IsNull() Then End If = 修改記錄 = True = True = False = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End Ifcmdmodify:If 0 Then MsgBox End IfEnd SubPrivate Sub Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(確定要?jiǎng)h除嗎？, vbYesNo, )If answer = vbYes Then = True MsgBox 成功刪除！, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command4_Click()If = 確定 Then = False = False = 新增記錄 = True = True = FalseElseIf = 確定 Then = False = 修改記錄 = True = True = FalseEnd If = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 散客資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_client = FalseSet = NothingEnd Sub 團(tuán)客入住 團(tuán)客入住界面[登陸代碼實(shí)現(xiàn)]Option ExplicitDim rs_dclient As New Private Sub Command1_Click()On Error GoTo adderrorIf = 新增記錄 Then 39。當(dāng)此按鈕的狀態(tài)為為“增加記錄”時(shí) = 確定 39。按鈕名稱改為“確定” = False 39。刪除與修改按鈕不可用 = False = True 39。取消按鈕可用 = True = True 39。設(shè)定datagrid可以增加記錄ElseIf Not IsNull() Then If Trim((團(tuán)隊(duì)名稱).CellText()) = Then MsgBox 團(tuán)隊(duì)名稱不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((負(fù)責(zé)人姓名).CellText()) = Then MsgBox 負(fù)責(zé)人姓名不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((證件號(hào)碼).CellText()) = Then
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1