Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Обработка ошибки 


DeNN   (2002-03-01 22:37) [0]

Обрабатываю ошибку подключения к БД (неверный алиас в БДЕ, неправильный путь и т.п.). Все элементы (Table, Query и т.д.) находятся в Модуле данных. Ошибка обрабатывается в событии onCreate Модуля данных. Обрабатывается замечательно, но только при возникновении ошибки все формы, создаваемые при загрузке загружаются (только с пустыми полями, конечно, БД не открыта). Как заставить их не создаваться и не загружаться при возникновении ошибки? Спасибо.



Фэ   (2002-03-02 00:35) [1]

if not Error then {..Create..}



Jony   (2002-03-04 15:14) [2]

1.Модуль данных в пограмме должен создаваться первым (в Project -> Project Options -> Forms он должен быть первым).
2. В Try onCreate модуля данных прописываешь подключение, а в Exception - сообщение и закрытие приложения

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
Try
... открытие БД.
except
on E: Exception do
begin
MessageBeep(MB_ICONEXCLAMATION);
MessageDlg("Ошибка открытия БД. Приложение будет закрыто." +
#13#13 + E.Message, mtError, [mbOk], 0);
Application.Terminate;
Exit;
end;
end; // try
... открытие таблиц, запросов, и пр. наборов
End;
(Код от TSV).




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
1-90854           SlavaS                2002-03-16 21:35  2002.03.28  
Неудаётся найти файл *.bpl


3-90752           AndrewK               2002-02-27 16:06  2002.03.28  
Как править записи в DBGrib?


1-90946           Irina Lisova          2002-03-13 19:06  2002.03.28  
TreeView как распечатать дерево ?


1-90828           Bmax                  2002-03-16 07:32  2002.03.28  
Клавиатура


4-91106           MrAngel               2002-01-21 12:06  2002.03.28  
Использование функции GetDesktopWnd