Распечатка в QuickReport

← →
Xmen (2006-03-31 13:29) [0]

Сделал простую прогу который соединяется с базой и обяденяеть 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<="""+MaskEdit2.Text+"""");
SQL.Add("AND kod_filial="""+kod_filial+"""");
SQL.SaveToFile("sql.txt");
try
Open;
except
ShowMessage("Îøèáêà âûïîëíåíèÿ çàïðîñà");
Screen.Cursor := crDefault;
exit;
end;
EnableControls;
Screen.Cursor := crDefault;
end;

qrSimbol.Open;
qrOtchet.DataSet:=qrSimbol;
// qrOtchet.QRDBText1.DataSet:=qrSimbol;
// qrOtchet.QRDBText1.DataField:=qrSimbol.fieldbyname("id").AsString;
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;
qrOtchet.Preview;

end;
В форме репорта есть титл, детаил, и QRDateText1 - 4.
Но у меня Репорте пуста. Запрос проверел в ИБЭкспресе все гуд.
Помогите где я ошибся.

← →
Плохиш © (2006-03-31 13:39) [1]

> 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;

Это ещё что?

← →
Плохиш © (2006-03-31 13:40) [2]

О, вообще маразм написан, читай справку и думай.

← →
Xmen (2006-03-31 14:04) [3]

AsString
исправил на Value
без результатна.

← →
Johnmen © (2006-03-31 14:06) [4]

Маразм крепчал...:)

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

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

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

← →
Xmen (2006-03-31 14:21) [6]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Виталий Панасенко (2006-03-31 14:25) [7]

$(DELPHI)\Demos\Quickrpt\*.* тебе ответит

← →
Xmen (2006-03-31 14:25) [8]

Удалено модератором
Примечание: Создание пустых сообщений

← →
pmy482 © (2006-03-31 14:34) [9]

Знаете, может быть я не права, но на мой взгляд нужно самой компоненте QuickReport в свойстве DataSet указать ваш запрос qrSimbol...
Удачи :)

← →
Xmen (2006-03-31 14:42) [10]

Я там тоже попробовал.

Перенесите ветку в "Начинающим", а то он ответа так и не дождётся и читать на чужом языке он не умеет.

← →
Savek (2006-03-31 17:42) [12]

qrOtchet.QRDBText3.DataField:="имя поля";
Вот собственно и все...
А вы сразу ногами!

← →
Xmen (2006-04-03 09:33) [13]

>>Savek (31.03.06 17:42) [12]

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

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

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

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

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

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

Распечатка в QuickReport Найти похожие ветки