home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TEDITORTABLA / TEDITORTABLA.txt
Text File  |  1995-05-10  |  13KB  |  473 lines
  1. object EDITORTABLA: TEDITORTABLA
  2.   Left = -4
  3.   Top = 132
  4.   Width = 641
  5.   Height = 482
  6.   Caption = 'Edici∩┐╜n de la Tabla de Productos (Base de Datos)'
  7.   Font.Color = clWindowText
  8.   Font.Height = -10
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   WindowState = wsMaximized
  13.   OnActivate = FormActivate
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Panel5431: TPanel
  17.     Left = 8
  18.     Top = 8
  19.     Width = 617
  20.     Height = 441
  21.     BevelInner = bvLowered
  22.     BevelWidth = 2
  23.     BorderWidth = 1
  24.     BorderStyle = bsSingle
  25.     DragMode = dmAutomatic
  26.     TabOrder = 0
  27.     object Label50: TLabel
  28.       Left = 40
  29.       Top = 24
  30.       Width = 57
  31.       Height = 49
  32.       Hint = 'Se desplaza al primer registro'
  33.       Alignment = taCenter
  34.       Caption = 'Primero'
  35.       Font.Color = clRed
  36.       Font.Height = -12
  37.       Font.Name = 'Arial'
  38.       Font.Style = []
  39.       ParentFont = False
  40.       ParentShowHint = False
  41.       ShowHint = True
  42.       Transparent = True
  43.     end
  44.     object Label51: TLabel
  45.       Left = 96
  46.       Top = 24
  47.       Width = 57
  48.       Height = 49
  49.       Hint = 'Se desplaza al registro anterior'
  50.       Alignment = taCenter
  51.       Caption = 'Anterior'
  52.       Font.Color = clRed
  53.       Font.Height = -12
  54.       Font.Name = 'Arial'
  55.       Font.Style = []
  56.       ParentFont = False
  57.       ParentShowHint = False
  58.       ShowHint = True
  59.       Transparent = True
  60.     end
  61.     object Label52: TLabel
  62.       Left = 152
  63.       Top = 24
  64.       Width = 65
  65.       Height = 49
  66.       Hint = 'Se desplaza al siguiente registro'
  67.       Alignment = taCenter
  68.       Caption = 'Siguiente'
  69.       Font.Color = clRed
  70.       Font.Height = -12
  71.       Font.Name = 'Arial'
  72.       Font.Style = []
  73.       ParentFont = False
  74.       ParentShowHint = False
  75.       ShowHint = True
  76.       Transparent = True
  77.     end
  78.     object Label53: TLabel
  79.       Left = 216
  80.       Top = 24
  81.       Width = 57
  82.       Height = 49
  83.       Hint = 'Se desplaza al ∩┐╜ltimo registro'
  84.       Alignment = taCenter
  85.       Caption = '∩┐╜ltimo'
  86.       Color = clMaroon
  87.       Font.Color = clRed
  88.       Font.Height = -12
  89.       Font.Name = 'Arial'
  90.       Font.Style = []
  91.       ParentColor = False
  92.       ParentFont = False
  93.       ParentShowHint = False
  94.       ShowHint = True
  95.       Transparent = True
  96.     end
  97.     object Label54: TLabel
  98.       Left = 272
  99.       Top = 24
  100.       Width = 57
  101.       Height = 49
  102.       Hint = 'Inserta un nuevo registro vac∩┐╜o'
  103.       Alignment = taCenter
  104.       Caption = 'Nuevo'
  105.       Font.Color = clRed
  106.       Font.Height = -12
  107.       Font.Name = 'Arial'
  108.       Font.Style = []
  109.       ParentFont = False
  110.       ParentShowHint = False
  111.       ShowHint = True
  112.       Transparent = True
  113.     end
  114.     object Label55: TLabel
  115.       Left = 328
  116.       Top = 24
  117.       Width = 57
  118.       Height = 49
  119.       Hint = 'Borra el registro actual'
  120.       Alignment = taCenter
  121.       Caption = 'Borrar'
  122.       Font.Color = clRed
  123.       Font.Height = -12
  124.       Font.Name = 'Arial'
  125.       Font.Style = []
  126.       ParentFont = False
  127.       ParentShowHint = False
  128.       ShowHint = True
  129.       Transparent = True
  130.     end
  131.     object Label56: TLabel
  132.       Left = 384
  133.       Top = 24
  134.       Width = 65
  135.       Height = 49
  136.       Hint = 'Grabar el registro'
  137.       Alignment = taCenter
  138.       Caption = 'Grabar'
  139.       Font.Color = clRed
  140.       Font.Height = -12
  141.       Font.Name = 'Arial'
  142.       Font.Style = []
  143.       ParentFont = False
  144.       ParentShowHint = False
  145.       ShowHint = True
  146.       Transparent = True
  147.     end
  148.     object Label57: TLabel
  149.       Left = 504
  150.       Top = 24
  151.       Width = 57
  152.       Height = 49
  153.       Hint = 'Actualiza los datos'
  154.       Alignment = taCenter
  155.       Caption = 'Actualizar'
  156.       Font.Color = clRed
  157.       Font.Height = -12
  158.       Font.Name = 'Arial'
  159.       Font.Style = []
  160.       ParentFont = False
  161.       ParentShowHint = False
  162.       ShowHint = True
  163.       Transparent = True
  164.     end
  165.     object Label3: TLabel
  166.       Left = 448
  167.       Top = 24
  168.       Width = 57
  169.       Height = 49
  170.       Hint = 'Cancelar'
  171.       Caption = 'Cancelar'
  172.       Font.Color = clRed
  173.       Font.Height = -12
  174.       Font.Name = 'Arial'
  175.       Font.Style = []
  176.       ParentFont = False
  177.       ParentShowHint = False
  178.       ShowHint = True
  179.     end
  180.     object Speed1: TSpeedButton
  181.       Left = 552
  182.       Top = 176
  183.       Width = 41
  184.       Height = 41
  185.       Glyph.Data = {
  186.         76020000424D7602000000000000760000002800000020000000200000000100
  187.         0400000000000000000000000000000000001000000010000000000000000000
  188.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  189.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFF0
  190.         0000000FFFFFFFFFFFFFFFFFFFFFFFF0BFBFBF00FFFFFFFFFFFFFFFFFFFFFFF0
  191.         FBFBFB0B0FFFFFFFFFFFFFFFFFFFFFF0BFBFBF0BB0FFFFFFFFFFFFFFFFFFFFF0
  192.         FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF00000000BB077FFFFFFFFFFFFFFFFFFFF
  193.         0BBBBBB0B077FFFFFFFFFFFFFFFFFFF00000000B0077FFFFFFFFFFFFFFFFFFF0
  194.         FBFBFB00B077FFFFFFFFFFFFFFFFFFF0BFBFBF0B0FF7FFFFFFFFFFFFFFFFFFF0
  195.         FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF0BFBFBFB0B077FFFFFFFFFFFFFFFFFFF0
  196.         FBFBFBF0B077FFFFFFFFFFFFFFFFFFFF0FBFBFBF0077FFFFFFFFFFFFFFFFFFFF
  197.         0BFBFBFBF0777FFFFFFFFFFFFFFFFFFFF0BFBFBFBF0777FFFFFFFFFF0000000F
  198.         FF0BFBFBFB00777FFFFFFFFF0FBFBF0FFFF0BFBFBFB00777FFFFFFFF0BFBFB0F
  199.         FFFF0BFBFBF0B077FFFFFFFF0FBFBF0FFFFF0FBFBFB0B077FFFFFFFF0BFBFB0F
  200.         FFFF0BFBFBF0BB077FFFFFFF0FBFBFB0FFF0BFBFBFB0BB077FFFFFFF0BFBFBFB
  201.         000BFBFBFBF0BB077FFFFFFFF0BFBFBFBFBFBFBFBF0BBB077FFFFFFFF0FBFBFB
  202.         FBFBFBFBFB0BBB077FFFFFFFFF0FBFBFBFBFBFBFB0BBBB077FFFFFFFFFF0FBFB
  203.         FBFBFBFB0BBBB077FFFFFFFFFFFF00BFBFBFBF00BBBBB077FFFFFFFFFFFFF000
  204.         000000BBBBBB077FFFFFFFFFFFFFFF0BBBBBBBBBBBB077FFFFFFFFFFFFFFFFF0
  205.         0BBBBBBBB0077FFFFFFFFFFFFFFFFFFFF0000000077FFFFFFFFF}
  206.       OnClick = Speed1Click
  207.     end
  208.     object DBNavigator2: TDBNavigator
  209.       Left = 40
  210.       Top = 40
  211.       Width = 522
  212.       Height = 25
  213.       DataSource = DataSource1
  214.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel, nbRefresh]
  215.       TabOrder = 0
  216.       OnClick = DBNavigator2Click
  217.     end
  218.     object Panel1: TPanel
  219.       Left = 80
  220.       Top = 88
  221.       Width = 449
  222.       Height = 201
  223.       BevelInner = bvLowered
  224.       BevelWidth = 2
  225.       BorderStyle = bsSingle
  226.       DragMode = dmAutomatic
  227.       TabOrder = 1
  228.       object Label2: TLabel
  229.         Left = 24
  230.         Top = 16
  231.         Width = 49
  232.         Height = 13
  233.         Caption = 'C∩┐╜digo:'
  234.         Font.Color = clBlue
  235.         Font.Height = -11
  236.         Font.Name = 'MS Sans Serif'
  237.         Font.Style = []
  238.         ParentFont = False
  239.       end
  240.       object Label4: TLabel
  241.         Left = 24
  242.         Top = 144
  243.         Width = 33
  244.         Height = 13
  245.         Caption = 'Precio:'
  246.         Font.Color = clBlue
  247.         Font.Height = -11
  248.         Font.Name = 'MS Sans Serif'
  249.         Font.Style = []
  250.         ParentFont = False
  251.       end
  252.       object Label1: TLabel
  253.         Left = 24
  254.         Top = 76
  255.         Width = 59
  256.         Height = 13
  257.         Caption = 'Descripci∩┐╜n:'
  258.         Font.Color = clBlue
  259.         Font.Height = -11
  260.         Font.Name = 'MS Sans Serif'
  261.         Font.Style = []
  262.         ParentFont = False
  263.       end
  264.       object DBEdit1: TDBEdit
  265.         Left = 24
  266.         Top = 32
  267.         Width = 97
  268.         Height = 24
  269.         Hint = 'Introduzca el N∩┐╜mero de C∩┐╜digo'
  270.         DataField = 'Codigo'
  271.         DataSource = DataSource1
  272.         Font.Color = clBlack
  273.         Font.Height = -13
  274.         Font.Name = 'System'
  275.         Font.Style = [fsBold]
  276.         MaxLength = 0
  277.         ParentFont = False
  278.         ParentShowHint = False
  279.         ReadOnly = True
  280.         ShowHint = True
  281.         TabOrder = 0
  282.         OnEnter = DBEdit1Enter
  283.         OnExit = DBEdit1Exit
  284.         OnKeyPress = DBEdit1KeyPress
  285.       end
  286.       object DBEdit3: TDBEdit
  287.         Left = 24
  288.         Top = 160
  289.         Width = 97
  290.         Height = 24
  291.         Hint = 'Introduzca el Precio del Producto'
  292.         DataField = 'Precio'
  293.         DataSource = DataSource1
  294.         Font.Color = clBlack
  295.         Font.Height = -13
  296.         Font.Name = 'System'
  297.         Font.Style = [fsBold]
  298.         MaxLength = 0
  299.         ParentFont = False
  300.         ParentShowHint = False
  301.         ShowHint = True
  302.         TabOrder = 1
  303.         OnEnter = DBEdit1Enter
  304.         OnExit = DBEdit1Exit
  305.         OnKeyPress = DBEdit3KeyPress
  306.       end
  307.       object DBEdit2: TDBEdit
  308.         Left = 24
  309.         Top = 97
  310.         Width = 401
  311.         Height = 24
  312.         Hint = 'Introduzca la Descripci∩┐╜n del Producto'
  313.         DataField = 'Descripcion'
  314.         DataSource = DataSource1
  315.         Font.Color = clBlack
  316.         Font.Height = -13
  317.         Font.Name = 'System'
  318.         Font.Style = [fsBold]
  319.         MaxLength = 30
  320.         ParentFont = False
  321.         ParentShowHint = False
  322.         ShowHint = True
  323.         TabOrder = 2
  324.         OnEnter = DBEdit1Enter
  325.         OnExit = DBEdit1Exit
  326.         OnKeyPress = DBEdit2KeyPress
  327.       end
  328.     end
  329.     object BitBtnFRAN: TBitBtn
  330.       Left = 16
  331.       Top = 168
  332.       Width = 41
  333.       Height = 41
  334.       Hint = 'Volver al Men∩┐╜'
  335.       ParentShowHint = False
  336.       ShowHint = True
  337.       TabOrder = 2
  338.       OnClick = BitBtnFRANClick
  339.       Glyph.Data = {
  340.         76020000424D7602000000000000760000002800000020000000200000000100
  341.         0400000000000000000000000000000000001000000010000000000000000000
  342.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  343.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  344.         7777777777777777777777777777777777777777777777777777777777777777
  345.         777777777777777777777777777777731444444E131313131377777777FFFF71
  346.         F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  347.         F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  348.         F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  349.         4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  350.         AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  351.         4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  352.         CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  353.         CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  354.         CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  355.         FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  356.         F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  357.         F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  358.         F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  359.         7777777777777777777777777777777777777777777777777777}
  360.     end
  361.     object DBGrid2: TDBGrid
  362.       Left = 16
  363.       Top = 304
  364.       Width = 577
  365.       Height = 117
  366.       Color = clBtnFace
  367.       Columns = <
  368.         item
  369.           FieldName = 'Codigo'
  370.           Width = 70
  371.         end
  372.         item
  373.           FieldName = 'Descripcion'
  374.           Width = 292
  375.         end
  376.         item
  377.           FieldName = 'Precio'
  378.           Width = 71
  379.         end>
  380.       DataSource = DataSource1
  381.       DragMode = dmAutomatic
  382.       Font.Color = clWindowText
  383.       Font.Height = -10
  384.       Font.Name = 'MS Sans Serif'
  385.       Font.Style = []
  386.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  387.       ParentFont = False
  388.       ReadOnly = True
  389.       TabOrder = 3
  390.       TitleFont.Color = clNavy
  391.       TitleFont.Height = -11
  392.       TitleFont.Name = 'MS Sans Serif'
  393.       TitleFont.Style = []
  394.       Visible = False
  395.     end
  396.     object CANCELAR: TButton
  397.       Left = 472
  398.       Top = 376
  399.       Width = 97
  400.       Height = 33
  401.       Hint = 'Ocultar la Lista de C∩┐╜digos'
  402.       Caption = '&Ocultar la Lista'
  403.       ParentShowHint = False
  404.       ShowHint = True
  405.       TabOrder = 4
  406.       Visible = False
  407.       OnClick = CANCELARClick
  408.     end
  409.     object Botonver: TButton
  410.       Left = 472
  411.       Top = 376
  412.       Width = 97
  413.       Height = 33
  414.       Hint = 'Ver Lista de C∩┐╜digos'
  415.       Caption = '&Ver Lista C∩┐╜digos'
  416.       ParentShowHint = False
  417.       ShowHint = True
  418.       TabOrder = 5
  419.       OnClick = BotonverClick
  420.     end
  421.     object Memo10: TMemo
  422.       Left = 16
  423.       Top = 304
  424.       Width = 577
  425.       Height = 121
  426.       DragMode = dmAutomatic
  427.       Font.Color = clBlack
  428.       Font.Height = -15
  429.       Font.Name = 'Arial'
  430.       Font.Style = []
  431.       Lines.Strings = (
  432.         
  433.           'Escriba el N∩┐╜mero de C∩┐╜digo,  el Precio  y  la  Descripci∩┐╜n del ' +
  434.           'producto.'
  435.         
  436.           'Estos datos le servir∩┐╜n para poder utilizar las Opciones: Sumar ' +
  437.           'datos y Ventas Diarias,'
  438.         
  439.           'ambas opciones se encuentran situadas en la Pantalla Principal: ' +
  440.           '"Men∩┐╜ de Opciones".'
  441.         'C∩┐╜digo = 10 d∩┐╜gitos.'
  442.         'Descripci∩┐╜n = 30 caracteres.'
  443.         'Precio = 10 d∩┐╜gitos.')
  444.       ParentFont = False
  445.       ReadOnly = True
  446.       TabOrder = 6
  447.       Visible = False
  448.     end
  449.     object OCULTAR: TButton
  450.       Left = 472
  451.       Top = 376
  452.       Width = 97
  453.       Height = 33
  454.       Caption = '&Ocultar la Ayuda'
  455.       TabOrder = 7
  456.       OnClick = OCULTARClick
  457.     end
  458.   end
  459.   object Table1: TTable
  460.     Active = True
  461.     Filtered = True
  462.     DatabaseName = 'C:\NATUP1'
  463.     TableName = 'Producto.db'
  464.     Left = 584
  465.     Top = 264
  466.   end
  467.   object DataSource1: TDataSource
  468.     DataSet = Table1
  469.     Left = 584
  470.     Top = 104
  471.   end
  472. end
  473.