printreport.bas

金水区行政审批服务软件窗口系统

             
             '报表尾部数据
            
             rptdata.Fields("合计") = in_sReportTotal
             rptdata.Fields("统计员") = in_sReportTotalPerson
             rptdata.Fields("日期") = in_sReportTotalDate
             rptdata.Update
             Next i
             rptdata.MoveFirst
             If Dir(reportFilePath) <> "" Then
                  Unload ActiveReportDZ
                  Load ActiveReportDZ
                  ActiveReportDZ.DataControl1.Recordset = rptdata
                  ActiveReportDZ.LoadLayout (reportFilePath)
                  ActiveReportDZ.Show
             Else
                  MsgBox "证件模板:" + reportFilePath + "不存在", 48, "系统提示"
                  Exit Sub
             End If

 End Sub
'实现打证统计信息报表的打印和预览
'此函数的功能是创建一个报表数据源并且显示出来
'此报表是打证信息统计报表统计某个时间段的所有打证记录
'其中报表标题是动态变化的数据也是动态变化的只有报表尾是固定显示
'2003-07-16 dww am12:19
Public Sub createReportTransactionPrintCertificationRecordInfoDataSourceAndShow(in_sReportData() As String, in_sReportCaption As String, in_sReportTotal As String)
             Dim i As Integer
             Dim reportFilePath As String
             '===================================================================
             '其中reportFileDirecrory为全局变量在Submain中定义
              reportFilePath = reportFileDirectory + "\41010500004\PrintCertificationInfoReport.rpx"
             '===================================================================
             Set rptdata = CreateObject("ADODB.Recordset")
             '报表标题
             rptdata.Fields.Append "标题", adChar, 100
             '报表中间部分
             rptdata.Fields.Append "受理号", adChar, 16
             rptdata.Fields.Append "证件名称", adChar, 40
             rptdata.Fields.Append "受理人", adChar, 8
             rptdata.Fields.Append "项目名称", adChar, 60
             rptdata.Fields.Append "申报对象", adChar, 40
             rptdata.Fields.Append "打证数量", adChar, 4
             rptdata.Fields.Append "日期", adChar, 10
             '报表表尾
             rptdata.Fields.Append "合计", adChar, 4
            
             '添加报表数据
             rptdata.Open
             For i = 0 To UBound(in_sReportData, 1) - 1
             rptdata.AddNew
             '报表标题数据
             rptdata.Fields("标题") = in_sReportCaption
        
             '报表中间部分数据
             rptdata.Fields("受理号") = in_sReportData(i, 0)
             rptdata.Fields("证件名称") = in_sReportData(i, 1)
             rptdata.Fields("受理人") = in_sReportData(i, 2)
             rptdata.Fields("项目名称") = in_sReportData(i, 3)
             rptdata.Fields("申报对象") = in_sReportData(i, 4)
             rptdata.Fields("打证数量") = in_sReportData(i, 5)
             rptdata.Fields("日期") = in_sReportData(i, 6)
            
             '报表尾部数据
            
             rptdata.Fields("合计") = in_sReportTotal
             rptdata.Update
             Next i
             rptdata.MoveFirst
             
             If Dir(reportFilePath) <> "" Then
                  Unload ActiveReportDZ
                  Load ActiveReportDZ
                  ActiveReportDZ.DataControl1.Recordset = rptdata
                  ActiveReportDZ.LoadLayout (reportFilePath)
                  ActiveReportDZ.Show
             Else
                  MsgBox "证件模板:" + reportFilePath + "不存在", 48, "系统提示"
                  Exit Sub
             End If

 End Sub
'实现踏勘信息报表的打印和预览也即现场踏勘通知书
'此函数的功能是创建一个报表数据源并且显示出来
'此报表是现场踏勘信息统计报表统计某个时间段的某个项目的踏勘信息
'其中报表标题是动态变化的数据也是动态变化的只有报表尾是固定显示
'2003-07-17 dww am12:19
Public Sub createReportTransactionTaKanInfoDataSourceAndShow(in_sReportData() As String, in_sReportCaption As String, in_sReportTotal As String, in_sReportToalDate As String)
             Dim i As Integer
             Dim reportFilePath As String
             '===================================================================
             '其中reportFileDirecrory为全局变量在Submain中定义
              reportFilePath = reportFileDirectory + "\41010500004\TransactionTaKanReport.rpx"
             '===================================================================
             Set rptdata = CreateObject("ADODB.Recordset")
             '报表标题
             rptdata.Fields.Append "标题", adChar, 100
             '报表中间部分
             rptdata.Fields.Append "受理号", adChar, 16
             rptdata.Fields.Append "项目名称", adChar, 60
             rptdata.Fields.Append "申报单位", adChar, 50
             rptdata.Fields.Append "联系人", adChar, 10
             rptdata.Fields.Append "联系方式", adChar, 20
             rptdata.Fields.Append "开始时间", adChar, 10
             rptdata.Fields.Append "结束时间", adChar, 10
             rptdata.Fields.Append "踏勘地址", adChar, 100
             rptdata.Fields.Append "踏勘时限", adChar, 10
             rptdata.Fields.Append "已踏勘", adChar, 10
            
             '报表表尾
             rptdata.Fields.Append "合计", adChar, 4
             rptdata.Fields.Append "日期", adChar, 10
          
             '添加报表数据
             rptdata.Open
             For i = 0 To UBound(in_sReportData, 1) - 1
             rptdata.AddNew
             '报表标题数据
             rptdata.Fields("标题") = in_sReportCaption
        
             '报表中间部分数据
             rptdata.Fields("受理号") = in_sReportData(i, 0)
             rptdata.Fields("项目名称") = in_sReportData(i, 1)
             rptdata.Fields("申报单位") = in_sReportData(i, 2)
             rptdata.Fields("联系人") = in_sReportData(i, 3)
             rptdata.Fields("联系方式") = in_sReportData(i, 4)
             rptdata.Fields("开始时间") = in_sReportData(i, 5)
             rptdata.Fields("结束时间") = in_sReportData(i, 6)
             rptdata.Fields("踏勘地址") = Trim(in_sReportData(i, 7))
             rptdata.Fields("踏勘时限") = in_sReportData(i, 8)
             rptdata.Fields("已踏勘") = in_sReportData(i, 9)
            
            '报表尾部数据
             rptdata.Fields("合计") = in_sReportTotal
             rptdata.Fields("日期") = in_sReportToalDate
            
             
             rptdata.Update
             Next i
             If Not rptdata.EOF Then
             rptdata.MoveFirst
             End If
             If Dir(reportFilePath) <> "" Then
                  Unload ActiveReportDZ
                  Load ActiveReportDZ
                  ActiveReportDZ.DataControl1.Recordset = rptdata
                  ActiveReportDZ.LoadLayout (reportFilePath)
                  ActiveReportDZ.Show
             Else
                  MsgBox "证件模板:" + reportFilePath + "不存在", 48, "系统提示"
                  Exit Sub
             End If

 End Sub
'实现打印和预览现场踏勘通知书
'此函数的功能是创建一个报表数据源并且显示出来
'此处将打印当前办件的现场踏勘通知书
'其中报表标题是动态变化的数据也是动态变化的只有报表尾是固定显示
'2003-07-28 dww pm18:51
Public Sub createReportTransactionTaKanTZSInfoDataSourceAndShow(in_sReportData() As String, in_sReportCaption As String, in_sReportTotal As String, in_sReportToalDate As String)
             Dim reportFilePath As String
             '===================================================================
             '其中reportFileDirecrory为全局变量在Submain中定义
              reportFilePath = reportFileDirectory + "\41010500004\TransactionTaKanTZS.rpx"
             '===================================================================
             Set rptdata = CreateObject("ADODB.Recordset")
             '报表标题
             rptdata.Fields.Append "标题", adChar, 100
             '报表中间部分
             rptdata.Fields.Append "受理号", adChar, 16
             rptdata.Fields.Append "项目名称", adChar, 70
             rptdata.Fields.Append "申报单位", adChar, 50
             rptdata.Fields.Append "联系人", adChar, 10
             rptdata.Fields.Append "联系方式", adChar, 20
             rptdata.Fields.Append "开始时间", adChar, 10
             rptdata.Fields.Append "结束时间", adChar, 10
             rptdata.Fields.Append "踏勘地址", adChar, 100
             rptdata.Fields.Append "踏勘时限", adChar, 10
             rptdata.Fields.Append "已踏勘", adChar, 10
            
             '报表表尾
             rptdata.Fields.Append "合计", adChar, 4
             rptdata.Fields.Append "日期", adChar, 10
          
             '添加报表数据
             rptdata.Open
             rptdata.AddNew
             '报表标题数据
             rptdata.Fields("标题") = in_sReportCaption
        
             '报表中间部分数据
             rptdata.Fields("受理号") = in_sReportData(i, 0)
             rptdata.Fields("项目名称") = in_sReportData(i, 1)
             rptdata.Fields("申报单位") = in_sReportData(i, 2)
             rptdata.Fields("联系人") = in_sReportData(i, 3)
             rptdata.Fields("联系方式") = in_sReportData(i, 4)
             rptdata.Fields("开始时间") = in_sReportData(i, 5)
             rptdata.Fields("结束时间") = in_sReportData(i, 6)
             
             rptdata.Fields("踏勘时限") = in_sReportData(i, 7)
             rptdata.Fields("踏勘地址") = Trim(in_sReportData(i, 8))
             rptdata.Fields("已踏勘") = in_sReportData(i, 9)
            
            '报表尾部数据
             rptdata.Fields("合计") = in_sReportTotal
             rptdata.Fields("日期") = in_sReportToalDate
            
             
             rptdata.Update
          
             If Not rptdata.EOF Then
             rptdata.MoveFirst
             End If
             If Dir(reportFilePath) <> "" Then
                  Unload ActiveReportDZ
                  Load ActiveReportDZ
                  ActiveReportDZ.DataControl1.Recordset = rptdata
                  ActiveReportDZ.LoadLayout (reportFilePath)
                  ActiveReportDZ.Show
             Else
                  MsgBox "证件模板:" + reportFilePath + "不存在", 48, "系统提示"