Actuate报表开发总结

Actuate报表开发总结

如何测量性能
       1 选择包含报表数据源的数据流组件。
       2 以“双精度”数据类型的形式创建变量 Start_Time。
       3 在 Start( ) 方法中键入以下代码：
 

Function  Start( )
  Super::Start( )
  ShowFactoryStatus(“Starting report”)
  Start_Time  =   Now
End Function

 4 在 Finish( ) 方法中键入以下代码： 

 
Sub  Finish( )
      Dim  Finish_Time  as   Double , Elaspsed_Time  as   Double
      Dim  Duration  as   String
     Super::Finish( )
     Finish_time  =   Now ( )
     Elapsed_Time  =  Finish_Time  -  Start_Time
     Elapsed_Time  =  Elapsed_Time  *  ( 24   *   3600 )
     Elapsed_Time  =   CInt (Elapsed_Time)
     Duration  =   CStr (Elapsed_Time)
     ShowFactoryStatus(“Elapsed  time  (seconds): “  +  Duration)
  End Sub

查看检索的sql语句
         在DataStream中修改ObtainSelectStatement( ) 函数

Function  ObtainSelectStatement( )  As   String
    WhereClause  =  WhereClause  &   "  AND ( "   &  where  &   " ) "
    FromClause  =  parseSchema(FromClause)
    ObtainSelectStatement  =  Super::ObtainSelectStatement( )
     '  Insert your code here
     ' showfactorystatus(ObtainSelectStatement )
End Function

 

 
操作数据库方面
 首先在DataStream中建立变量如下：
 aConnection AcDBConnection
 aCursor     AcDBCursor
 aDataSource AcDatabaseSource
 aRow        AcDataRow
 aStmt       AcDBStatement
 
 在DataStream->Start( ) 中加入以下代码（DataRow2 为当前DataStream对应的DataRow）：

 
Function  Start( )  As   Boolean
     Start  =  Super::Start( )
      '  Insert your code here
      Set  aConnection  =   new  Connection
     aConnection.connect()
      Set  aRow  =   New  DataRow2
  End Function

 
 现测试，建立一个Function，检索数据  

Function  GetGccb(awoum  as   String  )  As   String
      '  Insert your code here
      Dim  str  as   String
      str  =   " SELECT WPLABOR.LABORCODE from  "   &  Schema  & " .wplabor,  "   &  Schema  &   " .labor "   
      str  =  str  &   "  where  wplabor.laborcode=labor.laborcode and wplabor.wonum=' "   &  awoum  & " ' "
      ' ShowFactoryStatus(str)
      set  aStmt  =  aConnection.prepare(str) 
        if  dbstmt  is   nothing   then  
    exit   function  
    end   if  
 
    set  aCursor  =  dbStmt.allocateCursor() 
 
    if  aCursor  is   nothing   then  
    exit   function  
    end   if  
 
    if   Not  aCursor.openCursor()  then  
   aDataSource.getDBConnection().raiseError() 
    set  aCursor  =   nothing  
    end   if  
     aCursor.BindColumn( 1 ,  " NewReportApp::DataRow2 " ,  " namesum_wplabor " )  
     aCursor.Fetch(aRow)
     GetGccb = aRow.GetValue( " namesum_wplabor " )
      ' ShowFactoryStatus(" "&getGccb)    
  End Function

 或者建立两个function 

Function  SetSql( str  As   String  )  As  AcDBCursor
      '  Insert your code here
      '  数据库操作
      set  aStmt  =  aConnection.prepare(str) 
      if  aStmt  is   nothing   then  
       exit   function  
   end   if  
 
    set  aCursor  =  aStmt.allocateCursor() 
 
    if  aCursor  is   nothing   then  
           exit   function  
    end   if  
 
    if   Not  aCursor.openCursor()  then  
    aDataSource.getDBConnection().raiseError() 
     set  aCursor  =   nothing  
    end   if  
   
    Set  SetSql  =  aCursor
  End Function
 
  Function  GetGccb(awoum  as   String  )  As   String
      '  Insert your code here
       ' 检索数据
      Dim  str  as   String
      str  =   " SELECT WPLABOR.LABORCODE from  "   &  Schema  & " .wplabor,  "   &  Schema  &   " .labor "   
      str  =  str  &   "  where  wplabor.laborcode=labor.laborcode and wplabor.wonum=' "   &  awoum  & " ' "
      ' ShowFactoryStatus(str)
     Set  aCursor  =  SetSql(astr)
     aCursor.BindColumn( 1 ,  " NewReportApp::DataRow2 " ,  " namesum_wplabor " )  
     aCursor.Fetch(aRow)
     GetGccb = aRow.GetValue( " namesum_wplabor " )
      ' ShowFactoryStatus(" "&getGccb)    
 
  End Function

 
 修改数据库代码如下： 

Function  UpdateMat( num  as   String  )  As   Double
           Dim  stmt1  As  AcDBStatement 
           Dim  stmt2  As  AcDBStatement 
           Dim  conn  As  AcDBConnection
 
 
         Dim  str  as   String
        str  =   " UPDATE  "   &  schema  &   " .matrectrans "
     str  =  str  &   "  SET matrectrans.it6 = 'Y'  "
     str  =  str  &   "  WHERE ponum = ' "   &  num  &   " ' "  
         ' ShowFactoryStatus(str)
         Set  conn  =   new  Connection
        conn.connect()
 
   
 
         Set  stmt1  =   New  AcDBStatement(conn) 
        stmt1.prepare(str)
        stmt1.execute()
   
         Set  stmt2  =   New  AcDBStatement(conn) 
        stmt2.prepare( " commit " )
        stmt2.execute()
  End Function

 

每页统计数据
 功能需求：每页显示四条记录，每页统计一次[MATRECTRANS.LINECOST]字段
 解决如下：
 在报表Tool->Parameters中定义变量：
 Sum1          Double
 在DataStream中建立变量如下：
 aConnection AcDBConnection
 aCursor     AcDBCursor
 aDataSource AcDatabaseSource
 aRow        AcDataRow
 aStmt       AcDBStatement
 tmp1        Integer '记录总数与4取余的值
 tmp2        Integer
 i1          Integer
 
 新建函数 

Function  SetSql( str  As   String  )  As  AcDBCursor
      '  Insert your code here
      '  数据库操作
      set  aStmt  =  aConnection.prepare(str) 
      if  aStmt  is   nothing   then  
       exit   function  
   end   if  
    set  aCursor  =  aStmt.allocateCursor() 
    if  aCursor  is   nothing   then  
           exit   function  
    end   if  
    if   Not  aCursor.openCursor()  then  
    aDataSource.getDBConnection().raiseError() 
     set  aCursor  =   nothing  
    end   if  
    Set  SetSql  =  aCursor
  End Function
 
  Function  GetSum(code  as   String ,xend  as   Integer )  As   Double
          '  Insert your code here
   ' 统计前xend的总数
        Dim  str  as   String
       str  =   " select Sum(matrectrans.LINECOST)  from  "   &  Schema  &   " .matrectrans "  
       str  =  str  &   "  where  MATRECTRANS.ITIN1 = '工程采购'  and matrectrans.ponum=' "   &  CODE   &   " '  "
       str  =  str  &   "    and rownum<= "   &  xend   &   "   "
       str  =  str  &   "    and TRANSDATE >to_date(' "   &  aStart  &   " ','YYYY-MM-DD')   "
       str  =  str  &   "    and TRANSDATE <to_date(' "   &  aEnd   &   " ','YYYY-MM-DD')   "
        ' showfactorystatus(str)
     Set  aCursor  =  SetSql(str)
       aCursor.BindColumn( 1 ,  " NewReportApp::DataRow3 " , " sum_1 " )   
       aCursor.Fetch(aRow)
       GetSum =  aRow.GetValue( " sum_1 " )
  End Function
 
  Function  GetCount( code  as   String  )  As   Integer
          '  Insert your code here
        Dim  str  as   String
       str  =   " select count(*)  from  "   &  Schema  &   " .matrectrans "  
       str  =  str  &   "  where  MATRECTRANS.ITIN1 = '工程采购'  and matrectrans.ponum=' "   &  CODE   &   " '  "
        str  =  str  &   "    and TRANSDATE >to_date(' "   &  aStart  &   " ','YYYY-MM-DD')   "
        str  =  str  &   "    and TRANSDATE <to_date(' "   &  aEnd   &   " ','YYYY-MM-DD')   "
 
        ' showfactorystatus(str)
     Set  aCursor  =  SetSql(str)
       aCursor.BindColumn( 1 ,  " NewReportApp::DataRow3 " , " count_1 " )   
       aCursor.Fetch(aRow)
       GetCount =  aRow.GetValue( " count_1 " )
  End Function

 
 
 修改Start( )  

Function  Start( )  As   Boolean
     Start  =  Super::Start( )
      '  Insert your code here
        Dim  count1,i  as   Integer
      Set  aConnection  =   new  Connection
     aConnection.connect()
      Set  aRow  =   New  DataRow3
     count1 = GetCount(code) ' 求列数
      if  (count1  mod   4 )  >= 1   then
       tmp1 = 4 - (count1  mod   4 )
       tmp2 = 1
      else
       tmp2 = 5
      end   if
     i1 = 0
 
      ' showfactorystatus("tmp1 "&tmp1)
 ’此处赋最后一页的总数
          if  count1  < 4   then
           sum3 = GetSum(code, 4 )
            ' showfactorystatus("sum3 "&sum3)
         elseif  (count1  mod   4 )  <>   0   then
           i = count1  mod   4
           sum3 = GetSum(code,count1)  -  GetSum(code,count1 - i)
            ' showfactorystatus("sum3 "&sum3)
         elseif  (count1  mod   4 )  =   0   then
           sum3 = GetSum(code,count1)  -  GetSum(code,count1 - 4 )
         end   if
  End Function

 修改Fetch( ) 
 

Function  Fetch( )  As  AcDataRow
      ' Set Fetch = Super::Fetch( )
      '  Insert your code here
      Dim  myrow  as  DataRow3
      Dim  ponum  as   String
      Dim  i2  as   Integer
      Dim  count1,i  as   Integer
      Set  myrow  =  Super::Fetch()
      if ( not  myrow  is   nothing )  then
        ponum  =  myrow.GetValue( " PO_PONUM " )
        ' 计算总计数，每页总计
             if  i1 < 4   then
               i1 = i1 + 1
                ' showfactorystatus("**i1 "&i1 &"RowNumber "&myrow.GetValue("RowNumber"))
             elseif  i1 = 4   then
                i2 = myrow.GetValue( " RowNumber " )
         sum1 = GetSum(ponum,i2 - 1 ) - GetSum(ponum,i2 - 5 )
                i1 = 1
                ' showfactorystatus("sum1 "&sum1)
                ' showfactorystatus("i1 "&i1 &"RowNumber "&myrow.GetValue("RowNumber"))
             end   if
      elseif  (myrow  is   nothing )  and  tmp2  <=  tmp1  then  
         Set  myrow  =   new  DataRow3
         ' showfactorystatus(code)
        myrow.SetValue( " PO_PONUM " ,code)
        myrow.SetValue( " MATRECTRANS_QUANTITY " , null )
        myrow.SetValue( " MATRECTRANS_ACTUALCOST " , null )
        myrow.SetValue( " MATRECTRANS_LINECOST " , null )
        myrow.SetValue( " deptment_wappr " , "" )
        myrow.SetValue( " name_wappr " , "" )
        myrow.SetValue( " name_appr " , "" )
        myrow.SetValue( " name_enterby " , "" )
        tmp2 = tmp2 + 1
      end   if
      Set  Fetch = myrow