Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Распечатка в QuickReport [D6, IB6.x]

Xmen © (2006-03-31 13:29:00)
Сделал простую прогу который соединяется с базой и обяденяеть 2 таблицы (1 данные, 2 справочник). В 1таблицы есть поля которым подходят значение в полях справочника. Прога должна обядинить и покозать в Репорте.
Код такой:
procedure TForm1.Button1Click(Sender: TObject);
var kod_filial:string;
begin
with qrSimbol do
begin
kod_filial:= inttostr(DBLookupComboBox1.KeyValue);
DisableControls;
if Active then Close;
Screen.Cursor := crHourGlass;
SQL.Clear;
SQL.Add('SELECT k.entry_date, k.kod_filial,k.kas_sim,k.ras_sim,s.kod_kas_sim,s.ras_kod_kas_sim,s.naim_kas_sim, k.summa FROM kas_sim_dan k, spr s');
SQL.Add('WHERE k.kas_sim = s.kod_kas_sim and k.ras_sim = s.ras_kod_kas_sim');
SQL.Add('AND entry_date>='''+MaskEdit1.Text+'''');
SQL.Add('AND entry_date

Виталий Панасенко (2006-04-03 10:44:00) [1]

> Savek (31.03.06 17:42) [12]
> qrOtchet.QRDBText3.DataField:='имя поля';
>
> Вот собственно и все...
> А вы сразу ногами!

Ну, это в 99% делается в des-time...я не о ногах !.:-)

Xmen (2006-04-03 09:33:00) [2]
>>Savek (31.03.06 17:42) [12]

>>qrOtchet.QRDBText3.DataField:='имя поля';

>>Вот собственно и все...
>>А вы сразу ногами!

Большое спасибо!!!

Savek (2006-03-31 17:42:00) [3]
qrOtchet.QRDBText3.DataField:='имя поля';
Вот собственно и все...
А вы сразу ногами!

Плохиш (2006-03-31 15:13:00) [4]
Перенесите ветку в "Начинающим", а то он ответа так и не дождётся и читать на чужом языке он не умеет.

Xmen (2006-03-31 14:42:00) [5]
Я там тоже попробовал.

pmy482 (2006-03-31 14:34:00) [6]
Знаете, может быть я не права, но на мой взгляд нужно самой компоненте QuickReport в свойстве DataSet указать ваш запрос qrSimbol...
Удачи :)

Виталий Панасенко (2006-03-31 14:25:00) [7]
$(DELPHI)\Demos\Quickrpt\*.* тебе ответит

Xmen (2006-03-31 14:25:00) [8]
Удалено модератором
Примечание: Создание пустых сообщений

Xmen (2006-03-31 14:21:00) [9]
Удалено модератором
Примечание: Создание пустых сообщений

Виталий Панасенко (2006-03-31 14:15:00) [10]

> Johnmen © (31.03.06 14:06) [4]
> Маразм крепчал...:)

и крепчал все сильнее...:-))

Johnmen (2006-03-31 14:06:00) [11]
Маразм крепчал...:)

Xmen (2006-03-31 14:04:00) [12]
AsString
исправил на Value
без результатна.

Плохиш (2006-03-31 13:40:00) [13]
О, вообще маразм написан, читай справку и думай.

Плохиш (2006-03-31 13:39:00) [14]

> qrOtchet.QRDBText2.DataSet:=qrSimbol;
> qrOtchet.QRDBText2.DataField:=qrSimbol.fieldbyname('kas_sim') .AsString;
> qrOtchet.QRDBText3.DataSet:=qrSimbol;
> qrOtchet.QRDBText3.DataField:=qrSimbol.fieldbyname('naim_kas_sim') .AsString;
> qrOtchet.QRDBText4.DataSet:=qrSimbol;
> qrOtchet.QRDBText4.DataField:=qrSimbol.fieldbyname('summa') .AsString;
> qrOtchet.QRDBText5.DataSet:=qrSimbol;
> qrOtchet.QRDBText5.DataField:=qrSimbol.fieldbyname('summa') .AsString;

Это ещё что?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »