Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Delphi 7 + CR9 (Crpe32)
|
|||
|---|---|---|---|
|
#18+
Из 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); Вот это всё работает. И отчет можно вызвать несколько раз. При повторном выводе отчета на экран появляется новое окно, старое остается, НО данные в нем перерисовываются в соответствии с новым отчетом. как сделать так чтобы окна которые выведены на экран уже не перерисовывались? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.09.2003, 14:58 |
|
||
|
|

start [/forum/topic.php?fid=58&gotonew=1&tid=2116835]: |
0ms |
get settings: |
5ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
53ms |
get topic data: |
7ms |
get first new msg: |
4ms |
get forum data: |
2ms |
get page messages: |
20ms |
get tp. blocked users: |
1ms |
| others: | 228ms |
| total: | 334ms |

| 0 / 0 |
