Форум: "Базы";
Поиск по всему сайту: 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.043 c