frmempothermessage.frm

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

            .TextMatrix(0, 11) = "学历"
            .TextMatrix(0, 12) = "政治面貌"
            .TextMatrix(0, 13) = "工作单位"
            .TextMatrix(0, 14) = "性别"
            .TextMatrix(0, 15) = "职称"
            .TextMatrix(0, 16) = "出生日期"
            .TextMatrix(0, 17) = "工作时间"
            .TextMatrix(0, 18) = "职务"
            .ColHidden(19) = True
            .ColHidden(20) = 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(14) = "#1;男|#2;女"
            .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
            .ColComboList(9) = g_strArray4ColComboList(C_T_SOCIATY_RELATION_CODE)
            .ColComboList(10) = g_strArray4ColComboList(C_T_WORKER_TYPE)
            .ColComboList(11) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL)
            .ColComboList(12) = g_strArray4ColComboList(C_T_POLITICS)

            .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
                .Cols = 21
                .ColWidth(0) = .RowHeight(0)
                .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) = "职务"
                .ColHidden(19) = True
                .ColHidden(20) = 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(14) = "#1;男|#2;女"
                .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
                .ColComboList(9) = g_strArray4ColComboList(C_T_SOCIATY_RELATION_CODE)
                .ColComboList(10) = g_strArray4ColComboList(C_T_WORKER_TYPE)
                .ColComboList(11) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL)
                .ColComboList(12) = g_strArray4ColComboList(C_T_POLITICS)

                .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 1
            .ColWidth(0) = .RowHeight(0)
            .ColDataType(0) = flexDTBoolean
            .Cols = 25
            .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) = "备注"
            .ColHidden(23) = True
            .ColHidden(24) = 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) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_USEWORK_TYPE", "USEWORK_TYPE_NAME", "USEWORKE_TYPE_NO")
            .ColComboList(20) = "#1;是|#0;否"
            .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
            .ColComboList(9) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL)
            .ColComboList(10) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL_WAY)
            .ColComboList(11) = g_strArray4ColComboList(C_T_TRAIN_CONTENT)
            .ColComboList(12) = g_strArray4ColComboList(C_T_TRAIN_LEVEL)
            .ColComboList(13) = g_strArray4ColComboList(C_T_TRAIN_SORT)
            For lfor = 1 To .Rows - 1
                If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
            Next
            .AutoSize 1, .Cols - 1
            .ExtendLastCol = True
            With VSFlexGrid4Group
                .ColWidth(0) = .RowHeight(0)
                .Cols = 25
                .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) = "备注"
                .ColHidden(23) = True
                .ColHidden(24) = 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) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_USEWORK_TYPE", "USEWORK_TYPE_NAME", "USEWORKE_TYPE_NO")
                .ColComboList(20) = "#1;是|#0;否"
                .ColComboList(7) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
                .ColComboList(9) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL)
                .ColComboList(10) = g_strArray4ColComboList(C_T_EDUCATION_LEVEL_WAY)
                .ColComboList(11) = g_strArray4ColComboList(C_T_TRAIN_CONTENT)
                .ColComboList(12) = g_strArray4ColComboList(C_T_TRAIN_LEVEL)
                .ColComboList(13) = g_strArray4ColComboList(C_T_TRAIN_SORT)
    
                .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 2
            .ColWidth(0) = .RowHeight(0)
            .ColDataType(0) = flexDTBoolean
            .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
            .ExtendLastCol = 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) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_USEWORK_TYPE", "USEWORK_TYPE_NAME", "USEWORKE_TYPE_NO")
            .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
                .ExtendLastCol = 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) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_USEWORK_TYPE", "USEWORK_TYPE_NAME", "USEWORKE_TYPE_NO")
                .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 3
            .ColDataType(0) = flexDTBoolean
            .ColWidth(0) = .RowHeight(0)
            .Cols = 18
            .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) = "证书编号"

            .ColHidden(16) = True
            .ColHidden(17) = 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_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 .Rows - 1
                If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
            Next
            With VSFlexGrid4Group
                .ColWidth(0) = .RowHeight(0)
                .Cols = 18
                .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) = "证书编号"
    
                .ColHidden(16) = True
                .ColHidden(17) = 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)