关于登录！

Question

各位好，我第一次做一个东西做好啦，就差一个登录啦，请问哪个大侠对做登录比较有办法，或是哪有登录的原程序就更好，谢谢，大家帮帮我，求求啦！

Answer 1

可以先建立各 界面 然後 放兩個 文本 
一個用來 接受帳號 
一個用來 接受密碼
在來 兩個 按鈕 空件 一個是確定按鈕 一個是 取消按鈕
在確定按鈕裏面寫上
Private Sub Command1_Click()
    
    If Text1.text = "0000" And Text2.text = "0000" Then
        住窗體.show
    End If
End Sub
text1是放帳號的text2 是放密碼的
這個是最簡單的登陸 還有就是調 數據庫的 帳號和密碼 用 數據庫的登陸比較靈活以後還可以 增加用戶，在窗體裏直接寫入 帳號 密碼 就比較 死板了

Answer 2

对啊我就是要可以从数据主力库中读出来比较的的那种，连接之后我不知道要咋办啦，我用的是用一个字符串SQL来记录源码是：
sql="select * from User where [UserName]='" & text1 & '" and [Password]='" & text2 & '""可是这样不管在文本框中输入什么都可以登录成功，因为这样的话sql的值是select * from User where [UserName]='" & text1 & '" and [Password]='" &text2 & '"而不会是select查找的内容我就是这里不知道要怎么办啦，上面那个用记名和用户密码定死的我会，我要用灵活的才能达到用户的要求。

Answer 3

Private Sub cmdOk_Click()Set jxcRs = jxcConn.Execute("select UserName,USERTYPE from UserLogin where username='" & txtUser.text & "' and userpass='" & txtPassword.Text & "'")
    If Not jxcRs.EOF Then
  
        Unload Me
        frmMain.Show
      
        
        Else
        MsgBox "登录不成功", vbOKOnly + vbQuestion, "提示"
        txtPassword.Text = ""
        txtPassword.SetFocus
        Exit Sub
    End If
End Sub