frmwage.frm

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

        For ifor = 1 To .Cols - 1
            .ColAlignment(ifor) = flexAlignLeftCenter
        Next
        .ColWidth(0) = .RowHeight(0)
    End With
    InitForm
    vsElastic2.Caption = "工资信息(总计" & VSFlexGrid4Wage.Rows - 1 & "条记录)"
End Sub

Private Sub VSFlexGrid4Wage_BeforeDataRefresh(Cancel As Boolean)
    VSFlexGrid4Wage.FixedCols = 1
End Sub

Private Sub VSFlexGrid4Wage_Click()
    With VSFlexGrid4Wage
        If .Row > 0 And .Col = 0 Then
            If .TextMatrix(.Row, 0) = "True" Then
                .TextMatrix(.Row, 0) = "False"
            Else
                .TextMatrix(.Row, 0) = "True"
            End If
        End If
    End With
End Sub

Private Sub InitForm()
    '1位查询，2位增加，3位修改，4位删除，5位导出到excel，6位打印,7位其他
    Dim str4CheckPermission As String
    str4CheckPermission = CheckPermission("职工工资信息")
    With SSListBar4This
        If Mid(str4CheckPermission, 1, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 2, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 3, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 4, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 5, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 6, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 7, 1) = 0 Then
            .Groups(C_FIRST_GROUP).ListItems(C_OTHER_MEMBER).ForeColor = C_UNUSE_COLOR
            .Groups(C_SECOND_GROUP).ListItems(C_WAGE_CUSTOM_CHANGE).ForeColor = C_UNUSE_COLOR
        End If
    End With
End Sub

Private Sub SSListBar4This_ListItemClick(ByVal ItemClicked As Listbar.SSListItem)
    Dim ifor As Long
    If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).text = "分类汇总(&L)" Then Me.VSFlexGrid4Wage.SetFocus
    Select Case Me.SSListBar4This.CurrentGroup.Index
    Case C_FIRST_GROUP
        Select Case ItemClicked.Index
        Case C_ALL_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            With VSFlexGrid4Wage
                'AfterDataRefresh中设置 .row=1
                If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).text = "全选(&A)" Then
                    Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).text = "清空(&C)"
                    For ifor = 1 To .Rows - 1
                        If ifor < .Row Then
                            .TextMatrix(ifor, 0) = "False"
                        Else
                            If ifor - .Row >= 1000 Then MsgBox "最大只能选择1000条记录。", vbOKOnly, "确定": Exit Sub
                            .TextMatrix(ifor, 0) = "True"
                        End If
                    Next
                Else
                    Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).text = "全选(&A)"
                    For ifor = .Row To .Rows - 1
                        .TextMatrix(ifor, 0) = "False"
                    Next
                End If
            End With
        Case C_UNALL_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            With VSFlexGrid4Wage
                For ifor = .Row To .Rows - 1
                    If .TextMatrix(ifor, 0) = "True" Then
                        .TextMatrix(ifor, 0) = "False"
                    Else
                        If ifor - .Row >= 1000 Then MsgBox "最大只能选择1000条记录。", vbOKOnly, "确定": Exit Sub
                        .TextMatrix(ifor, 0) = "True"
                    End If
                Next
            End With
        Case C_SELECT_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            frmSplash.Show
            DoEvents
            If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
                m_str = "select EMP_NO from T_EMP_BASIC where ORGAN_NO like '001%' " & HaveEmpMark
            Else
                m_str = "select EMP_NO from T_EMP_BASIC where ORGAN_NO like '" & g_str4LoginUnit & "%' " & HaveEmpMark
            End If
            If Trim(Text4EmpName.text) <> "" Then m_str = m_str & " and EMP_NAME like '%" & Trim(Text4EmpName.text) & "%'"
            If Trim(Text4IDCode.text) <> "" Then m_str = m_str & " and ID_CODE like '%" & Trim(Text4IDCode.text) & "%'"
            If Trim(SSComboBoxEx4EmpType.text) <> "" Then
                SSComboBoxEx4EmpType.CheckList = True
                m_str = m_str & " and EMP_TYPE_NO=" & SSComboBoxEx4EmpType.ItemData(SSComboBoxEx4EmpType.ListIndex)
            End If
            If Trim(SSComboBoxEx4UseWork.text) <> "" Then
                SSComboBoxEx4UseWork.CheckList = True
                m_str = m_str & " and USEWORKE_TYPE_NO=" & SSComboBoxEx4UseWork.ItemData(SSComboBoxEx4UseWork.ListIndex)
            End If
            If Trim(SSComboBoxEx4WorkerSort.text) <> "" Then
                SSComboBoxEx4WorkerSort.CheckList = True
                m_str = m_str & " and WORKER_SORT_NO=" & SSComboBoxEx4WorkerSort.ItemData(SSComboBoxEx4WorkerSort.ListIndex)
            End If
            If Trim(SSComboBoxEx4EmpSort.text) <> "" Then
                SSComboBoxEx4EmpSort.CheckList = True
                m_str = m_str & " and EMP_SORT_NO=" & SSComboBoxEx4EmpSort.ItemData(SSComboBoxEx4EmpSort.ListIndex)
            End If
            
            m_strSQL = "select T_EMP_BASIC.EMP_NAME,T_TEMP_ORGAN_BREAK.FACTORY_ORGAN_NO,T_TEMP_ORGAN_BREAK.COMPANY_ORGAN_NO,T_TEMP_ORGAN_BREAK.LARGE_ORGAN_NO,T_TEMP_ORGAN_BREAK.SAMLL_ORGAN_NO,T_ORGAN.ORGAN_LEVEL,AREA_SORT_NO,WAGE_RATE_NO,(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) as SKILL_WAGE,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,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," _
                        & "case T_WAGE_STANDARD.COMPACT_WAGE when 0 then ((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)+((" & left(m_int4NowTime, 4) & "-left(T_EMP_BASIC.WORK_TIME,4)+1)*2)+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)" _
                        & " else T_WAGE_STANDARD.COMPACT_WAGE end,T_WAGE_STANDARD.EMP_NO,T_WAGE_STANDARD.ORGAN_NO" _
                        & " from T_WAGE_STANDARD,T_EMP_BASIC,T_ORGAN,T_TEMP_ORGAN_BREAK" _
                        & " where T_WAGE_STANDARD.EMP_NO=T_EMP_BASIC.EMP_NO and T_WAGE_STANDARD.ORGAN_NO=T_ORGAN.ORGAN_NO and T_WAGE_STANDARD.ORGAN_NO=T_TEMP_ORGAN_BREAK.ORGAN_NO " & HaveOrganMark & " and T_WAGE_STANDARD.ORGAN_NO = T_EMP_BASIC.ORGAN_NO"
                        
            If Trim(SSComboBoxEx4Small.text) <> "" Then
                SSComboBoxEx4Small.CheckList = True
                m_strSQL = m_strSQL & " and T_ORGAN.ORGAN_NO like '" & SSComboBoxEx4Small.ItemData(SSComboBoxEx4Small.ListIndex) & "%'"
            Else
                If Trim(SSComboBoxEx4Large.text) <> "" Then
                    SSComboBoxEx4Large.CheckList = True
                    m_strSQL = m_strSQL & " and T_ORGAN.ORGAN_NO like '" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "%'"
                Else
                    If Trim(SSComboBoxEx4Company.text) <> "" Then
                        SSComboBoxEx4Company.CheckList = True
                        m_strSQL = m_strSQL & " and T_ORGAN.ORGAN_NO like '" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "%'"
                    Else
                        If Trim(SSComboBoxEx4Oragn.text) <> "" Then
                            SSComboBoxEx4Oragn.CheckList = True
                            m_strSQL = m_strSQL & " and T_ORGAN.ORGAN_NO like '" & SSComboBoxEx4Oragn.ItemData(SSComboBoxEx4Oragn.ListIndex) & "%'"
                        End If
                    End If
                End If
            End If
            If Trim(SSComboBoxEx4AreaSort.text) <> "" Then
                SSComboBoxEx4AreaSort.CheckList = True
                m_strSQL = m_strSQL & " and AREA_SORT_NO=" & SSComboBoxEx4AreaSort.ItemData(SSComboBoxEx4AreaSort.ListIndex)
            End If
            If Trim(SSComboBoxEx4WageSort.text) <> "" Then
                SSComboBoxEx4WageSort.CheckList = True
                m_strSQL = m_strSQL & " and WAGE_SORT_NO=" & SSComboBoxEx4WageSort.ItemData(SSComboBoxEx4WageSort.ListIndex)
            End If
            If Trim(SSComboBoxEx4WageRate.text) <> "" Then
                SSComboBoxEx4WageRate.CheckList = True
                m_strSQL = m_strSQL & " and WAGE_RATE_NO=" & SSComboBoxEx4WageRate.ItemData(SSComboBoxEx4WageRate.ListIndex)
            End If
            If Trim(Text4AgeWage.text) <> "" Then m_strSQL = m_strSQL & " and case T_WAGE_STANDARD.COMPACT_WAGE when 0 then ((" & left(m_int4NowTime, 4) & "-left(T_EMP_BASIC.WORK_TIME,4)+1)*2) else T_WAGE_STANDARD.COMPACT_WAGE end=" & CLng(Trim(Text4AgeWage.text))
            If Trim(Text4StartWage.text) <> "" Then
                m_strSQL = m_strSQL & " and case T_WAGE_STANDARD.COMPACT_WAGE when 0 then ((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)+((" & left(m_int4NowTime, 4) & "-left(T_EMP_BASIC.WORK_TIME,4)+1)*2)+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) else T_WAGE_STANDARD.COMPACT_WAGE end>=" & CLng(Trim(Text4StartWage.text))
            End If
            If Trim(Text4EndWage.text) <> "" Then
                m_strSQL = m_strSQL & " and case T_WAGE_STANDARD.COMPACT_WAGE when 0 then ((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)+((" & left(m_int4NowTime, 4) & "-left(T_EMP_BASIC.WORK_TIME,4)+1)*2)+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) else T_WAGE_STANDARD.COMPACT_WAGE end<=" & CLng(Trim(Text4EndWage.text))
            End If
            If m_str <> "" Then
                m_strSQL = m_strSQL & " and T_WAGE_STANDARD.EMP_NO in (" & m_str & ")"
            End If
            If m_oRs4Wage.State = adStateOpen Then m_oRs4Wage.Close
            m_oRs4Wage.CursorLocation = adUseClient
            m_oRs4Wage.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
            Set VSFlexGrid4Group.DataSource = m_oRs4Wage
            Set VSFlexGrid4Wage.DataSource = m_oRs4Wage
    
            Unload frmSplash
        Case C_LUMP_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            If VSFlexGrid4Wage.Visible = True Then
                VSFlexGroup1.Visible = True
                VSFlexGrid4Wage.Visible = False
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).text = "表格(&L)"
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_FIELD_SUBTOTAL).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR
                If Len(g_str4LoginUnit) <> C_BUREAUE_LENGTH Then
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_WAGE_CUSTOM_CHANGE).ForeColor = C_UNUSE_COLOR
                End If
            Else
                VSFlexGroup1.Visible = False
                VSFlexGrid4Wage.Visible = True
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).text = "分类汇总(&L)"
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_FIELD_SUBTOTAL).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_USE_COLOR
                If Len(g_str4LoginUnit) <> C_BUREAUE_LENGTH Then
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_USE_COLOR
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_USE_COLOR
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_WAGE_CUSTOM_CHANGE).ForeColor = C_USE_COLOR
                End If
            End If
        Case C_CLOSE_MEMBER
            Unload Me
        Case C_TO_EXCEL_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            MousePointer = 11
            ExportExcel m_strSQL, Me.VSFlexGrid4Wage
            MousePointer = 1
        Case C_TO_PRN_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            frmPrint.g_str4MainPrint = "职工工资信息"
            Me.VSFlexGrid4Wage.ColHidden(0) = True
            Me.VSFlexGrid4Wage.SaveGrid App.Path & "\2000.txt", flexFileAll
            Me.VSFlexGrid4Wage.ColHidden(0) = False
            frmPrint.Show 1
        Case C_OTHER_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_OTHER_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            Dim l4TotalData As Long
On Error GoTo Err:
            m_l4CheckCount = 0
            l4TotalData = 0
            Text4Count.text = ""
            Text4Total.text = ""
            Text4Average.text = ""
            With VSFlexGrid4Wage
                For ifor = 1 To .Rows - 1
                    If .TextMatrix(ifor, 0) = "True" Then
                        l4TotalData = l4TotalData + Trim(.TextMatrix(ifor, 27))
                        m_l4CheckCount = m_l4CheckCount + 1
                    End If
                Next
                If m_l4CheckCount <> 0 And l4TotalData <> 0 Then
                    Text4Count.text = m_l4CheckCount
                    Text4Total.text = l4TotalData
                    Text4Average.text = GetAfterPointTowData(l4TotalData / m_l4CheckCount)
                End If
            End With
            Exit Sub
Err: MsgBox "所选人员工资信息不完整,无法统计!", vbCritical, "失败"
        Case C_FIELD_SUBTOTAL
            If SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_FIELD_SUBTOTAL).ForeColor = C_UNUSE_COLOR Then Exit Sub
            VSFlexGrid4Wage.SubtotalPosition = flexSTAbove
            For ifor = 10 To VSFlexGrid4Wage.Cols - 1
                VSFlexGrid4Wage.Subtotal flexSTSum, -1, ifor, "##0.00", , vbBlue, , "合计: %s", 1
            Next
            If VSFlexGrid4Wage.Rows - 1 > 0 Then VSFlexGrid4Wage.TextMatrix(1, 1) = "合计:"
        End Select
    Case C_SECOND_GROUP
        Select Case ItemClicked.Index
        Case C_DELETE_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            With Me.VSFlexGrid4Wage
                If .Row <= 0 Then Exit Sub
                If vbYes = MsgBox("确认删除该记录吗?", vbYesNo + vbDefaultButton2, "警告") Then
                    m_strSQL = "delete from T_WAGE_STANDARD where EMP_NO = " & .TextMatrix(.Row, 31) & " and ORGAN_NO = '" & .TextMatrix(.Row, 32) & "'"
                    If ExcuteSQL(m_strSQL) <> 0 Then Exit Sub
                    .RemoveItem .Row
                End If
            End With
            vsElastic2.Caption = "工资信息(总计" & VSFlexGrid4Wage.Rows - 1 & "条记录)"
        Case C_INSERT_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            g_int4statuse = 0
            frmSplash.Show
            DoEvents
            frmWageEdit.Show 1
            If m_oRs4Wage.State = adStateOpen Then m_oRs4Wage.Requery
        Case C_UPDATE_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            g_int4rowstate = 0
            With VSFlexGrid4Wage
                For ifor = 1 To .Rows - 1
                    If .TextMatrix(ifor, 0) = "True" Then
                        g_int4rowstate = g_int4rowstate + 1
                        g_array4WorkerType(1, g_int4rowstate) = .TextMatrix(ifor, 31)
                        g_array4WorkerType(2, g_int4rowstate) = .TextMatrix(ifor, 32)
                    End If
                Next
                If g_int4rowstate = 0 Then
                    MsgBox "请选择至少一条记录!", vbOKOnly, "提示"
                    Exit Sub
                End If
            End With
            g_int4statuse = 1
            frmSplash.Show
            DoEvents
            frmWageEdit.Show 1
            If m_oRs4Wage.State = adStateOpen Then m_oRs4Wage.Requery
        Case C_WAGE_CUSTOM_CHANGE
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_WAGE_CUSTOM_CHANGE).ForeColor = C_UNUSE_COLOR Then Exit Sub
            g_int4rowstate = 0
            With VSFlexGrid4Wage
                For ifor = 1 To .Rows - 1
                    If .TextMatrix(ifor, 0) = "True" Then
                        g_int4rowstate = g_int4rowstate + 1
                        g_array4WorkerType(1, g_int4rowstate) = .TextMatrix(ifor, 31)
                        g_array4WorkerType(2, g_int4rowstate) = .TextMatrix(ifor, 32)
                    End If
                Next
            End With
            frmWageCustomChange.Show 1
            If m_oRs4Wage.State = adStateOpen Then m_oRs4Wage.Requery
        End Select
    End Select
End Sub