Передача данных в FastReport
Добрый день!!!!
У меня такой вопрос- передаю данные в Fast report из Дельфи
DM.frxReport.LoadFromFile(DM.REPORTPATH+'Справка.fr3');
DM.frxReport.Script.Variables := DM.DBPATH;
DM.frxReport.Script.Variables := DM.DBUSER;
DM.frxReport.Script.Variables := DM.DBPASSWORD;
DM.frxReport.Script.Variables := SU.Text;
DM.frxReport.Script.Variables := SD.Text;
DM.frxReport.Script.Variables := SK.Text;
DM.frxReport.Script.Variables := DM.NowDate;
DM.frxReport.ShowReport;
в FastReporte такой код
var
SU,SD,SK,DBUSER,DBPASSWORD,DataBaseName:String;
DATA:Tdate;
procedure frxReportOnStartReport(Sender: TfrxComponent);
begin
IBXDatabase.Connected:=true;
IBXAbon.Open;
end;
begin
IBXDatabase.Connected:=false;
IBXDatabase.DataBaseName := DataBaseName;
IBXDatabase.Params.Add('user_name='+DBUSER);
IBXDatabase.Params.Add('password='+DBPASSWORD);
end.
В таблице IBXAbon в параметрах я указал переменные SU,SD,SK,DATA
на что программа выдает сообщение 'Class TfrxIBXDataBase not found'
Не подскажите в чем ошибка???Вся работа из-за этого стоит!!!!!!
Думал ошибка в отчете. Присвоил в ручную переменные - работает.
У меня такой вопрос- передаю данные в Fast report из Дельфи
DM.frxReport.LoadFromFile(DM.REPORTPATH+'Справка.fr3');
DM.frxReport.Script.Variables := DM.DBPATH;
DM.frxReport.Script.Variables := DM.DBUSER;
DM.frxReport.Script.Variables := DM.DBPASSWORD;
DM.frxReport.Script.Variables := SU.Text;
DM.frxReport.Script.Variables := SD.Text;
DM.frxReport.Script.Variables := SK.Text;
DM.frxReport.Script.Variables := DM.NowDate;
DM.frxReport.ShowReport;
в FastReporte такой код
var
SU,SD,SK,DBUSER,DBPASSWORD,DataBaseName:String;
DATA:Tdate;
procedure frxReportOnStartReport(Sender: TfrxComponent);
begin
IBXDatabase.Connected:=true;
IBXAbon.Open;
end;
begin
IBXDatabase.Connected:=false;
IBXDatabase.DataBaseName := DataBaseName;
IBXDatabase.Params.Add('user_name='+DBUSER);
IBXDatabase.Params.Add('password='+DBPASSWORD);
end.
В таблице IBXAbon в параметрах я указал переменные SU,SD,SK,DATA
на что программа выдает сообщение 'Class TfrxIBXDataBase not found'
Не подскажите в чем ошибка???Вся работа из-за этого стоит!!!!!!
Думал ошибка в отчете. Присвоил в ручную переменные - работает.
Комментарии
Я хоть правильно передаю переменные из Дельфи?
Не знаю, как приведённый пример вообще работает (при таком коде должно появляться сообщение "Идентификатор переопределен" при формировании отчёта)
Сообщение 'Class TfrxIBXDataBase not found' выдаётся, если в проект не добавлен модуль frxIBXComponents
А как описывается присваивание переменных параметрам Query в FastReport&& В дельфи это делается так
IBQuery.ParamByName('SU').AsString:=SU;
Пытался сделать тоже самое в FatsReport выдает ошибку. Приходится напрямую в компоненте описывать параметр SU