frmevaedit.vb

使用说明 1.在使用源程序前

Class FrmEvaEdit
    Inherits System.Windows.Forms.Form
    Public Modify As Boolean '插入=false,修改=true
    Public OriEmpId As Integer
    Public TmpOk As Boolean
    Public HrFlag As Boolean

    Private Sub Cmd_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Cancel.Click
        TmpOk = False
        Me.Close()
    End Sub


    Private Sub ComboName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboName.Enter
        txtPerformance.Focus()
        '设置FrmEmpSel窗体的位置
        FrmEmpSel.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Left) + VB6.PixelsToTwipsX(ComboName.Left) + 350 - VB6.PixelsToTwipsX(FrmEmpSel.Width))
        FrmEmpSel.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Top) + VB6.PixelsToTwipsY(ComboName.Top) + VB6.PixelsToTwipsY(ComboName.Height) + 450)
        FrmEmpSel.ShowDialog()
        '将选择的员工姓名显示到ComboUpper控件中
        ComboName.Text = UpperEmp.Emp_Name
    End Sub

    Private Sub Btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_OK.Click
        If UpperEmp.Emp_Id <= 0 Then
            MsgBox("请选择员工")
            Exit Sub
        End If
        With MyEva
            '判断记录是否存在
            If Modify = False Or OriEmpId <> UpperEmp.Emp_Id Then
                If .In_DB(lblMonth.Text, UpperEmp.Emp_Id) = True Then
                    MsgBox("要添加的记录已经存在，请修改已有的记录")
                    Exit Sub
                End If
            End If
            .EvaMonth = lblMonth.Text
            .Emp_Id = UpperEmp.Emp_Id
            .Performance = Trim(txtPerformance.Text)
            If HrFlag = False Then '对下属员工考评
                .SupervisorEvaluation = Trim(txtEva.Text)
                .PrizeFactor1 = Val(ComboFactor.Text)
            Else '人事部门考评
                .HrEvaluation = Trim(txtEva.Text)
                .PrizeFactor2 = Val(ComboFactor.Text)
            End If
            If Modify = False Then
                .Insert()
            Else
                .Update(lblMonth.Text, OriEmpId, HrFlag)
            End If
        End With
        TmpOk = True
        Me.Close()
    End Sub
End Class