VB实例讲解二

《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