frmwageedit.frm

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

            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 If
    If Me.Command4Close.Enabled = False Then Exit Sub
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4TechnicalWage.text) - Text2Int(Text4TechnicalWage.Tag)
End Sub

Private Sub Text4TrafficWage_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4TrafficWage.text, Text4TrafficWage.SelStart, True
End Sub

Private Sub Text4TrafficWage_LostFocus()
    Text4AllWage.text = Text2Int(Text4AllWage.text) + Text2Int(Text4TrafficWage.text) - Text2Int(Text4TrafficWage.Tag)
    Text4TrafficWage.Tag = Text4TrafficWage.text
End Sub

Private Sub Text4WashingWage_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Text4WashingWage.text, Text4WashingWage.SelStart, True
End Sub

Private Sub LoadData(ByVal Cadrecount As Long)
    Dim str4FactoryOrgan As String
    m_strSQL = "select T_WAGE_STANDARD.EMP_NO as emp_No,T_WAGE_STANDARD.ORGAN_NO,T_ORGAN.ORGAN_LEVEL,AREA_SORT_NO,WAGE_SORT_NO,WAGE_RATE_NO,case T_WAGE_STANDARD.COMPACT_WAGE when 0 then ((" & left(m_int4NowTime, 4) & "-left(T_EMP_BASIC.WORK_TIME,4)+1)*2) else 0 end,(select SKILL_WAGE from T_OLD_SKILL where T_WAGE_STANDARD.AREA_SORT_NO=T_OLD_SKILL.AREA_SORT_NO and T_WAGE_STANDARD.WAGE_RATE_NO=T_OLD_SKILL.WAGE_RATE_NO),NURSE_SUBSIDY,TEACHERS_SUBSIDY,AREA_SUBSIDY,STATION_DUTY_WAGE,FIELD_SUBSIDY,LIVE_SUBSIDY,DRIVER_SUBSIDY,ISLAM_SUBSIDY,SANITATION_SUBSIDY,CHARGE_CLASS_SUBSIDY,COMPACT_WAGE,OLD_SUBSIDY,ALTIPLANO_SUBSIDY,TICHNICIAN_SUBSIDY,HARD_STATION_SUBSIDY,WASHING_COST,TRAFFIC_COST,BOOK_COST,OTHER_WAGE" _
                & " from T_WAGE_STANDARD,T_ORGAN,T_EMP_BASIC" _
                & " where T_WAGE_STANDARD.ORGAN_NO=T_ORGAN.ORGAN_NO " & HaveOrganMark & HaveEmpMark & " and T_EMP_BASIC.EMP_NO=T_WAGE_STANDARD.EMP_NO and T_WAGE_STANDARD.ORGAN_NO='" & g_array4WorkerType(2, Cadrecount) & "' and T_WAGE_STANDARD.EMP_NO=" & g_array4WorkerType(1, Cadrecount)
    If m_oRs4WageEdit.State = adStateOpen Then m_oRs4WageEdit.Close
    m_oRs4WageEdit.CursorLocation = adUseClient
    m_oRs4WageEdit.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
    If m_oRs4WageEdit.EOF = False Then
        Me.Command4Close.Enabled = False
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_array4WorkerType(2, Cadrecount), m_oRs4WageEdit.Fields("organ_level").Value
        FillComboBox Me.SSComboBoxEx4EmpName, "t_emp_basic", "emp_no", "emp_name", , " where emp_no='" & m_oRs4WageEdit.Fields("EMP_NO").Value & "' and organ_no='" & g_array4WorkerType(2, Cadrecount) & "'"
        SSComboBoxEx4EmpName.ListIndex = 0
        SSComboBoxEx4EmpName.Enabled = False
        SSComboBoxEx4Organ.Enabled = False
        SSComboBoxEx4Company.Enabled = False
        SSComboBoxEx4Large.Enabled = False
        SSComboBoxEx4Small.Enabled = False
        
        If m_oRs4WageEdit.Fields("COMPACT_WAGE").Value = 0 Then
            Check4IsCompactWage.Value = 0
            Call IsCheck
            
            SSComboBoxEx4AreaSort.ListIndex = FindIndex(m_oRs4WageEdit.Fields("AREA_SORT_NO").Value, SSComboBoxEx4AreaSort)
            SSComboBoxEx4WageSort.ListIndex = FindIndex(m_oRs4WageEdit.Fields("WAGE_SORT_NO").Value, SSComboBoxEx4WageSort)
            SSComboBoxEx4WageRate.ListIndex = FindIndex(m_oRs4WageEdit.Fields("WAGE_RATE_NO").Value, SSComboBoxEx4WageRate)
            If Not IsNull(m_oRs4WageEdit.Fields(6).Value) Then
                Text4AgeWage.text = m_oRs4WageEdit.Fields(6).Value
                Text4AgeWage.Tag = Text4AgeWage.text
            Else
                Text4AgeWage.text = 0
                Text4AgeWage.Tag = Text4AgeWage.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields(7).Value) Then
                Text4TechnicalWage.text = m_oRs4WageEdit.Fields(7).Value
                Text4TechnicalWage.Tag = Text4TechnicalWage.text
            Else
                Text4TechnicalWage.text = 0
                Text4TechnicalWage.Tag = Text4TechnicalWage.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("STATION_DUTY_WAGE").Value) Then
                Text4StationDutyWage.text = m_oRs4WageEdit.Fields("STATION_DUTY_WAGE").Value
                Text4StationDutyWage.Tag = Text4StationDutyWage.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("NURSE_SUBSIDY").Value) Then
                Text4NurseSubSidy.text = m_oRs4WageEdit.Fields("NURSE_SUBSIDY").Value
                Text4NurseSubSidy.Tag = Text4NurseSubSidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("TEACHERS_SUBSIDY").Value) Then
                Text4TeacherSubsidy.text = m_oRs4WageEdit.Fields("TEACHERS_SUBSIDY").Value
                Text4TeacherSubsidy.Tag = Text4TeacherSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("AREA_SUBSIDY").Value) Then
                Text4AreaSubsidy.text = m_oRs4WageEdit.Fields("AREA_SUBSIDY").Value
                Text4AreaSubsidy.Tag = Text4AreaSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("DRIVER_SUBSIDY").Value) Then
                Text4DriverSubsidy.text = m_oRs4WageEdit.Fields("DRIVER_SUBSIDY").Value
                Text4DriverSubsidy.Tag = Text4DriverSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("FIELD_SUBSIDY").Value) Then
                Text4FieldSubsidy.text = m_oRs4WageEdit.Fields("FIELD_SUBSIDY").Value
                Text4FieldSubsidy.Tag = Text4FieldSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("LIVE_SUBSIDY").Value) Then
                Text4LiveSubsidy.text = m_oRs4WageEdit.Fields("LIVE_SUBSIDY").Value
                Text4LiveSubsidy.Tag = Text4LiveSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("CHARGE_CLASS_SUBSIDY").Value) Then
                Text4ChargeClass.text = m_oRs4WageEdit.Fields("CHARGE_CLASS_SUBSIDY").Value
                Text4ChargeClass.Tag = Text4ChargeClass.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("ISLAM_SUBSIDY").Value) Then
                Text4IslamSubsidy.text = m_oRs4WageEdit.Fields("ISLAM_SUBSIDY").Value
                Text4IslamSubsidy.Tag = Text4IslamSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("OLD_SUBSIDY").Value) Then
                Text4OldSubsidy.text = m_oRs4WageEdit.Fields("OLD_SUBSIDY").Value
                Text4OldSubsidy.Tag = Text4OldSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("WASHING_COST").Value) Then
                Text4WashingWage.text = m_oRs4WageEdit.Fields("WASHING_COST").Value
                Text4WashingWage.Tag = Text4WashingWage.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("TICHNICIAN_SUBSIDY").Value) Then
                Text4ArtificerSubsidy.text = m_oRs4WageEdit.Fields("TICHNICIAN_SUBSIDY").Value
                Text4ArtificerSubsidy.Tag = Text4ArtificerSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("HARD_STATION_SUBSIDY").Value) Then
                Text4HealthCare.text = m_oRs4WageEdit.Fields("HARD_STATION_SUBSIDY").Value
                Text4HealthCare.Tag = Text4HealthCare.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("ALTIPLANO_SUBSIDY").Value) Then
                Text4AltiplanoSubsidy.text = m_oRs4WageEdit.Fields("ALTIPLANO_SUBSIDY").Value
                Text4AltiplanoSubsidy.Tag = Text4AltiplanoSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("SANITATION_SUBSIDY").Value) Then
                Text4SanitationSubsidy.text = m_oRs4WageEdit.Fields("SANITATION_SUBSIDY").Value
                Text4SanitationSubsidy.Tag = Text4SanitationSubsidy.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("TRAFFIC_COST").Value) Then
                Text4TrafficWage.text = m_oRs4WageEdit.Fields("TRAFFIC_COST").Value
                Text4TrafficWage.Tag = Text4TrafficWage.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("BOOK_COST").Value) Then
                Text4BookWage.text = m_oRs4WageEdit.Fields("BOOK_COST").Value
                Text4BookWage.Tag = Text4BookWage.text
            End If
            If Not IsNull(m_oRs4WageEdit.Fields("OTHER_WAGE").Value) Then
                Text4OtherWage.text = m_oRs4WageEdit.Fields("OTHER_WAGE").Value
                Text4OtherWage.Tag = Text4OtherWage.text
            End If
            Text4AllWage.text = Text2Int(Text4StationDutyWage.text) + Text2Int(Text4IslamSubsidy.text) + Text2Int(Text4TechnicalWage.text) + Text2Int(Text4AgeWage.text) + Text2Int(Text4FieldSubsidy.text) + Text2Int(Text4LiveSubsidy.text) + Text2Int(Text4DriverSubsidy.text) + Text2Int(Text4AreaSubsidy.text) + Text2Int(Text4AltiplanoSubsidy.text) + Text2Int(Text4TeacherSubsidy.text) + Text2Int(Text4ChargeClass.text) + Text2Int(Text4OldSubsidy.text) + Text2Int(Text4ArtificerSubsidy.text) + Text2Int(Text4HealthCare.text) + Text2Int(Text4WashingWage.text) + Text2Int(Text4BookWage.text) + Text2Int(Text4TrafficWage.text) + Text2Int(Text4SanitationSubsidy.text) + Text2Int(Text4NurseSubSidy.text) + Text2Int(Text4OtherWage.text)
            Text4CompactWage.text = 0
            Text4CompactWage.Tag = Text4CompactWage.text
        Else
            Check4IsCompactWage.Value = 1
            Call IsCheck
            Call ClearText
            If Not IsNull(m_oRs4WageEdit.Fields("COMPACT_WAGE").Value) Then
                Text4CompactWage.text = m_oRs4WageEdit.Fields("COMPACT_WAGE").Value
                Text4CompactWage.Tag = Text4CompactWage.text
            End If
            Text4AllWage.text = Text4CompactWage.text
            Text4AgeWage.text = 0
        End If
    End If
    Me.Command4Close.Enabled = True
End Sub

Private Sub SSComboBoxEx4EmpName_GotFocus()
    If Trim(Me.SSComboBoxEx4Small.text) <> "" Then
        SSComboBoxEx4Small.CheckList = True
        FillComboBox Me.SSComboBoxEx4EmpName, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex) & "'" & HaveEmpMark
    ElseIf Trim(Me.SSComboBoxEx4Large.text) <> "" Then
        SSComboBoxEx4Large.CheckList = True
        FillComboBox Me.SSComboBoxEx4EmpName, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex) & "'" & HaveEmpMark
    ElseIf Trim(Me.SSComboBoxEx4Company.text) <> "" Then
        SSComboBoxEx4Company.CheckList = True
        FillComboBox Me.SSComboBoxEx4EmpName, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex) & "'" & HaveEmpMark
    ElseIf Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
        SSComboBoxEx4Organ.CheckList = True
        FillComboBox Me.SSComboBoxEx4EmpName, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "'" & HaveEmpMark
    Else
        Me.SSComboBoxEx4EmpName.Clear
    End If
End Sub

Private Sub IsCheck()
    If Check4IsCompactWage.Value = 1 Then
        Text4CompactWage.Enabled = True
        SSComboBoxEx4AreaSort.Enabled = False
        SSComboBoxEx4WageSort.Enabled = False
        SSComboBoxEx4WageRate.Enabled = False
        Text4StationDutyWage.Enabled = False
        Text4IslamSubsidy.Enabled = False
        Text4FieldSubsidy.Enabled = False
        Text4LiveSubsidy.Enabled = False
        Text4DriverSubsidy.Enabled = False
        Text4AreaSubsidy.Enabled = False
        Text4AltiplanoSubsidy.Enabled = False
        Text4TeacherSubsidy.Enabled = False
        Text4ChargeClass.Enabled = False
        Text4OldSubsidy.Enabled = False
        Text4ArtificerSubsidy.Enabled = False
        Text4HealthCare.Enabled = False
        Text4WashingWage.Enabled = False
        Text4BookWage.Enabled = False
        Text4TrafficWage.Enabled = False
        Text4SanitationSubsidy.Enabled = False
        Text4NurseSubSidy.Enabled = False
        Text4OtherWage.Enabled = False
        Label4CompactWage.Enabled = True
        Label4AreaSort.Enabled = False
        Label4WageSort.Enabled = False
        Label4WageRate.Enabled = False
        Label4StationDutyWage.Enabled = False
        Label4IslamSubsidy.Enabled = False
        Label4TechnicalWage.Enabled = False
        Label4FieldSubsidy.Enabled = False
        Label4LiveSubsidy.Enabled = False
        Label4DriverSubsidy.Enabled = False
        Label4AreaSubsidy.Enabled = False
        Label4AltiplanoSubsidy.Enabled = False
        Label4TeacherSubsidy.Enabled = False
        Label4ChargeClass.Enabled = False
        Label4OldSubsidy.Enabled = False
        Label4ArtificerSubsidy.Enabled = False
        Label4HealthCare.Enabled = False
        Label4WashingWage.Enabled = False
        Label4BookWage.Enabled = False
        Label4TrafficWage.Enabled = False
        Label4SanitationSubsidy.Enabled = False
        Label4NurseSubSidy.Enabled = False
        Label4OtherWage.Enabled = False
        Label4AgeWage.Enabled = False
    ElseIf Check4IsCompactWage.Value = 0 Then
        Text4CompactWage.Enabled = False
        SSComboBoxEx4AreaSort.Enabled = True
        SSComboBoxEx4WageSort.Enabled = True
        SSComboBoxEx4WageRate.Enabled = True
        Text4StationDutyWage.Enabled = True
        Text4IslamSubsidy.Enabled = True
        Text4FieldSubsidy.Enabled = True
        Text4LiveSubsidy.Enabled = True
        Text4DriverSubsidy.Enabled = True
        Text4AreaSubsidy.Enabled = True
        Text4AltiplanoSubsidy.Enabled = True
        Text4TeacherSubsidy.Enabled = True
        Text4ChargeClass.Enabled = True
        Text4OldSubsidy.Enabled = True
        Text4ArtificerSubsidy.Enabled = True
        Text4HealthCare.Enabled = True
        Text4WashingWage.Enabled = True
        Text4BookWage.Enabled = True
        Text4TrafficWage.Enabled = True
        Text4SanitationSubsidy.Enabled = True
        Text4NurseSubSidy.Enabled = True
        Text4OtherWage.Enabled = True
        Label4CompactWage.Enabled = False
        Label4AreaSort.Enabled = True
        Label4WageSort.Enabled = True
        Label4WageRate.Enabled = True
        Label4StationDutyWage.Enabled = True
        Label4IslamSubsidy.Enabled = True
        Label4TechnicalWage.Enabled = True
        Label4FieldSubsidy.Enabled = True
        Label4LiveSubsidy.Enabled = True
        Label4DriverSubsidy.Enabled = True
        Label4AreaSubsidy.Enabled = True
        Label4AltiplanoSubsidy.Enabled = True
        Label4TeacherSubsidy.Enabled = True
        Label4ChargeClass.Enabled = True
        Label4OldSubsidy.Enabled = True
        Label4ArtificerSubsidy.Enabled = True
        Label4HealthCare.Enabled = True
        Label4WashingWage.Enabled = True
        Label4BookWage.Enabled = True
        Label4TrafficWage.Enabled = True
        Label4SanitationSubsidy.Enabled = True
        Label4NurseSubSidy.Enabled = True
        Label4OtherWage.Enabled = True
        Label4AgeWage.Enabled = True
    End If
    Call GetAgeWage
End Sub

Private Sub GetAgeWage()
    If Me.Check4IsCompactWage.Value = 0 Then
        If Trim(SSComboBoxEx4EmpName.text) <> "" Then
            SSComboBoxEx4EmpName.CheckList = True
            If Trim(SSComboBoxEx4Small.text) <> "" Then
                SSComboBoxEx4Small.CheckList = True
                m_strSQL = "select ((" & left(m_int4NowTime, 4) & "-left(T_EMP_BASIC.WORK_TIME,4)+1)*2) as AGE_WAGE from T_EMP_BASIC where EMP_NO=" & SSComboBoxEx4EmpName.ItemData(SSComboBoxEx4EmpName.ListIndex) & " and ORGAN_NO='" & SSComboBoxEx4Small.ItemData(SSComboBoxEx4Small.ListIndex) & "'"
            ElseIf Trim(SSComboBoxEx4Large.text) <> "" Then
                SSComboBoxEx4Large.CheckList = True
                m_strSQL = "select ((" & left(m_int4NowTime, 4) & "-left(T_EMP_BASIC.WORK_TIME,4)+1)*2) as AGE_WAGE from T_EMP_BASIC where EMP_NO=" & SSComboBoxEx4EmpName.ItemData(SSComboBoxEx4E