Зависание между BeforeOpen и AfterOpen

[lonelybooba]

салют всем.

товарищи, я уже голову сломал, подскажите плс как реализовать следующую вещь:

в дельфях работаю с DAC for MySQL. выполняю запрос (может не прально выполняю):

 QueryResForm.SQLQuery.Active:=false;
 QueryResForm.SQLQuery.SQL.Clear;
 QueryResForm.SQLQuery.SQL:=LookupForm.ReportSqlMemo.Lines;
 QueryResForm.SQLQuery.Open;

Идея такая, что когда выполняется запрос у меня появляется окошко с надписью "Выполняется запрос" и прочей лабудой (не столь важно какой). Делаю это так:

procedure TQueryResForm.SQLQueryBeforeOpen(DataSet: TDataSet);
begin
 LookupForm.Visible:=false;
 QueryProc.Visible:=true;
end;

procedure TQueryResForm.SQLQueryAfterOpen(DataSet: TDataSet);
begin
 QueryProc.Visible:=false;
 QueryResForm.Visible:=true;
end;

И на этом деле, как вы поняли, всё виснет (запросы большие). Подскажите плс, как "успокоить" приложение, чтобы его можно было спокойно сворачивать и т.п. Application.Processmessages как я понял юзать нельзя, хотя пробовал, но тоже не работает.


Заранее спасибо

[BARNEY]

может что то типо так

QueryResForm.SQLQuery.Active:=false;
 QueryResForm.SQLQuery.SQL.Clear;
 QueryResForm.SQLQuery.SQL:=LookupForm.ReportSqlMemo.Lines;
// Тут показываем окошко "Подождите"
 QueryResForm.SQLQuery.Open;
// тут убираем

[lonelybooba]

BARNEY не, оно всё равно повиснет, т.е. двигать окошко нельзя будет =(

[BARNEY]

может просто "убыстрить" запрос, индексы добавить в таблицу или с запросом ченить сделать.

[lonelybooba]

там с таблицой делать ниче нельзя, плюс ко всему она оооочень большая по размеру. ну и в конце концов такая функция быть должна, т.е. реализовать надо...
и как на зло еще у компоненты mySQLQuery нет ивентов типа OnExecute или OnProcess(

[BARNEY]

Всегда было Интересно зачем ОЧЕНЬ большую таблицу выводить пользователю.... прокрутить не прокрутит....искать что то не найдёт...
переписать на бумашку не перепишет... Может посмотреть в торону изменения Тех задания... Или логики программы... Да и всё таки Ну очень большие запросы и данные всё равно можно запрос оптимизировать... у меня несколько миллионов записей обрабатывает с читаные секунду... Может лучше запрос покажите за одно и расскажите зачем больная таблица Пользователю

[lonelybooba]

я очень большую не вывожу, у меня в конце LIMIT запрос генерируется "руками", точнее визуально и запросы связываются. выглядит это страшно, но в тз было так, сделал

ну например вот так:

SELECT * FROM fond_egrpo WHERE

((name LIKE "%газпром%") OR 
(kname LIKE "%газпром%") OR
(lname LIKE "%газпром%"))
AND
(okpo>"50432")

LIMIT 1000

ну и самое важное, что таблица не индексирована, не моя вина.

короче деваться некуда, надо с окошком "подождите" разобраться...

[BARNEY]

дык проиндексируйте.... это 2 минуты....

и пользователь 1000 записей листает руками??? Может ему счёты выдать?

да и Like да ещё и в связке с or не самый хороший вариант.