-
Notifications
You must be signed in to change notification settings - Fork 0
/
uGestionar.fmx
401 lines (401 loc) · 11.8 KB
/
uGestionar.fmx
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
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
object fGestionar: TfGestionar
Left = 0
Top = 0
Caption = 'Gestionar Usuarios'
ClientHeight = 528
ClientWidth = 827
Position = OwnerFormCenter
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
OnClose = FormClose
DesignerMasterStyle = 0
object Panel1: TPanel
Align = Client
Size.Width = 827.000000000000000000
Size.Height = 487.000000000000000000
Size.PlatformDefault = False
TabOrder = 11
object GridBindSourceDB1: TGrid
Align = Client
CanFocus = True
ClipChildren = True
Size.Width = 827.000000000000000000
Size.Height = 326.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
RowCount = 0
Viewport.Width = 823.000000000000000000
Viewport.Height = 301.000000000000000000
end
object Panel2: TPanel
Align = Top
Size.Width = 827.000000000000000000
Size.Height = 34.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object NavigatorBindSourceDB1: TBindNavigator
Align = Center
HitTest = True
Size.Width = 437.000000000000000000
Size.Height = 25.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
DataSource = BindSourceDB1
xRadius = 4.000000000000000000
yRadius = 4.000000000000000000
end
end
object Panel4: TPanel
Align = Top
Position.Y = 34.000000000000000000
Size.Width = 827.000000000000000000
Size.Height = 127.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
end
end
object Panel3: TPanel
Align = Top
Size.Width = 827.000000000000000000
Size.Height = 41.000000000000000000
Size.PlatformDefault = False
TabOrder = 10
end
object Editusu_cnombre: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 1
TextSettings.Font.StyleExt = {00070000000000000004000000}
Position.X = 160.000000000000000000
Position.Y = 115.000000000000000000
Size.Width = 233.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
StyledSettings = [Family, Size, FontColor]
CharCase = ecUpperCase
object Labelusu_cnombre: TLabel
Position.X = -144.000000000000000000
Size.Width = 145.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Nombre(s) y Apellido(s)'
TabOrder = 0
end
end
object Editusu_nid: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 0
Position.X = 160.000000000000000000
Position.Y = 89.000000000000000000
object Labelusu_nid: TLabel
Position.X = -144.000000000000000000
TextSettings.WordWrap = False
Text = 'ID'
TabOrder = 0
end
end
object Editusu_cnum_celular: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 4
Position.X = 492.000000000000000000
Position.Y = 87.000000000000000000
object Labelusu_cnum_celular: TLabel
Position.X = -86.000000000000000000
Position.Y = 3.000000000000000000
Size.Width = 80.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'No. Celular'
TabOrder = 0
end
end
object ComboBoxusu_ccargo: TComboBox
Position.X = 160.000000000000000000
Position.Y = 143.000000000000000000
Size.Width = 233.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Labelusu_ccargo: TLabel
Position.X = -144.000000000000000000
Size.Width = 144.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Cargo'
TabOrder = 86
end
end
object Editusu_cnum_tele_fijo: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 5
Position.X = 492.000000000000000000
Position.Y = 113.000000000000000000
object Labelusu_cnum_tele_fijo: TLabel
Position.X = -88.000000000000000000
Position.Y = 3.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Tel'#233'fono Fijo'
TabOrder = 0
end
end
object Editusu_cnum_extension: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 6
Position.X = 492.000000000000000000
Position.Y = 140.000000000000000000
object Labelusu_cnum_extension: TLabel
Position.X = -87.000000000000000000
Position.Y = 2.000000000000000000
Size.Width = 72.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Extension'
TabOrder = 0
end
end
object ComboBoxusu_cestado: TComboBox
EnableDragHighlight = False
Position.X = 492.000000000000000000
Position.Y = 168.000000000000000000
StyleLookup = 'comboboxstyle'
TabOrder = 7
object Labelusu_cestado: TLabel
Position.X = -88.000000000000000000
Position.Y = 4.000000000000000000
Size.Width = 89.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Estado'
TabOrder = 86
end
end
object ComboBoxusu_nperfil: TComboBox
Position.X = 160.000000000000000000
Position.Y = 172.000000000000000000
Size.Width = 233.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object Labelusu_nperfil: TLabel
Position.X = -144.000000000000000000
TextSettings.WordWrap = False
Text = 'Perfil'
TabOrder = 86
end
end
object Editusu_cusuario: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 8
TextSettings.Font.StyleExt = {00070000000000000004000000}
Position.X = 616.000000000000000000
Position.Y = 100.000000000000000000
Size.Width = 162.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
StyledSettings = [Family, Size, FontColor]
CharCase = ecLowerCase
object Labelusu_cusuario: TLabel
Position.Y = -19.000000000000000000
TextSettings.WordWrap = False
Text = 'Usuario'
TabOrder = 0
end
end
object Editusu_cpassword: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 9
Password = True
TextSettings.Font.StyleExt = {00070000000000000004000000}
Position.X = 616.000000000000000000
Position.Y = 160.000000000000000000
Size.Width = 162.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
StyledSettings = [Family, Size, FontColor]
object Labelusu_cpassword: TLabel
Position.Y = -19.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Contrase'#241'a'
TabOrder = 0
end
end
object BindSourceDB1: TBindSourceDB
DataSet = dmDatos.UsuariosTable
ScopeMappings = <>
Left = 520
Top = 392
end
object BindingsList1: TBindingsList
Methods = <>
OutputConverters = <>
Left = 300
Top = 261
object LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB1
GridControl = GridBindSourceDB1
Columns = <
item
MemberName = 'usu_nid'
Header = 'ID'
TextWidth = 5
end
item
MemberName = 'usu_cnombre'
Header = 'Nombre(s) y Apellido(s)'
TextWidth = 30
end
item
MemberName = 'usu_ccargo'
Header = 'Cargo'
TextWidth = 20
end
item
MemberName = 'usu_cnum_celular'
Header = 'No. Celular'
TextWidth = 10
end
item
MemberName = 'usu_cnum_tele_fijo'
Header = 'Tel'#233'fono Fijo'
TextWidth = 10
end
item
MemberName = 'usu_cnum_extension'
Header = 'Ext.'
TextWidth = 10
end
item
MemberName = 'usu_nperfil'
Header = 'Perfil'
TextWidth = 20
end
item
MemberName = 'usu_cestado'
Header = 'Estado'
TextWidth = 10
end>
end
object LinkControlToFieldusu_cnombre: TLinkControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_cnombre'
Control = Editusu_cnombre
Track = False
end
object LinkControlToFieldusu_nid: TLinkControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_nid'
Control = Editusu_nid
Track = False
end
object LinkControlToFieldusu_cnum_celular: TLinkControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_cnum_celular'
Control = Editusu_cnum_celular
Track = False
end
object LinkControlToFieldusu_cnum_tele_fijo: TLinkControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_cnum_tele_fijo'
Control = Editusu_cnum_tele_fijo
Track = False
end
object LinkControlToFieldusu_cnum_extension: TLinkControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_cnum_extension'
Control = Editusu_cnum_extension
Track = False
end
object LinkFillControlToField3: TLinkFillControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_cestado'
Control = ComboBoxusu_cestado
Track = True
FillDataSource = BindSourceDB4
FillValueFieldName = 'est_cestado'
FillDisplayFieldName = 'est_cestado'
AutoFill = True
FillExpressions = <>
FillHeaderExpressions = <>
FillBreakGroups = <>
end
object LinkFillControlToField1: TLinkFillControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_nperfil'
Control = ComboBoxusu_nperfil
Track = True
FillDataSource = BindSourceDB2
FillValueFieldName = 'rol_nid'
FillDisplayFieldName = 'rol_cnombre'
AutoFill = True
FillExpressions = <>
FillHeaderExpressions = <>
FillBreakGroups = <>
end
object LinkFillControlToField2: TLinkFillControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_ccargo'
Control = ComboBoxusu_ccargo
Track = True
FillDataSource = BindSourceDB3
FillValueFieldName = 'car_cnombre'
FillDisplayFieldName = 'car_cnombre'
AutoFill = True
FillExpressions = <>
FillHeaderExpressions = <>
FillBreakGroups = <>
end
object LinkControlToFieldusu_cusuario: TLinkControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_cusuario'
Control = Editusu_cusuario
Track = False
end
object LinkControlToFieldusu_cpassword: TLinkControlToField
Category = 'Quick Bindings'
DataSource = BindSourceDB1
FieldName = 'usu_cpassword'
Control = Editusu_cpassword
Track = False
end
end
object BindSourceDB2: TBindSourceDB
DataSet = dmDatos.RolesTable
ScopeMappings = <>
Left = 520
Top = 342
end
object BindSourceDB3: TBindSourceDB
DataSet = dmDatos.CargosTable
ScopeMappings = <>
Left = 520
Top = 232
end
object BindSourceDB4: TBindSourceDB
DataSet = dmDatos.EstadosTable
ScopeMappings = <>
Left = 520
Top = 288
end
end