VPF::ProgressBar - Форум программистов

ura5

Дата 12.9.2007, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 12.4.2007

Репутация: нет
Всего: нет

Есть Форма1 (в ней идет запись строк в таблицу но оракл) и на ней кнопка Button1.Надо при нажатии этой кнопки вызвать небольшую по размерам Форма2 и в ней запустить ProgressBar,чтобы он был (протекал) до тех пор,пока идет запись строк в таблицу на Форма1 (пока выполняется цикл).

Форма1

Код

[b]
    while (!ADOQuery2->Eof)
    {
        ADOQuery1->Insert();
        ADOQuery1->FieldByName("CODER")->AsString = ADOQuery2->FieldByName("VIDRT")->AsString;
        .....................
        ADOQuery1->Post();
        ADOQuery2->Next();
    }

[/b]

Lazin

Дата 12.9.2007, 16:01 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3820
Регистрация: 11.12.2006
Где: paranoid oil empi re

Репутация: 18
Всего: 154

Код


    while (!ADOQuery2->Eof)
    {
        .......
        ProgressBarForm->Bar->Position = counter;
        counter++;
        Application->ProcessMessages();
    }

Подразумевается что существует форма ProgressBarForm на которой лежит TProgressBar по имени Bar, ну и перед началом цикла её создали и показали.

Добавлено @ 16:03
Еще нужно знать заранее количество итераций цикла, чтобы нормально установить диапазон прогрес бара.

Это сообщение отредактировал(а) Lazin - 12.9.2007, 16:03

--------------------

C++ is the steampunk of programming languages: modern ideas realized with victorian technology.

ura5

Дата 12.9.2007, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 12.4.2007

Репутация: нет
Всего: нет

Что такое Bar ,counter ?
Слабо знаю язык

Rodman

Дата 12.9.2007, 16:13 (ссылка)

(голосов:1)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Цитата(ura5 @ 12.9.2007, 16:07

)

Что такое Bar

это и есть твой ProgressBar

ProgressBarForm - это форма на которой он лежит

Код


ProgressBar1->Max=ADOQuery2->RecordCount;
while (!ADOQuery2->Eof)
    {
        ADOQuery1->Insert();
        ADOQuery1->FieldByName("CODER")->AsString = ADOQuery2->FieldByName("VIDRT")->AsString;
        .....................
        ADOQuery1->Post();
        ADOQuery2->Next();
        ProgressBar1->Position+=1;
        Application->ProcessMessages();
    }

думаю так понятнее

Это сообщение отредактировал(а) Rodman - 12.9.2007, 16:50

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

ura5

Дата 13.9.2007, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 12.4.2007

Репутация: нет
Всего: нет

тоже работает:

Код

       
Form2->Show();
        Form2->ProgressBar1->Max = ADOQuery2->RecordCount; 
        Form2->ProgressBar1->Position = 0;
        while
        {
          ............
          ADOQuery2->Next();
         ++Form2->ProgressBar1->Position;
         Application->ProcessMessages();

        }

RORMAN.LAZIN.СПАСИБО!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »