-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUDM.pas
426 lines (415 loc) · 16.3 KB
/
UDM.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
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
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
unit UDM;
interface
uses
System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB, Vcl.Controls, Vcl.Forms;
type
TDM = class(TDataModule)
CONEXAO: TADOConnection;
qryAgendamentos: TADOQuery;
qryEmails: TADOQuery;
qryMensagens: TADOQuery;
qryFuncionarios: TADOQuery;
qryImoveis: TADOQuery;
qryMensagensFunc: TADOQuery;
qryServTerceirizados: TADOQuery;
qryLocacao: TADOQuery;
qryTipoImoveis: TADOQuery;
qryVendas: TADOQuery;
qryPrecos: TADOQuery;
qryTipoComp: TADOQuery;
qryClientes: TADOQuery;
qryTelefones: TADOQuery;
qryLogin: TADOQuery;
qryMensagensFuncmenCodigo: TIntegerField;
qryMensagensFuncfunCodigo: TIntegerField;
qryMensagensFuncmenFunVisualizacao: TBooleanField;
qryMensagensmenCodigo: TAutoIncField;
qryMensagensmenTitulo: TStringField;
qryMensagensmenConteudo: TStringField;
qryMensagensmenDataEmissao: TDateTimeField;
qryMensagensmenPrioridade: TStringField;
qryMensagensfunCodigo: TIntegerField;
qryAgendamentosagendCodigo: TAutoIncField;
qryAgendamentosagendDataHora: TDateTimeField;
qryAgendamentosfunCodigo: TIntegerField;
qryAgendamentoscliCodigo: TIntegerField;
qryAgendamentosimoCodigo: TIntegerField;
qryLocacaolocCodigo: TAutoIncField;
qryLocacaolocFim: TDateTimeField;
qryLocacaolocPreco: TBCDField;
qryLocacaolocInicio: TDateTimeField;
qryLocacaoimoCodigo: TIntegerField;
qryLocacaocliCodigo: TIntegerField;
qryVendasvenCodigo: TAutoIncField;
qryVendasvenSituacaoDePagamento: TBooleanField;
qryVendasvenPreco: TBCDField;
qryVendasvenData: TDateTimeField;
qryVendascliCodigo: TIntegerField;
qryVendasimoCodigo: TIntegerField;
qryVendasfunCodigo: TIntegerField;
qryPrecospreCodigo: TAutoIncField;
qryPrecospreValor: TBCDField;
qryPrecospreTpContrato: TStringField;
qryPrecosimoCodigo: TIntegerField;
qryFuncionariosfunTipo: TStringField;
qryFuncionariosfunNome: TStringField;
qryFuncionariosfunRG: TStringField;
qryFuncionariosfunCPF: TStringField;
qryFuncionariosfunEndereco: TStringField;
qryFuncionariosfunCidade: TStringField;
qryFuncionariosfunEstado: TStringField;
qryFuncionariosfunSituacao: TBooleanField;
qryFuncionariosfunPagamentoBruto: TBCDField;
qryFuncionariosfunDataNascimento: TDateTimeField;
qryFuncionariosfunCTPS: TStringField;
qryFuncionariosfunCRECI: TStringField;
qryFuncionariosfunObservacoes: TStringField;
qryFuncionariosfunDataAdmissao: TDateTimeField;
qryFuncionariosfunBairro: TStringField;
qryFuncionariosfunLogin: TStringField;
qryFuncionariosfunSenha: TStringField;
qryFuncionariosfunCargo: TStringField;
qryFuncionariosfunBloqueio: TIntegerField;
qryFuncionariosfunCodigo: TAutoIncField;
qryClientescliNome: TStringField;
qryClientescliRG: TStringField;
qryClientescliCpfCnpj: TStringField;
qryClientescliEndereco: TStringField;
qryClientescliBairro: TStringField;
qryClientescliCidade: TStringField;
qryClientescliEstado: TStringField;
qryClientescliEstadoCivil: TStringField;
qryClientescliTipo: TStringField;
qryClientescliCodigo: TAutoIncField;
qryServTerceirizadosterNome: TStringField;
qryServTerceirizadosterServico: TStringField;
qryServTerceirizadosterObservacao: TStringField;
qryServTerceirizadosterBairro: TStringField;
qryServTerceirizadosterEndereco: TStringField;
qryServTerceirizadosterCidade: TStringField;
qryServTerceirizadosterEstado: TStringField;
qryServTerceirizadosterCodigo: TAutoIncField;
qryTipoImoveistpImoCodigo: TIntegerField;
qryTipoImoveistpImoNome: TStringField;
qryImoveisimoCodigo: TAutoIncField;
qryImoveisimoEndereco: TStringField;
qryImoveisimoBairro: TStringField;
qryImoveisimoNumero: TIntegerField;
qryImoveisimoComplemento: TStringField;
qryImoveisimoCidade: TStringField;
qryImoveisimoEstado: TStringField;
qryImoveisimoAreaTotal: TBCDField;
qryImoveisimoAreaPrivativa: TBCDField;
qryImoveisimoQuadra: TStringField;
qryImoveisimoLote: TStringField;
qryImoveisimoOcupacao: TBooleanField;
qryImoveisimoEstadoDoImovel: TStringField;
qryImoveisimoValorIPTU: TBCDField;
qryImoveisimoObservacao: TStringField;
qryImoveisimoDataRegistro: TDateTimeField;
qryImoveisimoNegociacao: TStringField;
qryImoveisimoOrientacao: TStringField;
qryImoveistpImoCodigo: TIntegerField;
qryTipoCompcompCodigo: TIntegerField;
qryTipoComptpImoCodigo: TIntegerField;
qryLoginfunNome: TStringField;
qryLoginfunTipo: TStringField;
qryLoginfunLogin: TStringField;
qryLoginfunSenha: TStringField;
qryLoginfunBloqueio: TIntegerField;
qryConsAgendamentos: TADOQuery;
AutoIncField1: TAutoIncField;
DateTimeField1: TDateTimeField;
IntegerField1: TIntegerField;
IntegerField2: TIntegerField;
IntegerField3: TIntegerField;
qryConsEmails: TADOQuery;
AutoIncField3: TAutoIncField;
StringField2: TStringField;
IntegerField4: TIntegerField;
IntegerField5: TIntegerField;
IntegerField6: TIntegerField;
qryConsFotos: TADOQuery;
AutoIncField4: TAutoIncField;
StringField3: TStringField;
StringField4: TStringField;
IntegerField7: TIntegerField;
IntegerField8: TIntegerField;
qryConsCompImoveis: TADOQuery;
AutoIncField6: TAutoIncField;
IntegerField10: TIntegerField;
StringField8: TStringField;
IntegerField11: TIntegerField;
IntegerField12: TIntegerField;
qryConsFuncionarios: TADOQuery;
qryConsImoveis: TADOQuery;
qryConsMensagensFunc: TADOQuery;
IntegerField16: TIntegerField;
IntegerField17: TIntegerField;
BooleanField3: TBooleanField;
qryConsServTerceirizados: TADOQuery;
AutoIncField9: TAutoIncField;
StringField34: TStringField;
StringField35: TStringField;
StringField36: TStringField;
StringField37: TStringField;
StringField38: TStringField;
StringField39: TStringField;
StringField40: TStringField;
qryConsLocacao: TADOQuery;
AutoIncField10: TAutoIncField;
DateTimeField7: TDateTimeField;
BCDField5: TBCDField;
DateTimeField8: TDateTimeField;
IntegerField18: TIntegerField;
IntegerField19: TIntegerField;
qryConsTipoImoveis: TADOQuery;
IntegerField20: TIntegerField;
StringField41: TStringField;
qryConsPrecos: TADOQuery;
AutoIncField12: TAutoIncField;
BCDField7: TBCDField;
StringField42: TStringField;
IntegerField24: TIntegerField;
qryConsTipoComp: TADOQuery;
IntegerField25: TIntegerField;
IntegerField26: TIntegerField;
qryConsClientes: TADOQuery;
qryConsTelefones: TADOQuery;
AutoIncField14: TAutoIncField;
StringField52: TStringField;
IntegerField27: TIntegerField;
IntegerField28: TIntegerField;
StringField53: TStringField;
IntegerField29: TIntegerField;
IntegerField30: TIntegerField;
IntegerField31: TIntegerField;
qryLoginfunCodigo: TAutoIncField;
qryConsLogin: TADOQuery;
qryConsLoginfunCodigo: TAutoIncField;
qryConsLoginfunNome: TStringField;
qryConsFun: TADOQuery;
qryConsFunfuncodigo: TAutoIncField;
qryConsFunfunnome: TStringField;
qryDest: TADOQuery;
qryDestfunNome: TStringField;
qryRemet: TADOQuery;
qryRemetfunNome: TStringField;
qryImoveisimoCEP: TStringField;
qryImoveisimoNome: TStringField;
qryConsAgendamentos2: TADOQuery;
qryConsAgendamentos2agendCodigo: TAutoIncField;
qryConsAgendamentos2agendDataHora: TDateTimeField;
qryConsAgendamentos2funNome: TStringField;
qryConsAgendamentos2cliNome: TStringField;
qryConsAgendamentos2imoEndereco: TStringField;
qryConsAgendamentos2imoNumero: TIntegerField;
qryFuncionariosfunNumeroImovel: TIntegerField;
qryFuncionariosfunCEP: TStringField;
qryServTerceirizadosterNumero: TIntegerField;
qryComplemento: TADOQuery;
qryComplementocompCodigo: TAutoIncField;
qryComplementocompNome: TStringField;
qryConsComplemento: TADOQuery;
qryConsComplementocompNome: TStringField;
qryConsComplementocompimoQuantidade: TIntegerField;
qryConsComplementocompimoCaracteristicas: TStringField;
qryComplementos: TADOQuery;
qryComplementoscompCodigo: TAutoIncField;
qryComplementoscompNome: TStringField;
qryCompImoveis: TADOQuery;
qryCompImoveiscompimoCodigo: TAutoIncField;
qryCompImoveiscompimoQuantidade: TIntegerField;
qryCompImoveiscompimoCaracteristicas: TStringField;
qryCompImoveiscompCodigo: TIntegerField;
qryCompImoveisimoCodigo: TIntegerField;
qryImoFotos: TADOQuery;
qryImoFotosfotoCodigo: TAutoIncField;
qryImoFotosfotoCaminho: TStringField;
qryImoFotosfotoDescricao: TStringField;
qryImoFotosimoCodigo: TIntegerField;
qryImoFotosfunCodigo: TIntegerField;
qryConsComplementos: TADOQuery;
qryConsComplementoscompNome: TStringField;
qryConsComplementoscompImoQuantidade: TIntegerField;
qryConsComplementoscompImoCaracteristicas: TStringField;
qryBloqueioLogin: TADOQuery;
qryBloqueioLoginfunCodigo: TAutoIncField;
qryBloqueioLoginfunNome: TStringField;
qryBloqueioLoginfunTipo: TStringField;
qryBloqueioLoginfunLogin: TStringField;
qryBloqueioLoginfunSenha: TStringField;
qryBloqueioLoginfunBloqueio: TIntegerField;
qryExcluirTpComp: TADOQuery;
qryExcluirTpCompcompCodigo: TIntegerField;
qryExcluirTpComptpImoCodigo: TIntegerField;
qryConsComplementocompCodigo: TAutoIncField;
qryConsFuncionariosfunCodigo: TAutoIncField;
qryConsFuncionariosfunTipo: TStringField;
qryConsFuncionariosfunNome: TStringField;
qryConsFuncionariosfunRG: TStringField;
qryConsFuncionariosfunCPF: TStringField;
qryConsFuncionariosfunEndereco: TStringField;
qryConsFuncionariosfunCidade: TStringField;
qryConsFuncionariosfunEstado: TStringField;
qryConsFuncionariosfunSituacao: TBooleanField;
qryConsFuncionariosfunPagamentoBruto: TBCDField;
qryConsFuncionariosfunDataNascimento: TDateTimeField;
qryConsFuncionariosfunCTPS: TStringField;
qryConsFuncionariosfunCRECI: TStringField;
qryConsFuncionariosfunObservacoes: TStringField;
qryConsFuncionariosfunDataAdmissao: TDateTimeField;
qryConsFuncionariosfunDataDemissao: TDateTimeField;
qryConsFuncionariosfunBairro: TStringField;
qryConsFuncionariosfunLogin: TStringField;
qryConsFuncionariosfunSenha: TStringField;
qryConsFuncionariosfunCargo: TStringField;
qryConsFuncionariosfunBloqueio: TIntegerField;
qryConsClientescliCodigo: TAutoIncField;
qryConsClientescliNome: TStringField;
qryConsClientescliRG: TStringField;
qryConsClientescliCpfCnpj: TStringField;
qryConsClientescliEndereco: TStringField;
qryConsClientescliBairro: TStringField;
qryConsClientescliCidade: TStringField;
qryConsClientescliEstado: TStringField;
qryConsClientescliDataNascimento: TDateTimeField;
qryConsClientescliEstadoCivil: TStringField;
qryConsClientescliTipo: TStringField;
qryConsImoveisimoCodigo: TAutoIncField;
qryConsImoveisimoEndereco: TStringField;
qryConsImoveisimoBairro: TStringField;
qryConsImoveisimoNumero: TIntegerField;
qryConsImoveisimoComplemento: TStringField;
qryConsImoveisimoCidade: TStringField;
qryConsImoveisimoEstado: TStringField;
qryConsImoveisimoAreaTotal: TBCDField;
qryConsImoveisimoAreaPrivativa: TBCDField;
qryConsImoveisimoQuadra: TStringField;
qryConsImoveisimoLote: TStringField;
qryConsImoveisimoOcupacao: TBooleanField;
qryConsImoveisimoEstadoDoImovel: TStringField;
qryConsImoveisimoValorIPTU: TBCDField;
qryConsImoveisimoObservacao: TStringField;
qryConsImoveisimoDataRegistro: TDateTimeField;
qryConsImoveisimoNegociacao: TStringField;
qryConsImoveisimoOrientacao: TStringField;
qryConsImoveistpImoCodigo: TIntegerField;
qryConsImoveisimoCEP: TStringField;
qryConsImoveisimoNome: TStringField;
qryFuncFotos: TADOQuery;
qryFuncFotosfotoCodigo: TAutoIncField;
qryFuncFotosfotoCaminho: TStringField;
qryFuncFotosfotoDescricao: TStringField;
qryFuncFotosimoCodigo: TIntegerField;
qryFuncFotosfunCodigo: TIntegerField;
qryClientescliNumero: TIntegerField;
qryClientescliCEP: TStringField;
qryServTerceirizadosterCEP: TStringField;
qryConsMensagens: TADOQuery;
IntegerField9: TIntegerField;
IntegerField13: TIntegerField;
BooleanField1: TBooleanField;
IntegerField14: TIntegerField;
StringField1: TStringField;
StringField5: TStringField;
StringField6: TStringField;
DateTimeField2: TDateTimeField;
StringField7: TStringField;
qryConsMensagensmenfunExcluida: TBooleanField;
qryCaixadeSaida: TADOQuery;
IntegerField15: TIntegerField;
IntegerField32: TIntegerField;
BooleanField2: TBooleanField;
StringField9: TStringField;
StringField10: TStringField;
DateTimeField3: TDateTimeField;
StringField11: TStringField;
qryCaixadeSaidamenExcluida: TBooleanField;
qryConsClientescliNumero: TIntegerField;
qryConsClientescliCEP: TStringField;
qryConsTelefones2: TADOQuery;
qryConsEmails2: TADOQuery;
qryConsAgendamentos2funcodigo: TIntegerField;
qryConsAgendamentos2clicodigo: TIntegerField;
qryConsAgendamentos2imocodigo: TIntegerField;
qryConsEmails2emaEmail: TStringField;
qryConsTelefones2telTipo: TStringField;
qryConsTelefones2telDDD: TIntegerField;
qryConsTelefones2telNumero: TIntegerField;
qryConsTelefones2telOperadora: TStringField;
qryConsEmails2clicodigo: TIntegerField;
qryMensagensFuncmenFunExcluida: TBooleanField;
qryMensagensmenExcluida: TBooleanField;
qryConsTpComp: TADOQuery;
qryConsTpCompcompCodigo: TIntegerField;
qryConsTpComptpImoCodigo: TIntegerField;
qryEmailsemaCodigo: TAutoIncField;
qryEmailsemaEmail: TStringField;
qryEmailsfunCodigo: TIntegerField;
qryEmailsterCodigo: TIntegerField;
qryEmailscliCodigo: TIntegerField;
qryTelefonestelCodigo: TAutoIncField;
qryTelefonestelTipo: TStringField;
qryTelefonestelDDD: TIntegerField;
qryTelefonestelNumero: TIntegerField;
qryTelefonestelOperadora: TStringField;
qryTelefonescliCodigo: TIntegerField;
qryTelefonesterCodigo: TIntegerField;
qryTelefonesfunCodigo: TIntegerField;
qryFuncionarioscliCodigo: TIntegerField;
qryClientesfunCodigo: TIntegerField;
qryClientescliDataNascimento: TDateTimeField;
qryFuncionariosterCodigo: TIntegerField;
qryClientesterCodigo: TIntegerField;
qryServTerceirizadoscliCodigo: TIntegerField;
qryServTerceirizadosfunCodigo: TIntegerField;
qryConsLoc2: TADOQuery;
qryConsLoc2locCodigo: TAutoIncField;
qryConsLoc2locPreco: TBCDField;
qryConsLoc2locInicio: TDateTimeField;
qryConsLoc2imoCodigo: TIntegerField;
qryConsLoc2cliCodigo: TIntegerField;
qryConsLoc2locFim: TDateTimeField;
qryConsLoc2imoEndereco: TStringField;
qryConsLoc2imoNumero: TIntegerField;
qryConsLoc2cliNome: TStringField;
qryFuncionariosfunDataDemissao: TDateTimeField;
qryConfig: TADOQuery;
qryConfigconfCodigo: TAutoIncField;
qryConfigconfCor: TStringField;
qryConfigconfTempo: TStringField;
qryConsFuncionariosfunCEP: TStringField;
qryConsFuncionariosfunNumeroImovel: TIntegerField;
qryConsVendas: TADOQuery;
qryConsVendasimoNome: TStringField;
qryConsVendasfunNome: TStringField;
qryConsVendascliNome: TStringField;
qryConsVendasvenData: TDateTimeField;
qryConsVendasvenSituacaoDePagamento: TBooleanField;
qryConsVendasvenPreco: TBCDField;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
uses ULogin, UPrincipal, UCadImovel, UCadComplemento, UConsContatos,
UConCliente, UCadServTerceirizado;
{$R *.dfm}
procedure TDM.DataModuleCreate(Sender: TObject);
begin
Application.CreateForm(TfrmLogin, frmLogin);
if frmLogin.ShowModal = mrOk then
begin
frmPrincipal.ShowModal;
frmPrincipal.Free;
end;
frmLogin.Free;
Application.Terminate;
end;
end.