-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathDataModulo.pas
More file actions
39 lines (30 loc) · 778 Bytes
/
DataModulo.pas
File metadata and controls
39 lines (30 loc) · 778 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
unit DataModulo;
interface
uses
System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.Client,
Data.DB, FireDAC.Comp.DataSet;
type
TDM = class(TDataModule)
TblLancamento: TFDTable;
DsTblLancamento: TDataSource;
DsTblCategoria: TDataSource;
TblCategoria: TFDTable;
TblUsuario: TFDTable;
DsTblUsuario: TDataSource;
FDQuery1: TFDQuery;
TblParcela: TFDTable;
DsTblParcela: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{%CLASSGROUP 'FMX.Controls.TControl'}
uses uPrincipal;
{$R *.dfm}
end.