Цитата:
|
Сообщение от darkghostnt
QReport привязан на ADOQuery в котором прописано
в SQL: SELECT * FROM T.
В Кнопке на "Просмотр печати" прописано просто
Код:
procedure Tf_TAL.Button1Click(Sender: TObject);
begin
f_print.QuickRep1.PreviewModal;
end;
end.
Что добавить на кнопку, чтобы печатал только выбранную запись DBGrid (ту которая отмечена стрелкой)?
в данный момент выводит все записи (картика) |
Нет. DBGrid и QReport у тебя должны быть привязаны к
разным ADOQuery.
Допустим DBGrid привязан к ADOQuery1, а QReport привязан к ADOQuery2.
Пользователь выбирает нужную ему запись в ADOQuery1 (посредством DBGrid) и нажимает кнопку Button1 для формирования отчёта, в которой делаем примерно так:
Код:
procedure Tf_TAL.Button1Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery2.SQL.Text := 'SELECT * FROM T WHERE id='+ADOQuery1.FieldByName('id').AsString;
ADOQuery2.Open;
f_print.QuickRep1.PreviewModal;
end;
Здесь "id" - это ключевое поле. Если у тебя это поле называется по-другому то исправь здесь.