58 lines
1.5 KiB
ObjectPascal
58 lines
1.5 KiB
ObjectPascal
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.
|
|
|