frmcheckman.vb

人事管理系统 在使用源程序前

Class FrmCheckMan
    Inherits System.Windows.Forms.Form
    Private Sub Refresh_Check()
        If CurDep.Dep_Id <= 0 Then
            '  DGVCheck.Visible = False
            Exit Sub
        End If
        DGVCheck.Visible = True
        Dim SQLString As String
        Dim MSG As String = ""
        SQLString = "SELECT e.Emp_Id as 员工编号," & "e.Emp_Name as 员工姓名, c.DaysOfMonth as 当月天数, c.qqDays as 全勤天数," & "c.bjDays as 病假天数, c.sjDays as 事假天数, c.kgDays as 旷工天数," & "c.fdxjDays as 法定休假天数, c.nxjDays as 年休假天数, c.dxjDays as 倒休假天数," & "c.cxDays as 出差天数, c.cdDays as 迟到天数, c.ZtDays as 早退天数," & "c.Ot1Days as 一类加班天数, c.Ot2Days as 二类加班天数, c.Ot3Days as 三类加班天数" & " FROM Employees e, Checkin c WHERE c.CheckinMonth='" & ComboY.Text & "-" & ComboM.Text & "' And e.Emp_Id=c.Emp_Id" & " And e.Dep_Id=" & Trim(Str(CurDep.Dep_Id))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        DGVCheck.DataSource = DTable
        DGVCheck.Refresh()
    End Sub


    Private Sub Cmd_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Back.Click
        Me.Close()
    End Sub



    Private Sub ComboDep_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboDep.Enter
        ComboY.Focus()
        '设置frmdepsel窗体的位置
        FrmDepSel.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Left) + VB6.PixelsToTwipsX(ComboDep.Left) + 350 - VB6.PixelsToTwipsX(FrmDepSel.Width))
        FrmDepSel.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Top) + VB6.PixelsToTwipsY(ComboDep.Top) + VB6.PixelsToTwipsY(ComboDep.Height) + 450)
        FrmDepSel.ShowDialog()
        '将选择的员工姓名显示到ComboUpper控件中
        ComboDep.Text = CurDep.Dep_name
        Refresh_Check()
    End Sub


    Private Sub ComboM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboM.SelectedIndexChanged
        Refresh_Check()
    End Sub


    Private Sub ComboY_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboY.SelectedIndexChanged
        Refresh_Check()
    End Sub

    Private Sub FrmCheckMan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Object
        Dim yy As Object
        Dim mm As Short
        '初始化窗体控件
        For i = 1999 To 2100
            ComboY.Items.Add(Trim(Str(i)))
        Next
        For i = 1 To 12
            ComboM.Items.Add(Trim(Str(i)))
        Next
        yy = Year(Now)
        If yy > 1998 And yy < 2101 Then

            ComboY.Text = Trim(Str(yy))
        End If
        mm = Month(Now)
        If mm > 0 And mm < 13 Then
            ComboM.Text = Trim(Str(mm))
        End If
        ComboDep.Text = ""
        CurDep.Init()
        Refresh_Check()
        DGVCheck.Visible = True
    End Sub



    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        Dim lblMonth As Object
        Dim mm As Short
        FrmCheckEdit.lblMonth.Text = ComboY.Text & "-" & ComboM.Text
        mm = Val(ComboM.Text)
        Select Case mm
            Case 1, 3, 5, 7, 8, 10, 12
                FrmCheckEdit.lblDays.Text = CStr(31)
            Case 4, 6, 9, 11
                FrmCheckEdit.lblDays.Text = CStr(30)
            Case 2
                If IsDate(lblMonth + "-29") = True Then
                    FrmCheckEdit.lblDays.Text = CStr(29)
                Else
                    FrmCheckEdit.lblDays.Text = CStr(28)
                End If
        End Select
        UpperEmp.Init()
        FrmCheckEdit.ComboName.Text = ""
        FrmCheckEdit.ComboQq.SelectedIndex = 0
        FrmCheckEdit.ComboBj.SelectedIndex = 0
        FrmCheckEdit.ComboSj.SelectedIndex = 0
        FrmCheckEdit.ComboKg.SelectedIndex = 0
        FrmCheckEdit.ComboFdxj.SelectedIndex = 0
        FrmCheckEdit.ComboNxj.SelectedIndex = 0
        FrmCheckEdit.ComboDxj.SelectedIndex = 0
        FrmCheckEdit.ComboCx.SelectedIndex = 0
        FrmCheckEdit.ComboCd.SelectedIndex = 0
        FrmCheckEdit.ComboZt.SelectedIndex = 0
        FrmCheckEdit.ComboOt1.SelectedIndex = 0
        FrmCheckEdit.ComboOt2.SelectedIndex = 0
        FrmCheckEdit.ComboOt3.SelectedIndex = 0
        FrmCheckEdit.Modify = False
        FrmCheckEdit.ShowDialog()
        If FrmCheckEdit.TmpOk = True Then
            ComboDep.Text = CurDep.Dep_name
            Refresh_Check()
        End If
    End Sub

    Private Sub BtnModi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModi.Click
        '初始化FrmCheckEdit信息
        If DGVCheck.SelectedColumns Is Nothing Then
            MsgBox("请选择记录")
            Exit Sub
        End If
        FrmCheckEdit.lblMonth.Text = ComboY.Text & "-" & ComboM.Text
        FrmCheckEdit.OriEmpId = DGVCheck.SelectedRows(0).Cells(0).Value
        UpperEmp.Emp_Id = FrmCheckEdit.OriEmpId
        UpperEmp.GetInfo(UpperEmp.Emp_Id)
        FrmCheckEdit.ComboName.Text = UpperEmp.Emp_Name

        FrmCheckEdit.lblDays.Text = DGVCheck.SelectedRows(0).Cells(2).Value
        FrmCheckEdit.ComboQq.Text = DGVCheck.SelectedRows(0).Cells(3).Value
        FrmCheckEdit.ComboBj.Text = DGVCheck.SelectedRows(0).Cells(4).Value
        FrmCheckEdit.ComboSj.Text = DGVCheck.SelectedRows(0).Cells(5).Value
        FrmCheckEdit.ComboKg.Text = DGVCheck.SelectedRows(0).Cells(6).Value
        FrmCheckEdit.ComboFdxj.Text = DGVCheck.SelectedRows(0).Cells(7).Value
        FrmCheckEdit.ComboNxj.Text = DGVCheck.SelectedRows(0).Cells(8).Value
        FrmCheckEdit.ComboDxj.Text = DGVCheck.SelectedRows(0).Cells(9).Value
        FrmCheckEdit.ComboCx.Text = DGVCheck.SelectedRows(0).Cells(10).Value
        FrmCheckEdit.ComboCd.Text = DGVCheck.SelectedRows(0).Cells(11).Value
        FrmCheckEdit.ComboZt.Text = DGVCheck.SelectedRows(0).Cells(12).Value
        FrmCheckEdit.ComboOt1.Text = DGVCheck.SelectedRows(0).Cells(13).Value
        FrmCheckEdit.ComboOt2.Text = DGVCheck.SelectedRows(0).Cells(14).Value
        FrmCheckEdit.ComboOt3.Text = DGVCheck.SelectedRows(0).Cells(15).Value
        FrmCheckEdit.Modify = True
        FrmCheckEdit.ShowDialog()
        If FrmCheckEdit.TmpOk = True Then
            ComboDep.Text = CurDep.Dep_name
            Refresh_Check()
        End If
        DGVCheck.Visible = True
    End Sub

    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        Dim TmpId As Integer
        If DGVCheck.SelectedColumns Is Nothing Then
            MsgBox("请选择记录")
            Exit Sub
        End If

        TmpId = DGVCheck.SelectedRows(0).Cells(0).Value
        If MsgBox("是否删除当前行?", MsgBoxStyle.YesNo, "确认") = MsgBoxResult.Yes Then
            MyCheck.Delete(ComboY.Text & "-" & ComboM.Text, TmpId)
        End If
        Refresh_Check()
    End Sub

    Private Sub ComboDep_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboDep.SelectedIndexChanged

    End Sub
End Class