frmreport.frm

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

        
        Case C_CADRE_TOP
            If ExportExcel(, , C_CADRE_TOP, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_CADRE_DUTY
            If ExportExcel(, , C_CADRE_DUTY, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_SPECI_DUTY
            If ExportExcel(, , C_SPECI_DUTY, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_bCadreBasic '集团公司企、事业单位干部基本情况表
            If Getsp_bCadreBasic = False Then Me.MousePointer = 1: Exit Sub
           'If ExportExcel(, , C_bCadreBasic, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
         Case C_bLeaderCadreBasic '集团公司企、事业单位领导干部基本情况表
            'If ExportExcel(, , C_bLeaderCadreBasic, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
            If bLeaderCadreBasic = False Then Me.MousePointer = 1: Exit Sub
        Case C_SPECI_DUTY
            If ExportExcel(, , C_SPECI_DUTY, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        'Case C_bEveryExpertSortLevel '集团公司各类专业技术人员分类分级情况统计表
       '     If ExportExcel(, , C_bEveryExpertSortLevel, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
       ' Case C_GROUP_SPECI '集团公司专业技术人员统计报表
        '    If ExportExcel(, , C_GROUP_SPECI, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        
        Case C_bExpertBasic_ONE '* 集团公司各类专业技术人员情况统计表
            If Getsp_bExpertBasic = False Then Me.MousePointer = 1: Exit Sub
      '      If ExportExcel(, , C_bExpertBasic_ONE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_bExpertBasic_TWO '集团公司各类专业技术人员情况统计表
            If ExportExcel(, , C_bExpertBasic_TWO, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_bExpertBasic_THREE '集团公司各类专业技术人员情况统计表
            If ExportExcel(, , C_bExpertBasic_THREE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_bExpertBasic_FOUR '集团公司各类专业技术人员情况统计表
            If ExportExcel(, , C_bExpertBasic_FOUR, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        
        Case C_bProjectExpertBasic '集团公司工程技术人员情况统计表
            'If ExportExcel(, , C_bProjectExpertBasic, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
            If ProjectExpertBasic = False Then Me.MousePointer = 1: Exit Sub
        Case C_bMedicalBasic '集团公司医疗卫生机构及卫生技术人员情况统计表
            If ExportExcel(, , C_bProjectExpertBasic, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_bEducationBasic '集团公司教育培训机构及教育培训人员情况统计表
            If ExportExcel(, , C_bProjectExpertBasic, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_bEveryExpertSortLevel '集团公司各类专业技术人员分类分级情况统计表
            If GetbEveryExpertSortLevel = False Then Me.MousePointer = 1: Exit Sub
        Case C_bEveryEmpTrain '集团公司2001年各类人员培训情况统计表
            If Getsp_bEveryEmpTrain = False Then Me.MousePointer = 1: Exit Sub
            'If ExportExcel(, , C_bEveryEmpTrain, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        
        
        Case C_TwoYearsChangge '两年变化情况报表
            If Getsp_TwoYearsChangge = False Then Me.MousePointer = 1: Exit Sub
        Case C_DifferentDepartmentStat_ONE '分部门情况统计表
            'If ExportExcel(, , C_DifferentDepartmentStat_ONE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
            If DifferentDepartmentStat = False Then Me.MousePointer = 1: Exit Sub
        Case C_DifferentDepartmentStat_TWO '分部门情况统计表
            If ExportExcel(, , C_DifferentDepartmentStat_TWO, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_DifferentDepartmentStat_THREE '分部门情况统计表
            'If ExportExcel(, , C_DifferentDepartmentStat_THREE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
            If DifferentDepartmentStat3 = False Then Me.MousePointer = 1: Exit Sub
        Case C_DifferentAreaStat '中央分地区情况统计表
            If Getsp_DifferentAreaStat = False Then Me.MousePointer = 1: Exit Sub
           ' If ExportExcel(, , C_DifferentAreaStat, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_gExpertBasic_ONE '事业单位管理人员、专业技术人员基本情况统计表
            If ExportExcel(, , C_gExpertBasic_ONE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_gExpertBasic_TWO '事业单位管理人员、专业技术人员基本情况统计表
            If ExportExcel(, , C_gExpertBasic_TWO, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_gExpertBasic_THREE '事业单位管理人员、专业技术人员基本情况统计表
            If ExportExcel(, , C_gExpertBasic_THREE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_gExpertBasic_FOUR '事业单位管理人员、专业技术人员基本情况统计表
            If ExportExcel(, , C_gExpertBasic_FOUR, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
'       没有模板
'        Case C_gExpertDifferentCallingBasic_ONE '事业单位管理人员、专业技术人员基本情况统计表
'            If ExportExcel(, , C_gExpertDifferentCallingBasic_ONE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
'        Case C_gExpertDifferentCallingBasic_TWO '事业单位管理人员、专业技术人员基本情况统计表
'            If ExportExcel(, , C_gExpertDifferentCallingBasic_TWO, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
'        Case C_gExpertDifferentLevelsBasic '事业单位专业技术人员分层次情况统计表
'            If ExportExcel(, , C_gExpertDifferentCallingBasic_TWO, Me.Dir4This.Path) = Fa
        Case C_cExpertBasic_ONE '企业单位管理人员专业技术人员学历统计表
            If Getsp_cExpertBasic_ONE = False Then Me.MousePointer = 1: Exit Sub
           ' If ExportExcel(, , C_cExpertBasic_ONE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_cExpertBasic_TWO '企业单位管理人员专业技术人员学历统计表
            If Getsp_cExpertBasic_TWO = False Then Me.MousePointer = 1: Exit Sub
            'If ExportExcel(, , C_cExpertBasic_TWO, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_cExpertBasic_THREE '企业单位管理人员专业技术人员学历统计表
            If Getsp_cExpertBasic_THREE = False Then Me.MousePointer = 1: Exit Sub
           ' If ExportExcel(, , C_cExpertBasic_THREE, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_cExpertBasic_FOUR '企业单位管理人员专业技术人员学历统计表
            If Getsp_cExpertBasic_FOUR = False Then Me.MousePointer = 1: Exit Sub
           ' If ExportExcel(, , C_cExpertBasic_FOUR, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
        Case C_cExpertDifferentCallingBasic_ONE '企事业单位管理、专业技术人员分行业统计表"
            If Getsp_cExpertDifferentCallingBasic = False Then Me.MousePointer = 1: Exit Sub
        'Case C_cExpertDifferentCallingBasic_TWO '企事业单位管理、专业技术人员分行业统计表"
        '    If Getsp_technical_education_three = False Then Me.MousePointer = 1: Exit Sub
        Case C_cExpertDifferentLevelsBasic '企业单位专业技术人员分层次情况统计表
            'If ExportExcel(, , C_cExpertDifferentLevelsBasic, Me.Dir4This.Path) = False Then Me.MousePointer = 1: Exit Sub
            If ExpertDifferentLevelsBasic = False Then Me.MousePointer = 1: Exit Sub
        End Select
        g_oApp4Export.Visible = True
        g_bHaveExcel = True
    End With
    Me.MousePointer = 1
End Sub

Private Sub Drive4This_Change()
    Me.Dir4This.Path = Me.Drive4This.Drive
End Sub

Private Sub Form_Load()
    Me.Command4Close.Enabled = False
    Me.Height = 5460
    Me.Width = 9540
    Me.Caption = left(g_str4Report, 6)
    Me.DTPicker4Time.Value = ""
    Label4Organ.ForeColor = vbBlue
    Label4Path.ForeColor = vbBlue
    DTPicker4Time.Value = Date
    Drive4This.Drive = left(App.Path, 1)
    Dir4This.Path = App.Path & "\报表结果"
    If Len(g_str4LoginUnit) <> C_BUREAUE_LENGTH Then
        SSComboBoxEx4Organ.AddItem g_str4LoginUnitName, 0
        SSComboBoxEx4Organ.ItemData(0) = g_str4LoginUnit
        SSComboBoxEx4Organ.ListIndex = 0
        SSComboBoxEx4Organ.Enabled = False
    Else
        FillComboBox SSComboBoxEx4Organ, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=6 or len(ORGAN_NO)=3 " & HaveOrganMark
        SSComboBoxEx4Organ.Enabled = True
    End If
    
    With VSFlexGrid4Report
        .FixedCols = 0
        .FixedRows = 1
        .Cols = 5
        .Rows = 1
        .BackColorBkg = vbWhite
        .ColWidth(0) = .RowHeight(0)
        .Editable = flexEDNone
        .AllowBigSelection = False
        .AllowSelection = False
        .SelectionMode = flexSelectionByRow
        .GridLines = flexGridNone
        .GridLinesFixed = flexGridNone
        .ExplorerBar = flexExSortAndMove
        .AllowUserResizing = flexResizeColumns
        .TextMatrix(0, C_REPORT_NAME) = "报表名称"
        .TextMatrix(0, C_REPORT_ORGAN) = "统计单位"
        .TextMatrix(0, C_REPORT_TYPE) = "报表类型"
        .TextMatrix(0, C_REPORT_NO) = "报表编号"
        Select Case g_str4Report
            Case "劳资报表系统-人员信息统计报表"
                .AddItem vbTab & C_EMP_ORGAN & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统1表"
                .AddItem vbTab & C_EMP_REMOVE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统3表"
                .AddItem vbTab & C_EMP_PUNISH & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统4表"
                .AddItem vbTab & C_COMPACT_RUN & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统5表"
                .AddItem vbTab & C_USER_WORK & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统6表"
                .AddItem vbTab & C_EMP_SEPR & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统7表"
                .AddItem vbTab & C_BRIGE_EMP & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统4表"
                .AddItem vbTab & C_EMP_AGE_EDUCATION & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统5表"
                .AddItem vbTab & C_OTHER_AGE_EDUCATION & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统6表"
                .AddItem vbTab & C_NEW_EMP & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统7表"
                .AddItem vbTab & C_LEVEL_EMP & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统9表"
                .AddItem vbTab & C_DEL_COMPACT & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统10表"
                .AddItem vbTab & C_WORKER_SEPR & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统14表"
                .AddItem vbTab & C_WORKER_SORT_YEAR & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & "技能表1"
                .AddItem vbTab & C_WORKER_TECHNIC_FRAME & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "油劳统14表"
                Me.HelpContextID = 1015
            Case "劳资报表系统-机构信息统计报表"
                .AddItem vbTab & C_ORGAN & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统8表"
                Me.HelpContextID = 1015
            Case "劳资报表系统-工资信息统计报表"
                .AddItem vbTab & C_EMP_WAGE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统2表"
                .AddItem vbTab & C_EMP_WAGE_OTHER & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "局劳统2表"
                .AddItem vbTab & C_COLLECTIVITY_ECONOMY_WAGE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & "油劳统11表"
                .AddItem vbTab & C_NOT_IN_WAGE_EARNING & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & "油劳统13表"
                Me.HelpContextID = 1015
            Case "干部报表系统-局内报表"
                .AddItem vbTab & C_CADRE_TOP & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "封面"
                .AddItem vbTab & C_CADRE_DUTY & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第一表)"
                .AddItem vbTab & C_SPECI_DUTY & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第二表)"
                Me.HelpContextID = 1016
            Case "干部报表系统-集团公司报表"
'                .AddItem vbTab & C_GROUP_SPECI & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "封面"
                .AddItem vbTab & C_bCadreBasic & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第十表 （石油1表）"
                .AddItem vbTab & C_bLeaderCadreBasic & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十一表 （石油2表）"
                .AddItem vbTab & C_bExpertBasic_ONE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十二表 （石油3表）-1"
                .AddItem vbTab & C_bExpertBasic_TWO & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十二表 （石油3表）-2"
                .AddItem vbTab & C_bExpertBasic_THREE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十二表 （石油3表）-3"
                .AddItem vbTab & C_bExpertBasic_FOUR & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十二表 （石油3表）-4"
                .AddItem vbTab & C_bProjectExpertBasic & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十三表 （石油4表）"
                .AddItem vbTab & C_bMedicalBasic & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十四表 （石油5表）"
                .AddItem vbTab & C_bEducationBasic & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十五表 （石油6表）"
                .AddItem vbTab & C_bEveryExpertSortLevel & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十六表 （石油7表）"
                .AddItem vbTab & C_bEveryEmpTrain & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "第十七表 （石油8表）"
                Me.HelpContextID = 1016
            Case "干部报表系统-国家报表"
                .AddItem vbTab & C_COUNTRY_CADRE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "封面"
                .AddItem vbTab & C_TwoYearsChangge & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第一表)"
                .AddItem vbTab & C_DifferentDepartmentStat_ONE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第二表)-1"
                .AddItem vbTab & C_DifferentDepartmentStat_TWO & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第二表)-2"
                .AddItem vbTab & C_DifferentDepartmentStat_THREE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第二表)-3"
                .AddItem vbTab & C_DifferentAreaStat & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第三表)-1"
                .AddItem vbTab & C_gExpertBasic_ONE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第四表)-1"
                .AddItem vbTab & C_gExpertBasic_TWO & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第四表)-2"
                .AddItem vbTab & C_gExpertBasic_THREE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第四表)-3"
                .AddItem vbTab & C_gExpertBasic_FOUR & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第四表)-4"
                .AddItem vbTab & C_gExpertDifferentCallingBasic_ONE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第五表)-1"
                .AddItem vbTab & C_gExpertDifferentCallingBasic_TWO & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第五表)-2"
                .AddItem vbTab & C_gExpertDifferentLevelsBasic & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第六表)-2"
                .AddItem vbTab & C_cExpertBasic_ONE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第七表)"
                .AddItem vbTab & C_cExpertBasic_TWO & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第七表)"
                .AddItem vbTab & C_cExpertBasic_THREE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第七表)"
                .AddItem vbTab & C_cExpertBasic_FOUR & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第七表)"
                .AddItem vbTab & C_cExpertDifferentCallingBasic_ONE & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第八表)"
                .AddItem vbTab & C_cExpertDifferentCallingBasic_TWO & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第八表)"
                .AddItem vbTab & C_cExpertDifferentLevelsBasic & vbTab & SSComboBoxEx4Organ.text & vbTab & g_str4Report & vbTab & "(第九表)"
                Me.HelpContextID = 1016
        End Select
        .ColDataType(0) = flexDTBoolean
    End With
    Unload frmSplash
    Me.Command4Close.Enabled = True
End Sub

Private Sub Form_Resize()
    With Me.VSFlexGrid4Report
        .ColWidth(C_REPORT_NAME) = .ClientWidth * 0.3
        .ColWidth(C_REPORT_ORGAN) = .ClientWidth * 0.18
        .ColWidth(C_REPORT_TYPE) = .ClientWidth * 0.4
        .ExtendLastCol = True
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_MENU_LABOUR_REPORT").Enabled = True
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_MENU_CADRE_REPORT").Enabled = True
End Sub

Private Sub VSFlexGrid4Report_Click()
    Dim i As Long
    With VSFlexGrid4Report
        If .Row < 1 Then Exit Sub
        For i = 1 To .Rows - 1
            .TextMatrix(i, 0) = "False"
        Next
        .TextMatrix(.Row, 0) = 1
    End With
End Sub