关于登录！

[zhaochengqing]

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

[cpio]

别的东西都能做好，为什么登录就不行

[hhjjhjhj]

问得也太"糊涂"了，登录到那里，月球吗？

[yongming520]

楼主你在开玩笑吧，嘿嘿

[zhaochengqing]

嗨，这就是没经验啊，登录当然是登录系统了，各位有没有这方面的程序给我看看？

[andylxd]

可以先建立各 界面 然後 放兩個 文本
一個用來 接受帳號
一個用來 接受密碼
在來 兩個 按鈕 空件 一個是確定按鈕 一個是 取消按鈕
在確定按鈕裏面寫上
Private Sub Command1_Click()

If Text1.text = "0000" And Text2.text = "0000" Then
住窗體.show
End If
End Sub
text1是放帳號的text2 是放密碼的
這個是最簡單的登陸 還有就是調 數據庫的 帳號和密碼 用 數據庫的登陸比較靈活以後還可以 增加用戶，在窗體裏直接寫入 帳號 密碼 就比較 死板了

[zhaochengqing]

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

[zdmaster]

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

[haiz_2001]

读读注册表什么的
能加的尽管加好了