vb den foxpro ya ceviri

dim query1_obj As TfrxADOQuery
Dim query2_obj As TfrxADOQuery
Dim query3_obj As TfrxADOQuery

Dim database_obj As TfrxADODatabase
Set report = Nothing
Set report = CreateObject("FastReport.TfrxReport")

' This is a good place to load report template

report.LoadReportFromFile("Your_Report_Name.fr3")

Set database_obj = report.FindObject("ADODatabase1")

If database_obj Is Nothing Then
MsgBox "ADO connection object 'ADODatabase1' not found"
Else
database_obj.LoginPrompt = False
database_obj.Connected = False
database_obj.ConnectionString = strConnectionString
database_obj.Connected = True
End If

' Find query object
Set query1_obj = report.FindObject("ADOQuery1")
If query1_obj Is Nothing Then
MsgBox "ADO query object 'ADOQuery1' not found"
Else
query1_obj.Query = strQuery1
End If

' Find query object
Set query2_obj = report.FindObject("ADOQuery2")
If query2_obj Is Nothing Then
MsgBox "ADO query object 'ADOQuery2' not found"
Else
query2_obj.Query = strQuery2
End If

' Find query object
Set query3_obj = report.FindObject("ADOQuery3")
If query3_obj Is Nothing Then
MsgBox "ADO query object 'ADOQuery3' not found"
Else
query3_obj.Query = strQuery3
End If

report.PreviewOptions.Buttons = pb_Zoom + pb_Print + pb_NoFullScreen + pb_NoEmail + pb_Navigator + pb_NoClose
report.MainWindowHandle = frmMain.hwnd
report.ShowReport

Set query1_obj = Nothing
Set query2_obj = Nothing
Set query3_obj = Nothing
Set database_obj = Nothing