资源描述：
《access有权限登要求的录窗口集锦》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、ACCESS登录权限1我做了一个access的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限，2011-06-2111:26昏睡的猫1号
2、分类：数据库DB
3、浏览621次我做了一个access的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限，也就是说我那个登录窗体即使不用密码登录也可以关闭和打开数据库，求不能够区分管理员和用户，两者都可以修改数据库，这是我的代码PrivateSubcmdYes_Click()OnErrorGoToerIfIIf(IsNull(Me.用户名),"",Me.用户名)=""OrIIf(IsNull(Me.密码),"",Me.密码)=""Th
4、enMsgBox"请输入用户名和密码！",vbInformation,"登录"Me.用户名.SetFocusExitSubEndIfDimrstAsNewADODB.Recordsetrst.Open"select用户名from用户where用户名='"&Me.用户名&"'and密码='"&Me.密码&"'",CurrentProject.AccessConnection,adOpenForwardOnly,adLockReadOnlyIfrst.EOFThenMsgBox"用户名或密码错误，请重新输入！",vbCritical,"登录"Me.用户名.SetFocusElse'记录登录用户名和
5、登录时间DimrstInsertAsNewADODB.RecordsetrstInsert.Open"登陆日志",CurrentProject.Connection,adOpenDynamic,adLockOptimisticWithrstInsert.AddNew!用户名=Me.用户名.UpdateEndWithrstInsert.CloseSetrstInsert=NothingDoCmd.CloseEndIfrst.CloseSetrst=NothingExit_cmdYes_Click:ExitSuber:MsgBoxErr.DescriptionResumeExit_cmdYes_C
6、lick上面字打错了，是不能狗区分管理员和用户的权限，而且即使是我不用窗体登录也可随便修改数据库，要入何修改才可以分清管理员权限而且如果不用密码登录就不能打开数据库啊，我的qq是692153207，求高手解答，万分感激。建议：可使用微信的“扫一扫”功能扫描下载分享到：2011-06-2111:36提问者采纳那是你代码写的问题,登陆和权限没有关系,access的权限不强,只能这样控制了,你要做的是判断提交过来的资料是否可以被当前用户处理,不能就直接结束程序或者是跳过就好了追问如何判断提交过来的资料是否可以被当前用户处理,不能就直接结束程序或者是跳过就好了，登录窗体可以识别是不是用户登录，但问题在
7、于，即使我没有登录，程序也不会结束，我仍然可以继续编辑数据库，这样登录窗体就失去意义了，关键是如何直接结束在登录密码错误的情况下，谢谢！回答整个判断啊.判断是不是已经登陆就好了,登陆成功,将数据记录到session里面,你们老师没有说过吗?判断可不可以操作,就在用户表里面加个权限字段,表示是不是管理员啊,然后,操作的时候,检查下是不是权限足够了,就可以了啊提问者评价谢谢！老师没讲过，是说过用安全向导做，再加上我上课没听，下来都是自己自学的，很多都不懂，不过谢谢！评论
8、给力0不给力0ACCESS登录窗口2关于access登录窗口代码！！！2010-01-0301:48bradcheng
9、分类：数
10、据库DB
11、浏览2704次PrivateSublogin_ok_Click()DimuserIDAsIntegerIfIsNull(Me.Com用户)=FalseThenIfDLookup("[密码]","系统用户","[用户名]='"&Com用户&"'")=Me.txt密码ThenuserID=DLookup("[id]","系统用户","[用户名]="""&Com用户&"""")DoCmd.CloseDoCmd.OpenForm"主窗口"Form-主窗口.User=userIDElsetxt密码=""txt密码.SetFocusMsgBox"密码错误!",vbCriticalEndIfEnd
12、IfEndSub请问这段代码哪儿有问题？点“确定”就是没反应。新手！！！谢谢高手了！分享到：2010-01-0307:36提问者采纳程序比较乱，说access登录窗口，但没有发现连接数据库的关键语句。很多不知道是控件还是其他，其实access登录窗口是特别简单的，只要使用文本框中的数据和数据库的数据进行对比即可。给你代码参考：PrivateSubCommand1_Click()'登录确认Dimsq
