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

2002-12-28 04:18:49 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

巧妙利用Chrome访客模式实现多用户登录巧妙利用Chrome访客模式实现多用户登录阅读详情

是下面的代码只能实现一个用户登录，帮我改改啊
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

...全文

银河麒麟服务器操作系统V10【vnc配置多用户登录】银河麒麟服务器操作系统V10【vnc配置多用户登录】阅读详情

pcwak

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

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

打赏
举报

可以建立一个用户表里面用来添加用户名和密码
再登陆框中给与验证

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

相关推荐