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