请教高手，VB+ACCESS用户登录界面

Question

本人想请教高手VB+ACCESS用户登录界面的源代码，在此十分感谢！

Answer 1

自己编不更好，有问题就找CSDN不就行了，大伙会帮你的。

Answer 2

Set rs = New Recordset
  Dim sql As String
  sql = "select * from k_用户 where 用户名称='@name@' and 密码='@pws@'"
  sql = Replace(sql, "@name@", Me.txtUserName.Text)
  sql = Replace(sql, "@pws@", Me.txtPassword.Text)
  
  rs.Open sql, db, adOpenStatic, adLockOptimistic
   
    '检查正确的密码
    If rs.RecordCount = 1 Then
        '将代码放在这里传递
        '成功到 calling 函数
        '设置全局变量时最容易的
        MsgBox "欢迎" + Me.txtUserName.Text + "登陆系统"
        GG_NAME = Me.txtUserName.Text
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If