我想通过点击登录按钮从登录窗体进入系统主窗体抄改了个代码但点击登录显示“要求对象”咋解决啊

显示全部楼层 · 2011-10-16 06:21:39

PrivateSubCommand7_Click()OnErrorGoToErr_OK_ClickDimrsAsNewADODB.Recordsetlogname=Trim(Me.username)pwd=Trim(Me.Password)IfIsNull(logname)ThenDoCmd.BeepMsgBox(\"请输入用户名称！\")ElseIfIsNull(pwd)ThenDoCmd.BeepMsgBox(\"请输入密码！\")ElseSQL=\"select*from用户表whereUserName=\'\"defds123lognamedefds123\"\'andPassWord=\'\"defds123pwddefds123\"\'\"rs_login.OpenSQL,conn,adOpenKeyset,adLockPessimisticIfrs.EOFThenDoCmd.BeepMsgBox(\"没有这个用户，请重新输入！\")Me.username=\"\"Me.Password=\"\"Me.username.SetFocusExitSubElseDoCmd.CloseMsgBox(\"欢迎使用人员管理系统！\")check=TrueDoCmd.OpenForm(\"FrmPerson\")DoCmd.OpenForm(\"FrmPersonel\")DoCmd.OpenForm(\"FrmSearchAlter\")EndIfEndIfSetrs=NothingSetconn=NothingExit_OK_Click:ExitSubErr_OK_Click:MsgBox(Err.Description)ResumeExit_OK_ClickEndIfEndSub

千问 · 2011-10-16 06:21:39

设主窗体：MainForm，登录窗口：LoginForm,在里面定义一个全局变量：Succeed=lf.ShowDialog();//弹出登陆框输入账号密码后，点击页面的“确定按钮”。

千问 · 2011-10-16 06:21:39

我想通过点击登录按钮从登录窗体进入系统主窗体抄改了个代码但点击登录显示“要求对象”咋解决啊宿舍淫，荡爱情秘书自拍6电影UIO。http://sina.3456se.com。YTU天天看不停K1d8A8x

我想通过点击登录按钮从登录窗体进入系统主窗体 抄改了个代码 但点击登录显示“要求对象”咋解决啊

我想通过点击登录按钮从登录窗体进入系统主窗体抄改了个代码但点击登录显示“要求对象”咋解决啊