-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathufrmCadPessoa.dfm
157 lines (157 loc) · 3.92 KB
/
ufrmCadPessoa.dfm
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
inherited frmCadPessoa: TfrmCadPessoa
Caption = 'CADASTRO DE PESSOAS'
PixelsPerInch = 96
TextHeight = 13
inherited dxRibbon1: TdxRibbon
inherited dxRibbon1Tab1: TdxRibbonTab
Index = 0
end
end
inherited pc: TcxPageControl
Properties.ActivePage = cxTabSheet2
inherited cxTabSheet1: TcxTabSheet
inherited cxGrid: TcxGrid
inherited cxGridDBTableView1: TcxGridDBTableView
DataController.DataSource = dts
object cxGridDBTableView1ID: TcxGridDBColumn
DataBinding.FieldName = 'ID'
end
object cxGridDBTableView1NOME: TcxGridDBColumn
DataBinding.FieldName = 'NOME'
Width = 253
end
object cxGridDBTableView1TELEFONE: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONE'
Width = 133
end
object cxGridDBTableView1OBS: TcxGridDBColumn
DataBinding.FieldName = 'OBS'
Width = 209
end
end
end
end
inherited cxTabSheet2: TcxTabSheet
ExplicitLeft = 4
ExplicitTop = 4
ExplicitWidth = 667
ExplicitHeight = 349
object Label1: TLabel
Left = 25
Top = 24
Width = 26
Height = 13
Caption = 'C'#211'D.'
FocusControl = cxDBSpinEdit1
end
object Label2: TLabel
Left = 168
Top = 24
Width = 29
Height = 13
Caption = 'NOME'
FocusControl = cxDBTextEdit1
end
object Label3: TLabel
Left = 25
Top = 80
Width = 50
Height = 13
Caption = 'TELEFONE'
FocusControl = cxDBTextEdit2
end
object Label4: TLabel
Left = 192
Top = 80
Width = 20
Height = 13
Caption = 'OBS'
FocusControl = cxDBTextEdit3
end
object cxDBSpinEdit1: TcxDBSpinEdit
Left = 25
Top = 40
DataBinding.DataField = 'ID'
DataBinding.DataSource = dts
Enabled = False
Properties.SpinButtons.Visible = False
TabOrder = 0
Width = 121
end
object cxDBTextEdit1: TcxDBTextEdit
Left = 168
Top = 40
DataBinding.DataField = 'NOME'
DataBinding.DataSource = dts
TabOrder = 1
Width = 425
end
object cxDBTextEdit2: TcxDBTextEdit
Left = 25
Top = 96
DataBinding.DataField = 'TELEFONE'
DataBinding.DataSource = dts
TabOrder = 2
Width = 144
end
object cxDBTextEdit3: TcxDBTextEdit
Left = 192
Top = 96
DataBinding.DataField = 'OBS'
DataBinding.DataSource = dts
TabOrder = 3
Width = 401
end
end
end
inherited dxBarManager1: TdxBarManager
PixelsPerInch = 96
inherited btnAdc: TdxBarLargeButton
ImageIndex = 0
end
inherited btnEdit: TdxBarLargeButton
ImageIndex = 1
end
inherited btnDel: TdxBarLargeButton
ImageIndex = 2
end
inherited cxPesquisa: TcxBarEditItem
InternalEditValue = 'NOME'
end
end
inherited dxSkinController1: TdxSkinController
Left = 528
Top = 112
end
inherited cxImageList1: TcxImageList
FormatVersion = 1
end
inherited FDQuery: TFDQuery
UpdateOptions.AssignedValues = [uvGeneratorName]
UpdateOptions.GeneratorName = 'GEN_PESSOA_ID'
UpdateOptions.AutoIncFields = 'ID'
SQL.Strings = (
'SELECT * FROM PESSOA')
object FDQueryID: TFDAutoIncField
FieldName = 'ID'
Origin = 'ID'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
IdentityInsert = True
end
object FDQueryNOME: TStringField
FieldName = 'NOME'
Origin = 'NOME'
Size = 60
end
object FDQueryTELEFONE: TStringField
FieldName = 'TELEFONE'
Origin = 'TELEFONE'
Size = 15
end
object FDQueryOBS: TStringField
FieldName = 'OBS'
Origin = 'OBS'
Size = 1000
end
end
end