工資管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計報告畢業(yè)論文-資料下載頁
2025-06-28 05:29本頁面
【正文】 管理員 ThenMsgBox 您無權(quán)進行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As sql = select 權(quán)限 from 用戶表 Set rst = ExecuteSQL(sql, ) For i = 1 To Next i主窗體模塊源代碼如下：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)進行該操作！, 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)進行該操作！, 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)進行該操作！, 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)進行該操作！, 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) 管理員 ThenMsgBox 您無權(quán)進行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As sql = select 權(quán)限 from 用戶表 Set rst = ExecuteSQL(sql, ) For i = 1 To Next iEnd Sub19
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1