frmsalaryedit.vb

vb2005人事管理系统源码

Class FrmSalaryEdit
    Inherits System.Windows.Forms.Form
    Public OriEmpId As Short
    Public TmpSfgz As Single

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



    Private Sub FrmSalaryEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TmpSfgz = TmpSfgz + Val(txtQtkk.Text) - Val(txtMdbx.Text) - Val(txtYearPrize.Text)
    End Sub

    Private Sub txtMdbx_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMdbx.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        EnterTAB((KeyAscii))
        If In_Single(KeyAscii) = False Then
            KeyAscii = 0
        End If
        e.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtQtkk_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtQtkk.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        EnterTAB((KeyAscii))
        If In_Single(KeyAscii) = False Then
            KeyAscii = 0
        End If
        e.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtYearPrize_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtYearPrize.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        EnterTAB((KeyAscii))
        If In_Single(KeyAscii) = False Then
            KeyAscii = 0
        End If
        e.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If
    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        With MySal
            .Qtkk = Val(txtQtkk.Text)
            .Mdbx = Val(txtMdbx.Text)
            .YearPrize = Val(txtYearPrize.Text)
            '重新计算实发工资
            .Sfgz = TmpSfgz - .Qtkk + .Mdbx + .YearPrize
            .UpdateInput(lblMonth.Text, OriEmpId)
        End With
        Me.Close()
    End Sub
End Class