-
Notifications
You must be signed in to change notification settings - Fork 1
/
InsertarClientes.pas
98 lines (85 loc) · 2.84 KB
/
InsertarClientes.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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
unit InsertarClientes;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls,
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, Data.Bind.EngExt, Vcl.Bind.DBEngExt,
System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.Components,
Data.Bind.DBScope, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client;
type
TFinsertarClientes = class(TForm)
GridPanel1: TGridPanel;
GroupBox4: TGroupBox;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
GroupBox3: TGroupBox;
GroupBox2: TGroupBox;
LabeledEdit4: TLabeledEdit;
LabeledEdit5: TLabeledEdit;
GroupBox5: TGroupBox;
Label2: TLabel;
ComboBox1: TComboBox;
Button3: TButton;
Button4: TButton;
GridPanel2: TGridPanel;
fdinsertarClientes: TFDQuery;
fdadministradores: TFDQuery;
BindSourceDB1: TBindSourceDB;
BindingsList1: TBindingsList;
LinkFillControlToField: TLinkFillControlToField;
BindSourceDB2: TBindSourceDB;
LinkControlToField1: TLinkControlToField;
LinkControlToField2: TLinkControlToField;
LinkControlToField3: TLinkControlToField;
LinkControlToField4: TLinkControlToField;
LinkControlToField5: TLinkControlToField;
ComboBox2: TComboBox;
Label1: TLabel;
LinkPropertyToFieldItemIndex: TLinkPropertyToField;
LabeledEdit6: TLabeledEdit;
LabeledEdit7: TLabeledEdit;
LabeledEdit8: TLabeledEdit;
LinkControlToField6: TLinkControlToField;
LinkControlToField7: TLinkControlToField;
LinkControlToField8: TLinkControlToField;
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button4Click(Sender: TObject);
procedure fdinsertarClientesAfterPost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FinsertarClientes: TFinsertarClientes;
implementation
{$R *.dfm}
uses DModule1;
procedure TFinsertarClientes.Button3Click(Sender: TObject);
begin
if fdinsertarClientes.State in [dsInsert] then fdinsertarClientes.Post;
end;
procedure TFinsertarClientes.Button4Click(Sender: TObject);
begin
Close;
end;
procedure TFinsertarClientes.fdinsertarClientesAfterPost(DataSet: TDataSet);
begin
GroupBox3.Enabled:=true;
end;
procedure TFinsertarClientes.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if fdinsertarClientes.State in [dsInsert] then fdinsertarClientes.Cancel;
Action:=caFree;
end;
procedure TFinsertarClientes.FormCreate(Sender: TObject);
begin
fdinsertarClientes.Insert;
end;
end.