frmwage.frm

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

         Top             =   1395
         Width           =   1110
      End
      Begin VB.Label Label4EmpType 
         Caption         =   "人员类别"
         Height          =   300
         Left            =   6375
         TabIndex        =   21
         Top             =   675
         Width           =   1605
      End
      Begin VB.Label Label4AgeWage 
         Caption         =   "工龄工资"
         Height          =   285
         Left            =   90
         TabIndex        =   20
         Top             =   1740
         Width           =   1110
      End
      Begin VB.Label Label4Wage 
         Caption         =   "工资总额"
         Height          =   285
         Left            =   2925
         TabIndex        =   19
         Top             =   1740
         Width           =   1635
      End
      Begin VB.Label Label4Mid 
         Caption         =   "介于"
         Height          =   285
         Left            =   6375
         TabIndex        =   18
         Top             =   1740
         Width           =   1605
      End
   End
End
Attribute VB_Name = "frmWage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4Wage As New ADODB.Recordset
Private m_strSQL As String
Private m_str As String
Private m_int4NowTime As Long
Private m_l4CheckCount As Long
Private VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid

Private Sub Form_Load()
    Me.Height = 5460
    Me.Width = 9540
    
    Text4Average.Enabled = False
    Text4Total.Enabled = False
    Text4Count.Enabled = False
    
    Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid
    
    m_int4NowTime = ConvertDate2Int(Now)
    PrcessSSComboxExFormLoad Me.SSComboBoxEx4Oragn, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).text = "查看"
    End If
    
    FillComboBox SSComboBoxEx4EmpType, "T_EMP_TYPE", "EMP_TYPE_NO", "EMP_TYPE_NAME", 0
    FillComboBox SSComboBoxEx4UseWork, "T_USEWORK_TYPE", "USEWORKE_TYPE_NO", "USEWORK_TYPE_NAME", 0
    FillComboBox SSComboBoxEx4WorkerSort, "T_WORKER_SORT", "WORKER_SORT_NO", "WORKER_SORT_NAME", 0
    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
    FillComboBoxTwoFields SSComboBoxEx4EmpSort, "T_EMP_SORT", "EMP_SORT_NO", "EMP_SORT_NAME", "EMP_SORT_LEVEL_NAME", 0
    
    With VSFlexGrid4Wage
        .FixedCols = 1
        .FixedRows = 1
        .Rows = 1
        .ColWidth(0) = .RowHeight(0)
        .ExplorerBar = flexExSortShow
        .AllowBigSelection = False
        .AllowSelection = False
        .SelectionMode = flexSelectionByRow
        .AllowUserResizing = flexResizeColumns
        .ExtendLastCol = True
    End With
    Call VSFlexGrid4Wage_AfterDataRefresh
 
    Unload frmSplash
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_职工工资信息").Enabled = True
End Sub

Private Sub SSComboBoxEx4Oragn_Change()
    DisplayRelateItems SSComboBoxEx4Oragn
    SSComboBoxEx4Company.text = ""
    SSComboBoxEx4Large.text = ""
    SSComboBoxEx4Small.text = ""
End Sub

Private Sub SSComboBoxEx4Oragn_LostFocus()
    CheckValidate SSComboBoxEx4Oragn
End Sub

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

Private Sub SSComboBoxEx4Company_GotFocus()
    If Trim(SSComboBoxEx4Oragn.text) <> "" Then
        SSComboBoxEx4Oragn.CheckList = True
        FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and ORGAN_NO like '" & SSComboBoxEx4Oragn.ItemData(SSComboBoxEx4Oragn.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(SSComboBoxEx4Oragn.text) <> "" Then
            SSComboBoxEx4Oragn.CheckList = True
            FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and ORGAN_NO like '" & SSComboBoxEx4Oragn.ItemData(SSComboBoxEx4Oragn.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"
        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"
        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"
        Else
            If Trim(SSComboBoxEx4Oragn.text) <> "" Then
                SSComboBoxEx4Oragn.CheckList = True
                FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and ORGAN_NO like '" & SSComboBoxEx4Oragn.ItemData(SSComboBoxEx4Oragn.ListIndex) & "%'and ORGAN_LEVEL=0"
            End If
        End If
    End If
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate SSComboBoxEx4Small
End Sub

Private Sub Text4AgeWage_KeyPress(KeyAscii As Integer)
   ' CheckText KeyAscii, Text4AgeWage.Text, Text4WashingWage.SelStart, True
End Sub

Private Sub Text4EndWage_KeyPress(KeyAscii As Integer)
    'CheckText KeyAscii, Text4EndWage.Text, Text4WashingWage.SelStart, True
End Sub

Private Sub Text4IDCode_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii
End Sub

Private Sub Text4StartWage_keypress(KeyAscii As Integer)
    'CheckText KeyAscii, Text4StartWage.Text, Text4WashingWage.SelStart, True
End Sub

Private Sub VSFlexGrid4Wage_AfterDataRefresh()
    Dim ifor As Long
    With VSFlexGrid4Wage
        .Cols = 33
        .TextMatrix(0, 1) = "人员姓名"
        .TextMatrix(0, 2) = "厂处级单位"
        .TextMatrix(0, 3) = "公司级单位"
        .TextMatrix(0, 4) = "大队级单位"
        .TextMatrix(0, 5) = "小队级单位"
        .TextMatrix(0, 6) = "单位级别"
        .TextMatrix(0, 7) = "地区类别"
        .TextMatrix(0, 8) = "工资级别"
        .TextMatrix(0, 9) = "技能工资"
        .TextMatrix(0, 10) = "工龄工资"
        .TextMatrix(0, 11) = "护士补贴"
        .TextMatrix(0, 12) = "教师补贴"
        .TextMatrix(0, 13) = "地区补贴"
        .TextMatrix(0, 14) = "岗位职务工资"
        .TextMatrix(0, 15) = "野外津贴"
        .TextMatrix(0, 16) = "生活补贴"
        .TextMatrix(0, 17) = "驾驶津贴"
        .TextMatrix(0, 18) = "回民津贴"
        .TextMatrix(0, 19) = "卫生津贴"
        .TextMatrix(0, 20) = "班主任津贴"
        .TextMatrix(0, 21) = "合同制工资"
        .TextMatrix(0, 22) = "知老补贴"
        .TextMatrix(0, 23) = "高原补贴"
        .TextMatrix(0, 24) = "技师津贴"
        .TextMatrix(0, 25) = "艰岗保健"
        .TextMatrix(0, 26) = "洗理费"
        .TextMatrix(0, 27) = "交通费"
        .TextMatrix(0, 28) = "书报费"
        .TextMatrix(0, 29) = "其它工资"
        .TextMatrix(0, 30) = "工资总额"
        .ColHidden(31) = True
        .ColHidden(32) = True
        .FixedCols = 0
        .ColDataType(0) = flexDTBoolean
        .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(5) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(6) = "#0;小队级|#1;大队级|#2;公司级|#3;厂处级|#4;总部"
        .ColComboList(7) = g_strArray4ColComboList(C_T_AREA_SORT)
        .ColComboList(8) = g_strArray4ColComboList(C_T_OLD_WAGE_RATE)
        .AutoSize 1, .Cols - 1
        For ifor = 1 To .Cols - 1
            .ColAlignment(ifor) = flexAlignLeftCenter
        Next
        .ColWidth(0) = .RowHeight(0)
        If .Rows - 1 < 1 Then
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_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_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_OTHER_MEMBER).ForeColor = C_UNUSE_COLOR
        Else
            .Row = 1
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_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_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_OTHER_MEMBER).ForeColor = C_USE_COLOR
        End If
    End With
    
    '分类汇总用
    With VSFlexGrid4Group
        .Cols = 33
        .TextMatrix(0, 1) = "人员姓名"
        .TextMatrix(0, 2) = "厂处级单位"
        .TextMatrix(0, 3) = "公司级单位"
        .TextMatrix(0, 4) = "大队级单位"
        .TextMatrix(0, 5) = "小队级单位"
        .TextMatrix(0, 6) = "单位级别"
        .TextMatrix(0, 7) = "地区类别"
        .TextMatrix(0, 8) = "工资级别"
        .TextMatrix(0, 9) = "技能工资"
        .TextMatrix(0, 10) = "工龄工资"
        .TextMatrix(0, 11) = "护士补贴"
        .TextMatrix(0, 12) = "教师补贴"
        .TextMatrix(0, 13) = "地区补贴"
        .TextMatrix(0, 14) = "岗位职务工资"
        .TextMatrix(0, 15) = "野外津贴"
        .TextMatrix(0, 16) = "生活补贴"
        .TextMatrix(0, 17) = "驾驶津贴"
        .TextMatrix(0, 18) = "回民津贴"
        .TextMatrix(0, 19) = "卫生津贴"
        .TextMatrix(0, 20) = "班主任津贴"
        .TextMatrix(0, 21) = "合同制工资"
        .TextMatrix(0, 22) = "知老补贴"
        .TextMatrix(0, 23) = "高原补贴"
        .TextMatrix(0, 24) = "技师津贴"
        .TextMatrix(0, 25) = "艰岗保健"
        .TextMatrix(0, 26) = "洗理费"
        .TextMatrix(0, 27) = "交通费"
        .TextMatrix(0, 28) = "书报费"
        .TextMatrix(0, 29) = "其它工资"
        .TextMatrix(0, 30) = "工资总额"
        .ColHidden(31) = True
        .ColHidden(32) = True
        .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(5) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(6) = "#0;小队级|#1;大队级|#2;公司级|#3;厂处级|#4;总部"
        .ColComboList(7) = g_strArray4ColComboList(C_T_AREA_SORT)
        .ColComboList(8) = g_strArray4ColComboList(C_T_OLD_WAGE_RATE)
        .AutoSize 1, .Cols - 1