以access為數(shù)據(jù)庫(kù)的酒店管理系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)畢業(yè)論文(編輯修改稿)
2024-07-25 03:17 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 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 DataGrid1_Click()End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 散客資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開(kāi)數(shù)據(jù)庫(kù)39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_client = FalseExit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd SubEnd Sub本窗體用來(lái)錄入團(tuán)隊(duì)入住的信息，也是用ＡＤＯ連接數(shù)據(jù)庫(kù)。定義變量：Option ExplicitDim rs_dclient As New “新增記錄”按鈕要求先填寫基本信息，然后與數(shù)據(jù)庫(kù)信息比較。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 MsgBox 證件號(hào)碼不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((房間號(hào)碼).CellText()) = Then MsgBox 房間號(hào)碼！, vbOKOnly + vbExclamation, Exit Sub End If MsgBox 添加信息成功！, vbOKOnly + vbExclamation, = False = FalseElse MsgBox 沒(méi)有添加信息！, vbOKOnly + vbExclamation, End If = 新增記錄 = True = True = FalseEnd Ifadderror:If 0 Then MsgBox End IfEnd Sub“修改記錄”按鈕的部分代碼如下：Private 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 Sub選擇入住信息列表中需要?jiǎng)h除的記錄，然后單擊“刪除記錄”按鈕，可以刪除所選記錄。“刪除”按鈕的代碼如下：Private 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 DataGrid1_Click()End Sub窗體載入時(shí)自動(dòng)在網(wǎng)絡(luò)中添加數(shù)據(jù)庫(kù)中的信息，代碼如下：Private Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 團(tuán)隊(duì)資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開(kāi)數(shù)據(jù)庫(kù)39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_dclient = FalseExit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd Sub. 增加用戶窗體是用來(lái)增加用戶的用戶名、密碼和權(quán)限的。單擊“確定”按鈕后，還要返回一個(gè)信息框，提示成功的信息。 窗體部分代碼的思路是，收集輸入的表中的字符串，然后與數(shù)據(jù)庫(kù)中的系統(tǒng)的用戶數(shù)據(jù)比較，如果不存在，則允許添加。Private Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = Then MsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個(gè)用戶, vbOKOnly + vbExclamation, = = = = Exit Sub Else End If Wend If Trim() = Then MsgBox 密碼不能為空，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If Trim() Trim() Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() guest Then MsgBox 請(qǐng)選擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = 下面是返回成功信息對(duì)話窗口的代碼： MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() system guestEnd Sub修改密碼子窗體是用來(lái)修改用戶密碼的。 修改密碼子窗體運(yùn)行效果在“確定”按鈕的Click事件中添加如下代碼：Private
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1