欢迎来到天天文库
浏览记录
ID:38583366
大小:56.00 KB
页数:12页
时间:2019-06-15
《VB实例讲解二》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、内容: 做个登陆程序,以VB+Access。功能: 1、验证。验证用户名的正确与否、密码与用户名符合与否 2、人性化设计。 ①、输入用户名后,无论是鼠标移动到密码框,还是按“Tab”键到密码框,都搜索用户名的存在与否,但不报错 ②、输入密码后,选者状态在“确定”按钮上。 ③、确定后检验,用户名为空时,光标停在用户名框,密码空停密码输入框。控件: TextBox、CommandButton、PictureBox、Ti
2、mer、ADO程序内容:①:控件 2 TextBox 2 CommandButton 1 PictureBox 1 Timer②:程序 'form1程序PrivateSubCommand1_Click() UnloadMeEndSubPrivateSubCommand2_Click() DimConStrAsString Iftext_user.Text=""Then MsgBox"请输入用户名!",vbOKOnly+vbExclamation,
3、"登陆错误" text_user.SetFocus ExitSub EndIf Setcn=NewADODB.Connection Setrs=NewADODB.Recordset ConStr="Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource="&App.Path&"ttj02.Mdb" cn.OpenConStr cn.CursorLocation=adUseServer rs.Open"Select*fromdbuser",
4、cn,adOpenKeyset,adLockPessimistic Ifrs.RecordCount>0Then Iftext_user.Text<>""Then Setrs1=NewADODB.Recordset DimTextUserName TextUserName=Left(text_user.Text,4) rs1.Open"Select*FromdbuserWhereUser_nb='"&TextUserName&"'",cn,adOpen
5、Keyset,adLockPessimistic Ifrs1.RecordCount>0Then text_user.Text=Left(text_user.Text,4)&rs1.Fields("user_zhuwu") Text_password.SetFocus IfText_password<>""Then Ifrs1.Fields("User_Nb")=TextUserNameAndrs1.Fields(
6、"User_password")=Text_password.TextThen Form3.Show UnloadMe Else MsgBox"密码错误!",vbExclamation+vbOKCancel,"登陆错误" text_user.Text="" Text_password="" t
7、ext_user.SetFocus EndIf Else MsgBox"请输入密码!",vbExclamation+vbOKCancel,"登陆错误" EndIf Else MsgBox"沒有用戶信息,請確定!",vbExclamation+vbOKCancel,"登陆错误" text_user.Text="" Text_password=""
8、 text_user.SetFocus ExitSub EndIf rs.Close EndIf EndIfEndSubPrivateSubText_password_LostFocus() Iftext_user.Text=""Then
此文档下载收益归作者所有