VB登录界面代码

VB登录界面代码方法一：VB登录界面代码OptionExplicitPrivateSubcmdCancel_Click()DimintResultAsInteger'请求用户确认是否真的退出系统登录intResult=MsgBox(你选择了退出系统登录，退出将不能启动企业人事管理系统！&vbcrlf_&是否真的退出？,vbYesNo,登录验证)IfintResult=vbYesThenEnd'根据用户选择结束应用程序EndSubPrivateSubCmdOK_Click()DimUserNameAsStringDimuserpasswordAsStringDimstrAsStringDimnTryCountAsIntegerDimrsAsNewADODB.RecordsetSetrs=NewADODB.RecordsetUserName=Trim(txtUserName.Text)userpassword=Trim(txtpassword.Text)str=select*from用户信息表where用户名='&UserName&'and用户密码='&userpassword&'rs.Openstr,connectString,adOpenKeyset,2Ifrs.EOFThen'登录失败MsgBox对不起，无此用户或者密码不正确！请重新输入！！,vbCritical,错误txtUserName.Text=txtpassword.Text=txtUserName.SetFocusnTryCount=nTryCount+1IfnTryCount=3ThenMsgBox您无权操作本系统！,vbCritical,无权限UnloadMeEndIfElse'登陆成功主界面.ShowUnloadMeEndIfEndSub方法二：PrivateSubCommand1_Click()DimusernameAsStringDimuserpasswordAsStringDimtry_timesAsIntegertry_times=0username=Trim$(user.text)userpassword=Trim$(password.text)Ifuser.text=ThenMsgBox用户名不能为空！,vbOKOnly+vbInformation,友情提示user.SetFocusExitSubEndIfIfpassword.text=ThenMsgBox密码不能为空！,vbOKOnly+vbInformation,友情提示password.SetFocusExitSubEndIfDimstrSQLAsStringstrSQL=select*fromstaffwheresno='&username&'andpassword='&userpassword&'DimstrAsNewADODB.RecordsetSetstr=NewADODB.Recordsetstr.CursorLocation=adUseClientstr.OpenstrSQL,conn,adOpenStatic,adLockReadOnlyWithstrIf.State=adStateOpenThen.Close.OpenstrSQLIf.EOFThentry_times=try_times+1Iftry_times=3ThenMsgBox您已经三次尝试进入本系统，均不成功，系统将会自动关闭,vbOKOnly+vbCritical,警告UnloadMeElseMsgBox对不起，用户名不存在或密码不正确！,vbOKOnly+vbQuestion,警告user.SetFocususer.text=password.text=EndIfElseUnloadMefrm_main.ShowEndIfEndWithEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Setconn=NewADODB.Connectionconn.ConnectionString=dsn=LMSconn.OpenLogin.ShowEndSubPrivateSubpassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub