object Form44315: TForm44315 Left = -4 Top = -4 Width = 648 Height = 488 Caption = 'Balande de las ventas diarias (Base de Datos)' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] WindowState = wsMaximized OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object SpeedButton1: TSpeedButton Left = 16 Top = 240 Width = 57 Height = 49 Hint = 'Ayuda' Caption = '&Ayuda' ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object TEXTO1: TDBGrid Left = 0 Top = 0 Width = 633 Height = 457 BorderStyle = bsNone Columns = < item FieldName = 'Fecha y Hora' Width = 114 end item FieldName = 'Producto' Width = 297 end item FieldName = 'Importe' Width = 91 end> DataSource = DataSource1 Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False TabOrder = 0 TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object Panel1: TPanel Left = 528 Top = 16 Width = 81 Height = 425 BevelInner = bvLowered BevelWidth = 2 BorderWidth = 1 BorderStyle = bsSingle TabOrder = 1 object Label1: TLabel Left = 8 Top = 16 Width = 65 Height = 73 Hint = 'Borrar registros' Alignment = taCenter Caption = 'Borrar' Font.Color = clRed Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True Transparent = True end object SpeedButton2: TSpeedButton Left = 16 Top = 232 Width = 49 Height = 49 Hint = 'Ayuda' Glyph.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 0400000000000000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFF0 0000000FFFFFFFFFFFFFFFFFFFFFFFF0BFBFBF00FFFFFFFFFFFFFFFFFFFFFFF0 FBFBFB0B0FFFFFFFFFFFFFFFFFFFFFF0BFBFBF0BB0FFFFFFFFFFFFFFFFFFFFF0 FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF00000000BB077FFFFFFFFFFFFFFFFFFFF 0BBBBBB0B077FFFFFFFFFFFFFFFFFFF00000000B0077FFFFFFFFFFFFFFFFFFF0 FBFBFB00B077FFFFFFFFFFFFFFFFFFF0BFBFBF0B0FF7FFFFFFFFFFFFFFFFFFF0 FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF0BFBFBFB0B077FFFFFFFFFFFFFFFFFFF0 FBFBFBF0B077FFFFFFFFFFFFFFFFFFFF0FBFBFBF0077FFFFFFFFFFFFFFFFFFFF 0BFBFBFBF0777FFFFFFFFFFFFFFFFFFFF0BFBFBFBF0777FFFFFFFFFF0000000F FF0BFBFBFB00777FFFFFFFFF0FBFBF0FFFF0BFBFBFB00777FFFFFFFF0BFBFB0F FFFF0BFBFBF0B077FFFFFFFF0FBFBF0FFFFF0FBFBFB0B077FFFFFFFF0BFBFB0F FFFF0BFBFBF0BB077FFFFFFF0FBFBFB0FFF0BFBFBFB0BB077FFFFFFF0BFBFBFB 000BFBFBFBF0BB077FFFFFFFF0BFBFBFBFBFBFBFBF0BBB077FFFFFFFF0FBFBFB FBFBFBFBFB0BBB077FFFFFFFFF0FBFBFBFBFBFBFB0BBBB077FFFFFFFFFF0FBFB FBFBFBFB0BBBB077FFFFFFFFFFFF00BFBFBFBF00BBBBB077FFFFFFFFFFFFF000 000000BBBBBB077FFFFFFFFFFFFFFF0BBBBBBBBBBBB077FFFFFFFFFFFFFFFFF0 0BBBBBBBB0077FFFFFFFFFFFFFFFFFFFF0000000077FFFFFFFFF} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SALIDA: TBitBtn Left = 16 Top = 344 Width = 49 Height = 49 Hint = 'Volver al Men�' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = SALIDAClick Glyph.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 0400000000000000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777777731444444E131313131377777777FFFF71 F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771 F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471 F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4 4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC 4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971 FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971 F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971 F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971 F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777 7777777777777777777777777777777777777777777777777777} end object IMPRIMIR: TBitBtn Left = 16 Top = 128 Width = 49 Height = 49 Hint = 'Imprimir Pantalla' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = IMPRIMIRClick Glyph.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 0400000000000000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000 000000000000000000070F8888888888888888888888888888800FF800000000 000000000000008888800FF708888888888888888888880778800FF70F777777 777777777777778078800FF70F777777777777777777778808800FF70F777777 777777777777778808800FF708888888888888888888888808800FF000000000 000000000000000808800F0888888888888888888888888008800F0777777777 777777777777777808800F0777777777777777777777777880800F0777777777 777777777777777888000F0777777777777777777777777888000F0777777777 777777777777777888000F0777777777777777777999977888000F0777777777 777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777 777777777777777F88000FF0777700000000000000008777F8000FF700000FFF FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770 FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777 0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF 0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007} end object DBNavigator1: TDBNavigator Left = 16 Top = 32 Width = 49 Height = 49 DataSource = DataSource1 VisibleButtons = [nbDelete] TabOrder = 2 end end object Panel2: TPanel Left = 0 Top = 0 Width = 633 Height = 457 BevelInner = bvLowered DragMode = dmAutomatic TabOrder = 2 object Memo100: TMemo Left = 16 Top = 16 Width = 601 Height = 425 Color = clWhite DragMode = dmAutomatic Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( ' ' ' ' + ' - AYUDA -' '' ' En �sta pantalla se recogen todas las ventas diarias realizadas' + ' y que hallamos ' ' realizado mediante: Sumar Productos, opci�n que encontrar� en e' + 'l Men� de Opciones' ' de la pantalla principal.' '' '' ' INSTRUCCIONES:' '' '- Para borrar cualquiera de los datos registrados (ventas diaria' + 's), s�lo ha de pulsar en el ' ' registro deseado y a continuaci�n pulsar en el bot�n: Borrar.' '' '- Para imprimir el balance o las ventas realizadas, deber� de pu' + 'lsar el bot�n cuyo icono ' ' es una impresora.') ParentFont = False ReadOnly = True TabOrder = 0 Visible = False end object BotonOCULTAR: TButton Left = 488 Top = 392 Width = 115 Height = 33 Caption = '&Ocultar la Ayuda' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BotonOCULTARClick end end object DataSource1: TDataSource DataSet = Table1 Left = 378 Top = 234 end object Table1: TTable Active = True DatabaseName = 'C:\NATUP1' TableName = 'Ventas.DB' Left = 442 Top = 242 object Table1FechayHora: TDateTimeField DisplayWidth = 22 FieldName = 'Fecha y Hora' Required = True end object Table1Producto: TStringField DisplayWidth = 38 FieldName = 'Producto' Size = 45 end object Table1Importe: TIntegerField DisplayWidth = 17 FieldName = 'Importe' Required = True end end end