modulecountryreport.bas

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

Attribute VB_Name = "ModuleCountryReport"
Option Explicit
Private i As Integer
Private j As Integer
Private int4organ_no As Integer
Private int4Temp As Integer
Private str4temp As String
Private str4organ_no As String
Private int4RecordCount As Long
Private int4FieldCount As Long
Private Array4RecordCount()

'劳资报表常量
Public Const C_EMP_ORGAN = "基层组织机构及人员情况统计表"
Public Const C_EMP_REMOVE = "职工人数增、减花名册"
Public Const C_EMP_PUNISH = "职工违纪处理情况统计表"
Public Const C_COMPACT_RUN = "劳动合同运行情况统计表"
Public Const C_USER_WORK = "长庆石油勘探局自行用工统计表"
Public Const C_EMP_SEPR = "石油专业队数及人数"
Public Const C_BRIGE_EMP = "职工队伍人数分类"
Public Const C_EMP_AGE_EDUCATION = "职工文化、年龄结构情况"
Public Const C_OTHER_AGE_EDUCATION = "其他用工职工文化、年龄结构情况"
Public Const C_NEW_EMP = "新增职工情况"
Public Const C_LEVEL_EMP = "内部退养人员情况"
Public Const C_DEL_COMPACT = "有偿解除劳动合同情况"
Public Const C_WORKER_SEPR = "工人技术结构情况"
Public Const C_ORGAN = "组织机构情况统计表"
Public Const C_EMP_WAGE = "职工人数与工资构成情况统计表(表二)"
Public Const C_EMP_WAGE_OTHER = "职工人数与工资构成情况统计表(附表二：其它津贴)"
Public Const C_WORKER_SORT_YEAR = "工人工种及工作年限统计表"
Public Const C_COLLECTIVITY_ECONOMY_WAGE = "企事业单位兴办的集体经济单位劳动工资情况"
Public Const C_NOT_IN_WAGE_EARNING = "未列入工资总额的各种收入构成情况"
Public Const C_WORKER_TECHNIC_FRAME = "工人技术结构情况(新)"
'干部报表常量
'(1)集团公司报表
Public Const C_bCadreBasic = "集团公司企、事业单位干部基本情况表"
Public Const C_bLeaderCadreBasic = "集团公司企、事业单位人员基本情况表"
Public Const C_bExpertBasic_ONE = "集团公司各类专业技术人员情况统计表1"
Public Const C_bExpertBasic_TWO = "集团公司各类专业技术人员情况统计表2"
Public Const C_bExpertBasic_THREE = "集团公司各类专业技术人员情况统计表3"
Public Const C_bExpertBasic_FOUR = "集团公司各类专业技术人员情况统计表4"
Public Const C_bProjectExpertBasic = "集团公司工程技术人员情况统计表"
Public Const C_bMedicalBasic = "集团公司医疗卫生机构及卫生技术人员情况统计表"
Public Const C_bEducationBasic = "集团公司教育培训机构及教育培训人员情况统计表"
Public Const C_bEveryExpertSortLevel = "集团公司各类专业技术人员分类分级情况统计表"
Public Const C_bEveryEmpTrain = "集团公司2001年各类人员培训情况统计表"

'Public Const C_GROUP_SPECI = "集团公司专业技术人员统计报表"
'Public Const C_GROUP_EMP_BASIC = "集团公司企事业单位人员基本情况表"


'(2)局报表

Public Const C_TwoYearsChangge = "两年数字变化情况表"
Public Const C_DifferentDepartmentStat_ONE = "分部门情况统计表1"
Public Const C_DifferentDepartmentStat_TWO = "分部门情况统计表2"
Public Const C_DifferentDepartmentStat_THREE = "分部门情况统计表3"
Public Const C_DifferentAreaStat = "中央分地区统计表（中央单位填报）"
Public Const C_gExpertBasic_ONE = "事业单位管理人员、专业技术人员基本情况统计表1"
Public Const C_gExpertBasic_TWO = "事业单位管理人员、专业技术人员基本情况统计表2"
Public Const C_gExpertBasic_THREE = "事业单位管理人员、专业技术人员基本情况统计表3"
Public Const C_gExpertBasic_FOUR = "事业单位管理人员、专业技术人员基本情况统计表4"
Public Const C_gExpertDifferentCallingBasic_ONE = "事业单位管理人员、专业技术人员分行业情况统计表" ' 第五表（2页）缺！！！
Public Const C_gExpertDifferentCallingBasic_TWO = "事业单位管理人员、专业技术人员分行业情况统计表" ' 第五表（2页）缺！！！
Public Const C_gExpertDifferentLevelsBasic = "事业单位专业技术人员分层次情况统计表" '缺！！！
Public Const C_cExpertBasic_ONE = "企业单位管理人员、专业技术人员学历统计表1"
Public Const C_cExpertBasic_TWO = "企业单位管理人员、专业技术人员学历统计表2"
Public Const C_cExpertBasic_THREE = "企业单位管理人员、专业技术人员学历统计表3"
Public Const C_cExpertBasic_FOUR = "企业单位管理人员、专业技术人员学历统计表4"
Public Const C_cExpertDifferentCallingBasic_ONE = "企业单位管理人员、专业技术人员分行业统计表1"
Public Const C_cExpertDifferentCallingBasic_TWO = "企业单位管理人员、专业技术人员分行业统计表2"
Public Const C_cExpertDifferentLevelsBasic = "企业单位专业技术人员分层次情况统计表"

Public Const C_CADRE_TOP = "长庆石油勘探局干部统计报表"
Public Const C_CADRE_DUTY = "长庆局各类干部职务情况统计表"
Public Const C_SPECI_DUTY = "长庆局专业技术人员职称情况统计表"
Public Const C_SEPCI_ARRANG_TOTAL = "事业、企业单位少数民族管理人员、专业技术人员基本情况统计表"
Public Const C_BRANCH_TOTAL_THREE = "分部门情况统计表3"
Public Const C_COUNTRY_CADRE = "国家干部报表"

'集团公司各类专业技术人员情况统计表
Public Function Getsp_bExpertBasic() As Boolean
    Dim m_Command4Report    As New ADODB.Command
    Dim m_Params4Report     As ADODB.Parameters
    Dim m_oRs4Report        As New ADODB.Recordset
    Dim int4TempCount       As Long
    Dim aRecordArry()       As Variant
On Error GoTo Err:
    Getsp_bExpertBasic = False
    With m_Command4Report
        Set .ActiveConnection = g_oConnection4This
        .CommandType = adCmdStoredProc
        Set m_Params4Report = .Parameters
        m_Params4Report.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
        m_Params4Report.Append .CreateParameter("@Organ_no", adVarChar, adParamInput, 50)
    End With
    m_Params4Report("@Organ_no") = frmReport.SSComboBoxEx4Organ.ItemData(frmReport.SSComboBoxEx4Organ.ListIndex)
    
    m_Command4Report.CommandText = "sp_bExpertBasic"
    Set m_oRs4Report = m_Command4Report.Execute
    aRecordArry = m_oRs4Report.GetRows
    If ExportExcel(, , C_bExpertBasic_ONE, frmReport.Dir4This.Path) = False Then
        Set m_Command4Report = Nothing
        Set m_Params4Report = Nothing
        Set m_oRs4Report = Nothing
        Exit Function
    End If
    Do While m_oRs4Report.EOF = False
        
    Loop
    Set m_Command4Report = Nothing
    Set m_Params4Report = Nothing
    Set m_oRs4Report = Nothing
    g_oApp4Export.Visible = True
    g_bHaveExcel = True
    Getsp_bExpertBasic = True
Err:
    Exit Function
End Function
'
'集团公司企业单位人员基本情况表

Public Function bLeaderCadreBasic() As Boolean
    Dim m_Command4Report As New ADODB.Command
    Dim m_Params4Report As ADODB.Parameters
    Dim m_oRs4Report As New ADODB.Recordset
    Dim int4TempCount As Long
On Error GoTo Err:
    With m_Command4Report
        Set .ActiveConnection = g_oConnection4This
        .CommandType = adCmdStoredProc
        Set m_Params4Report = .Parameters
        m_Params4Report.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
        m_Params4Report.Append .CreateParameter("@Organ_no", adVarChar, adParamInput, 50)
    End With
    m_Params4Report("@Organ_no") = frmReport.SSComboBoxEx4Organ.ItemData(frmReport.SSComboBoxEx4Organ.ListIndex)
    
    m_Command4Report.CommandText = "sp_bLeaderCadreBasic"
    Set m_oRs4Report = m_Command4Report.Execute
   
    If ExportExcel(, , C_bLeaderCadreBasic, frmReport.Dir4This.Path) = False Then
        Set m_Command4Report = Nothing
        Set m_Params4Report = Nothing
        Set m_oRs4Report = Nothing
        Exit Function
    End If
        g_oSheet4Export.Range("c" & CStr(2)) = CheckVariant(g_str4ReportOrgan)
        g_oSheet4Export.Range("S" & CStr(2)) = CheckVariant(g_str4ReportTime)
        g_oSheet4Export.Range("c" & 7).CopyFromRecordset m_oRs4Report
       
    Set m_Command4Report = Nothing
    Set m_Params4Report = Nothing
    Set m_oRs4Report = Nothing
    g_oApp4Export.Visible = True
    g_bHaveExcel = True
   
Err:
    Exit Function

End Function
'企业单位专业技术人员分层次情况统计表
Public Function ExpertDifferentLevelsBasic() As Boolean
    Dim m_Command4Report As New ADODB.Command
    Dim m_Params4Report As ADODB.Parameters
    Dim m_oRs4Report As New ADODB.Recordset
    Dim int4TempCount As Long
    Dim aRecordArry()       As Variant
    
    With m_Command4Report
        Set .ActiveConnection = g_oConnection4This
        .CommandType = adCmdStoredProc
        Set m_Params4Report = .Parameters
        m_Params4Report.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
        m_Params4Report.Append .CreateParameter("@Organ_no", adVarChar, adParamInput, 50)
    End With
    m_Params4Report("@Organ_no") = frmReport.SSComboBoxEx4Organ.ItemData(frmReport.SSComboBoxEx4Organ.ListIndex)
    
    m_Command4Report.CommandText = "sp_cExpertDifferentLevelsBasic"
    Set m_oRs4Report = m_Command4Report.Execute
    
    
     If ExportExcel(, , C_cExpertDifferentLevelsBasic, frmReport.Dir4This.Path) = False Then
        
        Exit Function
    End If
    g_oSheet4Export.Range("c" & CStr(2)) = g_str4ReportOrgan
    g_oSheet4Export.Range("m" & CStr(2)) = CheckVariant(g_str4ReportTime)
     Do While m_oRs4Report.EOF = False
        g_oSheet4Export.Range("c" & 11).CopyFromRecordset m_oRs4Report
     Loop
       
    
    
    g_oApp4Export.Visible = True
    g_bHaveExcel = True
End Function
'集团公司工程技术人员情况统计表
Public Function ProjectExpertBasic() As Boolean
   Dim m_Command4Report As New ADODB.Command
    Dim m_Params4Report As ADODB.Parameters
    Dim m_oRs4Report As New ADODB.Recordset
    Dim int4TempCount As Long
    Dim aRecordArry()       As Variant
    
    With m_Command4Report
        Set .ActiveConnection = g_oConnection4This
        .CommandType = adCmdStoredProc
        Set m_Params4Report = .Parameters
        m_Params4Report.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
        m_Params4Report.Append .CreateParameter("@Organ_no", adVarChar, adParamInput, 50)
    End With
    m_Params4Report("@Organ_no") = frmReport.SSComboBoxEx4Organ.ItemData(frmReport.SSComboBoxEx4Organ.ListIndex)
    
    m_Command4Report.CommandText = "sp_bProjectExpertBasic"
    Set m_oRs4Report = m_Command4Report.Execute
    
     If ExportExcel(, , C_bProjectExpertBasic, frmReport.Dir4This.Path) = False Then
       
        Exit Function
    End If
    g_oSheet4Export.Range("c" & CStr(2)) = CheckVariant(g_str4ReportOrgan)
    g_oSheet4Export.Range("l" & CStr(2)) = CheckVariant(g_str4ReportTime)
    If m_oRs4Report.EOF = False Then
        Do While m_oRs4Report.EOF = False
             g_oSheet4Export.Range("c" & 9).CopyFromRecordset m_oRs4Report
        Loop
    End If
    
    g_oApp4Export.Visible = True
    g_bHaveExcel = True
End Function

'分部门统计1
Public Function DifferentDepartmentStat() As Boolean
    Dim m_Command4Report As New ADODB.Command
    Dim m_Params4Report As ADODB.Parameters
    Dim m_oRs4Report As New ADODB.Recordset
    Dim int4TempCount As Long