vb求高手帮忙!

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim user_rights As String

Set conn = New ADODB.Connection
conn.ConnectionString = "provider=msdasql;driver={sql server};server=localhost;uid=sa;pwd=111;database=实验室系统"
conn.CursorLocation = adUseServer
conn.Open

conn.BeginTrans

Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn
rst.CursorType = adOpenDynamic
rst.LockType = adLockPessimistic
rst.Open "select * from 用户信息表 where 用户名 = '" & MIS.Text1.Text & "'"(mis为登录界面)
If rst.RecordCount > 0 Then
  user_rights = Trim(rst.Fields("权限"))
  

If InStr(user_rights, "教师档案") Then
   教师档案.Enabled = True
Else: 教师档案.Enabled = False
End If

If InStr(user_rights, "学生档案") Then
   学生档案.Enabled = True
Else: 学生档案.Enabled = False
End If

If InStr(user_rights, "查询打印") Then
   查询打印.Enabled = True
Else: 查询打印.Enabled = False
End If

If InStr(user_rights, "设备查询") Then
   设备查询.Enabled = True
Else: 设备查询.Enabled = False
End If

If InStr(user_rights, "报废查询") Then
   报废查询.Enabled = True
Else: 报废查询.Enabled = False
End If

If InStr(user_rights, "查询设置") Then
   查询设置.Enabled = True
Else: 查询设置.Enabled = False
End If

If InStr(user_rights, "课表查询") Then
   课表查询.Enabled = True
Else: 课表查询.Enabled = False
End If

If InStr(user_rights, "成绩管理") Then
   成绩管理.Enabled = True
Else: 成绩管理.Enabled = False
End If

If InStr(user_rights, "打印查询") Then
   打印查询.Enabled = True
Else: 打印查询.Enabled = False
End If

If InStr(user_rights, "用户管理") Then
   用户管理.Enabled = True
Else: 用户管理.Enabled = False
End If

If InStr(user_rights, "密码维护") Then
   密码维护.Enabled = True
Else: 密码维护.Enabled = False
End If

If InStr(user_rights, "初始化") Then
   初始化.Enabled = True
Else: 初始化.Enabled = False
End If

If InStr(user_rights, "退出登录") Then
   退出登录.Enabled = True
Else: 退出登录.Enabled = False
End If

rst.Close
conn.Close
End If
运行程序的时候,各个模块都能使用,也就是说前面判断的权限根本没用啊。教师的权限里面没有用户管理,可是运行还是可以使用用户管理这个功能。跪求高手帮忙,小弟感恩涕零!
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

cwj_go

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值