VB+Access开发的登录程序

《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