vb程序从登陆界面进入到主界面，如何根据登陆界面所选的用户名不同而设置主界面的功能

vb程序从登陆界面进入到主界面，如何根据登陆界面所选的用户名不同而设置主界面的功能，比如说用户admin登录到主界面后可以用全部功能，用户admin1登陆后，主界面有部分功能enabled=false

在模块或登陆界面中添加一个成员
public 用户名 as string
在登录成功的语句后面加：用户名=TextBox1.text '假设textbox1是输入用户名的控件

然后在主界面的Load事件中写：

if 登录界面.用户名="admin" then
控件1.Enabled=True
else
控件1.Enabled=Flase
end if

不过这个是死办法，最好的办法还是建立用户数据库，对每个用户或部门职务的员工进行权限分配，最后在主界面的Load事件中，遍历菜单项，来控制多个控件是否启用。

在c盘下pass.txt 在第一行写上 yonghuming:mima 你可以把他们该成admin:123456 冒号前是用户名后面是密码 代码如下 public id as string public psword as string private sub form_load() text2.passwordchar = "*" const forreading = 1 set objfso = createobject("scripting.filesystemobject") set objfile = objfso.opentextfile("c:\pass.txt", forreading) txtstr = objfile.readall dim a, s a = 1 s = mid(txtstr, a, 1) if s = ":" then else do while s <> ":" a = a + 1 s = mid(txtstr, a, 1) loop id = mid(txtstr, 1, a - 1) psword = trim(mid(txtstr, a + 1)) end if end sub private sub command1_click() if text1.text = id then if text2.text = psword then msgbox ("验证通过!") else msgbox ("输入有误!") end if else msgbox ("输入有误!") end if end sub private sub command2_click() end end sub