Не открывается главная форма

[sasha198407]

Доброго времени суток. Замысел следующий, что бы при запуске приложения появлялась форма Form1, где пользователь вводил бы данные подключения к БД, после нажатия на кнопку подключить появлялось окно Form2 из которого можно было бы открывать дочернюю форму, Form3.
Я попробовал так

Project1

program Project1;
 
uses
  Forms,
  Controls,
  Dialogs,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {DataModule4: TDataModule};
 
{$R *.res}
var
Form1:TForm1;
begin
  Application.Initialize;
    DataModule4 := TDataModule4.Create(Application);
  Form1 := TForm1.Create(Application);
  Form1.ShowModal;
  if (Form1.ShowModal = mrOK) then
  begin
 
    if DataModule4.ADOConnection1.Connected then
    begin
 
      Form1.Free;
  Application.CreateForm(TForm2, Form2);
      end;
  if not DataModule4.ADOConnection1.Connected then
    MessageDlg('Нет подключения к БД', mtError, [mbOK], -1);
    end;
  Application.Run;
end.

Form1

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit4;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
      Edit1.Text := ExtractFilePath(Application.ExeName) + 'db_auth.mdb';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
      DataModule4.ADOConnection1.Connected := False;
  if FileExists(Edit1.Text) then
  begin
    DataModule4.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    Edit1.Text + ';Persist Security Info=False';
    DataModule4.ADOConnection1.Connected := True;
  end;
end;
 
end.

Form2

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses Unit4, Unit3;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
    Form3 := TForm3.Create(Self);
    Form3.Show;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
end;
 
end.

Form3

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm3 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;
 
end.

DataModule

unit Unit4;
 
interface
 
uses
  SysUtils, Classes, DB, ADODB;
 
type
  TDataModule4 = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  DataModule4: TDataModule4;
 
implementation
 
{$R *.dfm}
 
procedure TDataModule4.DataModuleCreate(Sender: TObject);
begin
    ADOConnection1.Connected := False;
end;
 
end.

Где Form1-окно подключения к БД, Form2- главная форма, Form3-дочерняя форма.

Окно подключения выводится первой, но при нажатие на кнопку данная форма не пропадает и главная форма так же не появляется. Что делать?

[Stilet]

но при нажатие на кнопку данная форма не пропадает

Это скорее всего потому что у тебя кнопка на форме подключения не определена как результативная.
modalResult для нее нужно указать правильный, или так:

procedure TForm1.Button1Click(Sender: TObject);
begin
      DataModule4.ADOConnection1.Connected := False;
  if FileExists(Edit1.Text) then
  begin
    DataModule4.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    Edit1.Text + ';Persist Security Info=False';
    try DataModule4.ADOConnection1.Connected := True;    modalresult:=mrOk;
    except modalresult:=mrNo; end;
  end else   modalresult:=mrNo;
end;

Установка результата клика для модального диалога должна закрыть его, вернув значение отработки формы.

[sasha198407]

Спасибо, заработало, только срабатывает после второго нажатия на кнопку и главная форма появляется на заднем плане

[_SERGEYX_]

 Application.Initialize;
    DataModule4 := TDataModule4.Create(Application);
  Form1 := TForm1.Create(Application);
  Form1.ShowModal;

А зачем так сложно? Повесь модальную форму для подключения к БД на событие OnShow для главной формы. И все.

[sasha198407]

Оу извеняюсь.
Form1.ShowModal;
это я сюда по ошибке влепил (пытался понять почему не работает).

Почему так, да не знаю где-то на форуме прочитал, как вариант. Сейчас попробую с onShow, может выйдет. И последний вопрос, а как проверить была ли нажата кнопка(Button)?

[sasha198407]

Всё разобрался. Большое спасибо за помощь, всё работает.