Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Мышь во время запросов [D5, MSSQL]


AM ©   (2003-03-03 11:24:00) 

Доброго всем дня! Была разработа программа, связь с БД была организована по схеме: BDE -> ODBC -> SQL-Server. Никаких серьезных огрехов в принципе не было замечено, на программе работают уже более года все нормально. Но всетаки я решил переделать на ADO. Сейчас как раз этим и занимаюсь.
При работе по старой схеме, BDE во время выполнения запросов курсор мыши автоматически переводил на crSQLWait и это облегчало работу, не надо было заботиться об этом самому.
С переходом на ADO этот эффект пропал...
Можно ли его как нибудь вернуть, или придеться самому ручками писать.


Alexandr   (2003-03-03 12:24:00) [1]

делов-то при создании формы
пройтись по всем компонентам, прицепить программно все обработчики на BeforeOpen и AfterOpen.
Там же пара строк кода всего...
Если уж в дизайнере влом всем проставлять...


AM   (2003-03-03 12:13:00) [2]

Имеется ввиду создать прототип что-то типа TMyADOQuery, у которого будут стоять обработчики, а потом пользоваться им?
В принципе может это и выход.

Хорошо бы повесить обработчик на ADOConnection, тогда бы с остальными компонентами связанными с ним возится не надо было, но жаль у ADOConnection подходящего события нет...

Вобщем ладно, всем спасибо!


Style   (2003-03-03 12:01:00) [3]

Надо просто написать свои компоненты DataSource свой Query и Table, перенаслуй все что нужно и не нужно и добавь изменение курсора!


stone   (2003-03-03 11:59:00) [4]

А разве нельзя написать один обработчик для всех адошных компонентов?


AM   (2003-03-03 11:56:00) [5]

>>stone © (03.03.03 11:36)
Это то понятно, но хотелось бы не самому это писать, а чтобы курсор менялся автоматически.
В программе сотни запросов, придется добавлять эти строки.

Всетаки есть один минус у отказа от BDE :)


stone   (2003-03-03 11:36:00) [6]

Screen.Cursor := crSQLWait;
...
Screen.Cursor := crDefault;


Наверх

Титульная страница Поиск, карта сайта Написать письмо