powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi 7 + CR9 (Crpe32)
1 сообщений из 1, страница 1 из 1
Delphi 7 + CR9 (Crpe32)
    #32269247
Senibog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Из delphi вызывается отчет с параметрами через компоненту crpe32,

Crpe1.ReportName := strReportName;
Crpe1.Connect.ServerName := 'SQL';
Crpe1.Connect.DatabaseName := 'Base';
Crpe1.Connect.UserID := 'User';
Crpe1.Connect.Password := '123';
Crpe1.WindowButtonBar.AllowDrillDown := True;
Crpe1.WindowButtonBar.SearchBtn := True;
Crpe1.WindowButtonBar.NavigationCtls := True;
Crpe1.DiscardSavedData;
for i := 0 to countparam - 1 do
If Param = '' Then Crpe1.ParamFields.CurrentValue:='-1'
Else Crpe1.ParamFields.CurrentValue:=Param;


If FileExists(strReportName)
Then
Begin

Crpe1.WindowStyle.Title := CrystlTitle;
Crpe1.Output := toWindow;

if Crpe1.Connect.Test then
Try
Crpe1.Show;
Except
ShowMessage('Error!! Ошибка вывода на экран');
End
else
ShowMessage('Error Connecting');

End
Else Application.MessageBox('File Not Found!','Error!',MB_ICONERROR);

Вот это всё работает.
И отчет можно вызвать несколько раз. При повторном выводе отчета на экран
появляется новое окно, старое остается, НО данные в нем перерисовываются
в соответствии с новым отчетом. как сделать так чтобы окна которые выведены на экран
уже не перерисовывались?
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi 7 + CR9 (Crpe32)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]