Проверка на существование БД перед запуском приложения

[Fantom]

Приведите, пожалуйста, программный код, с помощью которго можно было бы перед запуском самой программы, которая использует в своей работе базу данных, проверять наличие этой базы данных. И в случае отсутствия базы данных показывать модальное окно, содержащее сообщение о том, что файл базы данных не найден. На модальном окне должно быть две кнопки: Yes и No. Далее, при нажатии пользователем на кнопку Yes ничего не должно происходить, а при нажатии на кнопку No—приложение должно закрываться .

[evg_m]

проверить возможность установки соединения с помощью компонента TADoConnection или аналогичного.

[Fantom]

Сообщение от evg_m

проверить возможность установки соединения с помощью компонента TADoConnection или аналогичного.

А по какому событию нужно запускать проверку? Т.е. где разместить эту проверку в программном коде?

[evg_m]

обычно такие проверки ставятся перед созданием главной формы, т.е. перед строкой

application.CretaeForm(mainform, TMainform);

но если connection для проверки лежит на этой форме то проверку придется делать только после этой строки

[za4ot]

по дефолту ставим IBDataBase1.Connected:=false;

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    IBDataBase1.Connected:=true;
  except
    Form2.ShowModal;
  end;
end;

Кидаем на форму 2 кнопки, Да Нет
и ставим им в свойствах ModalResult: mrYes и mrNo

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.CloseModal;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Form2.CloseModal;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ModalResult=mrNo then form1.Close;  
end;

удачи

[Fantom]

Сообщение от evg_m

обычно такие проверки ставятся перед созданием главной формы, т.е. перед строкой

application.CretaeForm(mainform, TMainform);

но если connection для проверки лежит на этой форме то проверку придется делать только после этой строки

Ситуация такая:
На главной форме лежит компонент DBGrid. Таблица связана с DataSource. DataSource связан с DataTable. DataTable связан с ADOConnection. Компоненты DataSource, DataTable, AdoConnection я поместил в отдельный модуль DataModule1. Соединение с базой описано в свойстве ConnectionString компонента ADOConnection.
Вот код исходника .dpr:

program Telephon;

uses
  Forms,
  SysUtils,
  Dialogs,
  MainUnit in 'MainUnit.pas' {Form1},
  DataModuleUnit in 'DataModuleUnit.pas' {DataModule1: TDataModule},
  TownBookUnit in 'TownBookUnit.pas' {TownBookForm},
  AboutUnit in 'AboutUnit.pas' {AboutForm},
  EditFormUnit in 'EditFormUnit.pas' {EditRecordForm},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TTownBookForm, TownBookForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TEditRecordForm, EditRecordForm);
  Application.CreateForm(TForm2, Form2);
  Application.Run;

end.

Куда именно поместить код проверки? После:

Application.CreateForm(TDataModule1 , DataModule1);

Ведь компонент ADOConnection находится в модуле DataModule1.

[sysyman]

просто по событию главной формы Form1.show ставиш
try
ADO1.Open;
except
//создаеш свою форму с предупреждением
form2:=Tform2.Create(nil);
form2.Showmodal;
exit;
end;
по событию form2.onclose
ставиш
form1.Close;

если хочеш погляди этот проект, там я именно так сделал
гляди unit6 и unit8

http://www.programmersforum.ru/attac...0&d=1184910335

[evg_m]

переместить Createform(Tdatamodule1....) на первое место среди создаваемых форм (руками) и после него делать проверки