欢迎来到天天文库
浏览记录
ID:41035807
大小:35.50 KB
页数:9页
时间:2019-08-14
《VB+Access开发的登录程序》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、学VB就到这来了,感觉这好!呵呵,经过几天的学习,总结一下,做点东西,当是自己的作业吧!请大家帮忙完善一下!才学,所以写的不是很规矩,也很烦杂。内容: 做个登陆程序,以VB+ACCESS。功能: 1、验证。验证用户名的正确与否、密码与用户名符合与否 2、人性化设计。 ①、输入用户名后,无论是鼠标移动到密码框,还是按“Tab”键到密码框,都搜索用户名的存在与否,但不报错 ②、输入密码后,选者状态在“确定”按钮上。 ③、确定后检
2、验,用户名为空时,光标停在用户名框,密码空停密码输入框。控件: TextBox、CommandButton、PictureBox、Timer、ADO程序内容:①:控件 2 TextBox 2 CommandButton 1 PictureBox 1 Timer②:程序 'form1程序PrivateSubCommand1_Click() UnloadMeEndSubPrivateSubCommand2_Click() DimConStrAsStri
3、ng Iftext_user.Text=""Then MsgBox"请输入用户名!",vbOKOnly+VBExclamation,"登陆错误" text_user.SetFocus ExitSub EndIf Setcn=NewADODB.Connection Setrs=NewADODB.Recordset ConStr="Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource="&App.Path&"ttj02.Mdb" c
4、n.OpenConStr cn.CursorLocation=adUseServer rs.Open"Select*fromdbuser",cn,adOpenKeyset,adLockPessimistic Ifrs.RecordCount>0Then Iftext_user.Text<>""Then Setrs1=NewADODB.Recordset DimTextUserName TextUserName=Left(text_user.Text,4)
5、 rs1.Open"Select*FromdbuserWhereUser_nb='"&TextUserName&"'",cn,adOpenKeyset,adLockPessimistic Ifrs1.RecordCount>0Then text_user.Text=Left(text_user.Text,4)&rs1.Fields("user_zhuwu") Text_password.SetFocus IfText_password
6、<>""Then Ifrs1.Fields("User_Nb")=TextUserNameAndrs1.Fields("User_password")=Text_password.TextThen Form3.Show UnloadMe Else MsgBox"密码错误!",vbExclamation+VBOKCancel,"登陆错误"
7、 text_user.Text="" Text_password="" text_user.SetFocus EndIf Else MsgBox"请输入密码!",vbExclamation+VBOKCancel,"登陆错误" EndIf Else MsgBox"沒有用戶信息,請確定!",vbExclamation+VBO
8、KCancel,"登陆错误" text_user.Text="" Text_password="" text_user.SetFocus ExitSub EndIf rs.Close EndIf EndI
此文档下载收益归作者所有