Office中国论坛/Access中国论坛

标题: 制作最简单的用户登陆界面，用SQL代码是否可以实现？ [打印本页]

作者: williamwangc 时间: 2011-7-21 22:50
标题: 制作最简单的用户登陆界面，用SQL代码是否可以实现？
我主要是想问下SQL语言是否等实现字段值的输出呢？
使窗体文本框的值=表里面的值

作者: roych 时间: 2011-7-22 09:02
用ADO（或DAO）来处理就可以了。
On Error GoTo Err_cmdLogin_Click
Dim rs As New ADODB.Recordset
Dim str As String
Dim num As Integer
str = "select COUNT(Person4.ID) from Person4 where Person4.ID='" & Me.UserName
str = str & "' and Person4.PassWord='" & Me.PassWord & "'"
rst.open str,3,1
num = rs("用户名")
If IsNull(Me.UserName) Then
MsgBox ("请输入用户名称！"), vbInformation, "出错"

ElseIf IsNull(Me.PassWord) Then
MsgBox ("请输入用户密码！"), vbInformation, "出错"
ElseIf num <> 1 Then
MsgBox ("没有这个用户，或者密码错误，重新确认输入后还不能登陆时请通知管理员！"), vbCritical, "出错"
Else
Me.Visible = False
DoCmd.OpenForm "FrmMenu"
DoCmd.RunMacro "Mac_SysUsLogOn" '把信息写入用户登录表
End If
Exit_cmdLogin_Click:
Exit Sub
Err_cmdLogin_Click:
MsgBox (Err.Description)
Resume Exit_cmdLogin_Click

作者: todaynew 时间: 2011-7-22 17:14

roych 发表于 2011-7-22 09:02
用ADO（或DAO）来处理就可以了。
On Error GoTo Err_cmdLogin_Click
Dim rs As New ADODB.Record ...

麻烦。
Dlookup简单。

作者: williamwangc 时间: 2011-7-22 18:01
谢谢。

作者: zhuyiwen 时间: 2011-7-22 19:34

todaynew 发表于 2011-7-22 17:14
麻烦。
Dlookup简单。

确实

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)