frmwageedit.frm

本公司开发得大请油田人事管理系统c/s结构

Private Sub SSComboBoxEx4Small_Change()
    DisplayRelateItems SSComboBoxEx4Small
    SSComboBoxEx4EmpName.text = ""
End Sub

Private Sub SSComboBoxEx4Small_GotFocus()
    If Trim(SSComboBoxEx4Company.text) <> "" Then
        If Trim(SSComboBoxEx4Large.text) <> "" Then
            SSComboBoxEx4Large.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=15 and ORGAN_NO like '" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "%' and ORGAN_LEVEL=0 " & HaveOrganMark
        Else
            SSComboBoxEx4Company.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and ORGAN_NO like '" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "%' and ORGAN_LEVEL=0 " & HaveOrganMark
        End If
    Else
        If Trim(SSComboBoxEx4Large.text) <> "" Then
            SSComboBoxEx4Large.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and ORGAN_NO like '" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "%'and ORGAN_LEVEL=0 " & HaveOrganMark
        Else
            SSComboBoxEx4Organ.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and ORGAN_NO like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "%'and ORGAN_LEVEL=0 " & HaveOrganMark
        End If
    End If
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate SSComboBoxEx4Small
End Sub

Private Sub SSComboBoxEx4WageRate_Change()
    DisplayRelateItems SSComboBoxEx4WageRate
End Sub

Private Sub SSComboBoxEx4WageRate_LostFocus()
    CheckValidate SSComboBoxEx4WageRate
    Me.Command4Close.Enabled = False
    If Trim(SSComboBoxEx4AreaSort.text) <> "" And Trim(SSComboBoxEx4WageRate.text) <> "" Then
        SSComboBoxEx4WageRate.CheckList = True
        SSComboBoxEx4AreaSort.CheckList = True
        m_strSQL = "select SKILL_WAGE from T_OLD_SKILL where WAGE_RATE_NO=" & SSComboBoxEx4WageRate.ItemData(SSComboBoxEx4WageRate.ListIndex) & " and AREA_SORT_NO=" & SSComboBoxEx4AreaSort.ItemData(SSComboBoxEx4AreaSort.ListIndex)
        If m_oRs4WageTemp.State = adStateOpen Then m_oRs4WageTemp.Close
        m_oRs4WageTemp.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
        If m_oRs4WageTemp.EOF = False Then
            Text4AllWage.text = Text2Int(Text4AllWage.text) + m_oRs4WageTemp.Fields("SKILL_WAGE").Value - Text2Int(Text4TechnicalWage.Tag)
            Text4TechnicalWage.text = m_oRs4WageTemp.Fields("SKILL_WAGE").Value
            Text4TechnicalWage.Tag = Text2Int(Text4TechnicalWage.text)
        Else
            Text4AllWage.text = Text2Int(Text4AllWage.text) - Text2Int(Text4TechnicalWage.Tag)
            Text4TechnicalWage.text = 0
            Text4TechnicalWage.Tag = 0
        End If
    End If
    Me.Command4Close.Enabled = True
End Sub

Private Sub SSComboBoxEx4WageSort_Change()
    DisplayRelateItems SSComboBoxEx4WageSort
End Sub

Private Sub SSComboBoxEx4WageSort_LostFocus()
    CheckValidate SSComboBoxEx4WageSort
End Sub

Private Sub SSSpin4No_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    SSSpin4No.EnableContextMenu = False
    m_int4SSSpinText = CInt(SSSpin4No.text)
    LoadData CInt(SSSpin4No.text)
    SSSpin4No.EnableContextMenu = True
End Sub

Private Sub Text4AgeWage_Change()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4AgeWage.text) - Text2Int(Text4AgeWage.Tag)
End Sub

Private Sub Text4AltiplanoSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4AltiplanoSubsidy.text, Text4AltiplanoSubsidy.SelStart, True
End Sub

Private Sub Text4AltiplanoSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4AltiplanoSubsidy.text) - Text2Int(Text4AltiplanoSubsidy.Tag)
    Text4AltiplanoSubsidy.Tag = Text4AltiplanoSubsidy.text
End Sub

Private Sub Text4AreaSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4AreaSubsidy.text, Text4AreaSubsidy.SelStart, True
End Sub

Private Sub Text4AreaSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4AreaSubsidy.text) - Text2Int(Text4AreaSubsidy.Tag)
    Text4AreaSubsidy.Tag = Text4AreaSubsidy.text
End Sub

Private Sub Text4ArtificerSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4ArtificerSubsidy.text, Text4ArtificerSubsidy.SelStart, True
End Sub

Private Sub Text4ArtificerSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4ArtificerSubsidy.text) - Text2Int(Text4ArtificerSubsidy.Tag)
    Text4ArtificerSubsidy.Tag = Text4ArtificerSubsidy.text
End Sub

Private Sub Text4BookWage_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4BookWage.text, Text4BookWage.SelStart, True
End Sub

Private Sub Text4BookWage_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4BookWage.text) - Text2Int(Text4BookWage.Tag)
    Text4BookWage.Tag = Text4BookWage.text
End Sub

Private Sub Text4ChargeClass_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4ChargeClass.text, Text4ChargeClass.SelStart, True
End Sub

Private Sub Text4ChargeClass_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4ChargeClass.text) - Text2Int(Text4ChargeClass.Tag)
    Text4ChargeClass.Tag = Text4ChargeClass.text
End Sub

Private Sub Text4CompactWage_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4CompactWage.text, Text4CompactWage.SelStart, True
End Sub

Private Sub Text4CompactWage_LostFocus()
    If Check4IsCompactWage.Value = 1 Then
        Text4AllWage.text = Text4CompactWage.text
        Exit Sub
    End If
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4CompactWage.text) - Text2Int(Text4CompactWage.Tag)
    Text4CompactWage.Tag = Text4CompactWage.text
End Sub

Private Sub Text4DriverSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4DriverSubsidy.text, Text4DriverSubsidy.SelStart, True
End Sub

Private Sub Text4DriverSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4DriverSubsidy.text) - Text2Int(Text4DriverSubsidy.Tag)
    Text4DriverSubsidy.Tag = Text4DriverSubsidy.text
End Sub

Private Sub Text4FieldSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4FieldSubsidy.text, Text4FieldSubsidy.SelStart, True
End Sub

Private Sub Text4FieldSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4FieldSubsidy.text) - Text2Int(Text4FieldSubsidy.Tag)
    Text4FieldSubsidy.Tag = Text4FieldSubsidy.text
End Sub

Private Sub Text4HealthCare_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4HealthCare.text, Text4HealthCare.SelStart, True
End Sub

Private Sub Text4HealthCare_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4HealthCare.text) - Text2Int(Text4HealthCare.Tag)
    Text4HealthCare.Tag = Text4HealthCare.text
End Sub

Private Sub Text4IslamSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4IslamSubsidy.text, Text4IslamSubsidy.SelStart, True
End Sub

Private Sub Text4IslamSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4IslamSubsidy.text) - Text2Int(Text4IslamSubsidy.Tag)
    Text4IslamSubsidy.Tag = Text4IslamSubsidy.text
End Sub

Private Sub Text4LiveSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4LiveSubsidy.text, Text4LiveSubsidy.SelStart, True
End Sub

Private Sub Text4LiveSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4LiveSubsidy.text) - Text2Int(Text4LiveSubsidy.Tag)
    Text4LiveSubsidy.Tag = Text4LiveSubsidy.text
End Sub

Private Sub Text4NurseSubSidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4NurseSubSidy.text, Text4NurseSubSidy.SelStart, True
End Sub

Private Sub Text4NurseSubSidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4NurseSubSidy.text) - Text2Int(Text4NurseSubSidy.Tag)
    Text4NurseSubSidy.Tag = Text4NurseSubSidy.text
End Sub

Private Sub Text4OldSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4OldSubsidy.text, Text4OldSubsidy.SelStart, True
End Sub

Private Sub Text4OldSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4OldSubsidy.text) - Text2Int(Text4OldSubsidy.Tag)
    Text4OldSubsidy.Tag = Text4OldSubsidy.text
End Sub

Private Sub Text4OtherWage_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4OtherWage.text, Text4OtherWage.SelStart, True
End Sub

Private Sub Text4OtherWage_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4OtherWage.text) - Text2Int(Text4OtherWage.Tag)
    Text4OtherWage.Tag = Text4OtherWage.text
End Sub

Private Sub Text4SanitationSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4SanitationSubsidy.text, Text4SanitationSubsidy.SelStart, True
End Sub

Private Sub Text4SanitationSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4SanitationSubsidy.text) - Text2Int(Text4SanitationSubsidy.Tag)
    Text4SanitationSubsidy.Tag = Text4SanitationSubsidy.text
End Sub

Private Sub Text4StationDutyWage_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4StationDutyWage.text, Text4StationDutyWage.SelStart, True
End Sub

Private Sub Text4StationDutyWage_LostFocus()
    Dim str4OrganNo As String
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4StationDutyWage.text) - Text2Int(Text4StationDutyWage.Tag)
    Text4StationDutyWage.Tag = Text4StationDutyWage.text
    If Trim(Text4TechnicalWage.text) <> "" And Trim(Me.Text4StationDutyWage.text) <> "" Then
        If Trim(SSComboBoxEx4Small.text) <> "" Then
            SSComboBoxEx4Small.CheckList = True
            str4OrganNo = SSComboBoxEx4Small.ItemData(SSComboBoxEx4Small.ListIndex)
        ElseIf Trim(SSComboBoxEx4Large.text) <> "" Then
            SSComboBoxEx4Large.CheckList = True
            str4OrganNo = SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex)
        ElseIf Trim(SSComboBoxEx4Company.text) <> "" Then
            SSComboBoxEx4Company.CheckList = True
            str4OrganNo = SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)
        ElseIf Trim(SSComboBoxEx4Organ.text) <> "" Then
            SSComboBoxEx4Organ.CheckList = True
            str4OrganNo = SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex)
        Else
            Exit Sub
        End If
        m_strSQL = "select AREA_NAME from T_AREA_CODE where AREA_NO in (select AREA_NO from T_EMP_BASIC where EMP_NO=" & SSComboBoxEx4EmpName.ItemData(SSComboBoxEx4EmpName.ListIndex) & " and ORGAN_NO='" & str4OrganNo & "')"
        If m_oRs4WageTemp.State = adStateOpen Then m_oRs4WageTemp.Close
        m_oRs4WageTemp.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
        If m_oRs4WageTemp.EOF Then Exit Sub
        If m_oRs4WageTemp.Fields("AREA_NAME").Value = "甘肃" Or m_oRs4WageTemp.Fields("AREA_NAME").Value = "陕西" Then
            Text4LiveSubsidy.text = (Text2Int(Text4StationDutyWage.text) + Text2Int(Text4TechnicalWage.text)) * 0.04
        ElseIf m_oRs4WageTemp.Fields("AREA_NAME").Value = "宁夏" Then
            Text4LiveSubsidy.text = (Text2Int(Text4StationDutyWage.text) + Text2Int(Text4TechnicalWage.text)) * 0.1
        ElseIf Trim(SSComboBoxEx4Organ.text) <> "兰州办事处" Then
            Text4LiveSubsidy.text = (Text2Int(Text4StationDutyWage.text) + Text2Int(Text4TechnicalWage.text)) * 0.15
        End If
        Text4LiveSubsidy.Tag = Text4LiveSubsidy.text
    End If
End Sub

Private Sub Text4TeacherSubsidy_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4TeacherSubsidy.text, Text4TeacherSubsidy.SelStart, True
End Sub

Private Sub Text4TeacherSubsidy_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4TeacherSubsidy.text) - Text2Int(Text4TeacherSubsidy.Tag)
    Text4TeacherSubsidy.Tag = Text4TeacherSubsidy.text
End Sub

Private Sub Text4TechnicalWage_Change()
    Dim str4OrganNo As String
    If Trim(Text4TechnicalWage.text) <> "" And Trim(Me.Text4StationDutyWage.text) <> "" Then
        If Trim(SSComboBoxEx4Small.text) <> "" Then
            SSComboBoxEx4Small.CheckList = True
            str4OrganNo = SSComboBoxEx4Small.ItemData(SSComboBoxEx4Small.ListIndex)
        ElseIf Trim(SSComboBoxEx4Large.text) <> "" Then
            SSComboBoxEx4Large.CheckList = True
            str4OrganNo = SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex)
        ElseIf Trim(SSComboBoxEx4Company.text) <> "" Then
            SSComboBoxEx4Company.CheckList = True
            str4OrganNo = SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)
        ElseIf Trim(SSComboBoxEx4Organ.text) <> "" Then
            SSComboBoxEx4Organ.CheckList = True
            str4OrganNo = SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex)
        Else
            Exit Sub
        End If
        If Trim(SSComboBoxEx4EmpName.text) <> "" Then
            m_strSQL = "select AREA_NAME from T_AREA_CODE where AREA_NO in (select AREA_NO from T_EMP_BASIC where EMP_NO=" & SSComboBoxEx4EmpName.ItemData(SSComboBoxEx4EmpName.ListIndex) & " and ORGAN_NO='" & str4OrganNo & "')"
            If m_oRs4WageTemp.State = adStateOpen Then m_oRs4WageTemp.Close
            m_oRs4WageTemp.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
            If m_oRs4WageTemp.EOF Then Exit Sub