Question

VB6.0 制作登陆界面,用户名不同登录的form1以后的功能不同如何实现？

Answer 1

设置权限登录，付代码
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能为空，请输入用户名！", vbCritical, "提示"
Else
rs.MoveFirst
rs.Find "uname= '" & Trim(Text1.Text) & "' "
If rs.EOF Then
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
MsgBox "用户名输入错误，请选择！", vbCritical, "提示"
Else
If Text2.Text = "" Then
MsgBox "密码不能为空，请输入密码！", vbCritical, "提示"
Text2.Text = ""
Text2.SetFocus
ElseIf rs.Fields("upwad") = Text2.Text Then
Select Case rs.Fields("bright")
Case 0
If Combo1.Text = "管理员" Then
MsgBox "管理员已成功登录！", vbExclamation, "提示" Form1.Hide
Form2.Show
Else
MsgBox "您没有此权限！", vbOKOnly + vbCritical, "提示"
End If
Case 1
If Combo1.Text = "游客" Then
MsgBox "游客已成功登录！", vbExclamation, "提示" Form1.Hide
Form2.Show
Else
MsgBox "您没有此权限！", vbOKOnly + vbCritical, "提示"
End If
End Select
Else
MsgBox ("密码输入错误，请重新输入！"), vbCritical, "提示"
Text2.Text = ""
Text2.SetFocus
End If
End If
End If
end sub

追问

rs未定义，我应该定义成什么？？

追答

Dim rs As Recordset
Set rs = New Recordset

追问

Set rs = New Recordset 无效的外部过程
是不是还要在Access里设置？怎么设置？

还是不行啊

Answer 2

思路：
1，Form1里制作菜单。
2，在数据表里，设置每一个用户的菜单使用权限。
3，登录成功后，读取相应权限，设置菜单的Visible或Enabled属性。当然，也可以设置控件的Visible或Enabled属性。

Answer 3

哥麻烦您在念一遍，读通了请追问，用户名不同登录的form1以后的功能不同如何实现？

追问

就是做一个登陆界面，它用用户名：学生登陆form1时全都是读取数据的，用管理员登陆时能够读取数据并修改设置值，应该怎么做？有这功能的登陆界面吗？求代码，求资料，各种求

追答

方法有很多，你可以画3个窗体，一个用于登陆，一个用来加载数据，在加载数据的窗体上添加菜单或按钮，用于跳转到修改数据的窗体，实现方法很简单，你将登陆窗体中的用户名获取传送数据加载窗体，在窗体加载时间中判断如果为admin 哪就是管理员，将按钮或菜单 是否可点击设置为true，否则其他全部为 false，即不可被点击，
这不难啊，至于加载的数据和非空验证什么的你自己弄吧，我也不知道你是加载哪的数据

Answer 4

是不是说登录不同的权限用户可以使用不同的菜单项啊，如果这样，可以给每个用户在数据库中添加一个表示权限的字段，然后二进制位不同的位对应不同的菜单项就可以了啊