Меню соединения с базой данных.

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

Окно приложения реализовано отдельным классом.

unit Connect;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DataModule, AppEvnts;

type

Tlogin = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

edPath: TEdit;

edUser: TEdit;

edPassword: TEdit;

SpeedButton1: TSpeedButton;

OpenDialog1: TOpenDialog;

btOK: TButton;

btCancel: TButton;

procedure btOkClick(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure btCancelClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

login: Tlogin;

implementation

uses Main;

{$R *.dfm}

procedure Tlogin.btOkClick(Sender: TObject);

var Result: Integer;

begin

Result: = DataModule1.ConnectToDB

(edPath.Text, edUser.Text, edPassword.Text);

if Result < > 1

then

begin

ModalResult: = mrOk;

Application.CreateForm(Tform2, Form2);

Form2.ShowModal;

end;

DataModule1.IBDatabase1AfterConnect(Sender);

end;

procedure Tlogin.SpeedButton1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

edPath.Text: =OpenDialog1.filename;

end;

procedure Tlogin.btCancelClick(Sender: TObject);

begin

close;

end;

end.

При нажатии кнопки «ОК» происходит соединение с базой данных и отображение главной формы приложения. При нажатии кнопки «Отмена» - выход из приложения.