Скачать: CL | DM;

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c