Konu: fast repor kullanımı
Visual Fox Pro
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.