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

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

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

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

if not Error then {..Create..}

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).

Обработка ошибки Найти похожие ветки