mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
42 lines
674 B
ObjectPascal
42 lines
674 B
ObjectPascal
|
unit MainDM;
|
||
|
|
|
||
|
|
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.Phys.PG,
|
||
|
|
FireDAC.Phys.PGDef,
|
||
|
|
FireDAC.ConsoleUI.Wait,
|
||
|
|
FireDAC.Stan.Param,
|
||
|
|
FireDAC.DatS,
|
||
|
|
FireDAC.DApt.Intf,
|
||
|
|
FireDAC.DApt,
|
||
|
|
Data.DB,
|
||
|
|
FireDAC.Comp.DataSet,
|
||
|
|
FireDAC.Comp.Client;
|
||
|
|
|
||
|
|
type
|
||
|
|
TCustomersDM = class(TDataModule)
|
||
|
|
FDConnection1: TFDConnection;
|
||
|
|
MyQuery: TFDQuery;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{%CLASSGROUP 'System.Classes.TPersistent'}
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|