39 lines
931 B
ObjectPascal
39 lines
931 B
ObjectPascal
unit U_DM;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
|
|
FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
|
|
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Stan.Param,
|
|
FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Phys.PGDef,
|
|
FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys.PG, Data.DB,
|
|
FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Phys.MySQLDef,
|
|
FireDAC.Phys.MySQL;
|
|
|
|
type
|
|
TDM = class(TDataModule)
|
|
fdConnNilm: TFDConnection;
|
|
fdQryNilm: TFDQuery;
|
|
FDPhysPgDriverLink: TFDPhysPgDriverLink;
|
|
FDGUIxWaitCursor: TFDGUIxWaitCursor;
|
|
fdConnEtc: TFDConnection;
|
|
fdQryEtc: TFDQuery;
|
|
FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DM: TDM;
|
|
|
|
implementation
|
|
|
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|