-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUnit2.dfm
366 lines (366 loc) · 7.45 KB
/
Unit2.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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
object form_CADASTRO: Tform_CADASTRO
Left = 220
Top = 312
Caption = 'CADASTRO'
ClientHeight = 518
ClientWidth = 278
Color = clBtnFace
Constraints.MaxHeight = 557
Constraints.MinHeight = 557
Constraints.MinWidth = 294
DefaultMonitor = dmPrimary
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poDesigned
OnCreate = FormCreate
OnShow = FormShow
DesignSize = (
278
518)
PixelsPerInch = 96
TextHeight = 13
object panel_P2: TPanel
Left = 8
Top = 239
Width = 262
Height = 241
Anchors = [akLeft, akTop, akRight]
BevelOuter = bvLowered
TabOrder = 3
DesignSize = (
262
241)
object Label4: TLabel
Left = 8
Top = 53
Width = 46
Height = 13
Caption = 'Telefone:'
end
object Label5: TLabel
Left = 8
Top = 99
Width = 38
Height = 13
Caption = 'Twitter:'
end
object Label6: TLabel
Left = 8
Top = 145
Width = 53
Height = 13
Caption = 'Instagram:'
end
object Label7: TLabel
Left = 8
Top = 191
Width = 43
Height = 13
Caption = 'Website:'
end
object Label9: TLabel
Left = 8
Top = 7
Width = 32
Height = 13
Caption = 'E-mail:'
end
object edt_Telefone: TDBEdit
AlignWithMargins = True
Left = 8
Top = 72
Width = 246
Height = 21
Anchors = [akLeft, akTop, akRight]
BevelOuter = bvRaised
Color = 12779210
DataField = 'TELEFONE'
DataSource = DataSource1
MaxLength = 21
TabOrder = 1
end
object edt_Twitter: TDBEdit
Left = 8
Top = 118
Width = 217
Height = 21
Anchors = [akLeft, akTop, akRight]
Color = 16773330
DataField = 'TWITTER'
DataSource = DataSource1
TabOrder = 2
end
object edt_Instagram: TDBEdit
Left = 8
Top = 164
Width = 217
Height = 21
Anchors = [akLeft, akTop, akRight]
Color = 14011135
DataField = 'INSTAGRAM'
DataSource = DataSource1
TabOrder = 3
end
object edt_Website: TDBEdit
Left = 8
Top = 210
Width = 217
Height = 21
Anchors = [akLeft, akTop, akRight]
Color = 15400957
DataField = 'WEBSITE'
DataSource = DataSource1
TabOrder = 4
end
object edt_Email: TDBEdit
AlignWithMargins = True
Left = 8
Top = 26
Width = 246
Height = 21
Anchors = [akLeft, akTop, akRight]
BevelOuter = bvRaised
CharCase = ecLowerCase
Color = 14869218
DataField = 'EMAIL'
DataSource = DataSource1
TabOrder = 0
end
object btn_Twitter: TButton
Left = 231
Top = 117
Width = 24
Height = 23
Caption = 'Go!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btn_TwitterClick
end
object Button3: TButton
Left = 231
Top = 164
Width = 23
Height = 21
Caption = 'Go!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = Button3Click
end
object btn_Website: TButton
Left = 231
Top = 210
Width = 23
Height = 21
Caption = 'Go!'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = btn_WebsiteClick
end
end
object panel_P1: TPanel
Left = 8
Top = 39
Width = 262
Height = 194
Anchors = [akLeft, akTop, akRight]
BevelOuter = bvLowered
TabOrder = 2
DesignSize = (
262
194)
object Label1: TLabel
Left = 8
Top = 5
Width = 31
Height = 13
Caption = 'Nome:'
end
object Label2: TLabel
Left = 8
Top = 51
Width = 58
Height = 13
Caption = 'Sobrenome:'
end
object Label3: TLabel
Left = 146
Top = 5
Width = 100
Height = 13
Anchors = [akTop, akRight]
Caption = 'Data de Nascimento:'
ExplicitLeft = 176
end
object Label8: TLabel
Left = 8
Top = 143
Width = 23
Height = 13
Caption = 'CPF:'
end
object Label10: TLabel
Left = 8
Top = 97
Width = 24
Height = 13
Caption = 'AKA:'
end
object edt_Nome: TDBEdit
AlignWithMargins = True
Left = 8
Top = 24
Width = 132
Height = 21
Anchors = [akLeft, akTop, akRight]
CharCase = ecUpperCase
DataField = 'NOME'
DataSource = DataSource1
TabOrder = 0
end
object edt_Sobrenome: TDBEdit
Left = 8
Top = 70
Width = 247
Height = 21
Anchors = [akLeft, akTop, akRight]
CharCase = ecUpperCase
DataField = 'SOBRENOME'
DataSource = DataSource1
TabOrder = 1
end
object edt_Data: TDBEdit
Left = 146
Top = 24
Width = 109
Height = 21
Anchors = [akTop, akRight]
DataField = 'NASCIMENTO'
DataSource = DataSource1
MaxLength = 8
TabOrder = 3
end
object edt_CPF: TDBEdit
Left = 8
Top = 162
Width = 247
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'CPF'
DataSource = DataSource1
MaxLength = 14
TabOrder = 2
end
object edt_Vulgo: TDBEdit
Left = 8
Top = 116
Width = 247
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'VULGO'
DataSource = DataSource1
TabOrder = 4
end
end
object btn_Insert: TButton
Left = 8
Top = 8
Width = 75
Height = 25
Caption = 'Novo'
TabOrder = 0
OnClick = btn_InsertClick
end
object btn_Edit: TButton
Left = 89
Top = 8
Width = 75
Height = 25
Caption = 'Editar'
TabOrder = 1
OnClick = btn_EditClick
end
object btn_Save: TButton
Left = 195
Top = 486
Width = 75
Height = 25
Caption = 'Salvar'
TabOrder = 4
OnClick = btn_SaveClick
end
object btn_Cancel: TButton
Left = 114
Top = 486
Width = 75
Height = 25
Caption = 'Cancelar'
TabOrder = 5
OnClick = btn_CancelClick
end
object btn_Delete: TButton
Left = 8
Top = 486
Width = 75
Height = 25
Caption = 'Deletar'
TabOrder = 6
OnClick = btn_DeleteClick
end
object Button1: TButton
Left = 247
Top = 8
Width = 24
Height = 25
Anchors = [akTop, akRight]
Caption = #5125
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = Button1Click
end
object btn_Prev: TButton
Left = 217
Top = 8
Width = 24
Height = 25
Anchors = [akTop, akRight]
Caption = #5130
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = btn_PrevClick
end
object DataSource1: TDataSource
DataSet = datamodule_CRUD.ClientDataSet1
Left = 101
Top = 27
end
end