ACCESS 有权限登要求 录窗口集锦.docxVIP

ACCESS登录权限 1我做了一个access的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限， 2011-06-21 11:26昏睡的猫1号|分类：数据库DB|浏览621次我做了一个access的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限，也就是说我那个登录窗体即使不用密码登录也可以关闭和打开数据库，求不能够区分管理员和用户，两者都可以修改数据库，这是我的代码Private Sub cmdYes_Click()On Error GoToer If IIf(IsNull(Me.用户名), , Me.用户名) = Or IIf(IsNull(Me.密码), , Me.密码) = ThenMsgBox 请输入用户名和密码！, vbInformation, 登录 Me.用户名.SetFocus Exit Sub End If Dim rst As New ADODB.Recordsetrst.Open select 用户名 from 用户 where 用户名= Me.用户名 and 密码= Me.密码 , CurrentProject.AccessConnection, adOpenForwardOnly, adLockReadOnly If rst.EOF ThenMsgBox 用户名或密码错误，请重新输入！, vbCritical, 登录 Me.用户名.SetFocus Else 记录登录用户名和登录时间 Dim rstInsert As New ADODB.RecordsetrstInsert.Open 登陆日志, CurrentProject.Connection, adOpenDynamic, adLockOptimistic With rstInsert .AddNew !用户名 = Me.用户名 .Update End WithrstInsert.Close Set rstInsert = NothingDoCmd.Close End Ifrst.Close Set rst = NothingExit_cmdYes_Click: Exit Suber:MsgBoxErr.Description Resume Exit_cmdYes_Click上面字打错了，是不能狗区分管理员和用户的权限，而且即使是我不用窗体登录也可随便修改数据库，要入何修改才可以分清管理员权限而且如果不用密码登录就不能打开数据库啊，我的qq是692153207，求高手解答，万分感激。建议：可使用微信的“扫一扫”功能扫描下载分享到：2011-06-21 11:36 提问者采纳那是你代码写的问题,登陆和权限没有关系,access的权限不强,只能这样控制了,你要做的是判断提交过来的资料是否可以被当前用户处理,不能就直接结束程序或者是跳过就好了追问如何判断提交过来的资料是否可以被当前用户处理,不能就直接结束程序或者是跳过就好了，登录窗体可以识别是不是用户登录，但问题在于，即使我没有登录，程序也不会结束，我仍然可以继续编辑数据库，这样登录窗体就失去意义了，关键是如何直接结束在登录密码错误的情况下，谢谢！回答整个判断啊.判断是不是已经登陆就好了,登陆成功,将数据记录到session里面,你们老师没有说过吗?判断可不可以操作,就在用户表里面加个权限字段,表示是不是管理员啊,然后,操作的时候,检查下是不是权限足够了,就可以了啊提问者评价谢谢！老师没讲过，是说过用安全向导做，再加上我上课没听，下来都是自己自学的，很多都不懂，不过谢谢！评论|给力0不给力0ACCESS 登录窗口2关于access登录窗口代码！！！ 2010-01-03 01:48bradcheng|分类：数据库DB|浏览2704次Private Sub login_ok_Click()Dim userID As Integer If IsNull(Me.Com用户) = False Then If DLookup([密码], 系统用户, [用户名]= Com用户 ) = Me.txt密码 ThenuserID = DLookup([id], 系统用户, [用户名]= Com用户 )DoCmd.CloseDoCmd.OpenForm 主窗口 Form -主窗口.User = userID Else txt密码 = txt密码.SetFocusMsgBox 密码错误!, vbCritical End If