frmevaman.vb

vb2005人事管理系统源码

Class FrmEvaMan
    Inherits System.Windows.Forms.Form
    Private Sub Refresh_Eva()
        If CurDep.Dep_Id <= 0 Then
            ' DGVEva.Visible = False
            Exit Sub
        End If
        DGVEva.Visible = True
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT e.Emp_Id as 员工编号," & "e.Emp_Name as 员工姓名, c.Performance as 工作业绩," & "c.SupervisorEvaluation as 领导评价," & "c.PrizeFactor1 as 领导奖金系数," & "c.HrEvaluation as 人事部门评价," & "c.PrizeFactor2 as 人事奖金系数" & " FROM Employees e, Evaluation c WHERE c.EvaMonth='" & 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)
        DGVEva.DataSource = DTable
        DGVEva.Refresh()
    End Sub


    Private Sub Check1_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Check1.CheckStateChanged
        If Check1.CheckState = 1 Then
            Label2.Visible = False
            ComboDep.Visible = False
        Else
            Label2.Visible = True
            ComboDep.Visible = True
        End If
        Refresh_Eva()
    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_Eva()
    End Sub

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

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

    Private Sub FrmEvaMan_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_Eva()
    End Sub

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        FrmEvaEdit.lblMonth.Text = ComboY.Text & "-" & ComboM.Text
        UpperEmp.Init()
        FrmEvaEdit.ComboName.Text = ""
        FrmEvaEdit.txtEva.Text = ""
        FrmEvaEdit.txtPerformance.Text = ""
        FrmEvaEdit.ComboFactor.Text = "100"
        If (Check1.Visible = True And Check1.CheckState = 1) Or Check1.Visible = False Then
            FrmEvaEdit.HrFlag = False
        Else
            FrmEvaEdit.HrFlag = True
            FrmEvaEdit.Label11.Text = "人事部门评价"
        End If
        FrmEvaEdit.Modify = False
        FrmEvaEdit.ShowDialog()
        If FrmEvaEdit.TmpOk = True Then
            ComboDep.Text = CurDep.Dep_name
            Refresh_Eva()
        End If
    End Sub

    Private Sub BtnModi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModi.Click
        '初始化frmevaedit信息
        If DGVEva.SelectedColumns Is Nothing Then
            MsgBox("请选择记录")
            Exit Sub
        End If
        FrmEvaEdit.lblMonth.Text = ComboY.Text & "-" & ComboM.Text
        FrmEvaEdit.OriEmpId = DGVEva.SelectedRows(0).Cells(0).Value
        UpperEmp.Emp_Id = FrmEvaEdit.OriEmpId
        UpperEmp.GetInfo(UpperEmp.Emp_Id)
        FrmEvaEdit.ComboName.Text = UpperEmp.Emp_Name
        FrmEvaEdit.txtPerformance.Text = DGVEva.SelectedRows(0).Cells(2).Value
        If (Check1.Visible = True And Check1.CheckState = 1) Or Check1.Visible = False Then
            FrmEvaEdit.HrFlag = False
            FrmEvaEdit.txtEva.Text = DGVEva.SelectedRows(0).Cells(3).Value
            FrmEvaEdit.ComboFactor.Text = DGVEva.SelectedRows(0).Cells(4).Value
        Else
            FrmEvaEdit.HrFlag = True
            FrmEvaEdit.Label11.Text = "人事部门评价"
            FrmEvaEdit.txtEva.Text = DGVEva.SelectedRows(0).Cells(5).Value
            FrmEvaEdit.ComboFactor.Text = DGVEva.SelectedRows(0).Cells(6).Value
        End If
        FrmEvaEdit.Modify = True
        FrmEvaEdit.ShowDialog()
        If FrmEvaEdit.TmpOk = True Then
            ComboDep.Text = CurDep.Dep_name
            Refresh_Eva()
        End If
    End Sub

    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        Dim TmpId As Integer
        If DGVEva.SelectedColumns Is Nothing Then
            MsgBox("请选择记录")
            Exit Sub
        End If
        TmpId = DGVEva.SelectedRows(0).Cells(0).Value
        If MsgBox("是否删除当前行?", MsgBoxStyle.YesNo, "确认") = MsgBoxResult.Yes Then
            MyEva.Delete(ComboY.Text & "-" & ComboM.Text, TmpId)
        End If
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT e.Emp_Id as 员工编号," & "e.Emp_Name as 员工姓名, c.Performance as 工作业绩," & "c.SupervisorEvaluation as 领导评价," & "c.PrizeFactor1 as 领导奖金系数," & "c.HrEvaluation as 人事部门评价," & "c.PrizeFactor2 as 人事奖金系数" & " FROM Employees e, Evaluation c WHERE c.EvaMonth='" & 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)
        DGVEva.DataSource = DTable
        DGVEva.Refresh()
    End Sub
End Class