frmwageevolvment.frm

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

        .ColComboList(5) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(6) = "#0;小队级|#1;大队级|#2;公司级|#3;厂处级|#4;总部"
        .ColComboList(7) = g_strArray4ColComboList(C_T_OLD_WAGE_EVOLVEMENT_STANDARD)
        .ColComboList(8) = g_strArray4ColComboList(C_T_OLD_WAGE_RATE)
        For ifor = 1 To .Cols - 1
            .ColWidth(ifor) = .ClientWidth * 0.14
            .ColAlignment(ifor) = flexAlignCenterCenter
        Next
        .ColWidth(0) = .RowHeight(0)
    End With

    vsElastic2.Caption = "工资演变信息(总计" & VSFlexGrid4Evolvement.Rows - 1 & "条记录)"
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 SSComboBoxEx4Company_Change()
    DisplayRelateItems SSComboBoxEx4Company
    SSComboBoxEx4Large.text = ""
    SSComboBoxEx4Small.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

Private Sub SSComboBoxEx4large_Change()
    DisplayRelateItems SSComboBoxEx4Large
    SSComboBoxEx4Small.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
        If Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
            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 If
End Sub

Private Sub SSComboBoxEx4large_LostFocus()
    CheckValidate SSComboBoxEx4Large
End Sub

Private Sub SSComboBoxEx4Small_Change()
    DisplayRelateItems SSComboBoxEx4Small
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
            If Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
                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 If
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate SSComboBoxEx4Small
End Sub

Private Sub VSFlexGrid4Evolvement_BeforeDataRefresh(Cancel As Boolean)
    VSFlexGrid4Evolvement.FixedCols = 1
End Sub

Private Sub VSFlexGrid4Evolvement_Click()
    With VSFlexGrid4Evolvement
        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
    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.VSFlexGrid4Evolvement.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 VSFlexGrid4Evolvement
                '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 VSFlexGrid4Evolvement
                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
            
            m_strSQL = "select 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,WAGE_EVOLVEMENT_STANDARD_NO,WAGE_RATE_NO,WAGE_MONEY,(cast(EVOLVEMENT_TIME/10000 as varchar(4))+'年'+cast(EVOLVEMENT_TIME%10000/100 as varchar(2))+'月'+cast(EVOLVEMENT_TIME%100 as varchar(2))+'日') as EVOLVEMENT_TIME,WAGE_EVOLVEMENT_NO,T_OLD_WAGE_EVOLVEMENT.ORGAN_NO" _
                        & " from T_OLD_WAGE_EVOLVEMENT,T_EMP_BASIC,T_ORGAN,T_TEMP_ORGAN_BREAK" _
                        & " where T_OLD_WAGE_EVOLVEMENT.EMP_NO=T_EMP_BASIC.EMP_NO and T_OLD_WAGE_EVOLVEMENT.ORGAN_NO=T_ORGAN.ORGAN_NO and T_OLD_WAGE_EVOLVEMENT.ORGAN_NO=T_TEMP_ORGAN_BREAK.ORGAN_NO " & HaveOrganMark & " and T_EMP_BASIC.ORGAN_NO=T_OLD_WAGE_EVOLVEMENT.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(SSComboBoxEx4Organ.text) <> "" Then
                            SSComboBoxEx4Organ.CheckList = True
                            m_strSQL = m_strSQL & " and T_ORGAN.ORGAN_NO like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "%'"
                        End If
                    End If
                End If
            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(SSComboBoxEx4EvolvementCode.text) <> "" Then
                SSComboBoxEx4EvolvementCode.CheckList = True
                m_strSQL = m_strSQL & " and WAGE_EVOLVEMENT_STANDARD_NO=" & SSComboBoxEx4EvolvementCode.ItemData(SSComboBoxEx4EvolvementCode.ListIndex)
            End If
            If Trim(Text4EmpName.text) <> "" Then m_strSQL = m_strSQL & " and T_EMP_BASIC.EMP_NAME like '%" & Trim(Text4EmpName.text) & "%'"
            If Trim(Text4EmpCode.text) <> "" Then m_strSQL = m_strSQL & " and T_EMP_BASIC.ID_CODE like '%" & Trim(Text4EmpCode.text) & "%'"
            If Trim(Text4StartWage.text) <> "" Then
                If Trim(Text4EndWage.text) <> "" Then
                    m_strSQL = m_strSQL & " and WAGE_MONEY>=" & Trim(Text4StartWage.text) & " and WAGE_MONEY<=" & Trim(Text4EndWage.text)
                Else
                    m_strSQL = m_strSQL & " and WAGE_MONEY>=" & Trim(Text4StartWage.text)
                End If
            Else
                If Trim(Text4EndWage.text) <> "" Then
                    m_strSQL = m_strSQL & " and WAGE_MONEY<=" & Trim(Text4EndWage.text)
                End If
            End If
            If Not IsNull(DTPicker4StartEvolvementTime.Value) Then
                If Not IsNull(DTPicker4EndEvolvementTime.Value) Then
                    m_strSQL = m_strSQL & " and EVOLVEMENT_TIME>=" & Format(DTPicker4StartEvolvementTime.Value, "yyyyMMdd") & " and EVOLVEMENT_TIME<=" & Format(DTPicker4EndEvolvementTime.Value, "yyyyMMdd")
                Else
                    m_strSQL = m_strSQL & " and EVOLVEMENT_TIME>=" & Format(DTPicker4StartEvolvementTime.Value, "yyyyMMdd")
                End If
            Else
                If Not IsNull(DTPicker4EndEvolvementTime.Value) Then
                    m_strSQL = m_strSQL & " and EVOLVEMENT_TIME<=" & Format(DTPicker4EndEvolvementTime.Value, "yyyyMMdd")
                End If
            End If
            
            If m_oRs4Evolvement.State = adStateOpen Then m_oRs4Evolvement.Close
            m_oRs4Evolvement.CursorLocation = adUseClient
            m_oRs4Evolvement.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
            Set VSFlexGrid4Group.DataSource = m_oRs4Evolvement
            Set VSFlexGrid4Evolvement.DataSource = m_oRs4Evolvement
            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 VSFlexGrid4Evolvement.Visible = True Then
                VSFlexGroup1.Visible = True
                VSFlexGrid4Evolvement.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_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
                End If
            Else
                VSFlexGroup1.Visible = False
                VSFlexGrid4Evolvement.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_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
                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.VSFlexGrid4Evolvement
            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.VSFlexGrid4Evolvement.ColHidden(0) = True
            Me.VSFlexGrid4Evolvement.SaveGrid App.Path & "\2000.txt", flexFileAll
            Me.VSFlexGrid4Evolvement.ColHidden(0) = False
            frmPrint.Show 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 VSFlexGrid4Evolvement
                If .Row <= 0 Then Exit Sub
                If vbYes = MsgBox("确认删除该记录吗?", vbYesNo + vbDefaultButton2, "警告") Then
                    m_strSQL = "delete from T_OLD_WAGE_EVOLVEMENT where WAGE_EVOLVEMENT_NO = " & .TextMatrix(.Row, 11) & " and ORGAN_NO = '" & .TextMatrix(.Row, 12) & "'"
                    If ExcuteSQL(m_strSQL) <> 0 Then Exit Sub
                    .RemoveItem .Row
                    Me.vsElastic2.Caption = "工资演变信息(总计" & Me.VSFlexGrid4Evolvement.Rows - 1 & "条记录)"
                End If
            End With
        Case C_INSERT_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
                frmWageEvolvmentEdit.m_bIsAdd = True
                frmSplash.Show
                DoEvents
                frmWageEvolvmentEdit.Show 1
                If m_oRs4Evolvement.State = adStateOpen Then m_oRs4Evolvement.Requery
        Case C_UPDATE_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            frmWageEvolvmentEdit.m_j = 0
            With VSFlexGrid4Evolvement
                For ifor = 1 To .Rows - 1
                    If .TextMatrix(ifor, 0) = "True" Then
                        If frmWageEvolvmentEdit.m_j > 1000 Then
                            Exit For
                        Else
                            frmWageEvolvmentEdit.m_j = frmWageEvolvmentEdit.m_j + 1
                            g_array4WorkerType(1, frmWageEvolvmentEdit.m_j) = .TextMatrix(ifor, 11)
                            g_array4WorkerType(2, frmWageEvolvmentEdit.m_j) = .TextMatrix(ifor, 12)
                        End If
                    End If
                Next
            End With
            If frmWageEvolvmentEdit.m_j = 0 Then MsgBox "请选择记录。", vbOKOnly, "提示": Exit Sub
            frmWageEvolvmentEdit.m_bIsAdd = False
            frmSplash.Show
            DoEvents
            frmWageEvolvmentEdit.Show 1
        End Select
    End Select
End Sub