fast repor kullanımı

publick db_connection,frx_dataset,frx_param,frx_p,fr

db_connection    = Createobject('FastReport.TfrxADODatabase')

frx_param        = Createobject('FastReport.TfrxADOquery')

fr        = Createobject('FastReport.TfrxReport')

db_connection.ConnectionString="Provider=SQLOLEDB.1;Password=11;" + ;

    "Persist Security Info=True;User ID=sa;Initial Catalog=ERADB;Data Source=10.0.0.201"

db_connection.LoginPrompt='false'

 

 

TEXT to this.sorgu  NOSHOW TEXTMERGE

   SELECT mus.* FROM mus

ENDTEXT

 

frx_param.Name     ="mus_sorgu"

frx_param.Database = db_connection

frx_param.Query    = This.sorgu

 

fr.LoadReportFromFile("c:\rp\deneme.fr3" )

*/**/*/*//*/*/*/ raporta parametre yollama

fr.AddVariable('era','Firma Adi','"dfdfsdfsfsdffddfdffd"')

fr.AddVariable('era','Firma Adi333','"sdafsfasdsfsfsdffddfdffd"')

fr.AddVariable('era','Firma Adi344','"sdafsfasdsfsfsdffddfdffd"')

fr.AddVariable('era','Firma Adi355','"sdafsfasdsfsfsdffddfdffd"')

fr.AddVariable('era','Firma Adi365','"sdafsfasdsfsfsdffddfdffd"')

fr.AddVariable('era','Firma Adi375','"sdafsfasdsfsfsdffddfdffd"')

 

fr.showreport()

&&  fr.DesignReport()

db_connection.connected=.F.