1,502
社区成员
发帖
与我相关
我的任务
分享【求助】VB6.0制作登录系统
觉得以前做的登录系统太不安全了，于是，就去学了点数据库编程
数据库叫做xiaowenwen，数据表叫做User 有两个项，一个是UserName，一个是PassWord
我有两个Text，Text1.Text是用户名（UserName），Text2.Text是密码（PassWord），我要怎么才能利用数据表来做登录系统，求完整代码
数据库叫做xiaowenwen，数据表叫做User 有两个项，一个是UserName，一个是PassWord
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Strcn As String
Strcn = "Driver={MySQL ODBC 3.51 Diver};Server=这是IP;Database=xiaowenwen;Uid=xiaowenwen;PWD=xiaowenwen;Option=3;stmt=Set Names GB2312"
cn.Open Strcn
cn.CursorLocation = adUseClient
rs.Open "User", cn, adOpenKeyset, adLockOptimistic
可是，我想读取数据表里的UserName和PassWord，这里要怎么写
rs.Close
cn.Close
我有两个Text，Text1.Text是用户名（UserName），Text2.Text是密码（PassWord），我要怎么才能利用数据表来做登录系统，求完整代码
...全文
请发表友善的回复…
发表回复
li_yuan_fang( 2016-04-16
- 打赏
- 举报
是MySQL，但数据源怎么弄
li_yuan_fang( 2016-04-15
- 打赏
- 举报
顺便问一下，注册系统怎么弄
rs.Open "select count(*) as X from `User` where `username`= text1.Text, cn, adOpenKeyset, adLockOptimistic
if rs!X = 0 then
这是注册的语句
End If
li_yuan_fang( 2016-04-15
- 打赏
- 举报
顺便问一下，注册系统怎么弄
rs.Open "select count(*) as X from `User` where `username`= text1.Text, cn, adOpenKeyset, adLockOptimistic
if rs!X = 0 then
这是注册的语句
End If
li_yuan_fang( 2016-04-15
- 打赏
- 举报
这是非常不安全的查询方式。
代码的本意是，如果用户输入 'Bob' 和 '1234'，代码就得到如下 SQL 语句：
SELECT COUNT(*) AS x FROM [User] WHERE username = 'Bob' AND password = '1234'
但是，一个作弊者可以在密码框中输入 ' OR '0' = '0，用户名不必关心，甚至可以不输入，得到的 SQL 语句如下：
SELECT COUNT(*) AS x FROM [User] WHERE username = '' AND password = '' OR '0' = '0'
因为 '0' = '0' 永远为真，所以查询一定可以得到记录。也就是说登录成功！
安全的做法，是仅针对用户名查询其密码，然后在代码中对密码进行比对。
[/quote]
那怎么办
ZHRXJR 2016-04-15
- 打赏
- 举报
Strcn = "Driver={MySQL ODBC 3.51 Diver};Server=这是IP;Database=xiaowenwen;Uid=xiaowenwen;PWD=xiaowenwen;Option=3;stmt=Set Names GB2312"
上面这个字符串是连接数据库的语句，你的数据库是什么数据库，是MySQL数据库吗，而且你已经创建了 ODBC 数据源？否则上面这个语句是连接不了数据库的。连接数据库根据数据库不同，连接语句的字符串是不同的。
至于登录界面一般通用的就是检测数据表用户名字段是否存在，然后再检测密码是否正确，一般使用二个判断语句，而且是嵌套的。
下面用Access数据库给你一般比较通用的登录代码，供你参考，数据库名称、数据表名称、字段名称与你的一样，你的数据库不同你仅仅修改数据库连接过程即可。
Dim cn As New ADODB.Connection, RS As New ADODB.Recordset
' 注意添加ADO的数据库连接引用
Private Sub Command1_Click()
’非常标准的系统登录单击过程，这种登录安全性非常好
If Text1.Text = "" Then
MsgBox "你没有输入用户名！", 16, "请输入！"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "你没有输入用户密码！", 16, "请输入！"
Exit Sub
End If
Call AAA(cn)
RS.Open "Select * from User Where UserName='" & Text1.Text & "'", cn, 2, 2
If RS.EOF = True Then '判断用户名对不对
MsgBox "你的用户名不正确！", 16, "请重新输入！"
Text1.Text = ""
Text2.Text = ""
Else
If RS!PassWord = Text2.Text Then '判断密码是否正确
Form2.Show '登录成功，进入下一个窗体
Else
MsgBox "你的用户密码不正确！", 16, "请重新输入！"
Text2.Text = ""
End If
End If
RS.Clone
cn.Close
End Sub
'---------------------------------------------------------------------------------------------------------------------
Private Sub AAA(cn)
'Access数据库连接过程，你的数据库不同修改这个字符串就可以了
cn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\xiaowenwen.mdb"
cn.Open
End Sub
of123 2016-04-15
- 打赏
- 举报
这是非常不安全的查询方式。
代码的本意是，如果用户输入 'Bob' 和 '1234'，代码就得到如下 SQL 语句：
SELECT COUNT(*) AS x FROM [User] WHERE username = 'Bob' AND password = '1234'
但是，一个作弊者可以在密码框中输入 ' OR '0' = '0，用户名不必关心，甚至可以不输入，得到的 SQL 语句如下：
SELECT COUNT(*) AS x FROM [User] WHERE username = '' AND password = '' OR '0' = '0'
因为 '0' = '0' 永远为真，所以查询一定可以得到记录。也就是说登录成功！
安全的做法，是仅针对用户名查询其密码，然后在代码中对密码进行比对。
li_yuan_fang( 2016-04-15
- 打赏
- 举报
装了，可是好像还是不行 我的MySQL服务器版本是5.73的
有没有什么办法可以让用户一键安装前置么？还有怎么弄注册
vansoft 2016-04-15
- 打赏
- 举报
先学一下SQL语法吧。
select, update, insert, delete
四个最基本的。
threenewbee 2016-04-15
- 打赏
- 举报
你安装mysql的驱动了么
li_yuan_fang( 2016-04-15
- 打赏
- 举报
这是非常不安全的查询方式。
代码的本意是，如果用户输入 'Bob' 和 '1234'，代码就得到如下 SQL 语句：
SELECT COUNT(*) AS x FROM [User] WHERE username = 'Bob' AND password = '1234'
但是，一个作弊者可以在密码框中输入 ' OR '0' = '0，用户名不必关心，甚至可以不输入，得到的 SQL 语句如下：
SELECT COUNT(*) AS x FROM [User] WHERE username = '' AND password = '' OR '0' = '0'
因为 '0' = '0' 永远为真，所以查询一定可以得到记录。也就是说登录成功！
安全的做法，是仅针对用户名查询其密码，然后在代码中对密码进行比对。
[/quote]
那怎么办[/quote]
用我的代码就可以。作为初学者，你不用考虑sql注入的问题，那是比较高级的话题，[/quote]
注册怎么弄
还有，这个错误怎么解决
threenewbee 2016-04-15
- 打赏
- 举报
这是非常不安全的查询方式。
代码的本意是，如果用户输入 'Bob' 和 '1234'，代码就得到如下 SQL 语句：
SELECT COUNT(*) AS x FROM [User] WHERE username = 'Bob' AND password = '1234'
但是，一个作弊者可以在密码框中输入 ' OR '0' = '0，用户名不必关心，甚至可以不输入，得到的 SQL 语句如下：
SELECT COUNT(*) AS x FROM [User] WHERE username = '' AND password = '' OR '0' = '0'
因为 '0' = '0' 永远为真，所以查询一定可以得到记录。也就是说登录成功！
安全的做法，是仅针对用户名查询其密码，然后在代码中对密码进行比对。
[/quote]
那怎么办[/quote]
用我的代码就可以。作为初学者，你不用考虑sql注入的问题，那是比较高级的话题，
threenewbee 2016-04-14
- 打赏
- 举报
rs.Open "select count(*) as X from `User` where `username`='" & text1.Text & "' and `password`='" & text2.Text & "'", cn, adOpenKeyset, adLockOptimistic
if rs!X = 0 then
登陆失败
else
登陆成功
end if
