📄 moduleempreport.bas

📁 本公司开发得大请油田人事管理系统c/s结构
💻 BAS
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
'            g_oSheet4Export.Range("u" & CStr(12)) = CheckVariant(m_oRs4Report.Fields(0).Value)
'        End If
'    End If
    g_oSheet4Export.Cells(16, 2).Select
    
    Set m_Command4Report = Nothing
    Set m_Params4Report = Nothing
    Set m_oRs4Report = Nothing
    Getemp_culture_and_age = True
Err:
    Exit Function
End Function

' 其他用工职工文化、年龄结构情况
Public Function Getother_emp_culture_and_age() As Boolean
    Dim m_Command4Report As New ADODB.Command
    Dim m_Params4Report As ADODB.Parameters
    Dim m_oRs4Report As New ADODB.Recordset
On Error GoTo Err:
    Getother_emp_culture_and_age = 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_other_emp_culture_and_age"
    m_oRs4Report.CursorLocation = adUseClient
    Set m_oRs4Report = m_Command4Report.Execute()
    
    If ExportExcel(, , C_OTHER_AGE_EDUCATION, frmReport.Dir4This.Path) = False Then
        Set m_Command4Report = Nothing
        Set m_Params4Report = Nothing
        Set m_oRs4Report = Nothing
        Getother_emp_culture_and_age = False
        Exit Function
    End If
    
    i = 12
    Do While m_oRs4Report.EOF = False
        If (i >= 12 And i <= 14) Or i = 17 Then
            g_oSheet4Export.Range("d" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(0).Value)
            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(1).Value)
            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
            g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
            g_oSheet4Export.Range("n" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(10).Value)
            g_oSheet4Export.Range("o" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(11).Value)
            g_oSheet4Export.Range("p" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(12).Value)
            g_oSheet4Export.Range("q" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(13).Value)
            g_oSheet4Export.Range("r" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(14).Value)
            g_oSheet4Export.Range("s" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(15).Value)
            g_oSheet4Export.Range("t" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(16).Value)
        End If
        If i = 15 Then
            g_oSheet4Export.Range("d" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(0).Value)
            g_oSheet4Export.Range("e" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(1).Value)
            g_oSheet4Export.Range("f" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(2).Value)
            g_oSheet4Export.Range("g" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(3).Value)
            g_oSheet4Export.Range("h" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(4).Value)
            g_oSheet4Export.Range("i" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(5).Value)
            g_oSheet4Export.Range("j" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(6).Value)
            g_oSheet4Export.Range("k" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(7).Value)
            g_oSheet4Export.Range("l" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(8).Value)
            g_oSheet4Export.Range("m" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(9).Value)
            g_oSheet4Export.Range("n" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(10).Value)
            g_oSheet4Export.Range("o" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(11).Value)
            g_oSheet4Export.Range("p" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(12).Value)
            g_oSheet4Export.Range("q" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(13).Value)
            g_oSheet4Export.Range("r" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(14).Value)
            g_oSheet4Export.Range("s" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(15).Value)
            g_oSheet4Export.Range("t" & CStr(i + 1)) = CheckVariant(m_oRs4Report.Fields(16).Value)
        End If
        If i = 16 Then
            g_oSheet4Export.Range("d" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(0).Value)
            g_oSheet4Export.Range("e" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(1).Value)
            g_oSheet4Export.Range("f" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(2).Value)
            g_oSheet4Export.Range("g" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(3).Value)
            g_oSheet4Export.Range("h" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(4).Value)
            g_oSheet4Export.Range("i" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(5).Value)
            g_oSheet4Export.Range("j" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(6).Value)
            g_oSheet4Export.Range("k" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(7).Value)
            g_oSheet4Export.Range("l" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(8).Value)
            g_oSheet4Export.Range("m" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(9).Value)
            g_oSheet4Export.Range("n" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(10).Value)
            g_oSheet4Export.Range("o" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(11).Value)
            g_oSheet4Export.Range("p" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(12).Value)
            g_oSheet4Export.Range("q" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(13).Value)
            g_oSheet4Export.Range("r" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(14).Value)
            g_oSheet4Export.Range("s" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(15).Value)
            g_oSheet4Export.Range("t" & CStr(i - 1)) = CheckVariant(m_oRs4Report.Fields(16).Value)
        End If
        i = i + 1
        m_oRs4Report.MoveNext
    Loop
    
    g_oSheet4Export.Range("b" & CStr(4)) = CheckVariant(g_str4ReportOrgan)
    g_oSheet4Export.Range("i" & CStr(4)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Range("b" & CStr(18)) = CheckVariant(g_str4OrganEmp)
    g_oSheet4Export.Range("h" & CStr(18)) = CheckVariant(g_str4CompanyEmp)
    g_oSheet4Export.Range("o" & CStr(18)) = CheckVariant(g_str4TableEmp)
    g_oSheet4Export.Range("s" & CStr(18)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Cells(12, 4).Select
    Set m_Command4Report = Nothing
    Set m_Params4Report = Nothing
    Set m_oRs4Report = Nothing
    Getother_emp_culture_and_age = True
Err:
    Exit Function
End Function

'劳动合同运行情况统计表
Public Function Getcompact_run() As Boolean
    Dim m_Command4Report As New ADODB.Command
    Dim m_Params4Report As ADODB.Parameters
    Dim m_oRs4Report As New ADODB.Recordset
On Error GoTo Err:
    Getcompact_run = 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_compact_run"
    Set m_oRs4Report = m_Command4Report.Execute()
    
    If ExportExcel(, , C_COMPACT_RUN, frmReport.Dir4This.Path) = False Then
        Set m_Command4Report = Nothing
        Set m_Params4Report = Nothing
        Set m_oRs4Report = Nothing
        Getcompact_run = False
        Exit Function
    End If
    If m_oRs4Report.EOF = False Then g_oSheet4Export.Range("e16:l21").CopyFromRecordset m_oRs4Report
'   注释by bxm 2002-09-23
'    i = 16
'    If m_oRs4Report.EOF = False Then
'        g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'        g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'        g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'        g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'        g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'        g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'        g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'        g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'       ' g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'
'        i = i + 1
'        m_oRs4Report.MoveNext
'
'        If i = 17 Then
'            If m_oRs4Report.EOF Then Exit Function
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'           ' g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i = 18 Then i = i + 1
'            If m_oRs4Report.EOF Then Exit Function
'
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            'g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i = 19 Then i = i + 1
'            If m_oRs4Report.EOF Then Exit Function
'
'            g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'            g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'            g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'            g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'            g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'            g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'            g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'            g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            'g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'            i = i + 1
'            m_oRs4Report.MoveNext
'            If i = 20 Then
'                If m_oRs4Report.EOF Then Exit Function
'                g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'                g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'                g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'                g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'                g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'                g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'                g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'                g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'                'g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'
'                If i = 21 Then
'                    If m_oRs4Report.EOF Then Exit Function
'                    g_oSheet4Export.Range("e" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(2).Value)
'                    g_oSheet4Export.Range("f" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(3).Value)
'                    g_oSheet4Export.Range("g" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(4).Value)
'                    g_oSheet4Export.Range("h" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(5).Value)
'                    g_oSheet4Export.Range("i" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(6).Value)
'                    g_oSheet4Export.Range("j" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(7).Value)
'                    g_oSheet4Export.Range("k" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(8).Value)
'                    g_oSheet4Export.Range("l" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'                    'g_oSheet4Export.Range("m" & CStr(i)) = CheckVariant(m_oRs4Report.Fields(9).Value)
'                End If
'            End If
'        End If
'    End If
    g_oSheet4Export.Range("d" & CStr(3)) = CheckVariant(g_str4ReportOrgan)
    g_oSheet4Export.Range("n" & CStr(3)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Range("d" & CStr(31)) = CheckVariant(g_str4OrganEmp)
    g_oSheet4Export.Range("o" & CStr(31)) = CheckVariant(g_str4CompanyEmp)
    g_oSheet4Export.Range("v" & CStr(31)) = CheckVariant(g_str4TableEmp)
    g_oSheet4Export.Range("AA" & CStr(31)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Cells(16, 3).Select
    
    Set m_Command4Report = Nothing
    Set m_Params4Report = Nothing
    Set m_oRs4Report = Nothing
    Getcompact_run = True
Err:
    Exit Function
End Function

Public Function GetDel_Compact() As Boolean
On Error GoTo Err:
    GetDel_Compact = False
    
    If ExportExcel(, , C_DEL_COMPACT, frmReport.Dir4This.Path) = False Then GetDel_Compact = False: Exit Function
    
    g_oSheet4Export.Range("c" & CStr(4)) = CheckVariant(g_str4ReportOrgan)
    g_oSheet4Export.Range("m" & CStr(4)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Range("C" & CStr(18)) = CheckVariant(g_str4OrganEmp)
    g_oSheet4Export.Range("i" & CStr(18)) = CheckVariant(g_str4CompanyEmp)
    g_oSheet4Export.Range("q" & CStr(18)) = CheckVariant(g_str4TableEmp)
    g_oSheet4Export.Range("x" & CStr(18)) = CheckVariant(g_str4ReportTime)
    g_oSheet4Export.Cells(16, 4).Select
    
    GetDel_Compact = True
Err:
    Exit Function
End Function
上一页 1 2 34
💿 文件大小 3193 K
👤 上传用户 zhang8818200
📂 所属分类企业管理
🏷️ 相关标签

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

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