Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ошибка ;при работе с PReport [D6, MSSQL]


Explorer ©   (2002-05-24 15:06:00) 

Мастера!
На форме две кнопки. Одна вставляет записи в Бд.
Другая, создает отчет (prReport)из этих записей. Все работает.
Но как, только выполняю эти действия (по одной кнопке вставил данные , а затем просмотрел отчет по другой и закрыл его) и пытаюсь закрыть форму на которой все это находиться, выдается ошибка CPU (адрес, значение...). Где я ошибся?
В базу всю правильно заносится. Отчет тоже все корректно выводит

Вот код:


procedure TFormPayments.BitBtnOKClick(Sender: TObject);
begin
QueryFactura.Close;
QueryFactura.ParamByName("IdOfDog").AsInteger:=IdOfDog;
QueryFactura.ParamByName("NumFac").AsInteger:=NumFac;
QueryFactura.Open;

QueryFacTec.Close;
QueryFacTec.ParamByName("IdOfDog").AsInteger:=IdOfDog;
QueryFacTec.ParamByName("NumFac").AsInteger:=NumFac;
QueryFacTec.Open;


prReportOrder.PrepareReport;
prReportOrder.PreviewPreparedReport(false);

end;

procedure TFormPayments.FormClose(Sender: TObject;
var Action: TCloseAction);
begin

QueryFactura.Active:=false;
QueryFacTec.Active:=false;

end;


Explorer   (2002-05-24 16:15:00) [1]

>wicked ©
Если закомментировать то все работает.
Весь прикол, как раз в том, что после открытия и закрытия отчета, а затем формы - только в этой последовательности ошибка!

Ошибку уже нашел, вот только причину обьяснить так и несмог.
Оказалось, все дело в том, что у меня отчет использует два Query.
Как только, один из них (любой) убираю с отчета все работает!
Может это проблема в PReport"e?


wicked   (2002-05-24 16:04:00) [2]

а под отладчиком?...
а если строчки
> prReportOrder.PrepareReport;
> prReportOrder.PreviewPreparedReport(false);
закомментировать?...


Наверх

Титульная страница Поиск, карта сайта Написать письмо