Как добавить Progressbar?

Обсуждение возникших проблем, предложений и ошибок MyDAC компонентов
Ответить
bex007
Сообщения: 14
Зарегистрирован: Сб 13 июн 2015 14:19

Как добавить Progressbar?

Сообщение bex007 » Пт 26 июн 2015 12:40

Как здесь добавить Progressbar? :?

Код: Выделить всё

try
MyQuery1.close;
MyQuery1.SQL.Clear;
MyQuery1.SQL.Text:='INSERT INTO tickets (`seat`, `status`, ) VALUES (:seat, 1)';

MyQuery1.Prepare;
  if not MyConnection1.InTransaction then
    MyConnection1.StartTransaction;
  try
    for i := 1 to 795 do begin
     MyQuery1.ParamByName('seat').AsString := IntToStr(i);

        MyQuery1.Execute;
        end;
 MyConnection1.Commit;
  except
    MyConnection1.Rollback;
    raise;
  end;

   except
on E: exception do
showmessage(E.Message);
end;

ViktorV
Devart Team
Сообщения: 202
Зарегистрирован: Чт 31 июл 2014 09:52

Re: Как добавить Progressbar?

Сообщение ViktorV » Вт 30 июн 2015 11:31

Данный вопрос не относится к MyDAC функциональности. Для его решения, пожалуйста, обратитесь к документации Embarcadero.

Ответить