david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
58 lines
1018 B
ObjectPascal
58 lines
1018 B
ObjectPascal
unit DemoFrame;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes,
|
|
{$IFDEF LINUX}
|
|
QControls, QStdCtrls, QGraphics, QForms,
|
|
{$ELSE}
|
|
Forms, Windows, Messages, SysUtils, StdCtrls, Graphics, Controls, Dialogs,
|
|
ComCtrls, Buttons, ExtCtrls, DBCtrls,
|
|
{$ENDIF}
|
|
DBAccess
|
|
{$IFNDEF VER130}, Variants{$ENDIF}
|
|
;
|
|
|
|
type
|
|
TDemoFrame = class(TFrame)
|
|
public
|
|
Connection: TCustomDAConnection;
|
|
procedure Initialize; virtual;
|
|
procedure SetDebug(Value: boolean); virtual;
|
|
|
|
procedure AssignConnectionTo(Dest: TCustomDAConnection);
|
|
end;
|
|
|
|
TDemoFrameClass = class of TDemoFrame;
|
|
|
|
|
|
implementation
|
|
|
|
{$IFDEF CLR}
|
|
{$R *.nfm}
|
|
{$ENDIF}
|
|
{$IFDEF WIN32}
|
|
{$R *.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
{$R *.xfm}
|
|
{$ENDIF}
|
|
|
|
procedure TDemoFrame.Initialize;
|
|
begin
|
|
end;
|
|
|
|
procedure TDemoFrame.SetDebug(Value: boolean);
|
|
begin
|
|
end;
|
|
|
|
procedure TDemoFrame.AssignConnectionTo(Dest: TCustomDAConnection);
|
|
begin
|
|
Dest.Assign(Connection);
|
|
Dest.AfterConnect := nil;
|
|
Dest.AfterDisconnect := nil;
|
|
end;
|
|
|
|
end.
|