Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 2 3 4 [5]      все
 Re: Как в процессе исполнения ряда SQL-запросов отображать прогресс-бар? (thread?)  [new]
Док
Member

Откуда: Казань
Сообщений: 5764
schi
Мой совет - убрать восклицательные знаки из сообщений.

... и раскрасить в постельные тона
5 окт 18, 23:57    [21696863]     Ответить | Цитировать Сообщить модератору
 Re: Как в процессе исполнения ряда SQL-запросов отображать прогресс-бар? (thread?)  [new]
энди
Member

Откуда: Киров, Россия
Сообщений: 898
у меня в программе окно с прогрессом и выполнение работы с БД в отдельном треде выглядит вот так

      dm.qry.DisableControls;
      try
        try
        TProgressView.Execute(MainForm,
          procedure ()
          begin
            dm.qry.Open; << вот тут в принципе можно втыкать всю работу с БД
          end);
        except
          on E: Exception do begin
            ShowMessage(E.Message);
          end;
        end;
      finally
        dm.qry.EnableControls;
      end;


Соответственно вся работа с БД идет в отдельном потоке, а в основном отображается окно с анимационной гифкой. Пользуясь случаем, Виктор, еще раз спасибо за помощь :)

Выглядит это так
Картинка с другого сайта.
6 окт 18, 11:46    [21696964]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 2 3 4 [5]      все
Все форумы / Delphi Ответить