VB编程,编写一个能储存用户账号和密码的文件或数据库,并能验证密码是否正确 50
展开全部
是vb6.0么?数据库用access可以么?
给你个例子吧,使用数据库中的数据登陆的
Dim ADOrs As New Recordset '声明记录集对象
Dim strSQL As String
ADOrs.ActiveConnection = ADOcn '与连接对象adocn关联
If Trim(Combo1.Text) = "" Or Trim(Text2.Text) = "" Then '检验用户名与密码为空否
MsgBox "用户名和密码不能为空,请重新填写", vbOKOnly + vbInformation
Exit Sub
End If
strSQL = "select * from qxsz where 操作员名称='" + Trim(Combo1.Text) + "'"
ADOrs.Open strSQL '按用户名查询
If ADOrs.EOF Then '找不到该用户
MsgBox "该操作员不存在", vbCritical + vbOKOnly
Combo1.Text = ""
Combo1.SetFocus
Exit Sub
ElseIf Text2.Text <> Trim(ADOrs.Fields("密码")) Then '找到用户后检验密码
MsgBox "密码不正确", vbOKOnly + vbInformation
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
'用户登录成功,记录用户类型参数
UserName = Combo1.Text
PassWord = Text2.Text
ADOrs.Close
Set ADOrs = Nothing
ADOcn.Close
Set ADOcn = Nothing
Frm_Main.Show
Unload Me
给你个例子吧,使用数据库中的数据登陆的
Dim ADOrs As New Recordset '声明记录集对象
Dim strSQL As String
ADOrs.ActiveConnection = ADOcn '与连接对象adocn关联
If Trim(Combo1.Text) = "" Or Trim(Text2.Text) = "" Then '检验用户名与密码为空否
MsgBox "用户名和密码不能为空,请重新填写", vbOKOnly + vbInformation
Exit Sub
End If
strSQL = "select * from qxsz where 操作员名称='" + Trim(Combo1.Text) + "'"
ADOrs.Open strSQL '按用户名查询
If ADOrs.EOF Then '找不到该用户
MsgBox "该操作员不存在", vbCritical + vbOKOnly
Combo1.Text = ""
Combo1.SetFocus
Exit Sub
ElseIf Text2.Text <> Trim(ADOrs.Fields("密码")) Then '找到用户后检验密码
MsgBox "密码不正确", vbOKOnly + vbInformation
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
'用户登录成功,记录用户类型参数
UserName = Combo1.Text
PassWord = Text2.Text
ADOrs.Close
Set ADOrs = Nothing
ADOcn.Close
Set ADOcn = Nothing
Frm_Main.Show
Unload Me
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询