Access快速开发平台--分享一段权限代码-雨泉
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


Access快速开发平台--分享一段权限代码

发表时间:2019/2/17 21:31:13 评论(1) 浏览(5830)  评论 | 加入收藏 | 复制
   
摘 要:权限
正 文:

今晚抽空搞了个权限代码:


  Set rstUser = OpenADORecordset("Select Sys_Users.Nickname FROM Sys_Users", adLockReadOnly)

      If IsLoaded("SysFrmMain") = True Then
         Me.制单人 = Forms!SysFrmMain.Nickname    '该昵称在SysFrmMain窗体,所以必须让SysFrmMain窗体处于打开状态
         Me.制单人.Locked = True    '锁定,不允许修改
      End If
    
    '根据制单人  确定业务权限——采购员
    DoCmd.RunSQL "Insert INTO TMP_权限明细表(权限名称,用户名称)  Select 权限名称,用户名称 FROM 权限明细表 Where 模块名称 = '采购管理'; "
        
      '----------------权限设定代码------
    Dim strStatus As String
     If DCount("权限名称", "TMP_权限明细表", "用户名称='" & Me.制单人 & "'") = 0 Then      '当制单人无权限时,则功能按钮全部隐藏
           Me.采购审核.Visible = False
           Me.库管审核.Visible = False
           Me.会计审核.Visible = False
           Me.停用.Visible = False
      Else
          Me.结果 = DLookup("权限名称", "TMP_权限明细表", "用户名称='" & Me.制单人 & "'")
          Me.汇总单号.SetFocus
          strStatus = Me.结果
          Select Case strStatus
        Case "采购接收申购单"
           Me.采购审核.Visible = True
           Me.库管审核.Visible = False
           Me.会计审核.Visible = False
           Me.停用.Visible = False
        
        Case "库管审核申购单"
           Me.采购审核.Visible = False
           Me.库管审核.Visible = True
           Me.会计审核.Visible = False
           Me.停用.Visible = False
        
        Case "会计审核申购单"
           Me.采购审核.Visible = False
           Me.库管审核.Visible = False
           Me.会计审核.Visible = True
           Me.停用.Visible = True
        End Select
           Me.结果.Locked = True '锁定该文本框
    End If
    '----------------代码     结束------

Access软件网交流QQ群(群号:198465573)
 
 相关文章
快速开发平台--“禁用权限定义”的作用  【宏鹏  2017/5/3】
新版平台2.4树控件权限异常,运行时错误91的解决方法  【KevinFan  2017/7/8】
Access开发平台--对窗体数据字段的权限控制  【杜超  2017/8/7】
Access快速开发平台批量添加权限控制代码  【红尘如烟  2017/11/1】
快速开发平台2.4版:自定义按钮的标题、图标、权限代码  【杨雪  2017/11/7】
常见问答
技术分类
相关资源
文章搜索
关于作者

雨泉

文章分类

文章存档

友情链接