vb求高手帮忙!
2011-03-20 23:29
134 查看
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 运行程序的时候,各个模块都能使用,也就是说前面判断的权限根本没用啊。教师的权限里面没有用户管理,可是运行还是可以使用用户管理这个功能。跪求高手帮忙,小弟感恩涕零!
相关文章推荐
- [VB.NET]新手请教:根据DATAGRID实现进度图表,请高手帮忙!
- [VB.NET]高手帮忙,水晶报表显示在网页上的内容不更新,在线等,只有40分了
- [VB.NET]我是新手,想让高手帮忙解决个问题
- VB高手帮忙看看这10道多选择题
- [VB.NET]急,高手帮忙解决,谢谢!
- 想请高手帮忙把VB代码改成Obj-C代码
- [VB.NET]我的本地服务器看信息后面自己带上星期 着是为什么 传到服务器上就正常了 希望高手帮忙
- VC++编程实现IP地址自动分配??请高手帮忙
- 求高手帮忙用C编写一个计算器
- VB高手搜集-常见问题总结(2)
- 刚做的c++作业,高手可以帮忙指点下吗,谢谢啦!如有需要可加我 QQ:568835322
- 求助,用VB编写个计算程序 高手解答
- 有没有高手在,帮忙修改一下
- [VB.NET]请教高手,还原数据库的问题?
- 在DLL中启动模态对话框时的错误,请高手帮忙 -- 不胜感激
- 高手帮忙啊!关于插入数据库的问题!急急!菜鸟提问!
- 关于用sufer做影像图的问题,是一个色彩矩阵,请懂的高手帮忙看一下。
- Hibernate查询错误!请高手帮忙解决!
- 高手帮忙解决--类型不匹配
- 遗传规划方面的高手帮忙!几个java编程遇到的问题!