制作最简单的用户登陆界面，用SQL代码是否可以实现？

williamwangc

我主要是想问下SQL语言是否等实现字段值的输出呢？
使窗体文本框的值=表里面的值

roych

用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

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

麻烦。
Dlookup简单。

williamwangc

谢谢。

zhuyiwen

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

确实