VB登陆界面权限问题的设置

Question

Private Sub Comenter_Click()
If Txtname.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
Txtname.SetFocus
Exit Sub
End If
If Txtpwd.Text = "" Then
MsgBox "密码不能为空！", vbOKCancel + vbInformation, "友情提示"
Txtpwd.SetFocus
Exit Sub
End IfDim strSQL As String
strSQL = "select * from Users where [user]='" & Trim$(Txtname.Text) & "' and [password]='" & Trim$(Txtpwd.Text) & "' "Dim str As New ADODB.Recordset
Dim mydb As DataBases
Set str = New ADODB.Recordset
Set mydb = New DataBases
str.CursorLocation = adUseClient
mydb.OpenConn
str.Open strSQL, mydb.SqlConn, adOpenStatic, adLockReadOnlyWith str
If .State = adStateOpen Then .Close
.Open strSQL
If .EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me
Else
MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
Txtname.Text = ""
Txtpwd.Text = ""
End If
Elsei = "select type from users where [user]='" & Trim$(Txtname.Text) & "' and [password]='" & Trim$(Txtpwd.Text) & "'"
j = "select type from users where [user]='" & Trim$(Txtname.Text) & "' and [password]='" & Trim$(Txtpwd.Text) & "'"If i = 1 Then
frmMain.Show '登录进入的另一个界面
Else
frmMingXi.Show
End If
'Unload MeEnd If
End With
mydb.CloseConn
End Sub

Answer 1

我把VB的登陆的界面加了一个权限，但是不知道怎么写，红的是我加的代码,i和j值,得到的是什么,怎么总是打开frmMingXi界面呀,大家帮忙看看，呵呵，谢谢了.

Answer 2

进入的界面是从数据库得到的吧
i是执行结果
你怎么i直接等于sql语句了学习的话，要知道自己每步该干什么，可以一步步跟踪，学习程序！

Answer 3

i = "select type from users where [user]='" & Trim$(Txtname.Text) & "' and [password]='" & Trim$(Txtpwd.Text) & "'" 
这里应该改掉。
Dim rs As New ADODB.Recordset 
rs.Open "select type from users where [user]='" & Trim$(Txtname.Text) & "' and [password]='" & Trim$(Txtpwd.Text) & "'" 
, mydb.SqlConn, adOpenStatic, adLockReadOnly 
if rs.filed("type") <>'' then

Answer 4

sql语句要执行以后才能得到结果嘛。

Answer 5

上面已经有了  strSQL = "select * from Users where [user]='" & Trim$(Txtname.Text) & "' and [password]='" & Trim$(Txtpwd.Text) & "' "
  打开记录,如果结果不为空,这时候TYPE字段已经有了,没必要再运行一个SQL.
  红色部分改成:
If str.filed("type") = 1 Then 
   frmMain.Show '登录进入的另一个界面 
Else 
   frmMingXi.Show 
End If 
'Unload Me