frmempothermessage.frm

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

                .ColComboList(9) = g_strArray4ColComboList(C_T_SEARCH_GRADE)
                .ColComboList(10) = g_strArray4ColComboList(C_T_SEARCH_LEVEL)
                .ColComboList(11) = g_strArray4ColComboList(C_T_SCIENTIFIC_SEARCH_SORT)
                .ExtendLastCol = True
                .AutoSize 1, .Cols - 1
                For lfor = 1 To .Cols - 1
                    .ColAlignment(lfor) = flexAlignCenterCenter
                Next
                For lfor = 1 To .Rows - 1
                    If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
                Next
            End With
         '工作简历
        Case 4
            .ColDataType(0) = flexDTBoolean
            .ColWidth(0) = .RowHeight(0)
            .Cols = 19
            .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) = "文号"
            .ColHidden(17) = True
            .ColHidden(18) = True
            .ColComboList(13) = "#1;是|#0;否"
            .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
            .ColComboList(9) = g_strArray4ColComboList(C_T_TECHNICAL_NAME_LEVEL)
            .ColComboList(10) = g_strArray4ColComboList(C_T_DUTY_LEVEL)
            .ColComboList(11) = g_strArray4ColComboList(C_T_WORKER_TYPE)
            .ExtendLastCol = True
            .AutoSize 1, .Cols - 1
            For lfor = 1 To .Rows - 1
                If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
            Next
            With VSFlexGrid4Group
                .ColWidth(0) = .RowHeight(0)
                .Cols = 19
                .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) = "文号"
                .ColHidden(17) = True
                .ColHidden(18) = True
                .ColComboList(13) = "#1;是|#0;否"
                .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
                .ColComboList(9) = g_strArray4ColComboList(C_T_TECHNICAL_NAME_LEVEL)
                .ColComboList(10) = g_strArray4ColComboList(C_T_DUTY_LEVEL)
                .ColComboList(11) = g_strArray4ColComboList(C_T_WORKER_TYPE)
                .ExtendLastCol = True
                .AutoSize 1, .Cols - 1
                For lfor = 1 To .Cols - 1
                    .ColAlignment(lfor) = flexAlignCenterCenter
                Next
                For lfor = 1 To .Rows - 1
                    If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
                Next
            End With
        '学历简历
        Case 5
            .ColDataType(0) = flexDTBoolean
            .ColWidth(0) = .RowHeight(0)
            .Cols = 19
            .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) = "学位证编号"
            .ColHidden(17) = True
            .ColHidden(18) = True
            .ColComboList(11) = "#1;毕业|#2;肄业"
            .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
            .ColComboList(9) = g_strArray4ColComboList(C_T_DEGREE)
            .ColComboList(10) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL)
            .ExtendLastCol = True
            .AutoSize 1, .Cols - 1
            For lfor = 1 To .Rows - 1
                If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
            Next
            With VSFlexGrid4Group
                .ColWidth(0) = .RowHeight(0)
                .Cols = 19
                .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) = "学位证编号"
                .ColHidden(17) = True
                .ColHidden(18) = True
                .ColComboList(11) = "#1;毕业|#2;肄业"
                .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
                .ColComboList(9) = g_strArray4ColComboList(C_T_DEGREE)
                .ColComboList(10) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL)
                .ExtendLastCol = True
                .AutoSize 1, .Cols - 1
                For lfor = 1 To .Cols - 1
                    .ColAlignment(lfor) = flexAlignCenterCenter
                Next
                For lfor = 1 To .Rows - 1
                    If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
                Next
            End With
         '学术、技术带头人
        Case 6
            .ColDataType(0) = flexDTBoolean
            .ColWidth(0) = .RowHeight(0)
            .Cols = 15
            .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) = "备注"
            .ColHidden(13) = True
            .ColHidden(14) = True
            .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
            .ColComboList(9) = g_strArray4ColComboList(C_T_TECHNICAL_LEAD_LEVEL)
            .ColComboList(10) = g_strArray4ColComboList(C_T_TECHNICAL_LEAD_TARGET)
            .AutoSize 1, .Cols - 1
            .ExtendLastCol = True
            For lfor = 1 To .Rows - 1
                If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
            Next
            With VSFlexGrid4Group
                .ColWidth(0) = .RowHeight(0)
                .Cols = 15
                .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) = "备注"
                .ColHidden(13) = True
                .ColHidden(14) = True
                .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
                .ColComboList(9) = g_strArray4ColComboList(C_T_TECHNICAL_LEAD_LEVEL)
                .ColComboList(10) = g_strArray4ColComboList(C_T_TECHNICAL_LEAD_TARGET)
                .AutoSize 1, .Cols - 1
                .ExtendLastCol = True
                For lfor = 1 To .Cols - 1
                    .ColAlignment(lfor) = flexAlignCenterCenter
                Next
                For lfor = 1 To .Rows - 1
                    If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
                Next
            End With
        '行政惩罚
         Case 7
            .ColDataType(0) = flexDTBoolean
            .ColWidth(0) = .RowHeight(0)
            .Cols = 16
            .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) = "文号"
            .ColHidden(14) = True
            .ColHidden(15) = True
            .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
            .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
            .ColComboList(9) = g_strArray4ColComboList(C_T_PUNISH_REASON)
            .ColComboList(10) = g_strArray4ColComboList(C_T_PUNISH_TYPE)
            .ColComboList(11) = g_strArray4ColComboList(C_T_PUNISH_SORT)
            .ExtendLastCol = True
            .AutoSize 1, .Cols - 1
            For lfor = 1 To .Rows - 1
                If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
            Next
            With VSFlexGrid4Group
                .ColWidth(0) = .RowHeight(0)
                .Cols = 16
                .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) = "文号"
                .ColHidden(14) = True
                .ColHidden(15) = True
                .ColComboList(1) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(2) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
                .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
                .ColComboList(9) = g_strArray4ColComboList(C_T_PUNISH_REASON)
                .ColComboList(10) = g_strArray4ColComboList(C_T_PUNISH_TYPE)
                .ColComboList(11) = g_strArray4ColComboList(C_T_PUNISH_SORT)
                .ExtendLastCol = True
                .AutoSize 1, .Cols - 1
                For lfor = 1 To .Cols - 1
                    .ColAlignment(lfor) = flexAlignCenterCenter