关于Access快速开发平台审核权限的代码优化-Victor Duane
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


关于Access快速开发平台审核权限的代码优化

发表时间:2020/1/22 9:53:27 评论(1) 浏览(6463)  评论 | 加入收藏 | 复制
   
摘 要:优化了审核权限与撤消审核权限按钮代码,集成权限管理。
正 文:
Private Sub btnAudit_Click()
    UpdData Me.btnAudit
    Call CurrentPermissions
End Sub

Private Sub btnUndoAudit_Click()
    UpdData Me.btnUndoAudit
    Call CurrentPermissions
End Sub

Private Sub Form_Load()
    ApplyTheme Me
    LoadLocalLanguage Me
    
    If Nz(Me.OpenArgs) <> "" Then
        LoadRecord Me, "Select * FROM [tbl考勤账套设置] Where [ID]=" & Nz(Me.OpenArgs, 0)
    End If

    If Me.DataEntry Then
        Me![ID] = Null
        Me.Creator = myNickName
    End If
'    Me.btnSave.Enabled = Me.AllowEdits
    Call CurrentPermissions
End Sub


Public Sub CurrentPermissions()
    Me.btnAudit.Enabled = False
    Me.btnUndoAudit.Enabled = False
    Me.btnSave.Enabled = Me.AllowEdits
    
    If Nz(Me.OpenArgs) <> "" Then
        If Me.关账 Then
            EnableButton Me.btnUndoAudit, HasPermission("考勤账套设置", "Undo Audit")
            Me.btnSave.Enabled = False
        Else
            EnableButton Me.btnAudit, HasPermission("考勤账套设置", "Audit")
        End If
    End If
    
End Sub
Public Sub UpdData(ctl As Control)
    Dim UpdDataFlag As Boolean
    Dim strSQL As String
    Dim strMsg As String
    
    Dim blnBook As Boolean
    Dim dtmLastSaveTime As Date
    Dim strLastSaveBy As String
    
    UpdDataFlag = ctl.Enabled
    
    dtmLastSaveTime = Now
    strLastSaveBy = myNickName
    
    If ctl.Name = "btnAudit" Then
        blnBook = True
        strMsg = "该期间的考勤数据即将通过审核," & vbCrLf _
                & "通过审核后,当期考勤数据将不能修改," & vbCrLf _
                & "是否通过审核?"
    ElseIf ctl.Name = "btnUndoAudit" Then
        blnBook = False
        strMsg = "该期间的考勤数据即将撤消审核," & vbCrLf _
                & "撤消审核后,当期考勤数据将可以修改," & vbCrLf _
                & "是否撤消审核?"
    End If
    
    strSQL = "Update tbl考勤账套设置 " _
        & " SET 关账 = " & blnBook & ", LastSaveTime =#" & dtmLastSaveTime & "# , LastSaveBy = '" & myNickName & "'" _
        & " Where [ID]=" & Nz(Me![ID], 0)
        
    If UpdDataFlag Then
        If MsgBox(strMsg, vbOKCancel + vbInformation, "提示") = vbOK Then
            CurrentDb.Execute strSQL
            MsgBox "数据修改成功!", vbOKOnly + vbInformation, "提示"
            Me.关账 = blnBook
            Me.LastSaveBy = strLastSaveBy
            Me.LastSaveTime = dtmLastSaveTime
        End If
    End If
    
End Sub



Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access审核审批流程示例;Access窗体进行审批流操作,Ac...  【风行  2014/8/16】
已审核完成,禁止编辑数据  【易勋  2015/4/23】
Access开发平台--如何让审核过的记录不重复审核  【杜超  2016/4/11】
Access开发平台--编辑窗体中的审核按钮如何加权限  【杜超  2016/10/23】
Access快速开发平台--审核驳回示例  【MDZZ  2017/1/9】
Access快速开发平台--[删除]功能键如何防止删除已审核,已完...  【ozh2k003  2019/3/27】
常见问答
技术分类
相关资源
文章搜索
关于作者

Victor Duane

文章分类

文章存档

友情链接