Fast Report + Bds 2006 (delphi 2006)

mikhael

Написал код на Delphi. При выполнении не передается параметр в SQL-запрос, т.е. запрос выполняется 1 раз с одним параметром и всё, подставляю 2й параметр и ничего не происходит. Подскажите, что может быть?

Код Delphi:

var
frmReport: TfrmReport;
repReport: TfrxReport;
repDesigner: TfrxDesigner;
repDBDataSet: TfrxDBDataset;
implementation

procedure TfrmReport.btnPreviewReportClick(Sender: TObject);
begin
repReport.LoadFromFile(ExtractFilePath(Application.ExeName) + 'report.fr3', False);
repQuery.Open;
repReport.ShowReport;
end;

procedure TfrmReport.cxButton2Click(Sender: TObject);
begin
repQuery.ParamByName('BatchID').AsInteger := listboxBatchID.EditValue;
repReport.LoadFromFile(ExtractFilePath(Application.ExeName) + 'report.fr3', False);
repQuery.Open;
repReport.ShowReport;
end;

procedure TfrmReport.btnCreateReportClick(Sender: TObject);
begin
repReport.LoadFromFile(ExtractFilePath(Application.ExeName) + 'report.fr3', False);
repReport.DesignReport;
end;


procedure TfrmReport.FormCreate(Sender: TObject);
begin
repReport := TfrxReport.Create(self);
repDesigner := TfrxDesigner.Create(self);
repDBDataSet := TfrxDbDataSet.Create(repDesigner);
repDBDataSet.DataSet := repQuery;
repDBDataSet.UserName := repQuery.Name;
repReport.DataSets.Add(repDBDataSet);
end;