unit CustomUserLogonMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uDAClasses, uDADriverManager, StdCtrls, uDAIBXDriver,
  uDAEngine, uDAADODriver;

type
  TCustomUserLogonMainForm = class(TForm)
    DADriverManager: TDADriverManager;
    DAConnectionManager: TDAConnectionManager;
    GroupBox1: TGroupBox;
    Open1Button: TButton;
    eUserID: TEdit;
    ePassword: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    DAADODriver: TDAADODriver;
    Open2Button: TButton;
    procedure Open1ButtonClick(Sender: TObject);
    procedure Open2ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CustomUserLogonMainForm: TCustomUserLogonMainForm;

implementation

{$R *.dfm}

uses uDAInterfaces;

procedure TCustomUserLogonMainForm.Open1ButtonClick(Sender: TObject);
var
  conn: IDAConnection;
begin
  conn := DAConnectionManager.NewConnection(DAConnectionManager.Connections[0].Name, TRUE, eUserID.Text, ePassword.Text);
  MessageDlg('Connection created!', mtInformation, [mbOK], 0);
end;

procedure TCustomUserLogonMainForm.Open2ButtonClick(Sender: TObject);
var
  conn: IDAConnection;
begin
  conn := DAConnectionManager.NewConnection(DAConnectionManager.Connections[0].Name, FALSE);
  conn.Open(eUserID.Text, ePassword.Text);
  MessageDlg('Connection created!', mtInformation, [mbOK], 0);
end;

end.