客房管理系統(tǒng)vbsql-資料下載頁(yè)
2025-04-08 22:39本頁(yè)面
【正文】 改密碼嗎？, vbOKCancel + vbInformation, 提示信息) = vbOK Then = select * from AdminInfo where Amima=39。 amp。 amp。 39。and Aname=39。 amp。 amp。 39。 If = 1 Then (2).Value = Trim() MsgBox 密碼修改成功，下次登陸請(qǐng)使用新密碼！, vbOKOnly + vbInformation, 提示信息 Command19_Click Else MsgBox 你輸入的舊密碼錯(cuò)誤！請(qǐng)重新輸入, vbInformation + vbOKOnly, 提示信息 = = = End If Else End IfEnd IfEnd SubPrivate Sub Command19_Click()‘修改密碼清空 = = = = End SubPrivate Sub DataCombo2_Change() = select * from ViewEmptyRoomInfo where Rnum=39。 + Trim() + 39。 Set = Adodc5 Set = Adodc5 Set = Adodc5 If = 修改房間 Then Set = Adodc5 = True = True = False = True End IfEnd SubPrivate Sub DataCombo2_Change()‘修改密碼選擇賬號(hào) = select * from ViewEmptyRoomInfo where Rnum=39。 + Trim() + 39。 Set = Adodc5 Set = Adodc5 Set = Adodc5 If = 修改房間 Then Set = Adodc5 = True = True = False = True End IfEnd SubPrivate Sub Command14_Click()‘刪除管理員Select Case Case 刪除管理員 = True = True = 確定刪除管理員 Case 確定刪除管理員 = False If Then If MsgBox(確定刪除序號(hào)為“ amp。 amp。 ”的管理員嗎？, vbOKCancel + vbInformation, 提示信息) = vbOK Then = select * from ViewAdminInfo where Aid= amp。 amp。 If = 1 Then = select * from AdminInfo where Aname=39。 amp。 amp。 39。 and Alimit=39。139。 If = 1 Then = select * from AdminInfo where Aid= amp。 amp。 MsgBox 刪除成功！, vbInformation + vbOKOnly, 提示信息 = = 刪除管理員 = True = False Else MsgBox 當(dāng)前管理員“ amp。 amp。 ”的權(quán)限不足，不能進(jìn)行操作, vbOKOnly + vbInformation, 提示信息 = = 刪除管理員 = True = False = False End If Else MsgBox 你輸入的管理員不存在，請(qǐng)重新輸入！, vbOKOnly + vbInformation, 提示信息 = = True End If Else = = 刪除管理員 = True = False = False End If Else If MsgBox(序號(hào)不能為空, vbInformation + vbOKCancel, 提示信息) = vbOK Then = True Else = = 刪除管理員 = True = False = False End If End IfEnd SelectEnd Sub 主窗體加載事件Private Sub Form_Load() = 當(dāng)前管理員： + = select * from ViewCostDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerIf IsNull((0)) Thena = 0Elsea = (0)End IfIf IsNull((1)) Thenb = 0Elseb = (1)End IfIf IsNull((2)) Thenc = 0Elsec = (2)End IfIf IsNull((3)) Thend = 0Elsed = (3)End If = a = a = a = a = a = b = c = d = 總收入： + Trim(a) + 元 = 普通房收入： + Trim(b) + 元 = 標(biāo)準(zhǔn)房收入： + Trim(c) + 元 = 豪華房收入： + Trim(d) + 元 = Trim(Left$(b / a * 100, 5)) + % = Trim(Left$(c / a * 100, 5)) + % = Trim(Left$(d / a * 100, 5)) + %End Sub 其他窗體和事件a. 關(guān)于窗體Private Sub cmdOK_Click()‘確定 Unload MeEnd Subb. 注銷、退出和Timer事件Private Sub Command5_Click()‘注銷Unload Me = = End SubPrivate Sub Command1_Click()‘退出EndEnd SubPrivate Sub Timer1_Timer() = 系統(tǒng)時(shí)間 + Trim(Now())End SubPrivate Sub Timer2_Timer() = RGB(Int(255 + 1) * Rnd, Int(255 + 1) * Rnd, Int(255 + 1) * Rnd)End Sub七、 實(shí)驗(yàn)總結(jié)本次試驗(yàn)由于老師給的題目比較早，所以有了充分的時(shí)間做準(zhǔn)備。通過一個(gè)多月的準(zhǔn)備和設(shè)計(jì)制作，讓我學(xué)習(xí)到很多東西，尤其是對(duì)數(shù)據(jù)庫(kù)的知識(shí)的復(fù)習(xí)以及擴(kuò)充。對(duì)如何設(shè)計(jì)數(shù)據(jù)庫(kù)、添加數(shù)據(jù)表、創(chuàng)建視圖、觸發(fā)器、數(shù)據(jù)庫(kù)備份恢復(fù)等知識(shí)有了新的認(rèn)識(shí)和更深的理解；對(duì)如何制作一個(gè)完整系統(tǒng)的前提準(zhǔn)備、實(shí)施過程、運(yùn)行以及調(diào)試也有了初步了解由于此次實(shí)驗(yàn)用到的是VB語(yǔ)言，所以對(duì)VB也有了進(jìn)一步的了解，尤其是用ADO控件連接SQL數(shù)據(jù)庫(kù)的
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1