-
Notifications
You must be signed in to change notification settings - Fork 0
/
UCadImovel.dfm
1735 lines (1735 loc) · 50 KB
/
UCadImovel.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
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
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
object frmCadImovel: TfrmCadImovel
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Cadastrar Im'#243'vel'
ClientHeight = 663
ClientWidth = 901
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 19
object Shape1: TShape
Left = 0
Top = 0
Width = 901
Height = 34
Align = alTop
Brush.Color = 11545533
Pen.Style = psClear
end
object Shape2: TShape
Left = 0
Top = 629
Width = 901
Height = 65
Brush.Color = 11545533
end
object pgcImovel: TPageControl
Left = 0
Top = 8
Width = 901
Height = 641
ActivePage = tsDadosBasicos
Align = alCustom
TabOrder = 0
object tsDadosBasicos: TTabSheet
Caption = 'Dados b'#225'sicos'
object spUlt: TShape
Left = 493
Top = 554
Width = 73
Height = 49
Brush.Color = 11545533
Pen.Style = psClear
Shape = stCircle
end
object spProx: TShape
Left = 425
Top = 554
Width = 73
Height = 49
Brush.Color = 11545533
Pen.Style = psClear
Shape = stCircle
end
object spAnt: TShape
Left = 355
Top = 554
Width = 73
Height = 49
Brush.Color = 11545533
Pen.Style = psClear
Shape = stCircle
end
object spPrim: TShape
Left = 281
Top = 554
Width = 73
Height = 49
Brush.Color = 11545533
Pen.Style = psClear
Shape = stCircle
end
object spSal: TShape
Left = 623
Top = 519
Width = 100
Height = 33
Brush.Color = 11545533
Pen.Style = psClear
Shape = stRoundRect
end
object spCan: TShape
Left = 501
Top = 519
Width = 100
Height = 33
Brush.Color = 11545533
Pen.Style = psClear
Shape = stRoundRect
end
object spRem: TShape
Left = 382
Top = 519
Width = 100
Height = 33
Brush.Color = 11545533
Pen.Style = psClear
Shape = stRoundRect
end
object spEdt: TShape
Left = 263
Top = 519
Width = 100
Height = 33
Brush.Color = 11545533
Pen.Style = psClear
Shape = stRoundRect
end
object lblEditar: TLabel
Left = 289
Top = 525
Width = 45
Height = 19
Caption = 'Editar'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object btnEditarImo: TImage
Left = 262
Top = 519
Width = 100
Height = 33
OnClick = btnEditarImoClick
end
object spAdd: TShape
Left = 143
Top = 519
Width = 100
Height = 33
Brush.Color = 11545533
Pen.Style = psClear
Shape = stRoundRect
end
object btnAnt: TImage
Left = 368
Top = 556
Width = 41
Height = 44
Hint = 'Registro Anterior'
Center = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200804000000D973B27F0000000467414D410000B18F0BFC61050000000262
4B47440000AA8D2332000000097048597300000DD700000DD70142289B780000
000774494D4507E00B1411091E44120F96000000DA4944415478DAB5D53D0EC2
300C05E0977BD0A450711B6EC182C4C05D5840886B30227E2E563C202834B19F
83E854557A9F9C34B103E8A76FB1478755380FBF0647FC8A242FA7B0A8005E71
6013B66E6010DF611D7A27A0C509408F9B801537003BAE024C5C01B8781160E3
05808F67014F3C03F8E223A08FB87BE263E088A527FE0720E286F68725089164
131D44EE37BA88FC414AB860CA11A5A31CA50A8A285F2692D0AE3345E80D25CA
5ECC74C26A698D54A11276533508A6AD37B290AE447083652255140876B4BD89
9AD1F641D40DD72771C0FC7BBC3F005EBD7A2110361FFB000000257445587464
6174653A63726561746500323031362D31312D32305431373A30393A33302B30
313A3030446B82F40000002574455874646174653A6D6F646966790032303136
2D31312D32305431373A30393A33302B30313A303035363A4800000019744558
74536F667477617265007777772E696E6B73636170652E6F72679BEE3C1A0000
000049454E44AE426082}
OnClick = btnAntClick
end
object btnPrim: TImage
Left = 295
Top = 556
Width = 41
Height = 44
Hint = 'Primeiro Registro'
Center = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200804000000D973B27F0000000467414D410000B18F0BFC61050000000262
4B47440000AA8D2332000000097048597300000DD700000DD70142289B780000
000774494D4507E00B1411051D71AE11200000016A4944415478DAAD954D4A03
4110855FF99733B911DC0A2124C11014838A3F28FEAD3D4620886250548C1AA3
01411004971EC043E80D346A2CA552CC4CCF4CC7456556357CEF3D6ABA7BAA09
7D1E9EC52EDEB0432F1EF68A2DEA63DF44558A2695BCECC21BC0EBA869D9A6BC
97DD780278157BE8B10E26E9D9C3DE31911AC04B3850C927F274EF611FC8D263
4A002FA0AE922F14E9CEC33AC8D1039008E00A8E30A4F612B53D2CE82C16F0B7
39272AF946995A1E16E9CC09E032CE302C65173374E5614E6791009E4623B057
E8DCB1872CD65910C0055C6244CA1FCCD3A9630F59A2330DE01C9A18ED9558A4
63C71EB22EE6A8E1AE9A047016D71853FB0A1D3AF690253AD3009EC26D605FA3
7DC71E65B1CE3480C7F1848CBE6D50CDB1878CB14C75202DA08582D6DB547561
C0129D0D34C0FA09E6451CC0368ACC769044663BCA22B3FD4C22B3FDCE22B30D
1491D9469AC86C435564B6B12E32DBC52232DBD52632DBE5AA1BF7EFF5FE0BD0
7FEF7D1378913F0000002574455874646174653A63726561746500323031362D
31312D32305431373A30353A32392B30313A3030076527370000002574455874
646174653A6D6F6469667900323031362D31312D32305431373A30353A32392B
30313A303076389F8B0000001974455874536F667477617265007777772E696E
6B73636170652E6F72679BEE3C1A0000000049454E44AE426082}
OnClick = btnPrimClick
end
object btnProx: TImage
Left = 443
Top = 556
Width = 41
Height = 44
Hint = 'Pr'#243'ximo Registro'
Center = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200804000000D973B27F0000000467414D410000B18F0BFC61050000000262
4B47440000AA8D2332000000097048597300000DD700000DD70142289B780000
000774494D4507E00B141109032714634F000000B64944415478DABDD53D0AC3
300C05E0F74ED6988EBD460964C95D3A14BAF416B94DE94F7EEED19A6E122195
78502F361E3E64D9960833DE7B5C7043CB05C141070C38D4E98E264A78A0C7E9
BB08131E20CEE83204FD86210AE7346088478D624E033982EBDB86289CD28021
9E358A290D44890D20466C028E281CD380215E358A310DFC2202802376361721
C010571EFF0F88471093285EA3F890C4A72C7E26F13B8B05452C69625115CBBA
DC58F4D62637D7747BFF0011377E216AB7B8790000002574455874646174653A
63726561746500323031362D31312D32305431373A30393A30332B30313A3030
FB0C9F8A0000002574455874646174653A6D6F6469667900323031362D31312D
32305431373A30393A30332B30313A30308A5127360000001974455874536F66
7477617265007777772E696E6B73636170652E6F72679BEE3C1A000000004945
4E44AE426082}
OnClick = btnProxClick
end
object btnUlt: TImage
Left = 512
Top = 556
Width = 41
Height = 44
Hint = #218'ltimo Registro'
Center = True
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000200000
00200804000000D973B27F0000000467414D410000B18F0BFC61050000000262
4B47440000AA8D2332000000097048597300000DD700000DD70142289B780000
000774494D4507E00B141107256B9ACB3C000001584944415478DAB595C94A03
411445CF73F60FF41704776E5C0A822008D11835A2A2441409E4335C3BA138A0
125143240921E05670E337194DDA56CB4A5E77F5AAB0560FCEAB73E9AE498231
8E18655FEE898D609C0346DCEC6F48F0C8CA4F5590E398A04C2689750415164C
9D97D388A0462A89750413BC32FCDBCF9E9C2BC1242F0CBA9915846C9A0643A6
6D47AE9462961A036E6605219BA16E937272A3147354E877332B50496DB6A4A8
1429CA46116356A092DA6CE8850BD294E873337126B5589392522CF140AF8B49
42528BAC3C29B64AD12ABA9812A8A44F96A5AAD83AB7F444594410B665B9338A
0F3252576C936B33C3B29840253559948662DB5C98398639042AA9C9BC3C2BB6
CB5937730AC2B61C97A6ED9D2979532CCF8929BF1909A32BA92AE9082B7068CA
EA7F093C3FC1F3277A2EA3E746F2DCCA9E87C9F3387B5E289E579AE7A5EA79AD
7B3F2CFE4F9BF7E3EAF9BC7F010FF4EDE9855128AA0000002574455874646174
653A63726561746500323031362D31312D32305431373A30373A33372B30313A
30309F058CC90000002574455874646174653A6D6F6469667900323031362D31
312D32305431373A30373A33372B30313A3030EE583475000000197445587453
6F667477617265007777772E696E6B73636170652E6F72679BEE3C1A00000000
49454E44AE426082}
OnClick = btnUltClick
end
object Label4: TLabel
Left = 40
Top = 30
Width = 60
Height = 46
Caption = 'NOME B'#193'SICO:'
FocusControl = edtNome
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label5: TLabel
Left = 156
Top = 527
Width = 73
Height = 19
Caption = 'Adicionar'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 400
Top = 525
Width = 69
Height = 19
Caption = 'Remover'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 517
Top = 525
Width = 68
Height = 19
Caption = 'Cancelar'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object lblAreaPrivativa: TLabel
Left = 38
Top = 467
Width = 127
Height = 23
Caption = 'AREA PRIVATIVA:'
FocusControl = edtAreaPrivativa
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblAreaTotal: TLabel
Left = 38
Top = 423
Width = 98
Height = 23
Caption = 'AREA TOTAL:'
FocusControl = edtAreaTotal
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblBairro: TLabel
Left = 38
Top = 225
Width = 61
Height = 23
Caption = 'BAIRRO:'
FocusControl = edtBairro
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblCEP: TLabel
Left = 38
Top = 141
Width = 35
Height = 23
Caption = 'CEP:'
FocusControl = edtCEP
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblCidade: TLabel
Left = 38
Top = 346
Width = 60
Height = 23
Caption = 'CIDADE:'
FocusControl = edtCidade
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblCodImovel: TLabel
Left = 38
Top = 5
Width = 154
Height = 23
Caption = 'C'#211'DIGO DO IM'#211'VEL:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblComplemento: TLabel
Left = 38
Top = 304
Width = 124
Height = 23
Caption = 'COMPLEMENTO:'
FocusControl = edtComplemento
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblDtRegistro: TLabel
Left = 376
Top = 81
Width = 153
Height = 23
Caption = 'DATA DO REGISTRO:'
FocusControl = edtDataRegistro
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblEndereco: TLabel
Left = 38
Top = 175
Width = 90
Height = 23
Caption = 'ENDERE'#199'O:'
FocusControl = edtEndereco
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblEstado: TLabel
Left = 38
Top = 387
Width = 66
Height = 23
Caption = 'ESTADO:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblEstadoImovel: TLabel
Left = 376
Top = 265
Width = 155
Height = 23
Caption = 'ESTADO DO IM'#211'VEL:'
FocusControl = edtEstadoImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
WordWrap = True
end
object lblLote: TLabel
Left = 376
Top = 187
Width = 44
Height = 23
Caption = 'LOTE:'
FocusControl = edtLote
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblNegociacao: TLabel
Left = 376
Top = 116
Width = 106
Height = 23
Caption = 'NEGOCIA'#199#195'O:'
FocusControl = edtNegociacao
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblNumero: TLabel
Left = 38
Top = 268
Width = 72
Height = 23
Caption = 'N'#218'MERO:'
FocusControl = edtNumero
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblObservacao: TLabel
Left = 376
Top = 291
Width = 111
Height = 23
Caption = 'OBSERVA'#199#195'O:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblOrientacao: TLabel
Left = 376
Top = 153
Width = 103
Height = 23
Caption = 'ORIENTA'#199#195'O:'
FocusControl = edtOrientacao
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblQuadra: TLabel
Left = 374
Top = 226
Width = 69
Height = 23
Caption = 'QUADRA:'
FocusControl = edtQuadra
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object lblTipo: TLabel
Left = 38
Top = 82
Width = 65
Height = 46
Caption = 'TIPO DO IM'#211'VEL:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
WordWrap = True
end
object lblValorIptu: TLabel
Left = 376
Top = 37
Width = 94
Height = 23
Caption = 'VALOR IPTU:'
FocusControl = edtValorIptu
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
end
object Salva: TLabel
Left = 650
Top = 525
Width = 48
Height = 19
Caption = 'Salvar'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object txtCodigo: TDBText
Left = 230
Top = 8
Width = 113
Height = 24
DataField = 'imoCodigo'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object btnAdicionarImo: TImage
Left = 143
Top = 518
Width = 100
Height = 33
OnClick = btnAdicionarImoClick
end
object btnSalvarImo: TImage
Left = 623
Top = 519
Width = 100
Height = 33
OnClick = btnSalvarImoClick
end
object btnCancelarImo: TImage
Left = 500
Top = 518
Width = 100
Height = 33
OnClick = btnCancelarImoClick
end
object btnRemoverImo: TImage
Left = 383
Top = 519
Width = 98
Height = 33
OnClick = btnRemoverImoClick
end
object edtCEP: TDBEdit
Left = 143
Top = 134
Width = 200
Height = 26
DataField = 'imoCEP'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 2
OnExit = edtCEPExit
end
object edtDataRegistro: TDBEdit
Left = 555
Top = 77
Width = 238
Height = 26
DataField = 'imoDataRegistro'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 21
end
object cbbEstado: TDBComboBox
Left = 270
Top = 383
Width = 73
Height = 26
DataField = 'imoEstado'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
Items.Strings = (
'AC'#9' '
'AL'#9' '
'AP'#9' '
'AM'#9' '
'BA'#9' '
'CE'#9' '
'DF'#9' '
'ES'#9' '
'GO'#9' '
'MA'#9' '
'MT'#9' '
'MS'#9' '
'MG'#9' '
'PA'#9' '
'PB'#9' '
'PR'#9' '
'PE'#9' '
'PI'#9' '
'RJ'#9' '
'RN'#9' '
'RS'#9' '
'RO'#9' '
'RR'#9' '
'SC'#9' '
'SP'#9' '
'SE'#9' '
'TO')
ParentFont = False
TabOrder = 8
end
object cbbTpImovel: TDBLookupComboBox
Left = 143
Top = 89
Width = 200
Height = 26
DataField = 'tpImoCodigo'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
KeyField = 'tpImoCodigo'
ListField = 'tpImoNome'
ListSource = dsTpImovel
ParentFont = False
TabOrder = 1
end
object checkBOcupacao: TDBCheckBox
Left = 603
Top = 471
Width = 190
Height = 17
Caption = 'O IM'#211'VEL EST'#193' OCUPADO'
DataField = 'imoOcupacao'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial Narrow'
Font.Style = []
ParentFont = False
TabOrder = 19
end
object dtpDtRegistro: TDateTimePicker
Left = 555
Top = 77
Width = 238
Height = 26
Date = 42678.447765983790000000
Time = 42678.447765983790000000
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 12
OnChange = dtpDtRegistroChange
end
object edtAreaPrivativa: TDBEdit
Left = 190
Top = 459
Width = 153
Height = 26
DataField = 'imoAreaPrivativa'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object edtAreaTotal: TDBEdit
Left = 190
Top = 420
Width = 153
Height = 26
DataField = 'imoAreaTotal'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object edtBairro: TDBEdit
Left = 143
Top = 222
Width = 200
Height = 26
DataField = 'imoBairro'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object edtCidade: TDBEdit
Left = 143
Top = 343
Width = 200
Height = 26
DataField = 'imoCidade'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object edtComplemento: TDBEdit
Left = 169
Top = 304
Width = 174
Height = 26
DataField = 'imoComplemento'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object edtEndereco: TDBEdit
Left = 143
Top = 178
Width = 200
Height = 26
DataField = 'imoEndereco'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object edtEstadoImovel: TDBEdit
Left = 555
Top = 260
Width = 238
Height = 26
DataField = 'imoEstadoDoImovel'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 17
end
object edtLote: TDBEdit
Left = 555
Top = 184
Width = 238
Height = 26
DataField = 'imoLote'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 15
end
object edtNegociacao: TDBEdit
Left = 555
Top = 113
Width = 238
Height = 26
DataField = 'imoNegociacao'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 13
end
object edtNome: TDBEdit
Left = 144
Top = 38
Width = 199
Height = 26
DataField = 'imoNome'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object edtNumero: TDBEdit
Left = 143
Top = 262
Width = 200
Height = 26
DataField = 'imoNumero'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object edtOrientacao: TDBEdit
Left = 555
Top = 150
Width = 238
Height = 26
DataField = 'imoOrientacao'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 14
end
object edtQuadra: TDBEdit
Left = 555
Top = 223
Width = 236
Height = 26
DataField = 'imoQuadra'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 16
end
object edtValorIptu: TDBEdit
Left = 555
Top = 38
Width = 238
Height = 26
DataField = 'imoValorIPTU'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object memoObservacao: TDBMemo
Left = 376
Top = 316
Width = 415
Height = 149
DataField = 'imoObservacao'
DataSource = dsCadImovel
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 18
end
object btnInternet: TBitBtn
Left = 310
Top = 134
Width = 33
Height = 26
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 20
OnClick = btnInternetClick
end
end
object tsFotos: TTabSheet
Caption = 'Fotos'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial Narrow'