在模块或登陆界面中添加一个成员
public 用户名 as string
在登录成功的语句后面加:用户名=TextBox1.text '假设textbox1是输入用户名的控件
然后在主界面的Load事件中写:
if 登录界面.用户名="admin" then
控件1.Enabled=True
else
控件1.Enabled=Flase
end if
不过这个是死办法,最好的办法还是建立用户数据库,对每个用户或部门职务的员工进行权限分配,最后在主界面的Load事件中,遍历菜单项,来控制多个控件是否启用。