frmwageedit.frm

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

Attribute VB_Exposed = False
Option Explicit
Private m_strSQL As String
Private m_str4Save As String
Private m_oRs4WageTemp As New ADODB.Recordset
Private m_oRs4WageEdit As New ADODB.Recordset
Private m_int4NowTime As Long
Private m_int4SSSpinText As Long

Private Sub Check4IsCompactWage_Click()
    Call IsCheck
    Text4AllWage.text = 0
    If Check4IsCompactWage.Value = 0 Then
        Text4AllWage.text = Text2Int(Text4AgeWage.text) + Text2Int(Text4TechnicalWage.text)
    Else
        Text4AllWage.text = Text2Int(Text4CompactWage.text)
    End If
End Sub

Private Sub Command4Close_Click()
    Unload Me
End Sub

Private Sub Command4Save_Click()
    Dim str4OrganNo As String
    Dim l4WageSort As String
    If Trim(SSComboBoxEx4Organ.text) = "" And Trim(SSComboBoxEx4Company.text) = "" And Trim(SSComboBoxEx4Large.text) = "" And Trim(SSComboBoxEx4Small.text) = "" Then
        MsgBox "请选择一个单位!", vbOKOnly, "提示"
        SSComboBoxEx4Company.SetFocus
        Exit Sub
    ElseIf 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)
    Else
        SSComboBoxEx4Organ.CheckList = True
        str4OrganNo = SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex)
    End If
    
    If Len(SSComboBoxEx4EmpName.text) < 1 Then
        MsgBox "人员姓名不能为空!", vbOKOnly, "提示"
        SSComboBoxEx4EmpName.SetFocus
        Exit Sub
    Else
        If g_int4statuse = 0 Then
            SSComboBoxEx4EmpName.CheckList = True
            m_strSQL = "select EMP_NO,ORGAN_NO from T_WAGE_STANDARD 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 = False Then
                MsgBox "该人员工资信息已经存在,请重新选择人员录入!", vbOKOnly, "提示"
                Exit Sub
            End If
        End If
    End If
    If Me.Check4IsCompactWage.Value = 0 Then
        If Trim(SSComboBoxEx4AreaSort.text) = "" Then
            MsgBox "地区类别不能为空,请输入地区类别!", vbOKOnly, "提示"
            SSComboBoxEx4AreaSort.SetFocus
            Exit Sub
        End If
        
        If Trim(SSComboBoxEx4WageRate.text) = "" Then
            MsgBox "工资级别不能为空,请输入工资级别!", vbOKOnly, "提示"
            SSComboBoxEx4WageRate.SetFocus
            Exit Sub
        End If
    End If
    
    SSComboBoxEx4AreaSort.CheckList = True
    SSComboBoxEx4WageRate.CheckList = True
    If Trim(SSComboBoxEx4WageSort.text) <> "" Then
        SSComboBoxEx4WageSort.CheckList = True
        l4WageSort = "'" & SSComboBoxEx4WageSort.ItemData(SSComboBoxEx4WageSort.ListIndex) & "'"
    Else
        l4WageSort = "NULL"
    End If
    
    If g_int4statuse = 0 Then
        If Me.Check4IsCompactWage.Value = 0 Then
            m_str4Save = "insert into T_WAGE_STANDARD(EMP_NO,ORGAN_NO,AREA_SORT_NO,WAGE_SORT_NO,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) values (" _
                        & SSComboBoxEx4EmpName.ItemData(SSComboBoxEx4EmpName.ListIndex) & ",'" & str4OrganNo & "'," & CSQL(SSComboBoxEx4AreaSort.ItemData(SSComboBoxEx4AreaSort.ListIndex), 0) & "," & l4WageSort & "," & SSComboBoxEx4WageRate.ItemData(SSComboBoxEx4WageRate.ListIndex) & "," & Text2Int(Text4NurseSubSidy.text) & "," & Text2Int(Text4TeacherSubsidy.text) & "," & Text2Int(Text4AreaSubsidy.text) & "," & Text2Int(Text4StationDutyWage.text) & "," & Text2Int(Text4FieldSubsidy.text) & "," & Text2Int(Text4LiveSubsidy.text) & "," & Text2Int(Text4DriverSubsidy.text) & "," & Text2Int(Text4IslamSubsidy.text) _
                        & "," & Text2Int(Text4SanitationSubsidy.text) & "," & Text2Int(Text4ChargeClass.text) & "," & Text2Int(Text4CompactWage.text) & "," & Text2Int(Text4OldSubsidy.text) & "," & Text2Int(Text4AltiplanoSubsidy.text) & "," & Text2Int(Text4ArtificerSubsidy.text) & "," & Text2Int(Text4HealthCare.text) & "," & Text2Int(Text4WashingWage.text) & "," & Text2Int(Text4TrafficWage.text) & "," & Text2Int(Text4BookWage.text) & "," & Text2Int(Text4OtherWage.text) & ")"
            If ExcuteSQL(m_str4Save) = 0 Then MsgBox "保存完毕!", vbOKOnly, "成功"
        Else
            m_strSQL = "select WAGE_RATE_NO,AREA_SORT_NO from T_OLD_SKILL where SKILL_WAGE=0"
            If m_oRs4WageTemp.State = adStateOpen Then m_oRs4WageTemp.Close
            m_oRs4WageTemp.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
            If m_oRs4WageTemp.EOF Then
                MsgBox "请在工资级别标准代码表中输入一条技能工资为0的记录!", vbOKOnly, "提示"
                Exit Sub
            Else
                m_str4Save = "insert into T_WAGE_STANDARD(EMP_NO,ORGAN_NO,AREA_SORT_NO,WAGE_SORT_NO,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) values (" _
                            & SSComboBoxEx4EmpName.ItemData(SSComboBoxEx4EmpName.ListIndex) & ",'" & str4OrganNo & "'," & m_oRs4WageTemp.Fields("AREA_SORT_NO").Value & ",NULL," & m_oRs4WageTemp.Fields("WAGE_RATE_NO").Value & ",0,0,0,0,0,0,0,0,0,0," & Text2Int(Text4CompactWage.text) & ",0,0,0,0,0,0,0,0)"
                If ExcuteSQL(m_str4Save) = 0 Then
                    MsgBox "保存完毕!", vbOKOnly, "成功"
                    Call ClearText
                End If
            End If
        End If
    Else
        If Me.Check4IsCompactWage.Value = 0 Then
            m_str4Save = "update T_WAGE_STANDARD set AREA_SORT_NO=" & SSComboBoxEx4AreaSort.ItemData(SSComboBoxEx4AreaSort.ListIndex) & ",WAGE_SORT_NO=" & l4WageSort & ",WAGE_RATE_NO=" & SSComboBoxEx4WageRate.ItemData(SSComboBoxEx4WageRate.ListIndex) & ",NURSE_SUBSIDY=" & Text2Int(Text4NurseSubSidy.text) & ",TEACHERS_SUBSIDY=" & Text2Int(Text4TeacherSubsidy.text) & ",AREA_SUBSIDY=" & Text2Int(Text4AreaSubsidy.text) & ",STATION_DUTY_WAGE=" & Text2Int(Text4StationDutyWage.text) & ",FIELD_SUBSIDY=" & Text2Int(Text4FieldSubsidy.text) & ",LIVE_SUBSIDY=" & Text2Int(Text4LiveSubsidy.text) & ",DRIVER_SUBSIDY=" & Text2Int(Text4DriverSubsidy.text) & ",ISLAM_SUBSIDY=" _
                        & Text2Int(Text4IslamSubsidy.text) & ",SANITATION_SUBSIDY=" & Text2Int(Text4SanitationSubsidy.text) & ",CHARGE_CLASS_SUBSIDY=" & Text2Int(Text4ChargeClass.text) & ",COMPACT_WAGE=0,OLD_SUBSIDY=" & Text2Int(Text4OldSubsidy.text) & ",ALTIPLANO_SUBSIDY=" & Text2Int(Text4AltiplanoSubsidy.text) & ",TICHNICIAN_SUBSIDY=" & Text2Int(Text4ArtificerSubsidy.text) & ",HARD_STATION_SUBSIDY=" & Text2Int(Text4HealthCare.text) & ",WASHING_COST=" & Text2Int(Text4WashingWage.text) & ",TRAFFIC_COST=" & Text2Int(Text4TrafficWage.text) & ",BOOK_COST=" & Text2Int(Text4BookWage.text) & ",OTHER_WAGE=" & Text2Int(Text4OtherWage.text) _
                        & " where EMP_NO=" & g_array4WorkerType(1, m_int4SSSpinText) & " and ORGAN_NO='" & g_array4WorkerType(2, m_int4SSSpinText) & "'"
            If ExcuteSQL(m_str4Save) = 0 Then
                MsgBox "保存完毕!", vbOKOnly, "成功"
                'Call ClearText
            End If
        Else
            m_strSQL = "select WAGE_RATE_NO,AREA_SORT_NO from T_OLD_SKILL where SKILL_WAGE=0"
            If m_oRs4WageTemp.State = adStateOpen Then m_oRs4WageTemp.Close
            m_oRs4WageTemp.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
            If m_oRs4WageTemp.EOF Then
                MsgBox "请在工资级别标准代码表中输入一条技能工资为0的记录!", vbOKOnly, "提示"
                Exit Sub
            Else
                m_str4Save = "update T_WAGE_STANDARD set AREA_SORT_NO=" & m_oRs4WageTemp.Fields("AREA_SORT_NO").Value & ",WAGE_SORT_NO=NULL,WAGE_RATE_NO=" & m_oRs4WageTemp.Fields("WAGE_RATE_NO").Value & ",NURSE_SUBSIDY=0,TEACHERS_SUBSIDY=0,AREA_SUBSIDY=0,STATION_DUTY_WAGE=0,FIELD_SUBSIDY=0,LIVE_SUBSIDY=0,DRIVER_SUBSIDY=0,ISLAM_SUBSIDY=0," _
                            & "SANITATION_SUBSIDY=0,CHARGE_CLASS_SUBSIDY=0,COMPACT_WAGE=" & Text2Int(Me.Text4CompactWage.text) & ",OLD_SUBSIDY=0,ALTIPLANO_SUBSIDY=0,TICHNICIAN_SUBSIDY=0,HARD_STATION_SUBSIDY=0,WASHING_COST=0,TRAFFIC_COST=0,BOOK_COST=0,OTHER_WAGE=0 where EMP_NO=" & g_array4WorkerType(1, m_int4SSSpinText) & " and ORGAN_NO='" & g_array4WorkerType(2, m_int4SSSpinText) & "'"
                If ExcuteSQL(m_str4Save) = 0 Then MsgBox "保存完毕!", vbOKOnly, "成功"
            End If
        End If
    End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then SendKeys "{tab}"
End Sub

Private Sub Form_Load()
    Me.Command4Close.Enabled = False
    Label4Organ.ForeColor = vbBlue
    Label4Name.ForeColor = vbBlue
    Label4AreaSort.ForeColor = vbBlue
    Label4WageRate.ForeColor = vbBlue
    Text4TechnicalWage.Enabled = False
    Text4AgeWage.Enabled = False
    Text4AllWage.Enabled = False
    m_int4NowTime = ConvertDate2Int(Now)
    
    m_int4SSSpinText = 1
    
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.Command4Save.Visible = False
    End If
    
    FillComboBox SSComboBoxEx4AreaSort, "T_AREA_SORT", "AREA_SORT_NO", "AREA_SORT_NAME", 0
    FillComboBox SSComboBoxEx4WageSort, "T_OLD_WAGE_SORT", "WAGE_SORT_NO", "WAGE_SORT_NAME", 0
    FillComboBox SSComboBoxEx4WageRate, "T_OLD_WAGE_RATE", "WAGE_RATE_NO", "WAGE_RATE_NAME", 0
    
    If g_int4statuse = 0 Then
        SSSpin4No.Visible = False
        Call IsCheck
        Text4StationDutyWage.Tag = 0
        Text4IslamSubsidy.Tag = 0
        Text4TechnicalWage.Tag = 0
        Text4AgeWage.Tag = 0
        Text4FieldSubsidy.Tag = 0
        Text4LiveSubsidy.Tag = 0
        Text4DriverSubsidy.Tag = 0
        Text4AreaSubsidy.Tag = 0
        Text4AltiplanoSubsidy.Tag = 0
        Text4TeacherSubsidy.Tag = 0
        Text4ChargeClass.Tag = 0
        Text4OldSubsidy.Tag = 0
        Text4ArtificerSubsidy.Tag = 0
        Text4CompactWage.Tag = 0
        Text4HealthCare.Tag = 0
        Text4WashingWage.Tag = 0
        Text4BookWage.Tag = 0
        Text4TrafficWage.Tag = 0
        Text4SanitationSubsidy.Tag = 0
        Text4NurseSubSidy.Tag = 0
        Text4OtherWage.Tag = 0
        Text4AllWage.text = 0
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    Else
        If g_int4rowstate = 1 Then
            SSSpin4No.Visible = False
            SSSpin4No.text = 1
        Else
            SSSpin4No.Visible = True
            SSSpin4No.SpinDatatype = ssNumerics
            SSSpin4No.MaxValue = g_int4rowstate
            SSSpin4No.MinValue = 1
            SSSpin4No.Increment = 1
            SSSpin4No.text = 1
        End If
        Me.Command4Close.Enabled = True
        SSSpin4No_Change
        Me.Command4Close.Enabled = False
    End If
    Unload frmSplash
    Me.Command4Close.Enabled = True
End Sub

Private Sub SSComboBoxEx4Organ_Change()
    DisplayRelateItems SSComboBoxEx4Organ
    SSComboBoxEx4Company.text = ""
    SSComboBoxEx4Large.text = ""
    SSComboBoxEx4Small.text = ""
End Sub

Private Sub SSComboBoxEx4Organ_LostFocus()
    CheckValidate SSComboBoxEx4Organ
End Sub

Private Sub SSComboBoxEx4AreaSort_Change()
    DisplayRelateItems SSComboBoxEx4AreaSort
End Sub

Private Sub SSComboBoxEx4AreaSort_LostFocus()
    CheckValidate SSComboBoxEx4AreaSort
    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 WAGE_RATE_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 SSComboBoxEx4EmpName_Change()
    DisplayRelateItems SSComboBoxEx4EmpName
End Sub

Private Sub SSComboBoxEx4EmpName_LostFocus()
    CheckValidate SSComboBoxEx4EmpName
    Call GetAgeWage
End Sub

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

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

Private Sub SSComboBoxEx4large_LostFocus()
    CheckValidate SSComboBoxEx4Large
End Sub

Private Sub SSComboBoxEx4Company_Change()
    DisplayRelateItems SSComboBoxEx4Company
    SSComboBoxEx4Large.text = ""
    SSComboBoxEx4Small.text = ""
    SSComboBoxEx4EmpName.text = ""
End Sub

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

Private Sub SSComboBoxEx4Company_LostFocus()
    CheckValidate SSComboBoxEx4Company
End Sub