关于登录!

zhaochengqing 2004-08-30 03:59:14
各位好,我第一次做一个东西做好啦,就差一个登录啦,请问哪个大侠对做登录比较有办法,或是哪有登录的原程序就更好,谢谢,大家帮帮我,求求啦!
...全文
128 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
haiz_2001 2004-08-31
读读注册表什么的
能加的尽管加好了
回复
zdmaster 2004-08-31
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
回复
zhaochengqing 2004-08-31
对啊我就是要可以从数据主力库中读出来比较的的那种,连接之后我不知道要咋办啦,我用的是用一个字符串SQL来记录源码是:
sql="select * from User where [UserName]='" & text1 & '" and [Password]='" & text2 & '""可是这样不管在文本框中输入什么都可以登录成功,因为这样的话sql的值是select * from User where [UserName]='" & text1 & '" and [Password]='" &text2 & '"而不会是select查找的内容我就是这里不知道要怎么办啦,上面那个用记名和用户密码定死的我会,我要用灵活的才能达到用户的要求。
回复
andylxd 2004-08-31
可以先建立各 界面 然後 放兩個 文本
一個用來 接受帳號
一個用來 接受密碼
在來 兩個 按鈕 空件 一個是確定按鈕 一個是 取消按鈕
在確定按鈕裏面寫上
Private Sub Command1_Click()

If Text1.text = "0000" And Text2.text = "0000" Then
住窗體.show
End If
End Sub
text1是放帳號的text2 是放密碼的
這個是最簡單的登陸 還有就是調 數據庫的 帳號和密碼 用 數據庫的登陸比較靈活以後還可以 增加用戶,在窗體裏直接寫入 帳號 密碼 就比較 死板了
回复
zhaochengqing 2004-08-31
嗨,这就是没经验啊,登录当然是登录系统了,各位有没有这方面的程序给我看看?
回复
yongming520 2004-08-30
楼主你在开玩笑吧,嘿嘿
回复
hhjjhjhj 2004-08-30
问得也太"糊涂"了,登录到那里,月球吗?
回复
cpio 2004-08-30
别的东西都能做好,为什么登录就不行
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-30 03:59
社区公告
暂无公告