Как распечатать результат выполнения SQL запроса (одну запись)?

← →
Sokolov (2008-03-08 17:30) [0]

Как распечатать результат выполнения SQL запроса (одну запись)? Нашёл примеры для нескольких записей (печать таблицы)...

← →
Anatoly Podgoretsky © (2008-03-08 17:34) [1]

> Sokolov (08.03.2008 17:30:00) [0]

Одна запись, частный случай нескольких записей.

← →
Sokolov (2008-03-08 17:42) [2]

> Anatoly Podgoretsky © (08.03.08 17:34) [1]
> Одна запись, частный случай нескольких записей.

Я это прекрасно понимаю!...
Но ведь есть же быстрый вывод на печать содержимого memo, без всякого оформления! Так и я думаю, что есть способ быстро распечатать одну запись, например в виде:
ФИО: Иванов Иван Иванович
Кабинет: 102
Телефон: 11-11
Дата рождения: 11.11.1960
???
Или всё-же надо рисовать (создавать) шаблон... ???

← →
Kolan © (2008-03-08 17:43) [3]

> Или всё-же надо рисовать (создавать) шаблон&#133 ???

В каком-то виде  да.

Возьми генератор отчетов(Fast Report например) и будет тебе счастье :)

← →
Sokolov (2008-03-08 17:47) [4]

Спасибо! Попробую поискать литературу по Fast Report! ))

А "Fast Report" - бесплатный компонент?

← →
Kolan © (2008-03-08 18:04) [5]

> А «Fast Report»  бесплатный компонент?

Нет, но производитель бесплатно дает FreeReport, который по сути FastReport, но старых версий. Конечно ч новым ФР он не сравниться, но вполне работоспособен.

> Попробую поискать литературу по Fast Report!

Че её искать: www.fastreport.ru

>Kolan © (08.03.08 17:43) [3]
>Возьми генератор отчетов(Fast Report например) и будет тебе счастье :)

Ага, именно для распечатки записи ;)

>Sokolov (08.03.08 17:42) [2]
>Так и я думаю, что есть способ быстро распечатать одну запись, например в виде..

Так что мешает сделать, например, так:

procedure TForm1.PutOutCurRec(DataSet: TDataSet; PrFile: TFileName);
var
i: integer;
sl: TStrings;
begin
sl := TStringList.Create;
with DataSet do
if Active and (RecordCount>0) then
begin
for i := 0 to FieldCount-1 do sl.Add(Fields[i].AsString);
sl.SaveToFile(PrFile);
end;
sl.Free;
end;

> MsGuns © (08.03.08 21:56) [6]
> and (RecordCount>0)

Не забываем, RecordCount=1 :)))
Правда, где здесь печать, не видно. Т.е. совсем...

>Johnmen © (08.03.08 23:54) [7]
>Правда, где здесь печать, не видно. Т.е. совсем...

procedure TForm1.PutOutCurRec(DataSet: TDataSet; PrFile: TFileName);

;)))

Как распечатать результат выполнения SQL запроса (одну запись)? Найти похожие ветки