object Form1: TForm1 Left = 206 Top = 126 Width = 413 Height = 180 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 0 Top = 0 Width = 401 Height = 57 Alignment = taCenter Caption = 'Busqueda de Facturas por CONTENIDO' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Arial Black' Font.Style = [] ParentFont = False WordWrap = True end object Button1: TButton Left = 128 Top = 88 Width = 145 Height = 25 Caption = '&Localizar Factura' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 128 Top = 120 Width = 145 Height = 25 Caption = '&Salir' TabOrder = 1 OnClick = Button2Click end object Empresas: TDatabase Connected = True DatabaseName = 'TpvWin' DriverName = 'STANDARD' Params.Strings = ( 'PATH=DATOS\' 'DEFAULT DRIVER=PARADOX' 'ENABLE BCD=FALSE') SessionName = 'Default' Top = 48 end object TbVentasC: TTable DatabaseName = 'TpvWin' TableName = 'Ventas (cabecera).db' Left = 40 Top = 80 object TbVentasCEnlaceFactura: TAutoIncField FieldName = 'EnlaceFactura' end object TbVentasCCodFactura: TIntegerField FieldName = 'CodFactura' end end end