之前access权限的设置一直没有好的主意,
看了这个程序之后思路打开,首先用一个函数mdctPermissionList去检测权限表格,
返回值为true false,传入参数是权限的名称,
如果有此权限,就显示此权限的相应控件,
如果无此权限,就隐藏此权限的相应控件
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Set mdctPermissionList = LoadPermissions("单证配舱信息管理", Me)
If Not mdctPermissionList("<Access Module>") Then
Exit Sub
End If
On Error Resume Next
EnableButton Me.btnAdd, mdctPermissionList("Add")
EnableButton Me.btnEdit, mdctPermissionList("Edit")
EnableButton Me.btnDelete, mdctPermissionList("Delete")
EnableButton Me.btnImport, mdctPermissionList("Import")
EnableButton Me.btnExport, mdctPermissionList("Export")
If mdctPermissionList("排柜") = True Then
Me.btnTomorrow.Enabled = True
Me.btnAfterTomorrow.Enabled = True
Me.btnThreeDaysAfterNow.Enabled = True
Me.btnVanning.Enabled = True
Me.btnVanningCancel.Enabled = True
Me.btnTomorrow2.Enabled = True
Me.btnAfterTomorrow2.Enabled = True
Me.btnThreeDaysAfterNow2.Enabled = True
Me.btnVanning2.Enabled = True
Me.btnVanningCancel2.Enabled = True
Else
Me.btnTomorrow.Enabled = False
Me.btnAfterTomorrow.Enabled = False
Me.btnThreeDaysAfterNow.Enabled = False
Me.btnVanning.Enabled = False
Me.btnVanningCancel.Enabled = False
Me.btnTomorrow2.Enabled = False
Me.btnAfterTomorrow2.Enabled = False
Me.btnThreeDaysAfterNow2.Enabled = False
Me.btnVanning2.Enabled = False
Me.btnVanningCancel2.Enabled = False
End If
If mdctPermissionList("业务确认") = True Then
Me.btnConfirm.Enabled = True
Me.btnNOGO.Enabled = True
Me.btnCancel.Enabled = True
Me.btn_备注.Enabled = True
Else
Me.btnConfirm.Enabled = False
Me.btnNOGO.Enabled = False
Me.btnCancel.Enabled = False
Me.btn_备注.Enabled = False
End If
ApplyTheme Me
LoadLocalLanguage Me
End Sub