-
Notifications
You must be signed in to change notification settings - Fork 0
/
dmData.dfm
155 lines (154 loc) · 4.09 KB
/
dmData.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
object dmDatos: TdmDatos
OldCreateOrder = False
OnCreate = DataModuleCreate
Height = 336
Width = 431
object Connection: TFDConnection
Params.Strings = (
'Database=D:\Users\pjpeg\Source\Repos\Delphi\SQLLiteDemo\AppDirec' +
'torio\Data\dbdirectorio.db'
'DriverID=SQLite')
LoginPrompt = False
Left = 72
Top = 14
end
object RolesTable: TFDQuery
Connection = Connection
SQL.Strings = (
'SELECT * FROM roles')
Left = 72
Top = 63
object RolesTablerol_nid: TIntegerField
FieldName = 'rol_nid'
Origin = 'rol_nid'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
end
object RolesTablerol_cnombre: TWideStringField
FieldName = 'rol_cnombre'
Origin = 'rol_cnombre'
Required = True
Size = 100
end
end
object UsuariosTable: TFDQuery
BeforePost = UsuariosTableBeforePost
Connection = Connection
SQL.Strings = (
'SELECT * FROM usuarios')
Left = 72
Top = 161
object UsuariosTableusu_nid: TFDAutoIncField
DisplayLabel = 'ID'
FieldName = 'usu_nid'
Origin = 'usu_nid'
ProviderFlags = [pfInWhere, pfInKey]
ReadOnly = True
end
object UsuariosTableusu_cnombre: TWideStringField
DisplayLabel = '[Nombre]'
FieldName = 'usu_cnombre'
Origin = 'usu_cnombre'
Required = True
Size = 100
end
object UsuariosTableusu_ccargo: TWideStringField
DisplayLabel = '[Cargo]'
FieldName = 'usu_ccargo'
Origin = 'usu_ccargo'
Required = True
Size = 100
end
object UsuariosTableusu_cnum_celular: TWideStringField
DisplayLabel = '[No. Celular]'
FieldName = 'usu_cnum_celular'
Origin = 'usu_cnum_celular'
Size = 50
end
object UsuariosTableusu_cnum_tele_fijo: TWideStringField
DisplayLabel = '[Tel'#233'fono Fijo]'
FieldName = 'usu_cnum_tele_fijo'
Origin = 'usu_cnum_tele_fijo'
Size = 50
end
object UsuariosTableusu_cnum_extension: TWideStringField
DisplayLabel = '[Extensi'#243'n]'
FieldName = 'usu_cnum_extension'
Origin = 'usu_cnum_extension'
Size = 10
end
object UsuariosTableusu_nperfil: TIntegerField
DisplayLabel = '[Perfil o Rol]'
FieldName = 'usu_nperfil'
Origin = 'usu_nperfil'
end
object UsuariosTableusu_cestado: TWideStringField
DisplayLabel = '[Estado]'
FieldName = 'usu_cestado'
Origin = 'usu_cestado'
Size = 10
end
object UsuariosTableusu_cusuario: TWideStringField
DisplayLabel = '[Usuario]'
FieldName = 'usu_cusuario'
Origin = 'usu_cusuario'
Size = 100
end
object UsuariosTableusu_cpassword: TWideStringField
DisplayLabel = '[Contrase'#241'a]'
FieldName = 'usu_cpassword'
Origin = 'usu_cpassword'
Size = 100
end
end
object DriverLink: TFDPhysSQLiteDriverLink
Left = 72
Top = 112
end
object EstadosTable: TFDQuery
Connection = Connection
SQL.Strings = (
'SELECT * FROM estados')
Left = 72
Top = 214
object EstadosTableest_nid: TIntegerField
FieldName = 'est_nid'
Origin = 'est_nid'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
end
object EstadosTableest_cestado: TWideStringField
FieldName = 'est_cestado'
Origin = 'est_cestado'
Required = True
Size = 10
end
end
object CargosTable: TFDQuery
Connection = Connection
SQL.Strings = (
'SELECT car_nid, CAST(car_cnombre AS TEXT(100)) AS car_cnombre'
'FROM cargos;')
Left = 72
Top = 259
object CargosTablecar_nid: TFDAutoIncField
FieldName = 'car_nid'
Origin = 'car_nid'
ProviderFlags = [pfInWhere, pfInKey]
ReadOnly = True
end
object CargosTablecar_cnombre: TWideStringField
AutoGenerateValue = arDefault
FieldName = 'car_cnombre'
Origin = 'car_cnombre'
ProviderFlags = []
ReadOnly = True
Size = 32767
end
end
object qUsuarios: TFDQuery
Connection = Connection
SQL.Strings = (
'SELECT * FROM usuarios')
Left = 152
Top = 152
end
end