home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TTERMINAL / TTERMINAL.txt
Text File  |  1995-05-10  |  12KB  |  457 lines
  1. object TERMINAL: TTERMINAL
  2.   Left = -4
  3.   Top = -4
  4.   ActiveControl = edCodigo
  5.   BorderStyle = bsSingle
  6.   Caption = 'Sumar Productos (Base de Datos)'
  7.   ClientHeight = 461
  8.   ClientWidth = 640
  9.   Font.Color = clWindowText
  10.   Font.Height = -10
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   WindowState = wsMaximized
  15.   OnActivate = FormActivate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Panel5431: TPanel
  19.     Left = 8
  20.     Top = 8
  21.     Width = 617
  22.     Height = 441
  23.     BevelInner = bvLowered
  24.     BevelWidth = 2
  25.     BorderWidth = 1
  26.     BorderStyle = bsSingle
  27.     DragMode = dmAutomatic
  28.     TabOrder = 0
  29.     object Label1: TLabel
  30.       Left = 16
  31.       Top = 18
  32.       Width = 77
  33.       Height = 16
  34.       Caption = 'Caja n∩┐╜mero:'
  35.       Font.Color = clBlue
  36.       Font.Height = -13
  37.       Font.Name = 'Arial'
  38.       Font.Style = []
  39.       ParentFont = False
  40.       Transparent = True
  41.       Visible = False
  42.     end
  43.     object Label2: TLabel
  44.       Left = 15
  45.       Top = 156
  46.       Width = 80
  47.       Height = 16
  48.       Caption = 'N∩┐╜ de C∩┐╜digo:'
  49.       Font.Color = clBlue
  50.       Font.Height = -13
  51.       Font.Name = 'Arial'
  52.       Font.Style = []
  53.       ParentFont = False
  54.     end
  55.     object Label3: TLabel
  56.       Left = 16
  57.       Top = 256
  58.       Width = 72
  59.       Height = 16
  60.       Caption = 'Descripci∩┐╜n:'
  61.       Font.Color = clBlue
  62.       Font.Height = -13
  63.       Font.Name = 'Arial'
  64.       Font.Style = []
  65.       ParentFont = False
  66.       Transparent = True
  67.     end
  68.     object Label4: TLabel
  69.       Left = 16
  70.       Top = 208
  71.       Width = 41
  72.       Height = 16
  73.       Caption = 'Precio:'
  74.       Font.Color = clBlue
  75.       Font.Height = -13
  76.       Font.Name = 'Arial'
  77.       Font.Style = []
  78.       ParentFont = False
  79.       Transparent = True
  80.     end
  81.     object edNumeroCaja: TEdit
  82.       Left = 96
  83.       Top = 15
  84.       Width = 33
  85.       Height = 21
  86.       MaxLength = 2
  87.       TabOrder = 0
  88.       Text = '1'
  89.       Visible = False
  90.       OnKeyPress = edCodigoKeyPress
  91.     end
  92.     object lbAcumulado: TListBox
  93.       Left = 136
  94.       Top = 80
  95.       Width = 457
  96.       Height = 169
  97.       Font.Color = clBlack
  98.       Font.Height = -13
  99.       Font.Name = 'Courier New'
  100.       Font.Style = []
  101.       ItemHeight = 16
  102.       ParentFont = False
  103.       TabOrder = 1
  104.     end
  105.     object edCodigo: TEdit
  106.       Left = 16
  107.       Top = 177
  108.       Width = 89
  109.       Height = 21
  110.       Hint = 'Introduzca el N∩┐╜mero de C∩┐╜digo'
  111.       ParentShowHint = False
  112.       ShowHint = True
  113.       TabOrder = 2
  114.       OnKeyPress = edCodigoKeyPress
  115.     end
  116.     object btnAnotar: TButton
  117.       Left = 448
  118.       Top = 272
  119.       Width = 81
  120.       Height = 17
  121.       Hint = 'Registrar la Venta'
  122.       Caption = '&Registrar la Venta'
  123.       Font.Color = clNavy
  124.       Font.Height = -13
  125.       Font.Name = 'System'
  126.       Font.Style = [fsBold]
  127.       ParentFont = False
  128.       ParentShowHint = False
  129.       ShowHint = True
  130.       TabOrder = 3
  131.       OnClick = btnAnotarClick
  132.     end
  133.     object Button2: TButton
  134.       Left = 496
  135.       Top = 8
  136.       Width = 49
  137.       Height = 25
  138.       Hint = 'Cancelar la operaci∩┐╜n realizada'
  139.       Caption = '&Cancelar la Operaci∩┐╜n'
  140.       ParentShowHint = False
  141.       ShowHint = True
  142.       TabOrder = 4
  143.       Visible = False
  144.       OnClick = Button2Click
  145.     end
  146.     object Botonver: TButton
  147.       Left = 480
  148.       Top = 376
  149.       Width = 89
  150.       Height = 33
  151.       Hint = 'Ver Lista de C∩┐╜digos'
  152.       Caption = '&Ver C∩┐╜digos'
  153.       ParentShowHint = False
  154.       ShowHint = True
  155.       TabOrder = 5
  156.       OnClick = BotonverClick
  157.     end
  158.     object dbDescripcion: TDBEdit
  159.       Left = 15
  160.       Top = 272
  161.       Width = 290
  162.       Height = 21
  163.       DataField = 'Descripcion'
  164.       DataSource = dsProductos
  165.       MaxLength = 30
  166.       ReadOnly = True
  167.       TabOrder = 6
  168.       OnKeyPress = dbDescripcionKeyPress
  169.     end
  170.     object dbPrecio: TDBEdit
  171.       Left = 16
  172.       Top = 227
  173.       Width = 89
  174.       Height = 21
  175.       DataField = 'Precio'
  176.       DataSource = dsProductos
  177.       MaxLength = 0
  178.       ReadOnly = True
  179.       TabOrder = 7
  180.     end
  181.     object DBGrid2: TDBGrid
  182.       Left = 16
  183.       Top = 304
  184.       Width = 577
  185.       Height = 113
  186.       Color = clBtnFace
  187.       Columns = <
  188.         item
  189.           FieldName = 'Codigo'
  190.           Width = 69
  191.         end
  192.         item
  193.           FieldName = 'Descripcion'
  194.           Width = 302
  195.         end
  196.         item
  197.           FieldName = 'Precio'
  198.           Width = 68
  199.         end>
  200.       DataSource = dsProductos
  201.       DragMode = dmAutomatic
  202.       Font.Color = clWindowText
  203.       Font.Height = -10
  204.       Font.Name = 'MS Sans Serif'
  205.       Font.Style = []
  206.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  207.       ParentFont = False
  208.       TabOrder = 8
  209.       TitleFont.Color = clNavy
  210.       TitleFont.Height = -11
  211.       TitleFont.Name = 'MS Sans Serif'
  212.       TitleFont.Style = []
  213.       Visible = False
  214.     end
  215.     object BitBtn1: TBitBtn
  216.       Left = 16
  217.       Top = 16
  218.       Width = 49
  219.       Height = 49
  220.       Hint = 'Volver al Men∩┐╜'
  221.       ParentShowHint = False
  222.       ShowHint = True
  223.       TabOrder = 9
  224.       OnClick = BitBtn1Click
  225.       Glyph.Data = {
  226.         76020000424D7602000000000000760000002800000020000000200000000100
  227.         0400000000000000000000000000000000001000000010000000000000000000
  228.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  229.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  230.         7777777777777777777777777777777777777777777777777777777777777777
  231.         777777777777777777777777777777731444444E131313131377777777FFFF71
  232.         F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  233.         F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  234.         F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  235.         4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  236.         AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  237.         4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  238.         CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  239.         CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  240.         CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  241.         FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  242.         F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  243.         F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  244.         F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  245.         7777777777777777777777777777777777777777777777777777}
  246.     end
  247.     object CANCELAR: TButton
  248.       Left = 480
  249.       Top = 376
  250.       Width = 89
  251.       Height = 33
  252.       Hint = 'Ocultar la Lista de C∩┐╜digos'
  253.       Caption = '&Ocultar la Lista'
  254.       ParentShowHint = False
  255.       ShowHint = True
  256.       TabOrder = 10
  257.       Visible = False
  258.       OnClick = CANCELARClick
  259.     end
  260.     object Panel1: TPanel
  261.       Left = 136
  262.       Top = 16
  263.       Width = 457
  264.       Height = 49
  265.       BevelInner = bvLowered
  266.       BevelWidth = 2
  267.       BorderStyle = bsSingle
  268.       DragMode = dmAutomatic
  269.       TabOrder = 11
  270.       object lbImporte: TLabel
  271.         Left = 0
  272.         Top = 8
  273.         Width = 449
  274.         Height = 41
  275.         Alignment = taCenter
  276.         AutoSize = False
  277.         Caption = '0'
  278.         DragMode = dmAutomatic
  279.         Font.Color = clRed
  280.         Font.Height = -31
  281.         Font.Name = 'Arial'
  282.         Font.Style = [fsBold]
  283.         ParentFont = False
  284.         Transparent = True
  285.       end
  286.     end
  287.     object Ayuda: TButton
  288.       Left = 480
  289.       Top = 336
  290.       Width = 89
  291.       Height = 33
  292.       Caption = 'Ayuda'
  293.       TabOrder = 12
  294.       OnClick = AyudaClick
  295.     end
  296.     object Panel2: TPanel
  297.       Left = 408
  298.       Top = 256
  299.       Width = 193
  300.       Height = 41
  301.       BevelOuter = bvNone
  302.       DragMode = dmAutomatic
  303.       TabOrder = 13
  304.       object lbFechaHora: TLabel
  305.         Left = 88
  306.         Top = 18
  307.         Width = 99
  308.         Height = 15
  309.         Caption = '22/22/98 22:22:22'
  310.         Font.Color = clRed
  311.         Font.Height = -12
  312.         Font.Name = 'Arial'
  313.         Font.Style = []
  314.         ParentFont = False
  315.         Transparent = True
  316.       end
  317.     end
  318.     object Panel3: TPanel
  319.       Left = 8
  320.       Top = 8
  321.       Width = 593
  322.       Height = 417
  323.       BevelInner = bvLowered
  324.       BorderStyle = bsSingle
  325.       DragMode = dmAutomatic
  326.       TabOrder = 14
  327.       object Mem889: TMemo
  328.         Left = 8
  329.         Top = 8
  330.         Width = 569
  331.         Height = 393
  332.         Color = clWhite
  333.         DragMode = dmAutomatic
  334.         Font.Color = clBlack
  335.         Font.Height = -15
  336.         Font.Name = 'Arial'
  337.         Font.Style = []
  338.         Lines.Strings = (
  339.           
  340.             '                                                              - ' +
  341.             ' AYUDA -'
  342.           
  343.             '  En ∩┐╜sta pantalla es donde se recogen el c∩┐╜digo, precio y descr' +
  344.             'ipci∩┐╜n del producto '
  345.           '  qu∩┐╜ se hayan introducido en la pantalla:  Editar Productos.'
  346.           ''
  347.           '  INSTRUCCIONES:'
  348.           ''
  349.           '- Teclee el N∩┐╜mero de Codigo del Producto. '
  350.           ''
  351.           
  352.             '- Despu∩┐╜s, y para aceptar deber∩┐╜ de pulsar la tecla <Intro> que ' +
  353.             'ser∩┐╜ la encargada de '
  354.           '  permitirnos ver la descripci∩┐╜n y el precio. '
  355.           ''
  356.           
  357.             '- Si son correctos, una nueva pulsaci∩┐╜n de  <Intro> anotar∩┐╜ el m' +
  358.             'ovimiento, pasando a '
  359.           '  introducir un nuevo c∩┐╜digo. '
  360.           
  361.             '  - Tambi∩┐╜n quedar∩┐╜n los datos registrados, para poder hacer el ' +
  362.             'balance diario de los '
  363.           
  364.             '  productos vendidos, para ello deber∩┐╜ de pulsar el bot∩┐╜n:  Vent' +
  365.             'as Diarias, que se '
  366.           '  encuenta en la pantalla principal "Men∩┐╜ de Opciones".'
  367.           ' '
  368.           
  369.             '- En caso de que la tecla pulsada no sea <Intro> sino <Esc> ento' +
  370.             'nces, se estar∩┐╜ '
  371.           
  372.             '  indicando al programa que se ha terminado la compra del client' +
  373.             'e en curso, por lo '
  374.           
  375.             '  cual ponemos a cero el totalizador y eliminamos todos los elem' +
  376.             'entos de la lista.')
  377.         ParentFont = False
  378.         ReadOnly = True
  379.         TabOrder = 0
  380.         Visible = False
  381.       end
  382.       object Ocultar2: TButton
  383.         Left = 232
  384.         Top = 368
  385.         Width = 121
  386.         Height = 25
  387.         Caption = '&Ocultar la Ayuda'
  388.         Font.Color = clBlack
  389.         Font.Height = -12
  390.         Font.Name = 'Arial'
  391.         Font.Style = [fsBold]
  392.         ParentFont = False
  393.         TabOrder = 1
  394.         Visible = False
  395.         OnClick = Ocultar2Click
  396.       end
  397.     end
  398.   end
  399.   object Reloj: TTimer
  400.     OnTimer = RelojTimer
  401.     Left = 520
  402.     Top = 182
  403.   end
  404.   object tblProductos: TTable
  405.     Active = True
  406.     DatabaseName = 'C:\NATUP1'
  407.     TableName = 'Producto.db'
  408.     Left = 400
  409.     Top = 136
  410.     object tblProductosCodigo: TIntegerField
  411.       FieldName = 'Codigo'
  412.       Required = True
  413.     end
  414.     object tblProductosDescripcion: TStringField
  415.       FieldName = 'Descripcion'
  416.       Required = True
  417.       Size = 30
  418.     end
  419.     object tblProductosPrecio: TIntegerField
  420.       FieldName = 'Precio'
  421.       Required = True
  422.     end
  423.   end
  424.   object dsProductos: TDataSource
  425.     DataSet = tblProductos
  426.     Left = 320
  427.     Top = 104
  428.   end
  429.   object tblVentas: TTable
  430.     Active = True
  431.     DatabaseName = 'C:\NATUP1'
  432.     TableName = 'Ventas.db'
  433.     Left = 584
  434.     Top = 208
  435.     object tblVentasCaja: TSmallintField
  436.       FieldName = 'Caja'
  437.       Required = True
  438.     end
  439.     object tblVentasFechayHora: TDateTimeField
  440.       FieldName = 'Fecha y Hora'
  441.       Required = True
  442.     end
  443.     object tblVentasCodigo: TIntegerField
  444.       FieldName = 'Codigo'
  445.       Required = True
  446.     end
  447.     object tblVentasImporte: TIntegerField
  448.       FieldName = 'Importe'
  449.       Required = True
  450.     end
  451.     object tblVentasProducto: TStringField
  452.       FieldName = 'Producto'
  453.       Size = 45
  454.     end
  455.   end
  456. end
  457.