971 lines
37 KiB
Plaintext
971 lines
37 KiB
Plaintext
object Form1: TForm1
|
|
Left = -1019
|
|
Top = 115
|
|
Width = 640
|
|
Height = 480
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'CAP-ges'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
Icon.Data = {
|
|
0000010001002020000001000800A80800001600000028000000200000004000
|
|
0000010008000000000080040000000000000000000000010000000000000000
|
|
000080808000FFFFFF00C0C0C000FEFEFE00FDFDFD00A8F8FB00FCFCFC00FBFB
|
|
FB0085DEEE00A8F7FB00A6F6FA00A4F5F900FAFAFA0000008000F9F9F90083DC
|
|
ED0080DAEC00A7F8FA00F7F7F700F5F5F50081DBEC007ED9EB0078D4E800A7F7
|
|
FA00A5F6F900F8F8F800F6F6F600F3F3F300F1F1F1007FD9EB007CD7EA00A3F5
|
|
F900F2F2F200EFEFEF00EBEBEB007DD8EA007AD6E9006ECCE400A2F4F800A0F2
|
|
F800E8E8E8007BD7EA0078D5E90076D3E80074D1E700A0F2F7009EF1F7009DF0
|
|
F600EDEDED00EAEAEA00E7E7E700E4E4E400E1E1E10079D5E90072D0E60070CE
|
|
E5009CEFF6009BEEF60099EDF500F4F4F400ECECEC00E9E9E900E6E6E600E0E0
|
|
E000DDDDDD00DADADA0077D4E80074D2E7006CCBE40097ECF40096EBF400F0F0
|
|
F000DEDEDE00DBDBDB00D8D8D800D5D5D500D3D3D30075D2E7006ECDE4006CCB
|
|
E3006ACAE30067C8E20095EBF30094EAF30092E8F200EEEEEE00C7D8FF00D7D7
|
|
D700D4D4D400D1D1D10073D1E60070CFE5006CCCE3006ACAE20068C9E20065C7
|
|
E10063C5E00093E9F30091E7F2008FE6F100E3E3E300C2D4FF00D0D0D0006FCE
|
|
E5006DCCE4006BCBE30069C9E20064C6E10062C4E00060C2DF008EE5F100E5E5
|
|
E500E2E2E200BED1FF00CECECE00040404006BCAE30067C7E10065C6E1005EC0
|
|
DE005CBEDD008DE4F0008CE3F0008AE1EF00DFDFDF00DCDCDC00BDD0FF00B9CD
|
|
FF00CFCFCF00CDCDCD0067C8E10065C6E00060C3DF005EC1DE005CBFDD005ABD
|
|
DC0058BCDC008AE2EF0088E0EE0087DFEE00D9D9D900B5CAFF006B8FFF0063C4
|
|
DF0061C3DF005ABEDC0058BCDB0056BBDB0086DFED0085DEED0083DDEC00B1C7
|
|
FF00A4BCFF005FC2DF005CC0DE005ABEDD0056BADB0054B9DB0086DFEE0084DD
|
|
ED00ACC3FF00A8BFFF005DC1DE005BBFDD0059BDDC0057BBDB0055B9DA0053B8
|
|
DA0084DEED0083DCEC0080DAEB00B4C9FF00B0C6FF00A7BFFF0055BADA0053B8
|
|
D90051B7D90082DCEC0081DBEB007FDAEB00AFC5FF00ABC2FF0055BADB0051B6
|
|
D9004FB5D90080DBEC00A3BCFF004FB5D8004DB4D8004DB4D7004BB3D7004AB2
|
|
D7000070AB0000659A0000619400C5C5C500005E9000005A8A00005684000051
|
|
7D00004C760000527F00004E7900004A730000456C0000416600003D60000047
|
|
6F0000436900003F6300003A5C000036560000325000FFFFFF00000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000C9D0D1D2D2D3D4D50000000000000000000000
|
|
0000000000000000000000000000CACBCCCCCDCECF0000000000000000000000
|
|
0000000000000000000000000000C5C6C7C7C8C9000000000000000000000000
|
|
000000000000000000000000000000C2C3C30000C40000000000000000000000
|
|
000000000000000000000000000000C100007D7D8D0000000000000000000000
|
|
000000000000000000C000260000000032347D7D000000000000000000000000
|
|
0000000000000000BEBF002626000000020F00008F0000000000000000000000
|
|
00000000000000B1BCBD00262616000000008F8F8F8F00000000000000000000
|
|
000000000000B7A8B8B9002626BA1E00000000B6AEBB8F000000000000000000
|
|
0000000000A5A6AFB0B1002626B2B3B4000000B5B6AEAE8F0000000000000000
|
|
00000000A3A4A5A6A7A8002626A9AA15AB0000ACADA1A1AE8F00000000000000
|
|
000000919A9B9C899D9E0026269FA010151100808E9898A1A28F000000000000
|
|
000084909186879293940026268B9596970000808E988F8F8F99000000000000
|
|
006B83846185868788890026268A8B8C008D5800808E0000008F000000000000
|
|
69756B76776D6E78790126267A7B7C007D417E007F8000818200000000000137
|
|
68696A6B526C6D6E01262663646F007034713549007200595A7374000000015B
|
|
5C4F5D5E5F606101262662636400323E290E3F650066004B4C4D67000000014E
|
|
37384F505152012626535455005631313D230E29005700414258595A00000143
|
|
44373826450126263B4647001D1D1D0E4848480E0700000E494A4B4C4D000136
|
|
2C2D3738012626393A3B003C3C3C3C3C0E3C14210E3D3E3F0E4041420100012A
|
|
2B2C2D0126262E2F30001B1B130E1A1A0F0E0D1B1C0E31323334350103010124
|
|
2517002626202728001B131A0F0D0E0705040E081A140E22232901030100011E
|
|
1F160001181920011B1B130E0F0D080E0504020E1A1421222301030100000115
|
|
161700000118190C01131A0F0E0808070E0402070E1B1C1D0103010000000110
|
|
110100000001120B0C010F0D0D020707050E02070D1314010301000000000109
|
|
010000000000010A0B0C010D0807020505040E05080F01030100000000000001
|
|
0000000000000001060100010707050200000205080103010000000000000000
|
|
0000000000000000010000000105050002000205010301000000000000000000
|
|
0000000000000000000000000001000400040201030100000000000000000000
|
|
0000000000000000000000000000010204040103010000000000000000000000
|
|
0000000000000000000000000000000102010301000000000000000000000000
|
|
0000000000000000000000000000000001D6010000000000000000000000FFFC
|
|
00FFFFFE00FFFFFE00FFFFFF00FFFFE300FFFFC180FFFF8080FFFF00407FFE00
|
|
303FFC00101FF800000FF0000007E0000007C000000780000007000000070000
|
|
0003000000010000000000000000000000000000000100000003040000070E00
|
|
000F1F00001FBF88003FFFDC007FFFFE00FFFFFE01FFFFFE03FFFFFFC7FF}
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnClose = FormClose
|
|
PixelsPerInch = 96
|
|
TextHeight = 24
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 632
|
|
Height = 49
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Top = -4
|
|
Width = 389
|
|
Height = 45
|
|
Caption = 'Gestion de Abonados'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -32
|
|
Font.Name = 'Arial Black'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 0
|
|
Top = 32
|
|
Width = 577
|
|
Height = 9
|
|
Shape = bsBottomLine
|
|
end
|
|
object CardOK: TImage
|
|
Left = 488
|
|
Top = 0
|
|
Width = 24
|
|
Height = 24
|
|
AutoSize = True
|
|
Picture.Data = {
|
|
07544269746D617096010000424D960100000000000076000000280000001800
|
|
0000180000000100040000000000200100000000000000000000100000000000
|
|
000000000000000080000080000000808000800000008000800080800000C0C0
|
|
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
|
|
FF00FFFFFFFFFFF991FFFFFFFFFFFFFFFFFFFFFF991FFFFFFFFFFFFFFFFFFFFF
|
|
991100000FFFFFFF00000000099110880FFF0000888888888001108800FF8888
|
|
888888888880088808FF88888888888888888888080F88888888888888888888
|
|
080B88888888888888888888080B888888888000000000008801888800000777
|
|
7777777808010000FFFFF777777777788001FFFFFFF77777FFF00000000BFFFF
|
|
FF777000000BBBBBBBBBFF7700000BBBBBBBBB111111000077BBBBBB111111BB
|
|
BBBB777700BB1111BBBBBBBBBBBB0000FFBBBBBBBBBBB33BBBBBFFFFFFB33BBB
|
|
3BBBB33BBB3BFFFFFFBB3BB33B3BBBBBBBBBFFFFFFB33BBBBBB3BBBBBBBBFFFF
|
|
FFB33BBBBBBBBBBBFFFFFFFFFFBBBBBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFF}
|
|
Visible = False
|
|
end
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Top = 49
|
|
Width = 632
|
|
Height = 381
|
|
ActivePage = TabSheet2
|
|
Align = alClient
|
|
TabIndex = 1
|
|
TabOrder = 1
|
|
OnChange = PageControl1Change
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Localizador'
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 624
|
|
Height = 41
|
|
Align = alTop
|
|
BevelOuter = bvLowered
|
|
TabOrder = 0
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 8
|
|
Width = 140
|
|
Height = 24
|
|
Caption = 'Buscar ficha por:'
|
|
end
|
|
object SelIndex: TComboBox
|
|
Left = 152
|
|
Top = 4
|
|
Width = 145
|
|
Height = 32
|
|
ItemHeight = 24
|
|
TabOrder = 0
|
|
Text = 'SelIndex'
|
|
Items.Strings = (
|
|
'nombre'
|
|
'apellidos'
|
|
'dni'
|
|
'telefono1')
|
|
end
|
|
object Buscador: TEdit
|
|
Left = 296
|
|
Top = 4
|
|
Width = 169
|
|
Height = 32
|
|
TabOrder = 1
|
|
OnKeyUp = BuscadorKeyUp
|
|
end
|
|
object BitBtn2: TBitBtn
|
|
Left = 472
|
|
Top = 4
|
|
Width = 145
|
|
Height = 34
|
|
Caption = 'Matriculas'
|
|
TabOrder = 2
|
|
OnClick = BitBtn2Click
|
|
Glyph.Data = {
|
|
46070000424D460700000000000036040000280000001A0000001C0000000100
|
|
0800000000001003000000000000000000000001000000000000000000004000
|
|
000080000000FF000000002000004020000080200000FF200000004000004040
|
|
000080400000FF400000006000004060000080600000FF600000008000004080
|
|
000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0
|
|
000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000
|
|
200080002000FF002000002020004020200080202000FF202000004020004040
|
|
200080402000FF402000006020004060200080602000FF602000008020004080
|
|
200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0
|
|
200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000
|
|
400080004000FF004000002040004020400080204000FF204000004040004040
|
|
400080404000FF404000006040004060400080604000FF604000008040004080
|
|
400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
|
|
400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
|
|
600080006000FF006000002060004020600080206000FF206000004060004040
|
|
600080406000FF406000006060004060600080606000FF606000008060004080
|
|
600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
|
|
600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
|
|
800080008000FF008000002080004020800080208000FF208000004080004040
|
|
800080408000FF408000006080004060800080608000FF608000008080004080
|
|
800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
|
|
800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
|
|
A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
|
|
A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
|
|
A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
|
|
A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
|
|
C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
|
|
C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
|
|
C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
|
|
C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
|
|
FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
|
|
FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
|
|
FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
|
|
FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF001D1D1D1D1D1D
|
|
1D1D1D1D1D1D1D1D1D1D1D1DDB1D1D1D1D1D1D1D00001D1D1D1D000000000000
|
|
0000000000000000921D1D1D1D1D1D1D00001D1D242400000000000000000000
|
|
00000000921D1D1D6D491D1D00001D1D24DBFFFFFFFFFFFFB6B6B6B6B6920000
|
|
921DDBB60000009200001D1D24DBDBFFFFFFFFFFFFB6B6B6B6B60000921DADD1
|
|
6824241D00001D1D24DB9292929292929292929292B60000B6D6CCF5CC80921D
|
|
00001D1D24DB6D6D6D6D4949494949496DB60024B6ADF5D0A464DB1D00001D1D
|
|
24DBDBDBDBDBFFFFFFFFFFFFB6B600248DD0F5CC80B61D1D00001D1D24DBDBDB
|
|
DBDBDBFFFFFFFFFFFFB6002484F5CCA4891D1D1D00001D1D24DB492424242424
|
|
24B6B66D24240020D0F1C8801D1D1D1D00001D1D24DBDBDBDBDBDBDBDB92042E
|
|
5777572E0464A4206D1D1D1D00001D1D24DBDBDBDBDBDBDB6D25779B77777777
|
|
57092024241D1D1D00001D1D24DBDBFFFFDBDBFF249B9B9B9B9B777777570524
|
|
49921D1D00001D1D24DB6D494992DB4972BBBBBBBB9B9B9B7777530049921D1D
|
|
00001D1D24FFDBDBDBDBDB24BB72BB72724E4E9B2A2A57046D921D1D00001D1D
|
|
24FFFFDBDBDBDB24BB25499249BB254E535353056DB61D1D00001D1D24FF6D49
|
|
4992DB24DF9225DF4972294E7377530592DB1D1D00001D1D24FFDBDBDBDBDB24
|
|
DFDB92FF924D729B292977041D1D1D1D00001D1D24FFFFFFFFFFDB6D92FFFFFF
|
|
FFDFBBBB9B775249DB1D1D1D00001D1D24FFDBDBDBDBFFDB24DBFFFFDFDFBBBB
|
|
9B77041D1D1D1D1D00001D1D24FF6D494992FFFFFF24BBDFDFBBBB9B7724921D
|
|
1D1D1D1D00001D1D24FFFFFFFFFFFFFFFFDB24297296722924B61D1D1D1D1D1D
|
|
00001D1D24FFFFFFFFFFFFFFFFFFDBFF6D6D006D1D1D1D1D1D1D1D1D00001D1D
|
|
246D6D6D6D6D6D6D6D6D6D6D6D6D00921D1D1D1D1D1D1D1D00001D1D000E0E0E
|
|
0E0E0E0E0E0E0E0E0E0E00921D1D1D1D1D1D1D1D00001D1D0033BBDFDFDFDF77
|
|
33333300053304B6DB1D1D1D1D1D1D1D00001D1D003333333333333333333333
|
|
3333041D1D1D1D1D1D1D1D1D00001D1D2424242424242424242424242424491D
|
|
1D1D1D1D1D1D1D1D0000}
|
|
end
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Top = 41
|
|
Width = 624
|
|
Height = 301
|
|
Align = alClient
|
|
DataSource = DsAbonados
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -13
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
OnDblClick = DBGrid1DblClick
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'dni'
|
|
Width = 75
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'nombre'
|
|
Width = 100
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'apellidos'
|
|
Width = 141
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'telefono1'
|
|
Width = 136
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'telefono2'
|
|
Width = 137
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Ficha'
|
|
ImageIndex = 1
|
|
object PageControl2: TPageControl
|
|
Left = 0
|
|
Top = 73
|
|
Width = 624
|
|
Height = 269
|
|
ActivePage = TabSheet3
|
|
Align = alClient
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
MultiLine = True
|
|
ParentFont = False
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
TabPosition = tpRight
|
|
OnChange = PageControl2Change
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'General'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
object Bevel2: TBevel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 560
|
|
Height = 261
|
|
Align = alClient
|
|
end
|
|
object Label6: TLabel
|
|
Left = 8
|
|
Top = 240
|
|
Width = 60
|
|
Height = 18
|
|
Caption = 'Periodo:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 248
|
|
Top = 56
|
|
Width = 69
|
|
Height = 18
|
|
Caption = 'Provincia:'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 8
|
|
Top = 56
|
|
Width = 73
|
|
Height = 18
|
|
Caption = 'Localidad:'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 8
|
|
Top = 16
|
|
Width = 71
|
|
Height = 18
|
|
Caption = 'Direcci'#243'n:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 472
|
|
Top = 56
|
|
Width = 27
|
|
Height = 18
|
|
Caption = 'CP:'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 8
|
|
Top = 88
|
|
Width = 72
|
|
Height = 18
|
|
Caption = 'Tel'#233'fonos:'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 328
|
|
Top = 128
|
|
Width = 103
|
|
Height = 18
|
|
Caption = 'Tipo Abonado:'
|
|
end
|
|
object Label13: TLabel
|
|
Left = 328
|
|
Top = 152
|
|
Width = 54
|
|
Height = 18
|
|
Caption = 'Estado:'
|
|
end
|
|
object DBEdit3: TDBEdit
|
|
Left = 96
|
|
Top = 8
|
|
Width = 489
|
|
Height = 26
|
|
DataField = 'direccion'
|
|
DataSource = DsAbonados
|
|
TabOrder = 0
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBEdit4: TDBEdit
|
|
Left = 96
|
|
Top = 48
|
|
Width = 145
|
|
Height = 26
|
|
DataField = 'localidad'
|
|
DataSource = DsAbonados
|
|
TabOrder = 1
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBEdit5: TDBEdit
|
|
Left = 320
|
|
Top = 48
|
|
Width = 145
|
|
Height = 26
|
|
DataField = 'provincia'
|
|
DataSource = DsAbonados
|
|
TabOrder = 2
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBEdit7: TDBEdit
|
|
Left = 504
|
|
Top = 48
|
|
Width = 81
|
|
Height = 26
|
|
DataField = 'cp'
|
|
DataSource = DsAbonados
|
|
TabOrder = 3
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBEdit8: TDBEdit
|
|
Left = 96
|
|
Top = 80
|
|
Width = 145
|
|
Height = 26
|
|
DataField = 'telefono1'
|
|
DataSource = DsAbonados
|
|
TabOrder = 4
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBEdit9: TDBEdit
|
|
Left = 248
|
|
Top = 80
|
|
Width = 145
|
|
Height = 26
|
|
DataField = 'telefono2'
|
|
DataSource = DsAbonados
|
|
TabOrder = 5
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBLookupComboBox2: TDBLookupComboBox
|
|
Left = 432
|
|
Top = 122
|
|
Width = 153
|
|
Height = 26
|
|
DataField = 'tipoa'
|
|
DataSource = DsAbonados
|
|
KeyField = 'idta'
|
|
ListField = 'desc'
|
|
ListSource = DsTAbonados
|
|
TabOrder = 6
|
|
end
|
|
object DBCheckBox1: TDBCheckBox
|
|
Left = 432
|
|
Top = 176
|
|
Width = 153
|
|
Height = 17
|
|
Caption = 'abonado es VIP'
|
|
DataField = 'vip'
|
|
DataSource = DsAbonados
|
|
TabOrder = 7
|
|
ValueChecked = 'True'
|
|
ValueUnchecked = 'False'
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 432
|
|
Top = 150
|
|
Width = 153
|
|
Height = 26
|
|
ItemHeight = 18
|
|
TabOrder = 8
|
|
Text = 'ComboBox1'
|
|
OnChange = ComboBox1Change
|
|
Items.Strings = (
|
|
'Alta'
|
|
'Sancionado'
|
|
'Baja-Impagado'
|
|
'Baja')
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 77
|
|
Top = 230
|
|
Width = 140
|
|
Height = 26
|
|
ItemHeight = 18
|
|
TabOrder = 9
|
|
OnChange = ComboBox2Change
|
|
Items.Strings = (
|
|
'Mensual - 1 Mes'
|
|
'BiMestral - 2 Meses'
|
|
'Trimestral - 3 Meses'
|
|
'Anual')
|
|
end
|
|
object RenovarAbono: TBitBtn
|
|
Left = 224
|
|
Top = 224
|
|
Width = 75
|
|
Height = 33
|
|
Caption = 'renovar'
|
|
TabOrder = 10
|
|
OnClick = RenovarAbonoClick
|
|
end
|
|
end
|
|
object TabSheet4: TTabSheet
|
|
Caption = 'Vehiculos'
|
|
ImageIndex = 1
|
|
object DBGrid2: TDBGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 590
|
|
Height = 263
|
|
Align = alClient
|
|
DataSource = DsVehiculos
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
TitleFont.Charset = ANSI_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -16
|
|
TitleFont.Name = 'Arial'
|
|
TitleFont.Style = []
|
|
OnDrawColumnCell = DBGrid2DrawColumnCell
|
|
OnDblClick = DBGrid2DblClick
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'matricula'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Matricula'
|
|
Width = 121
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'color'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Color'
|
|
Width = 84
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'modelo'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Modelo'
|
|
Width = 268
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idplaza'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Plaza'
|
|
Width = 56
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idCard'
|
|
ReadOnly = True
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'T'
|
|
Width = 24
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
object TabSheet5: TTabSheet
|
|
Caption = 'Facturas'
|
|
ImageIndex = 2
|
|
object DBGrid3: TDBGrid
|
|
Left = 0
|
|
Top = 37
|
|
Width = 590
|
|
Height = 226
|
|
Align = alBottom
|
|
DataSource = DsFacturas
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
TitleFont.Charset = ANSI_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -19
|
|
TitleFont.Name = 'Arial'
|
|
TitleFont.Style = []
|
|
OnDblClick = DBGrid3DblClick
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'pagado'
|
|
Title.Caption = 'Pagada'
|
|
Width = 95
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'id'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Factura'
|
|
Width = 103
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'fechaE'
|
|
Title.Caption = 'Desde...'
|
|
Width = 105
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'fechaS'
|
|
Title.Alignment = taRightJustify
|
|
Title.Caption = '...Hasta'
|
|
Width = 95
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'importe'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Importe'
|
|
Width = 101
|
|
Visible = True
|
|
end>
|
|
end
|
|
object BitBtn1: TBitBtn
|
|
Left = 472
|
|
Top = 2
|
|
Width = 115
|
|
Height = 28
|
|
Caption = 'Eliminar'
|
|
TabOrder = 1
|
|
OnClick = BitBtn1Click
|
|
Glyph.Data = {
|
|
0E0A0000424D0E0A000000000000360400002800000042000000160000000100
|
|
080000000000D8050000C40E0000C40E00000001000000000000000000000000
|
|
5500000080000000AA000000D5000000FF00002B0000002B5500002B8000002B
|
|
AA00002BD500002BFF000055000000555500005580000055AA000055D5000055
|
|
FF000080000000805500008080000080AA000080D5000080FF0000AA000000AA
|
|
550000AA800000AAAA0000AAD50000AAFF0000D5000000D5550000D5800000D5
|
|
AA0000D5D50000D5FF0000FF000000FF550000FF800000FFAA0000FFD50000FF
|
|
FF005500000055005500550080005500AA005500D5005500FF00552B0000552B
|
|
5500552B8000552BAA00552BD500552BFF005555000055555500555580005555
|
|
AA005555D5005555FF005580000055805500558080005580AA005580D5005580
|
|
FF0055AA000055AA550055AA800055AAAA0055AAD50055AAFF0055D5000055D5
|
|
550055D5800055D5AA0055D5D50055D5FF0055FF000055FF550055FF800055FF
|
|
AA0055FFD50055FFFF008000000080005500800080008000AA008000D5008000
|
|
FF00802B0000802B5500802B8000802BAA00802BD500802BFF00805500008055
|
|
5500805580008055AA008055D5008055FF008080000080805500808080008080
|
|
AA008080D5008080FF0080AA000080AA550080AA800080AAAA0080AAD50080AA
|
|
FF0080D5000080D5550080D5800080D5AA0080D5D50080D5FF0080FF000080FF
|
|
550080FF800080FFAA0080FFD50080FFFF00AA000000AA005500AA008000AA00
|
|
AA00AA00D500AA00FF00AA2B0000AA2B5500AA2B8000AA2BAA00AA2BD500AA2B
|
|
FF00AA550000AA555500AA558000AA55AA00AA55D500AA55FF00AA800000AA80
|
|
5500AA808000AA80AA00AA80D500AA80FF00AAAA0000AAAA5500AAAA8000AAAA
|
|
AA00AAAAD500AAAAFF00AAD50000AAD55500AAD58000AAD5AA00AAD5D500AAD5
|
|
FF00AAFF0000AAFF5500AAFF8000AAFFAA00AAFFD500AAFFFF00D5000000D500
|
|
5500D5008000D500AA00D500D500D500FF00D52B0000D52B5500D52B8000D52B
|
|
AA00D52BD500D52BFF00D5550000D5555500D5558000D555AA00D555D500D555
|
|
FF00D5800000D5805500D5808000D580AA00D580D500D580FF00D5AA0000D5AA
|
|
5500D5AA8000D5AAAA00D5AAD500D5AAFF00D5D50000D5D55500D5D58000D5D5
|
|
AA00D5D5D500D5D5FF00D5FF0000D5FF5500D5FF8000D5FFAA00D5FFD500D5FF
|
|
FF00FF000000FF005500FF008000FF00AA00FF00D500FF00FF00FF2B0000FF2B
|
|
5500FF2B8000FF2BAA00FF2BD500FF2BFF00FF550000FF555500FF558000FF55
|
|
AA00FF55D500FF55FF00FF800000FF805500FF808000FF80AA00FF80D500FF80
|
|
FF00FFAA0000FFAA5500FFAA8000FFAAAA00FFAAD500FFAAFF00FFD50000FFD5
|
|
5500FFD58000FFD5AA00FFD5D500FFD5FF00FFFF0000FFFF5500FFFF8000FFFF
|
|
AA00FFFFD5003F3F3F006B6B6B0095959500C0C0C000FFFFFF00F6F6F6FEFEFE
|
|
FEFEFEFEFEFEFEFEFEFEFEFEFEF6F6F6F6F6F6F6F6F6F60505050505050505F6
|
|
F6F6F6F6F6F6F6F6F6FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF6F6F60000F6F6
|
|
00000000000000000000000000000000FEF6F6F6F6F6F6F6F605050505050505
|
|
0505050505F6F6F6F6F6F6F600000000000000000000000000000000FEF6F6F6
|
|
0000F6F600FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FEF6F6F6F6F6F6F605050505
|
|
05050505050505050505F6F6F6F6F6F600FFFFFFFFFFFFFFFFFFFFFFFFFFFF00
|
|
FEF6F6F60000F6F600FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FEF6F6F6F6F6F605
|
|
050505FAFAFAFAFAFAFA0505050505F6F6F6F6F600FFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFF00FEF6F6F60000F6F600FFFFFFFFFF00FF00FF00000000FF00FEF6F6F6
|
|
F6F605050505FAFAFAFAFAFAFAFAFAFA05050505F6F6F6F600FFFFFFFFFF05FF
|
|
05FF05050505FF00FEF6F6F60000F6F600FFFF05FFFFFFFFFFFFFFFFFFFFFF00
|
|
FEF6F6F6F6050505050505FAFAFAFAFAFAFAFAFAFA05050505F6F6F600FFFF05
|
|
FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F60000F6F600FF0505FFFFFFFFFFFFFFFF
|
|
FFFFFF00FEF6F6F6F605050505050505FAFA000000000000FAFA050505F6F6F6
|
|
00FF0505FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F60000F6F600FFFFFF05FF0000
|
|
FF000000FF00FF00FEF6F6F600000000FA0505050500FEFEFEFEFEFE00FAFA05
|
|
0505F6F600FFFFFF05FF0505FF050505FF05FF00FEF6F6F60000F6F600FFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F654D254D2000005050505FFFFFF000000
|
|
0000FA050505F6F600FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FEF6F6F60000F6F6
|
|
00FFFF05FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F6D254D25400FEFE05050505FF
|
|
FFFFFEFEFEFE00050505F6F600FFFF05FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F6
|
|
0000F6F600FF0505FFFF000000FF000000FFFF00FEF6F6F6D2D2D2D200FFFFFF
|
|
05050505FF0000000000FA050505F6F600FF0505FFFF050505FF050505FFFF00
|
|
FEF6F6F60000F6F600FFFFFF05FFFFFFFFFFFFFFFFFFFF00FEF6F6F6D2D2D2D2
|
|
000000FFFF05050505FFFEFEFE00FA050505F6F600FFFFFF05FFFFFFFFFFFFFF
|
|
FFFFFF00FEF6F6F60000F6F600FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FEF6F6F6
|
|
0000000000FAFA00FFFF05050505000000FAFA050505F6F600FFFFFFFFFFFFFF
|
|
FFFFFFFFFFFFFF00FEF6F6F60000F6F600FFFF05FFFF00FF000000FF0000FF00
|
|
FEF6F6F6050505FAFAFAFAFA00FFFF05050505FAFAFAFA050505F6F600FFFF05
|
|
FFFF05FF050505FF0505FF00FEF6F6F60000F6F600FF0505FFFFFFFFFFFFFFFF
|
|
FFFFFF00FEF6F6F6050505FAFAFAFAFAFA0000FF05050505FAFAFA050505F6F6
|
|
00FF0505FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F60000F6F600FFFFFF05FFFFFF
|
|
FFFFFFFFFFFFFF00FEF6F6F6F6050505FAFAFAFAFAFAFA00FF05050505FA0505
|
|
05F6F6F600FFFFFF05FFFFFFFFFFFFFFFFFFFF00FEF6F6F60000F6F600FFFFFF
|
|
FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F6F605050505FAFAFAFAFAFAFA00000505
|
|
0505050505F6F6F600FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FEF6F6F60000F6F6
|
|
00000000FFFF000000FF0000FFFFFF00FEF6F6F6F6F605050505FAFAFAFAFAFA
|
|
FAFAFA0505050505F6F6F6F600000000FFFF050505FF0505FFFFFF00FEF6F6F6
|
|
0000F6F600FEFE0005FFFFFFFFFFFFFFFFFFFF00FEF6F6F6F6F6F60505050505
|
|
FAFAFAFAFAFA0505050505F6F6F6F6F600FEFE0005FFFFFFFFFFFFFFFFFFFF00
|
|
FEF6F6F60000F6F6F600FE00FFFFFFFFFFFFFFFFFFFFFF00FEF6F6F6F6F6F6F6
|
|
0505050505050505050505050505F6F6F6F6F6F6F600FE00FFFFFFFFFFFFFFFF
|
|
FFFFFF00FEF6F6F60000F6F6F6F60000000000000000000000000000F6F6F6F6
|
|
F6F6F6F6F6050505050505050505050505F6F6F6F6F6F6F6F6F6000000000000
|
|
0000000000000000F6F6F6F60000F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6
|
|
F6F6F6F6F6F6F6F6F6F6F60505050505050505F6F6F6F6F6F6F6F6F6F6F6F6F6
|
|
F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F60000}
|
|
NumGlyphs = 3
|
|
end
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 624
|
|
Height = 73
|
|
Align = alTop
|
|
BevelOuter = bvLowered
|
|
TabOrder = 1
|
|
object Label3: TLabel
|
|
Left = 8
|
|
Top = 12
|
|
Width = 32
|
|
Height = 20
|
|
Caption = 'DNI:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Top = 44
|
|
Width = 60
|
|
Height = 20
|
|
Caption = 'Nombre:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object DBText1: TDBText
|
|
Left = 464
|
|
Top = 8
|
|
Width = 65
|
|
Height = 25
|
|
DataField = 'falta'
|
|
DataSource = DsAbonados
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object DBEdit1: TDBEdit
|
|
Left = 96
|
|
Top = 4
|
|
Width = 121
|
|
Height = 28
|
|
DataField = 'dni'
|
|
DataSource = DsAbonados
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBEdit2: TDBEdit
|
|
Left = 96
|
|
Top = 36
|
|
Width = 161
|
|
Height = 28
|
|
DataField = 'nombre'
|
|
DataSource = DsAbonados
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
object DBEdit6: TDBEdit
|
|
Left = 264
|
|
Top = 36
|
|
Width = 321
|
|
Height = 28
|
|
DataField = 'apellidos'
|
|
DataSource = DsAbonados
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnKeyPress = AvanzaCampo
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 430
|
|
Width = 632
|
|
Height = 19
|
|
Panels = <>
|
|
SimplePanel = False
|
|
end
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 506
|
|
Top = 54
|
|
Width = 120
|
|
Height = 18
|
|
DataSource = DsAbonados
|
|
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete]
|
|
Flat = True
|
|
Hints.Strings = (
|
|
'Primera ficha'
|
|
'Ficha anterior'
|
|
'Siguiente Ficha'
|
|
#218'ltima ficha'
|
|
'Nueva Ficha'
|
|
'Eliminar Ficha'
|
|
'Post edit'
|
|
'Cancel edit'
|
|
'Refresh data')
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
end
|
|
object BitBtn3: TBitBtn
|
|
Left = 424
|
|
Top = 48
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Impr.'
|
|
TabOrder = 4
|
|
OnClick = BitBtn3Click
|
|
Glyph.Data = {
|
|
76010000424D7601000000000000760000002800000020000000100000000100
|
|
04000000000000010000120B0000120B00001000000000000000000000000000
|
|
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
|
|
0003377777777777777308888888888888807F33333333333337088888888888
|
|
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
|
|
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
|
|
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
|
|
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
|
|
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
|
|
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
|
|
33333337FFFF7733333333300000033333333337777773333333}
|
|
NumGlyphs = 2
|
|
end
|
|
object TbAbonados: TTable
|
|
BeforeOpen = TbAbonadosBeforeOpen
|
|
BeforeDelete = TbAbonadosBeforeDelete
|
|
OnNewRecord = TbAbonadosNewRecord
|
|
TableName = 'datos\abonados.db'
|
|
Left = 300
|
|
Top = 76
|
|
end
|
|
object DsAbonados: TDataSource
|
|
DataSet = TbAbonados
|
|
OnDataChange = DsAbonadosDataChange
|
|
OnUpdateData = DsAbonadosUpdateData
|
|
Left = 300
|
|
Top = 44
|
|
end
|
|
object TbVehiculos: TTable
|
|
BeforeOpen = TbVehiculosBeforeOpen
|
|
BeforeDelete = TbVehiculosBeforeDelete
|
|
IndexName = 'iAbonados'
|
|
MasterFields = 'ida'
|
|
MasterSource = DsAbonados
|
|
TableName = 'datos\vehiculos.db'
|
|
Left = 336
|
|
Top = 74
|
|
end
|
|
object DsVehiculos: TDataSource
|
|
DataSet = TbVehiculos
|
|
Left = 336
|
|
Top = 48
|
|
end
|
|
object TbBusqMatriculas: TTable
|
|
BeforeOpen = TbVehiculosBeforeOpen
|
|
TableName = 'datos\vehiculos.db'
|
|
Left = 432
|
|
Top = 10
|
|
end
|
|
object TbCards: TTable
|
|
BeforeOpen = TbCardsBeforeOpen
|
|
IndexName = 'iOwner'
|
|
TableName = 'datos\cards.db'
|
|
Left = 464
|
|
Top = 10
|
|
end
|
|
object TbTAbonados: TTable
|
|
MasterSource = DsAbonados
|
|
TableName = 'datos\tabonados.db'
|
|
Left = 376
|
|
Top = 74
|
|
end
|
|
object DsTAbonados: TDataSource
|
|
DataSet = TbTAbonados
|
|
Left = 376
|
|
Top = 48
|
|
end
|
|
object TbFacturas: TTable
|
|
BeforeOpen = TbFacturasBeforeOpen
|
|
IndexName = 'iOwner'
|
|
MasterFields = 'ida'
|
|
MasterSource = DsAbonados
|
|
TableName = 'datos\TbFacturas.db'
|
|
Left = 532
|
|
Top = 28
|
|
end
|
|
object DsFacturas: TDataSource
|
|
DataSet = TbFacturas
|
|
Left = 536
|
|
end
|
|
end
|