?? frm_rpt_kaoqinyc_z.frm

?? 考勤系統,智能判斷刷卡異常,是一大型ERP系統的一個分支
?? FRM
?? 第 1 頁 / 共 4 頁
字號:
                stmp = .GetFindVar1
                iHour = Val(.GetFindVar2)
                End With
                
                If stmp <> "" Then
                strSQL = "insert into Yuanyin(emplyid,yuanyinLX,Djdate,hours,ratifier,makeid,bzsm) values('" & DataGrid1.Columns(0).Text & "','特殊原因','" & DataGrid1.Columns(2).Text & "'," & iHour & ",'" & UserName & "','" & OperID & "','" & stmp & "')"
                mDB.ExecuteSQL strSQL
        strSQL = "update wktmrslt set QueRen=4,latertime1=0,earlytime1=0,latertime2=0,earlytime2=0,datwktm=" & standwktm & ",memo='" & stmp & "' where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
      mDB.ExecuteSQL strSQL
      Toolbar1_ButtonClick Toolbar1.Buttons(3)
                Else
                
                Exit Sub
                End If
            Case 3
            ''''''''''''''漏刷卡；（不扣工時）
               With sForm
                .GetFindV2 "請輸入漏刷卡原因備注和工時：", "漏刷卡原因：", "工時："
                stmp = .GetFindVar1
                iHour = Val(.GetFindVar2)
                End With
                
                If stmp <> "" Then
                strSQL = "insert into Yuanyin(emplyid,yuanyinLX,Djdate,hours,ratifier,makeid,bzsm) values('" & DataGrid1.Columns(0).Text & "','漏刷卡','" & DataGrid1.Columns(2).Text & "'," & iHour & ",'" & UserName & "','" & OperID & "','" & stmp & "')"
                mDB.ExecuteSQL strSQL
        strSQL = "update wktmrslt set QueRen=6,datwktm=" & standwktm & ",memo='漏刷卡:" & stmp & "' where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
      mDB.ExecuteSQL strSQL
      
      
      
      Toolbar1_ButtonClick Toolbar1.Buttons(3)
                Else
                
                Exit Sub
                End If
              Case 5
              ''''''''''請假；（扣工時）
            strSQL = "select holidayid,holidaydecs from holidaykind"
            Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
                With Frm_Kao_holiday_Z
                .endtm1 = endtm1
                .bgtm2 = bgntm2
                
                  .txtFields(0).Text = DataGrid1.Columns(0).Text
                    .txtFields(1).Text = DataGrid1.Columns(1).Text
                    .Check1 = 1
                    .DTPicker1(0).Value = DataGrid1.Columns(2).Text
                    .DTPicker1(1).Value = DataGrid1.Columns(2).Text
                    '.txtFields(2).Text = DataGrid1.Columns(0).Text
                   Set .DataCombo1(0).RowSource = adoprimaryRS
                   .DataCombo1(0).BoundColumn = "holidayid"
                   .DataCombo1(0).ListField = "holidaydecs"
                   .DataCombo1(0).Refresh
                   
                    .txtFields(3).Text = UserName
                    .Show vbModal
                End With
            
          
            
            Case 6
            '''''''''''''''休息；（扣工時）
               With sForm
                .GetFindV2 "請輸入原因備注和調休工時：", "調休原因：", "調休工時："
                stmp = .GetFindVar1
                iHour = Val(.GetFindVar2)
                End With
                
                If stmp <> "" Then
                If standwktm - iHour - tDatWktm < 0.1 Then
                    strSQL = "insert into Yuanyin(emplyid,yuanyinLX,Djdate,hours,ratifier,makeid,bzsm) values('" & DataGrid1.Columns(0).Text & "','調休','" & DataGrid1.Columns(2).Text & "'," & iHour & ",'" & UserName & "','" & OperID & "','" & stmp & "')"
                    mDB.ExecuteSQL strSQL
                    strSQL = "update wktmrslt set QueRen=3,holidaysum=" & standwktm - tDatWktm & ",memo='" & stmp & "' where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
                    mDB.ExecuteSQL strSQL
                    Toolbar1_ButtonClick Toolbar1.Buttons(3)
                Else
                MsgBox "你確認的休息時間不夠。請退出重新確認。"
                Exit Sub
                
                End If
                Else
                
                Exit Sub
                End If
            
            Case 7
            ''''''''（遲到、早退、曠工）；（扣工時）在核算時已經扣工時，在此不變；
            
            If MsgBox("", vbYesNo) = vbYes Then
            strSQL = "update wktmrslt set QueRen=7 where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
            mDB.ExecuteSQL strSQL
            Toolbar1_ButtonClick Toolbar1.Buttons(3)
            
            End If
            
            Case 8
            ''''''''（遲到、早退、曠工）+漏刷卡；（扣工時）只扣（遲到、早退、曠工）部分工時；
            If MsgBox("", vbYesNo) = vbYes Then
            strSQL = "update wktmrslt set QueRen=7,datwktm=" & standwktm - tLaterEarly & ",memo='（遲到、早退、曠工）+漏刷卡'  where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
            mDB.ExecuteSQL strSQL
            Toolbar1_ButtonClick Toolbar1.Buttons(3)
            
            End If
            
'With sForm
' .GetFindV2 "請輸入原因備注或處理建議：", "原因：", "工時："
' sTmp = .GetFindVar1
' iHour = Val(.GetFindVar2)
' End With
'
' If sTmp <> "" Then
' strSQL = "insert into Yuanyin(emplyid,yuanyinLX,Djdate,hours,ratifier,makeid,bzsm) values('" & DataGrid1.Columns(0).Text & "','無原因','" & DataGrid1.Columns(2).Text & "'," & iHour & ",'" & UserName & "','" & OperID & "','" & sTmp & "')"
' mDB.ExecuteSQL strSQL
'strSQL = "update wktmrslt set QueRen=7 where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
'mDB.ExecuteSQL strSQL
'Toolbar1_ButtonClick Toolbar1.Buttons(3)
' Else
'
' Exit Sub
' End If
            Case 10
    
                'strSQL = "select dptname as 部門,empcrdtm.emplyid as 工號,emplyname as 姓名,cdatetime as 時間 from depart,emply,empcrdtm where depart.dptid=emply.dptid and emply.emplyid=empcrdtm.emplyid and emply.emplyid='" & DataGrid1.Columns(0).Text & "' and cdatetime between '" & DTPicker1(0).Value & " 05:01:00' and '" & DTPicker1(1).Value + 1 & "  05:00:00'"         '' order by empcrdtm.emplyid,cdatetime"
                strSQL = "select dptname as 部門,empcrdtm.emplyid as 工號,emplyname as 姓名,cdatetime as 時間 from depart,emply,empcrdtm where depart.dptid=emply.dptid and emply.emplyid=empcrdtm.emplyid and emply.emplyid='" & DataGrid1.Columns(0).Text & "' and cdatetime between '" & bgnwktm1 & "' and '" & bgnwktm1END & "'"         '' order by empcrdtm.emplyid,cdatetime"
                Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
                Dim frmY As New NM_Bas
                With frmY
                    .Caption = DataGrid1.Columns(1).Text & DataGrid1.Columns(2).Text & "--原始考勤記錄"
                    .reload_datagrid adoprimaryRS
                    .Show vbModal
                End With
                Set frmY = Nothing
    
        End Select
        
        
        
    
    End If
    Exit Sub
Err1:
DisPlayErr Err
End Sub
Public Sub DJ_holiday()
With Frm_Kao_holiday_Z
      If .bSave Then
      strSQL = "select * from holidayreg where 1=2"
      Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
      adoprimaryRS.AddNew
      adoprimaryRS.Fields("emplyid").Value = .txtFields(0).Text
      adoprimaryRS.Fields("holidayid").Value = .DataCombo1(0).BoundText
      If .Check1 = 1 Then
      adoprimaryRS.Fields("bgndatetime").Value = .DTPicker1(0).Value
      adoprimaryRS.Fields("enddatetime").Value = .DTPicker1(1).Value
      adoprimaryRS.Fields("isday").Value = 1
      
      Else
      adoprimaryRS.Fields("bgndatetime").Value = .DTPicker1(0).Value & " " & .SETIMER1(0).Text
      adoprimaryRS.Fields("enddatetime").Value = .DTPicker1(1).Value & " " & .SETIMER1(1).Text
      adoprimaryRS.Fields("isday").Value = 0
      End If
        adoprimaryRS.Fields("makeid").Value = emplyid
        adoprimaryRS.Fields("hours").Value = IIf(.txtFields(2).Text = "", 0, .txtFields(2).Text)
        adoprimaryRS.Fields("ratifier").Value = .txtFields(3).Text
        adoprimaryRS.Fields("bzsm").Value = .txtFields(4).Text
        adoprimaryRS.Update
        '''strSQL = "update wktmrslt set QueRen=1 where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
        strSQL = "update wktmrslt set QueRen=1,latertime1=0,earlytime1=0,latertime2=0,earlytime2=0,holidaysum=" & IIf(.txtFields(2).Text = "", 0, .txtFields(2).Text) & ",datwktm=" & standwktm - IIf(.txtFields(2).Text = "", 0, .txtFields(2).Text) & " where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
      mDB.ExecuteSQL strSQL
      Toolbar1_ButtonClick Toolbar1.Buttons(3)

      End If
End With
Unload Frm_Kao_holiday_Z
End Sub
Public Sub DJ_evection()
With Frm_Kao_Evection_Z
      If .bSave Then
      strSQL = "select * from evectionreg where 1=2"
      Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
      adoprimaryRS.AddNew
      adoprimaryRS.Fields("emplyid").Value = .txtFields(0).Text
      adoprimaryRS.Fields("evectionid").Value = .DataCombo1(0).BoundText
      If .Check1 = 1 Then
      adoprimaryRS.Fields("bgndatetime").Value = .DTPicker1(0).Value
      adoprimaryRS.Fields("enddatetime").Value = .DTPicker1(1).Value
      adoprimaryRS.Fields("isday").Value = 1
      
      Else
      adoprimaryRS.Fields("bgndatetime").Value = .DTPicker1(0).Value & " " & .SETIMER1(0).Text
      adoprimaryRS.Fields("enddatetime").Value = .DTPicker1(1).Value & " " & .SETIMER1(1).Text
      adoprimaryRS.Fields("isday").Value = 0
      End If
        adoprimaryRS.Fields("makeid").Value = emplyid
        adoprimaryRS.Fields("hours").Value = IIf(.txtFields(2).Text = "", 0, .txtFields(2).Text)
        adoprimaryRS.Fields("ratifier").Value = .txtFields(3).Text
        adoprimaryRS.Fields("bzsm").Value = .txtFields(4).Text
        adoprimaryRS.Update
'        strSQL = "update wktmrslt set QueRen=2 where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
        strSQL = "update wktmrslt set QueRen=2,latertime1=0,earlytime1=0,latertime2=0,earlytime2=0,evectionsum=" & IIf(.txtFields(2).Text = "", 0, .txtFields(2).Text) & ",datwktm=" & standwktm & " where emplyid='" & DataGrid1.Columns(0).Text & "' and caldate='" & DataGrid1.Columns(2).Text & "'"
      mDB.ExecuteSQL strSQL
      Toolbar1_ButtonClick Toolbar1.Buttons(3)

      End If
End With
Unload Frm_Kao_Evection_Z
End Sub
Private Sub DTPicker1_CloseUp(Index As Integer)
    Dim d As Date
    Dim d1 As Date
    Select Case Index
        Case 0
            d = DTPicker1(0).Value
            d1 = DateAdd("m", 1, d)
            DTPicker1(1).Value = DTPicker1(0).Value       ''' DateSerial(Year(d1), Month(d1), 1) - 1

        Case 1
    End Select

End Sub

    ' =====================================================

    ' =====================================================
    ' =====================================================
    ' =====================================================



    ' =====================================================

Private Sub Form_Load()
    Set mDB = New mDB
    
'    strconnDR = SQLConnKQ
    
    mDB.InitDB_RY strconnDR
    '    mDB.InitDB_RY SQLConnDR

    '    SaveSetting "temp", "tempint", "tmpi", 2
    
'Frm_Login.Show vbModal

''strSQL = "select count(*) from depart where managerid='" & emplyid & "'"
''Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
''If adoprimaryRS(0).Value = 0 Then
''MsgBox "沒有部門需要你確認，請聯系管理員。"
''End
''End If



    ''strSQL = "select dptid,dptname from depart"
    '    strSQL = "select dptid,dptname from depart where ify=1 order by dptname asc"
    'Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
    '
    '        With DataCombo1
    '            Set .RowSource = adoprimaryRS
    '            .BoundColumn = "dptID"
    '            .ListField = "dptname"
    '           .Refresh
    '        End With





'    Me.Move 0, 0, width00 - 80, height00 - 80

    'strSQL4 = "select ID,iYear,iMonth,emplyid,emplyname,iFen,iDay from NM_ZaGong where iYear=" & Combo1(0).Text & " and iMonth=" & Combo1(1).Text
    'Set adoprimaryRS4 = mDB.adoprimaryRS(strSQL4)
    '
    '
    ''Reload_DataGrid
    'Toolbar1_ButtonClick Toolbar1.Buttons(3)

    'Option1(0).Value = True
    Option2(1).Value = True

    sFldString = GetSqlString()
    DTPicker1(0).Value = Date - 8    ''''' DateSerial(Year(Date), Month(Date), 1)
    DTPicker1(1).Value = Date - 1

Toolbar1_ButtonClick Toolbar1.Buttons(3)

End Sub




Private Sub Form_Resize()
    If Me.height < 2000 Then Exit Sub
    Frame1.width = Me.width - 300 - 2060
    DataGrid1.Move 100, 1440, Frame1.width + 2060, Me.height - 1880
End Sub

    ' =====================================================

    
    ' =====================================================

Private Sub Form_Unload(Cancel As Integer)
    mDB.KillDB
    Set mDB = Nothing
End Sub









Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error GoTo Err1

    Select Case Button.Index
        Case 1
?? 文件大小 2195 K
?? 上傳用戶 LIBIN200788
?? 所屬分類 SQL Server
??? 相關標簽

#ERP #考勤系統 #大型 #分支
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frm_rpt_kaoqinyc_z.frm

?? 快捷鍵說明
