7453
社区成员
- 主页
我做个登录的窗口，怎么才能实现多用户登录
是下面的代码只能实现一个用户登录，帮我改改啊
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
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
...全文
请发表友善的回复…
发表回复
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
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 属性为表名
然后用上面的代码可以实现登录功能！
你试试看吧！
我调试过
好用的！
我先用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
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次错误提示了
假如我表中有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
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
可以建立一个用户表里面用来添加用户名和密码
再登陆框中给与验证
再登陆框中给与验证