VB+Access开发的登录程序.doc

学HYPERLINK"http://www.bc-cn.net/Article/kfyy/vb/Index.html"VB就到这来了，感觉这好！呵呵，经过几天的学习，总结一下，做点东西，当是自己的作业吧！请大家帮忙完善一下！才学，所以写的不是很规矩，也很烦杂。内容：做个登陆程序，以HYPERLINK"http://www.bc-cn.net/Article/kfyy/vb/Index.html"VB+HYPERLINK"http://www.bc-cn.net/Article/sjk/access/Index.html"ACCESS。功能：1、验证。验证用户名的正确与否、密码与用户名符合与否2、人性化设计。①、输入用户名后，无论是鼠标移动到密码框，还是按“Tab”键到密码框，都搜索用户名的存在与否，但不报错②、输入密码后，选者状态在“确定”按钮上。③、确定后检验，用户名为空时，光标停在用户名框，密码空停密码输入框。控件：TextBox、CommandButton、PictureBox、Timer、ADO程序内容：①：控件2TextBox2CommandButton1PictureBox1Timer②：程序'form1程序PrivateSubCommand1_Click()UnloadMeEndSub
PrivateSubCommand2_Click()DimConStrAsStringIftext_user.Text=""ThenMsgBox"请输入用户名!",vbOKOnly+HYPERLINK"http://www.bc-cn.net/Article/kfyy/vb/Index.html"VBExclamation,"登陆错误"text_user.SetFocusExitSubEndIfSetcn=NewADODB.ConnectionSetrs=NewADODB.RecordsetConStr="Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource="&App.Path&"\ttj02.Mdb"cn.OpenConStrcn.CursorLocation=adUseServerrs.Open"Select*fromdbuser",cn,adOpenKeyset,adLockPessimisticIfrs.RecordCount>0ThenIftext_user.Text<>""ThenSetrs1=NewADODB.RecordsetDimTextUserNameTextUserName=Left(text_user.Text,4)rs1.Open"Select*FromdbuserWhereUser_nb='"&TextUserName&"'",cn,adOpenKeyset,adLockPessimisticIfrs1.RecordCount>0Thentext_user.Text=Left(text_user.Text,4)&rs1.Fields("user_zhuwu")Text_password.SetFocusIfText_password<>""ThenIfrs1.Fields("User_Nb")=TextUserNameAndrs1.Fields("User_password")=Text_password.TextThenForm3.ShowUnloadMeElseMsgBox"密码错误!",vbExclamation+HYPERLINK"http://www.bc-cn.net/Article/kfyy/vb/Index.html"VBOKCancel,"登陆错误"text_user.Text=""Text_password=""text_user.SetFocusEndIfElseMsgBox"请输入密码!",vbExclamation+HYPERLINK"http://www.bc-cn.net/Article/kfyy/vb/Index.html"VBOKCancel,"登陆错误"EndIfElseMsgBox"沒有用戶信息,請確定!",vbExclamation+HYPERLINK"http://www.bc-cn.net/Article/kfyy/vb/Index.html"VBOKCancel,"登陆错误"text_user.Text=""Text_password=""text_user.SetFocusExitSubEndIfrs.CloseEndIfEndIfEndSub
PrivateSubText_password_LostFocus()Iftext_user.Text=""Thentext_us