7,763
社区成员
发帖
与我相关
我的任务
分享
Else
debug.print rs!quanxian
If trim(rs!quanxian) = "user" Then
'password为系统关键字,建议不要作为表名与字段名使用,一定要用则需要用方括号
'代码尽量缩进
Private Sub cmdOK_Click()
Dim m As String
Dim quanxian As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=niuniu;uid=;pwd=;database=sbgl"
conn.ConnectionTimeout = 30
conn.Open
if rs.state<>adstateclosed then rs.close
rs.Open "select username,[password],quanxian from 帐号管理 where username='" & Trim(txtUserName.Text) & "' And [password] ='" & Trim(txtPassword.Text) & "'", conn, adOpenkeyset, adLockReadOnly
If rs.recordcount Then
m = MsgBox("请重新登录", vbExclamation)
txtUserName.Text = ""
txtUserName.SetFocus
txtPassword.Text = ""
txtPassword.SetFocus
Else
If rs!quanxian = "user" Then
shouye.Hide
shouye.Show
Unload frmLogin
Else
shouye1.Hide
shouye1.Show
Unload frmLogin
End If
end if
rs.Close
End Sub