栋栋的个人博客

Access-常用功能解析-01-账户权限管理

  • 951 字

Part 1：本篇目标

  1. 根据打开软件的不同用户，赋予不同操作权限
  2. 本质上就是将一部分控件禁用，一部分控件启用
  3. 如下图所示，打开窗体时，禁用按钮非管理员按钮，启用按钮管理员按钮，在文本框中写入当前登录账户

效果图

图片

Part 2：实现步骤

  1. 画出设计图，文本框名称为txt1*，管理员按钮名称为*cmd1**，非管理员按钮名称为cmd2**

界面设计

图片

Part 3：代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Load()  
    currentUserName = Environ("username")  
    Debug.Print (currentUserName)     
    Set frm = Forms("窗体1")    
    Set ctrl1 = frm.Controls("cmd1")  
    Set ctrl2 = frm.Controls("cmd2") 
    Set ctrl3 = frm.Controls("txt1")      
    If currentUserName = "Administrator" Then     
        ctrl1.Enabled = True    
        ctrl2.Enabled = False 
    Else    
        ctrl1.Enabled = False      
        ctrl2.Enabled = True  
    End If     
    ctrl3.Value = currentUserName  
End Sub

代码截图

图片

Part 3：部分代码解读

  1. currentUserName = Environ("username")获取当前登录账户
  2. ctrl1.Enabled = True启用控件ctrl1
  3. ctrl2.Enabled = False禁用控件ctrl2
  4. ***Private Sub Form_Load()***，窗体启动事件
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
, , ,