frmviewclassedit.frm

考勤机管理软件,用于统计某段时间某个部门或者某个员工在某段内迟到与早退次数.

    cmbClass.ShowIndex = 1
    cmbClass.Type = tStatic
    cmbClass.SetBtns "刷新"
    cmbClass.ButtonHeight = 20
    cmbClass.DropWidth = cmbClass.Width \ 15
    cmbClass.DataSource = bufClass
    
    
    
'======时间模式
    cmbTimeMode.ShowHeadScale = "0,20"
    cmbTimeMode.ShowHeadValue = "DataID,时间模式"
    cmbTimeMode.ShowIndex = 1
    cmbTimeMode.Type = tNormal
    cmbTimeMode.DropWidth = cmbTimeMode.Width \ 15
    cmbTimeMode.AddString "每天" + vbLf
    cmbTimeMode.AddString "每周" + vbLf
    cmbTimeMode.AddString "每月" + vbLf
    
'    cmbTimeMode.SetItemData 2, 2
    dtpBeginTime.Value = Date
    dtpEndTime.Value = Date
    m_Edit = False
End Sub

Public Sub BillEdit()
    Dim i As Integer
    If FindWindow("frmViewClass") Then
        With frmViewClass
            
        
            Me.cmbEmployee.SearchID .rstGrid.Fields("EmployeeID")
            Me.cmbTimeMode.Text = .rstGrid.Fields("TimeMode")

            
    
            If Trim(cmbTimeMode.Text) = "每周" Then
                cmbBeginTime.ShowHeadValue = "DataID,星期几"
                cmbEndTime.ShowHeadValue = "DataID,星期几"
                cmbBeginTime.DeleteAllItem
                cmbEndTime.DeleteAllItem
                dtpBeginTime.Visible = False
                dtpEndTime.Visible = False
                cmbBeginTime.Visible = True
                cmbEndTime.Visible = True
                For i = 1 To 7
                    cmbBeginTime.AddString CStr(i) + vbLf
                    cmbEndTime.AddString CStr(i) + vbLf
                Next
                            
                Me.cmbBeginTime.Text = .rstGrid.Fields("BeginTime")
                Me.cmbEndTime.Text = .rstGrid.Fields("EndTime")
            
            ElseIf Trim(cmbTimeMode.Text) = "每月" Then
                cmbBeginTime.ShowHeadValue = "DataID,某日"
                cmbEndTime.ShowHeadValue = "DataID,某日"

                cmbBeginTime.DeleteAllItem
                cmbEndTime.DeleteAllItem
                dtpBeginTime.Visible = False
                dtpEndTime.Visible = False
                cmbBeginTime.Visible = True
                cmbEndTime.Visible = True
                For i = 1 To 31
                    cmbBeginTime.AddString CStr(i) + vbLf
                    cmbEndTime.AddString CStr(i) + vbLf
                Next
                
            
                Me.cmbBeginTime.Text = .rstGrid.Fields("BeginTime")
                Me.cmbEndTime.Text = .rstGrid.Fields("EndTime")
        
            ElseIf Trim(cmbTimeMode.Text) = "时段" Then
                dtpBeginTime.Visible = True
                dtpEndTime.Visible = True
                cmbBeginTime.Visible = False
                cmbEndTime.Visible = False
                
            
                Me.dtpBeginTime.Value = .rstGrid.Fields("BeginTime")
                Me.dtpEndTime.Value = .rstGrid.Fields("EndTime")
            End If
            
'            Me.cmbBeginTime.ID = .rstGrid.Fields("BeginTime")
'            Me.cmbEndTime.ID = .rstGrid.Fields("EndTime")
            Me.cmbClass.SearchID .rstGrid.Fields("ClassID")
            Me.txtMemo.Text = .rstGrid.Fields("Memo")
            
            
        End With
    End If
    Me.Caption = "排班登记-修改"
    cmbEmployee.SetFocus
    m_Edit = True

End Sub


Private Sub cmbTimeMode_Selected()
    Dim i As Integer
    If Trim(cmbTimeMode.Text) = "每周" Then
        cmbBeginTime.ShowHeadValue = "DataID,星期几"
        cmbEndTime.ShowHeadValue = "DataID,星期几"
        cmbEndTime.Enabled = True
        cmbBeginTime.Enabled = True
        cmbBeginTime.DeleteAllItem
        
        cmbEndTime.DeleteAllItem
'        dtpBeginTime.Visible = False
'        dtpEndTime.Visible = False
        cmbBeginTime.Visible = True
        cmbEndTime.Visible = True
        For i = 1 To 7
            cmbBeginTime.AddString CStr(i) + vbLf
            cmbEndTime.AddString CStr(i) + vbLf
        Next

    ElseIf Trim(cmbTimeMode.Text) = "每月" Then
        cmbBeginTime.ShowHeadValue = "DataID,某日"
        cmbEndTime.ShowHeadValue = "DataID,某日"
        cmbEndTime.Enabled = True
        cmbBeginTime.Enabled = True
        cmbBeginTime.DeleteAllItem
        cmbEndTime.DeleteAllItem
'        dtpBeginTime.Visible = False
'        dtpEndTime.Visible = False
        cmbBeginTime.Visible = True
        cmbEndTime.Visible = True
        For i = 1 To 31
            cmbBeginTime.AddString CStr(i) + vbLf
            cmbEndTime.AddString CStr(i) + vbLf
        Next
'    End If

    ElseIf Trim(cmbTimeMode.Text) = "每天" Then
'        dtpBeginTime.Visible = True
'        dtpEndTime.Visible = True
        cmbBeginTime.DeleteAllItem
        cmbBeginTime.Enabled = False
        cmbEndTime.DeleteAllItem
        cmbEndTime.Enabled = False
    End If

        
        
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    If Trim(cmbEmployee.Text) = "" Then
        Message "请选择员工!"
        Exit Sub
    End If
    
    If IsNull(dtpBeginTime.Value) Then
        Message "请选择开始日期!"
        Exit Sub
    End If
    If IsNull(dtpEndTime.Value) Then
        Message "请选择结束日期!"
        Exit Sub
    End If
    
    If CDate(dtpBeginTime.Value) > CDate(dtpEndTime.Value) Then
            Message "结束日期不能比开始日期早!"
            Exit Sub
    End If
    
    If Trim(cmbTimeMode.Text) = "" Then
        Message "请选择时间模式!"
        Exit Sub
    End If
        
    If Trim(cmbTimeMode.Text) <> "每天" Then
        If Trim(cmbBeginTime.Text) = "" Then
            Message "请选择开始时间!"
            Exit Sub
        End If
        
        If Trim(cmbEndTime.Text) = "" Then
            Message "请选择结束时间!"
            Exit Sub
        End If
        
        If Val(cmbBeginTime.Text) > Val(cmbEndTime.Text) Then
            Message "结束时间不能比开始时间早!"
            Exit Sub
        End If
    End If
    
    If Trim(cmbClass.Text) = "" Then
        Message "请选择班次!"
        Exit Sub
    End If
    
    
    SQL = "insert into SetClass(EmployeeID,BeginDate,EndDate,TimeMode," _
        & "BeginTime,EndTime,ClassID,Memo1,AddClass) Values( " _
        & cmbEmployee.ID & "," _
        & "'" & Format(dtpBeginTime.Value, "yyyy-mm-dd") & "'," _
        & "'" & Format(dtpEndTime.Value, "yyyy-mm-dd") & "'," _
        & "'" & cmbTimeMode.Text & "'," _
        & "'" & cmbBeginTime.Text & "'," _
        & "'" & cmbEndTime.Text & "'," _
        & cmbClass.ID & "," _
        & "'" & txtMemo.Text & "'," _
        & CStr(0) & ")"
    Debug.Print SQL
    con.Execute SQL
    

    If FindWindow("frmViewClass") Then
        With frmViewClass
'            If m_Edit = False Then
'                .rstGrid.AddNew
'            End If
'            .rstGrid.Fields("EmployeeID") = cmbEmployee.ID
'            .rstGrid.Fields("EmployeeName") = cmbEmployee.Text
'            .rstGrid.Fields("BeginDate") = Format(dtpBeginTime.Value, "yyyy-mm-dd")
'            .rstGrid.Fields("EndDate") = Format(dtpEndTime.Value, "yyyy-mm-dd")
'            .rstGrid.Fields("TimeMode") = cmbTimeMode.Text
'
'            If Trim(cmbTimeMode.Text) <> "时段" Then
'                .rstGrid.Fields("BeginTime") = cmbBeginTime.Text
'                .rstGrid.Fields("EndTime") = cmbEndTime.Text
'            Else
'                .rstGrid.Fields("BeginTime") = Format(dtpBeginTime.Value, "yyyy-mm-dd")
'                .rstGrid.Fields("EndTime") = Format(dtpEndTime.Value, "yyyy-mm-dd")
'            End If
'
'            .rstGrid.Fields("ClassName") = cmbClass.Text
'            .rstGrid.Fields("ClassID") = cmbClass.ID
'            .rstGrid.Fields("Memo1") = txtMemo.Text
'            .rstGrid.Update
            
            .rstGrid.Requery
            .Grid.ReFetch
            Unload Me
'            .Grid.RefreshNew
'            .RefreshGrid
'            .rstGrid.Requery
'            .Grid.Refresh
'            .Grid.ReFetch
        End With
    Else
        Unload Me
    End If
End Sub