-
Notifications
You must be signed in to change notification settings - Fork 1
/
udados.pas
61 lines (50 loc) · 1.59 KB
/
udados.pas
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
unit udados;
interface
uses
SysUtils, 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.FB, FireDAC.Phys.FBDef,
FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet;
type
TdmDados = class(TDataModule)
FDConnection1: TFDConnection;
FDTransaction1: TFDTransaction;
FDQueryUsuario: TFDQuery;
FDQueryUsuarioID: TIntegerField;
FDQueryUsuarioSENHA: TStringField;
FDQueryUsuarioUSUARIO: TStringField;
FDQueryUsuarioTIPO: TStringField;
FDQueryUsuarioEMAIL: TStringField;
FDQueryUsuarioNOME: TStringField;
FDQueryUsuarioFOTOS: TBlobField;
FDQueryCadastroUsuario: TFDQuery;
FDQueryCadastroUsuarioID: TIntegerField;
FDQueryCadastroUsuarioNOME: TStringField;
FDQueryCadastroUsuarioSENHA: TStringField;
FDQueryUsuarioVALOR: TFloatField;
procedure tbUsuarioSENHAGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
function dmDados: TdmDados;
implementation
{$R *.dfm}
uses
UniGUIVars, uniGUIMainModule, MainModule;
function dmDados: TdmDados;
begin
Result := TdmDados(UniMainModule.GetModuleInstance(TdmDados));
end;
procedure TdmDados.tbUsuarioSENHAGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if DisplayText then
Text := 'Senha';
end;
initialization
RegisterModuleClass(TdmDados);
end.