Hi,
wie kann ich Variablen an Fastreport übergeben und als Text anzeigen, oder in einer
Query innerhalb des Reports verwenden? Ich habe es momentan wie folgt versucht, erhalte aber immer die Meldung, das die Variable nicht gefunden wurde...
Delphi-Quellcode:
procedure TDM_Report.ShowActivityReport(ReportType: TReportType);
const
ReportFiles:
array[TReportType]
of String =
('
Activity.fr3');
var
DB: TfrxADODatabase;
FileName:
String;
begin
FileName := ExtractFilePath(ParamStr(0));
if frxActivityReport.LoadFromFile(FileName + ReportFiles[ReportType])
then
begin
DB := frxActivityReport.FindComponent('
ADODatabase')
as TfrxADODatabase;
DB.DatabaseName := FRM_Main.ReadConnection.ConnectionString;
DB.Connected := True;
frxActivityReport.ShowReport;
end
else
ShowMessage('
Could not find report file "' + ReportFiles[ReportType] + '
".');
end;
procedure TFRM_AddActivity.Button2Click(Sender: TObject);
var
RT: TReportType;
begin
DM_Report.frxActivityReport.Variables['
FromDate'] := '
22.10.2007 23:59:59';
DM_Report.frxActivityReport.Variables['
ToDate'] := '
28.10.2007 23:59:59';
RT := TReportType(rtActivity);
DM_Report.ShowActivityReport(RT);
end;
Die Variable innerhalb des Reports anzuzeigen müsste doch mit einem Memo mit dem Inhalt [FromDate] funktionieren??
Thanx
Marcus