home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORM12 / TFORM12.txt
Text File  |  1995-05-10  |  16KB  |  688 lines
  1. object Form12: TForm12
  2.   Left = -8
  3.   Top = 72
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   AutoScroll = False
  7.   Caption = 'Productos Cosm∩┐╜ticos (Base de Datos)'
  8.   ClientHeight = 461
  9.   ClientWidth = 640
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   WindowState = wsMaximized
  16.   OnActivate = FormActivate
  17.   PixelsPerInch = 96
  18.   TextHeight = 16
  19.   object Memo1: TMemo
  20.     Left = 0
  21.     Top = 8
  22.     Width = 17
  23.     Height = 25
  24.     Font.Color = clBlack
  25.     Font.Height = -1
  26.     Font.Name = 'Arial'
  27.     Font.Style = []
  28.     Lines.Strings = (
  29.       '.'
  30.       ''
  31.       ''
  32.       ''
  33.       ''
  34.       ''
  35.       ''
  36.       ''
  37.       ''
  38.       ''
  39.       ''
  40.       ''
  41.       ''
  42.       ''
  43.       '.')
  44.     ParentFont = False
  45.     TabOrder = 0
  46.     Visible = False
  47.   end
  48.   object Memo123: TMemo
  49.     Left = 0
  50.     Top = 48
  51.     Width = 17
  52.     Height = 25
  53.     Font.Color = clBlack
  54.     Font.Height = -1
  55.     Font.Name = 'Arial'
  56.     Font.Style = []
  57.     Lines.Strings = (
  58.       '.'
  59.       ''
  60.       ''
  61.       ''
  62.       ''
  63.       ''
  64.       ''
  65.       ''
  66.       ''
  67.       ''
  68.       ''
  69.       ''
  70.       ''
  71.       ''
  72.       ''
  73.       ''
  74.       ''
  75.       ''
  76.       ''
  77.       ''
  78.       ''
  79.       ''
  80.       ''
  81.       ''
  82.       ''
  83.       ''
  84.       ''
  85.       ''
  86.       ''
  87.       ''
  88.       ''
  89.       ''
  90.       ''
  91.       ''
  92.       ''
  93.       ''
  94.       ''
  95.       ''
  96.       ''
  97.       ''
  98.       ''
  99.       ''
  100.       ''
  101.       ''
  102.       ''
  103.       ''
  104.       ''
  105.       ''
  106.       ''
  107.       ''
  108.       ''
  109.       ''
  110.       ''
  111.       ''
  112.       ''
  113.       ''
  114.       ''
  115.       ''
  116.       ''
  117.       ''
  118.       ''
  119.       ''
  120.       ''
  121.       ''
  122.       ''
  123.       ''
  124.       ''
  125.       ''
  126.       ''
  127.       ''
  128.       ''
  129.       ''
  130.       ''
  131.       ''
  132.       ''
  133.       ''
  134.       ''
  135.       ''
  136.       ''
  137.       ''
  138.       ''
  139.       ''
  140.       ''
  141.       ''
  142.       ''
  143.       ''
  144.       ''
  145.       ''
  146.       ''
  147.       ''
  148.       ''
  149.       ''
  150.       ''
  151.       ''
  152.       ''
  153.       ''
  154.       ''
  155.       ''
  156.       ''
  157.       ''
  158.       ''
  159.       ''
  160.       ''
  161.       ''
  162.       ''
  163.       ''
  164.       ''
  165.       ''
  166.       ''
  167.       ''
  168.       ''
  169.       ''
  170.       ''
  171.       ''
  172.       ''
  173.       ''
  174.       ''
  175.       ''
  176.       ''
  177.       ''
  178.       ''
  179.       ''
  180.       ''
  181.       ''
  182.       ''
  183.       ''
  184.       ''
  185.       ''
  186.       ''
  187.       ''
  188.       ''
  189.       ''
  190.       ''
  191.       ''
  192.       ''
  193.       ''
  194.       ''
  195.       ''
  196.       ''
  197.       ''
  198.       ''
  199.       ''
  200.       ''
  201.       ''
  202.       ''
  203.       ''
  204.       ''
  205.       ''
  206.       ''
  207.       '.')
  208.     ParentFont = False
  209.     TabOrder = 1
  210.     Visible = False
  211.   end
  212.   object BitBtn5: TBitBtn
  213.     Left = 600
  214.     Top = 80
  215.     Width = 33
  216.     Height = 25
  217.     Caption = '-'
  218.     Font.Color = clRed
  219.     Font.Height = -35
  220.     Font.Name = 'Arial'
  221.     Font.Style = [fsBold]
  222.     ParentFont = False
  223.     TabOrder = 2
  224.     Visible = False
  225.     OnClick = BitBtn5Click
  226.   end
  227.   object Panel1: TPanel
  228.     Left = 48
  229.     Top = 448
  230.     Width = 545
  231.     Height = 17
  232.     BevelInner = bvLowered
  233.     BorderWidth = 1
  234.     Font.Color = clBlue
  235.     Font.Height = -12
  236.     Font.Name = 'Arial'
  237.     Font.Style = []
  238.     ParentFont = False
  239.     TabOrder = 3
  240.     Visible = False
  241.   end
  242.   object Panel23987: TPanel
  243.     Left = 8
  244.     Top = 8
  245.     Width = 617
  246.     Height = 441
  247.     BevelInner = bvLowered
  248.     BevelWidth = 2
  249.     BorderWidth = 1
  250.     BorderStyle = bsSingle
  251.     TabOrder = 4
  252.     object Label50: TLabel
  253.       Left = 80
  254.       Top = 16
  255.       Width = 57
  256.       Height = 49
  257.       Hint = 'Se desplaza al primer registro'
  258.       Alignment = taCenter
  259.       Caption = 'Primero'
  260.       Font.Color = clRed
  261.       Font.Height = -12
  262.       Font.Name = 'Arial'
  263.       Font.Style = []
  264.       ParentFont = False
  265.       ParentShowHint = False
  266.       ShowHint = True
  267.       Transparent = True
  268.       OnMouseMove = Label50MouseMove
  269.     end
  270.     object Label51: TLabel
  271.       Left = 136
  272.       Top = 16
  273.       Width = 57
  274.       Height = 49
  275.       Hint = 'Se desplaza al registro anterior'
  276.       Alignment = taCenter
  277.       Caption = 'Anterior'
  278.       Font.Color = clRed
  279.       Font.Height = -12
  280.       Font.Name = 'Arial'
  281.       Font.Style = []
  282.       ParentFont = False
  283.       ParentShowHint = False
  284.       ShowHint = True
  285.       Transparent = True
  286.       OnMouseMove = Label51MouseMove
  287.     end
  288.     object Label52: TLabel
  289.       Left = 192
  290.       Top = 16
  291.       Width = 57
  292.       Height = 49
  293.       Hint = 'Se desplaza al siguiente registro'
  294.       Alignment = taCenter
  295.       Caption = 'Siguiente'
  296.       Font.Color = clRed
  297.       Font.Height = -12
  298.       Font.Name = 'Arial'
  299.       Font.Style = []
  300.       ParentFont = False
  301.       ParentShowHint = False
  302.       ShowHint = True
  303.       Transparent = True
  304.       OnMouseMove = Label52MouseMove
  305.     end
  306.     object Label53: TLabel
  307.       Left = 248
  308.       Top = 16
  309.       Width = 57
  310.       Height = 49
  311.       Hint = 'Se desplaza al ∩┐╜ltimo registro'
  312.       Alignment = taCenter
  313.       Caption = '∩┐╜ltimo'
  314.       Font.Color = clRed
  315.       Font.Height = -12
  316.       Font.Name = 'Arial'
  317.       Font.Style = []
  318.       ParentFont = False
  319.       ParentShowHint = False
  320.       ShowHint = True
  321.       Transparent = True
  322.       OnMouseMove = Label53MouseMove
  323.     end
  324.     object Label54: TLabel
  325.       Left = 304
  326.       Top = 16
  327.       Width = 57
  328.       Height = 49
  329.       Hint = 'Inserta un nuevo registro vac∩┐╜o'
  330.       Alignment = taCenter
  331.       Caption = 'Nuevo'
  332.       Font.Color = clRed
  333.       Font.Height = -12
  334.       Font.Name = 'Arial'
  335.       Font.Style = []
  336.       ParentFont = False
  337.       ParentShowHint = False
  338.       ShowHint = True
  339.       Transparent = True
  340.       OnMouseMove = Label54MouseMove
  341.     end
  342.     object Label55: TLabel
  343.       Left = 360
  344.       Top = 16
  345.       Width = 57
  346.       Height = 49
  347.       Hint = 'Borra el registro actual'
  348.       Alignment = taCenter
  349.       Caption = 'Borrar'
  350.       Font.Color = clRed
  351.       Font.Height = -12
  352.       Font.Name = 'Arial'
  353.       Font.Style = []
  354.       ParentFont = False
  355.       ParentShowHint = False
  356.       ShowHint = True
  357.       Transparent = True
  358.       OnMouseMove = Label55MouseMove
  359.     end
  360.     object Label56: TLabel
  361.       Left = 416
  362.       Top = 16
  363.       Width = 57
  364.       Height = 49
  365.       Hint = 'Grabar el registro'
  366.       Alignment = taCenter
  367.       Caption = 'Grabar'
  368.       Font.Color = clRed
  369.       Font.Height = -12
  370.       Font.Name = 'Arial'
  371.       Font.Style = []
  372.       ParentFont = False
  373.       ParentShowHint = False
  374.       ShowHint = True
  375.       Transparent = True
  376.       OnMouseMove = Label56MouseMove
  377.     end
  378.     object Label57: TLabel
  379.       Left = 472
  380.       Top = 16
  381.       Width = 57
  382.       Height = 49
  383.       Hint = 'Actualiza los datos'
  384.       Alignment = taCenter
  385.       Caption = 'Actualizar'
  386.       Font.Color = clRed
  387.       Font.Height = -12
  388.       Font.Name = 'Arial'
  389.       Font.Style = []
  390.       ParentFont = False
  391.       ParentShowHint = False
  392.       ShowHint = True
  393.       Transparent = True
  394.       OnMouseMove = Label57MouseMove
  395.     end
  396.     object Label1: TLabel
  397.       Left = 16
  398.       Top = 96
  399.       Width = 183
  400.       Height = 15
  401.       Caption = 'Nombre del Producto Cosm∩┐╜tico:'
  402.       Font.Color = clBlue
  403.       Font.Height = -12
  404.       Font.Name = 'Arial'
  405.       Font.Style = []
  406.       ParentFont = False
  407.       Transparent = True
  408.     end
  409.     object SpButton200: TSpeedButton
  410.       Left = 488
  411.       Top = 112
  412.       Width = 25
  413.       Height = 25
  414.       Hint = 'Ayuda'
  415.       Caption = '?'
  416.       Font.Color = clBlue
  417.       Font.Height = -13
  418.       Font.Name = 'System'
  419.       Font.Style = [fsBold]
  420.       ParentFont = False
  421.       ParentShowHint = False
  422.       ShowHint = True
  423.       OnClick = SpButton200Click
  424.     end
  425.     object Label2: TLabel
  426.       Left = 16
  427.       Top = 160
  428.       Width = 73
  429.       Height = 15
  430.       Caption = 'Indicaciones:'
  431.       Font.Color = clBlue
  432.       Font.Height = -12
  433.       Font.Name = 'Arial'
  434.       Font.Style = []
  435.       ParentFont = False
  436.       Transparent = True
  437.     end
  438.     object Label3: TLabel
  439.       Left = 16
  440.       Top = 304
  441.       Width = 175
  442.       Height = 15
  443.       Caption = 'Dosificaci∩┐╜n y Modo de Empleo:'
  444.       Font.Color = clBlue
  445.       Font.Height = -12
  446.       Font.Name = 'Arial'
  447.       Font.Style = []
  448.       ParentFont = False
  449.       Transparent = True
  450.     end
  451.     object SpeedButton1: TSpeedButton
  452.       Left = 520
  453.       Top = 112
  454.       Width = 25
  455.       Height = 25
  456.       Hint = 'Visualizar Lista'
  457.       Glyph.Data = {
  458.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  459.         0400000000007000000000000000000000001000000000000000000000000000
  460.         80000080000000808000800000008000800080800000C0C0C000808080000000
  461.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  462.         330033333333333333003300000000033300330FFFFFFF033300330F00000F03
  463.         3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
  464.         3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
  465.         33003333333333333300}
  466.       ParentShowHint = False
  467.       ShowHint = True
  468.       OnClick = SpeedButton1Click
  469.     end
  470.     object BitBtn1: TBitBtn
  471.       Left = 16
  472.       Top = 16
  473.       Width = 41
  474.       Height = 41
  475.       Hint = 'Volver al Men∩┐╜'
  476.       ParentShowHint = False
  477.       ShowHint = True
  478.       TabOrder = 0
  479.       OnClick = BitBtn1Click
  480.       OnMouseMove = BitBtn1MouseMove
  481.       Glyph.Data = {
  482.         76020000424D7602000000000000760000002800000020000000200000000100
  483.         0400000000000000000000000000000000001000000010000000000000000000
  484.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  485.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  486.         7777777777777777777777777777777777777777777777777777777777777777
  487.         777777777777777777777777777777731444444E131313131377777777FFFF71
  488.         F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  489.         F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  490.         F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  491.         4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  492.         AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  493.         4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  494.         CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  495.         CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  496.         CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  497.         FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  498.         F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  499.         F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  500.         F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  501.         7777777777777777777777777777777777777777777777777777}
  502.     end
  503.     object DBNavigator1: TDBNavigator
  504.       Left = 80
  505.       Top = 32
  506.       Width = 448
  507.       Height = 25
  508.       DataSource = DataSource1
  509.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbRefresh]
  510.       TabOrder = 1
  511.       OnClick = DBNavigator1Click
  512.     end
  513.     object BitBtn2: TBitBtn
  514.       Left = 552
  515.       Top = 16
  516.       Width = 41
  517.       Height = 41
  518.       Hint = 'Imprimir'
  519.       ParentShowHint = False
  520.       ShowHint = True
  521.       TabOrder = 2
  522.       OnClick = BitBtn2Click
  523.       OnMouseMove = BitBtn2MouseMove
  524.       Glyph.Data = {
  525.         76020000424D7602000000000000760000002800000020000000200000000100
  526.         0400000000000000000000000000000000001000000010000000000000000000
  527.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  528.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
  529.         000000000000000000070F8888888888888888888888888888800FF800000000
  530.         000000000000008888800FF708888888888888888888880778800FF70F777777
  531.         777777777777778078800FF70F777777777777777777778808800FF70F777777
  532.         777777777777778808800FF708888888888888888888888808800FF000000000
  533.         000000000000000808800F0888888888888888888888888008800F0777777777
  534.         777777777777777808800F0777777777777777777777777880800F0777777777
  535.         777777777777777888000F0777777777777777777777777888000F0777777777
  536.         777777777777777888000F0777777777777777777999977888000F0777777777
  537.         777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777
  538.         777777777777777F88000FF0777700000000000000008777F8000FF700000FFF
  539.         FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF
  540.         FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF
  541.         FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770
  542.         FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777
  543.         0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF
  544.         0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007}
  545.     end
  546.     object MEMO2: TDBMemo
  547.       Left = 16
  548.       Top = 112
  549.       Width = 433
  550.       Height = 25
  551.       DataField = 'Producto Cosmetico'
  552.       DataSource = DataSource1
  553.       MaxLength = 55
  554.       ReadOnly = True
  555.       TabOrder = 3
  556.       OnEnter = MEMO2Enter
  557.       OnExit = MEMO2Exit
  558.       OnKeyPress = MEMO2KeyPress
  559.       OnMouseMove = MEMO2MouseMove
  560.     end
  561.     object BitBtn2000: TBitBtn
  562.       Left = 456
  563.       Top = 112
  564.       Width = 25
  565.       Height = 25
  566.       Hint = 'Buscar registros'
  567.       ParentShowHint = False
  568.       ShowHint = True
  569.       TabOrder = 4
  570.       OnClick = BitBtn2000Click
  571.       Glyph.Data = {
  572.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  573.         0400000000007000000000000000000000001000000000000000000000000000
  574.         80000080000000808000800000008000800080800000C0C0C000808080000000
  575.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  576.         33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
  577.         33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
  578.         33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
  579.         33003333333333333300}
  580.     end
  581.     object Memo3: TDBMemo
  582.       Left = 16
  583.       Top = 176
  584.       Width = 577
  585.       Height = 113
  586.       DataField = 'Indicaciones'
  587.       DataSource = DataSource1
  588.       ScrollBars = ssVertical
  589.       TabOrder = 5
  590.       OnEnter = MEMO2Enter
  591.       OnExit = MEMO2Exit
  592.       OnMouseMove = Memo3MouseMove
  593.     end
  594.     object Memo4: TDBMemo
  595.       Left = 16
  596.       Top = 320
  597.       Width = 577
  598.       Height = 97
  599.       DataField = 'Modo Empleo'
  600.       DataSource = DataSource1
  601.       ScrollBars = ssVertical
  602.       TabOrder = 6
  603.       OnEnter = MEMO2Enter
  604.       OnExit = MEMO2Exit
  605.       OnMouseMove = Memo4MouseMove
  606.     end
  607.     object DBLookupListBox1: TDBLookupListBox
  608.       Left = 16
  609.       Top = 160
  610.       Width = 577
  611.       Height = 260
  612.       Color = clWhite
  613.       KeyField = 'Producto Cosmetico'
  614.       ListField = 'Producto Cosmetico'
  615.       ListSource = DataSource1
  616.       TabOrder = 7
  617.       Visible = False
  618.       OnClick = DBLookupListBox1Click
  619.     end
  620.     object BOTONCANCELAR: TButton
  621.       Left = 496
  622.       Top = 384
  623.       Width = 67
  624.       Height = 25
  625.       Hint = 'Cancelar Lista'
  626.       Caption = '&Ocultar'
  627.       ParentShowHint = False
  628.       ShowHint = True
  629.       TabOrder = 8
  630.       Visible = False
  631.       OnClick = BOTONCANCELARClick
  632.     end
  633.   end
  634.   object PrintDialog1: TPrintDialog
  635.     Copies = 1
  636.     Options = [poSelection]
  637.     Left = 608
  638.     Top = 16
  639.   end
  640.   object FontDialog1: TFontDialog
  641.     Font.Color = clWindowText
  642.     Font.Height = -13
  643.     Font.Name = 'System'
  644.     Font.Style = []
  645.     MinFontSize = 0
  646.     MaxFontSize = 0
  647.     Left = 608
  648.     Top = 304
  649.   end
  650.   object PrinterSetupDialog1: TPrinterSetupDialog
  651.     Left = 608
  652.     Top = 336
  653.   end
  654.   object ReplaceDialog1: TReplaceDialog
  655.     Left = 608
  656.     Top = 280
  657.   end
  658.   object DataSource1: TDataSource
  659.     DataSet = Table1
  660.     Left = 608
  661.     Top = 120
  662.   end
  663.   object Table1: TTable
  664.     Active = True
  665.     Filtered = True
  666.     DatabaseName = 'C:\NATUP1'
  667.     IndexFieldNames = 'Producto Cosmetico'
  668.     TableName = 'Cosmetic.DB'
  669.     Left = 608
  670.     Top = 160
  671.     object Table1ProductoCosmetico: TStringField
  672.       FieldName = 'Producto Cosmetico'
  673.       Required = True
  674.       Size = 75
  675.     end
  676.     object Table1Indicaciones: TMemoField
  677.       FieldName = 'Indicaciones'
  678.       BlobType = ftMemo
  679.       Size = 240
  680.     end
  681.     object Table1ModoEmpleo2: TMemoField
  682.       FieldName = 'Modo Empleo'
  683.       BlobType = ftMemo
  684.       Size = 240
  685.     end
  686.   end
  687. end
  688.