我做个登录的窗口,怎么才能实现多用户登录

pcwak 2002-12-28 04:18:49
是下面的代码只能实现一个用户登录,帮我改改啊
If Text1.Text = rst.Fields("用户") And Text2.Text = rst.Fields("密码") Then
Form1.Show
Me.Hide
Exit Sub
Else
MsgBox "密码不对,请重新输入", 0 + 48, "警告"
Text1.SetFocus
s = s + 1
SendKeys "{Home}+{End}"
End If
...全文
54 点赞 收藏 10
写回复
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2002-12-28
dim cn as adodb.connection
dim rs as adodb.recordset
dim pwd() as string

private sub form_load()
set cn = new adodb.connection
set rs = new adodb.recordset
cn.open ".........."
set rs = cn.execute("select * from Password")
do until rs.eof
combo1.additem rs!用户
redim preserve pwd(combo1.newindex)
pwd(combo1.newindex) = rs!密码
rs.movenext
loop
combo1.listindex = 0
end sub

private sub cmdOK_Click()
if pwd(combo1.listindex) = Trim(txtPassword) Then
unload.Me
Form1.Show
else
MsgBox "用户名或密码错误!"
End If
end sub

回复
Laney 2002-12-28
要是多的话,你就用access做个表,然后连接它,比较不就行了
回复
hjx1014 2002-12-28
ft
回复
xks 2002-12-28
在此之前

我先用access建立一个用户名和密码字段的表

表中有几条用户名和密码记录

在登录窗体上放一个data1控件

设置它的databasename为刚建立的access库

recordset 属性为表名

然后用上面的代码可以实现登录功能!

你试试看吧!

我调试过

好用的!
回复
xks 2002-12-28
Private Sub cmdOK_Click()
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
If Trim(Data1.Recordset!用户名) = Trim(txtUserName) And Trim(Data1.Recordset!密码) = Trim(txtPassword) Then
Me.Hide
Form1.Show
Exit Sub
End If
Data1.Recordset.MoveNext
Loop
MsgBox "用户名或密码错误!"
End Sub
回复
sduppg 2002-12-28
如果先要检验是否有这个用户,然后再检验密码是否正确话,怎么样来处理?
回复
pcwak 2002-12-28
mousie(浩子)

假如我表中有10个记录,我要用第10个记录登录那不是要出现10次错误提示了
回复
浩子 2002-12-28
Rst.open "select * from login where 用户='" & text1.text & "'"
If text2.text = rst!密码 then
Form1.Show
Me.Hide
Exit Sub
Else
MsgBox "密码不对,请重新输入", 0 + 48, "警告"
Text1.SetFocus
s = s + 1
SendKeys "{Home}+{End}"
End If

http://www.xygu.com
回复
pcwak 2002-12-28
当然有表了,不然连上面的代码都不能运行
回复
songlf0001 2002-12-28
可以建立一个用户表里面用来添加用户名和密码
再登陆框中给与验证
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告