Question

VB中toolbar问题。

VB和ACCESS设计的工资管理系统，我想实现当普通用户登陆的时候，TOOLBAR上的按狃都不可用。具体怎么操作还有在哪打代码，麻烦说的细致一点，我是VB新手。

Answer 1

个人见到过的做法是这样的：
1.先在数据库的用户信息表加上“权限”字段，在权限字段中加入toolbar控件上按钮你认为不可以使用的按钮的名字作为字段值如。

举例：假设需要不可用按钮是机构设置. 学籍管理. 课程管理. 成绩管理. 奖惩管理.等5个。
在数据库字段下给字段赋值：
如果是管理员用户，权限字段值，写：机构设置 ： 学籍管理 ： 课程管理 ： 成绩管理 ： 奖惩管理
普通用户的不写
2.然后在登录界面登录框中设置如：普通用户、管理员等combobox选项
3.在主窗体的Form_load里面加上判断权限的过程，举例代码如下：
Dim rst As ADODB.Recordset
Dim rights As String
Dim sTokens() As String
Dim msg As String
'查找权限
SQL = " select 权限 from 用户信息表 where 用户ID='" & UserID & "'"
Set rst = SelectSQL(SQL, msg)
If rst.RecordCount > 0 Then
rights = Trim(rst.Fields(0))
rst.Close
Else
MsgBox ("没有用户信息！")
Exit Sub
End If
'设置权限
机构设置.Enabled = InStr(rights, "机构设置") '机构设置是toolbar按钮的名字
学籍管理.Enabled = InStr(rights, "学籍管理")
课程管理.Enabled = InStr(rights, "课程管理")
成绩管理.Enabled = InStr(rights, "成绩管理")
奖惩管理.Enabled = InStr(rights, "奖惩管理")
系统管理.Enabled = InStr(rights, "系统管理")

过程就是这样，仅做参考，可以根据这样的做法自己想到更好的做法，还不明白在网上下载一个有类似功能系统 参考着去做一做。

Answer 2

你的意思是点击某个按钮，然后相应的窗口被打开，是吧？这需要编写代码的：
在TOOLBAR控件的ButtonClic事件中写代码即可，例如：
Private
Sub
Toolbar1_ButtonClick(ByVal
Button
As
MSComctlLib.Button)
Select
Case
Button.Index
Case
1
Form1.Show
Case
2
Form2.Show
Case
3
Form3.Show
End
Select
End
Sub

Answer 3

到hi里聊。