/
udados.pas
54 lines (43 loc) · 1.28 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
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;
FDRegistro: TFDQuery;
FDRegistroID: TIntegerField;
FDRegistroNOME: TStringField;
FDRegistroTEL: TStringField;
FDRegistroDTNASCIMENTO: TDateField;
FDQueryAuxiliar: TFDQuery;
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.