<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 關于Access快速開發平臺審核權限的代碼優化-Victor Duane
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access開發平臺


      關于Access快速開發平臺審核權限的代碼優化

      發表時間:2020/1/22 9:53:27 評論(1) 瀏覽(938)  評論 | 加入收藏 | 復制
         
      摘 要:優化了審核權限與撤消審核權限按鈕代碼,集成權限管理。
      正 文:
      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)
       
       相關文章
      審核審批流程示例  【風行  2014/8/16】
      審核完成,禁止編輯  【易勛  2015/4/23】
      Access開發平臺--如何讓審核過的記錄不重復審核  【杜超  2016/4/11】
      Access開發平臺--編輯窗體中的審核按鈕如何加權限  【杜超  2016/10/23】
      審核駁回示例  【MDZZ  2017/1/9】
      Access快速開發平臺--[刪除]功能鍵如何防止刪除已審核,已完...  【ozh2k003  2019/3/27】
       
       訪客評論
      2020/1/22丘蘇洲
      我也在寫考勤,邏輯運算性能一直突破不了0.45秒一個人。多有空多交流。

      總記錄:1篇  頁次:1/1 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      Victor Duane

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5