📄 frmempothermessage.frm

📁 本公司开发得大请油田人事管理系统c/s结构
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
                Next
                For lfor = 1 To .Rows - 1
                    If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
                Next
            End With
         '行政奖励
        Case 8
            .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_REWARD_LEVEL)
            .ColComboList(10) = g_strArray4ColComboList(C_T_REWARD_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)
                .ColComboList(9) = g_strArray4ColComboList(C_T_REWARD_LEVEL)
                .ColComboList(10) = g_strArray4ColComboList(C_T_REWARD_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 9
            .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) = "批件文号"
            .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)
            .ColHidden(13) = True
            .ColHidden(14) = True
            .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 = 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) = "批件文号"
                .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)
                .ColHidden(13) = True
                .ColHidden(14) = True
                .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 10
            .ColDataType(0) = flexDTBoolean
            .ColWidth(0) = .RowHeight(0)
            .Cols = 17
            .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) = "主要缺点"
            .ColHidden(15) = True
            .ColHidden(16) = 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(8) = g_strArray4ColComboList(C_T_PREPARE_TRAIN_LEVEL)
            .ColComboList(9) = g_strArray4ColComboList(C_T_PREPARE_TRAIN_TARGET)
            .ColComboList(10) = g_strArray4ColComboList(C_T_PREPARE_TRAIN_MEASURE)
            .ColComboList(11) = g_strArray4ColComboList(C_T_PREPARE_MATURE_DEGREE)
            .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 = 17
                .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) = "主要缺点"
                .ColHidden(15) = True
                .ColHidden(16) = 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(8) = g_strArray4ColComboList(C_T_PREPARE_TRAIN_LEVEL)
                .ColComboList(9) = g_strArray4ColComboList(C_T_PREPARE_TRAIN_TARGET)
                .ColComboList(10) = g_strArray4ColComboList(C_T_PREPARE_TRAIN_MEASURE)
                .ColComboList(11) = g_strArray4ColComboList(C_T_PREPARE_MATURE_DEGREE)
                .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 11
            .ColDataType(0) = flexDTBoolean
            .ColWidth(0) = .RowHeight(0)
            .Cols = 14
            .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) = "量化得分"
            .ColHidden(12) = True
            .ColHidden(13) = 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)
            .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 = 14
                .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) = "量化得分"
                .ColHidden(12) = True
                .ColHidden(13) = 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)
                .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 12
            .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_strArray4ColCo
上一页 1 2 3 45
💿 文件大小 3193 K
👤 上传用户 zhang8818200
📂 所属分类企业管理
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -