VB编程,编写一个能储存用户账号和密码的文件或数据库,并能验证密码是否正确 50

 我来答
sbj518
2019-06-28 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5278万
展开全部
是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
更多追问追答
追问
请问数据库里面是怎么弄的呢?

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式