工資管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告畢業(yè)論文(已改無錯(cuò)字)
2022-07-26 05:29:59 本頁面
【正文】 的‘系統(tǒng)’ = False = False End If UserName = Trim() Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入, vbOKOnly + vbExclamation, 警告 = try_times = try_times + 1 Exit Sub 39。在這里若密碼錯(cuò)了應(yīng)該跳出該過程，否則下面的語句還會(huì)執(zhí)行，這不是你想要的 End If 39。try_times = try_times + 1 39。個(gè)人認(rèn)為密碼輸入錯(cuò)了才加一，你這樣的話，用戶名錯(cuò)了也會(huì)加一，當(dāng)然你這里用戶名不會(huì)錯(cuò)是吧，改得多余了 If try_times = 3 Then Unload Me End IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As sql = select 用戶名 from 用戶表 Set rst = ExecuteSQL(sql, ) For i = 1 To ((0)) Next iEnd Sub主窗體：Private Sub bumenxinxi_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub gangweigongzi_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghushanchu_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghutianjia_Click()Dim sql As StringDim rst As New sql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = (2)If Trim(power)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1