home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORM17 / TFORM17.txt
Text File  |  1995-05-10  |  16KB  |  670 lines
  1. object Form17: TForm17
  2.   Left = 5
  3.   Top = 145
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   AutoScroll = False
  7.   Caption = 'Remedios de la Abuela (Base de Datos)'
  8.   ClientHeight = 455
  9.   ClientWidth = 633
  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 = 56
  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 Borrar: TBitBtn
  213.     Left = 600
  214.     Top = 0
  215.     Width = 41
  216.     Height = 25
  217.     Hint = 'Borrar el registro actual'
  218.     Caption = 'Borrar'
  219.     Font.Color = clBlack
  220.     Font.Height = -13
  221.     Font.Name = 'System'
  222.     Font.Style = [fsBold]
  223.     ParentFont = False
  224.     ParentShowHint = False
  225.     ShowHint = True
  226.     TabOrder = 2
  227.     Visible = False
  228.     OnClick = BorrarClick
  229.     OnMouseMove = BorrarMouseMove
  230.   end
  231.   object Panel1: TPanel
  232.     Left = 48
  233.     Top = 440
  234.     Width = 545
  235.     Height = 17
  236.     BevelInner = bvLowered
  237.     BorderWidth = 1
  238.     Font.Color = clBlue
  239.     Font.Height = -12
  240.     Font.Name = 'Arial'
  241.     Font.Style = []
  242.     ParentFont = False
  243.     TabOrder = 3
  244.     Visible = False
  245.   end
  246.   object Panel2222: TPanel
  247.     Left = 8
  248.     Top = 8
  249.     Width = 617
  250.     Height = 441
  251.     BevelInner = bvLowered
  252.     BevelWidth = 2
  253.     BorderWidth = 1
  254.     BorderStyle = bsSingle
  255.     TabOrder = 4
  256.     object Label50: TLabel
  257.       Left = 80
  258.       Top = 16
  259.       Width = 57
  260.       Height = 49
  261.       Hint = 'Se desplaza al primer registro'
  262.       Alignment = taCenter
  263.       Caption = 'Primero'
  264.       Font.Color = clRed
  265.       Font.Height = -12
  266.       Font.Name = 'Arial'
  267.       Font.Style = []
  268.       ParentFont = False
  269.       ParentShowHint = False
  270.       ShowHint = True
  271.       Transparent = True
  272.       OnMouseMove = Label50MouseMove
  273.     end
  274.     object Label51: TLabel
  275.       Left = 136
  276.       Top = 16
  277.       Width = 57
  278.       Height = 49
  279.       Hint = 'Se desplaza al registro anterior'
  280.       Alignment = taCenter
  281.       Caption = 'Anterior'
  282.       Font.Color = clRed
  283.       Font.Height = -12
  284.       Font.Name = 'Arial'
  285.       Font.Style = []
  286.       ParentFont = False
  287.       ParentShowHint = False
  288.       ShowHint = True
  289.       Transparent = True
  290.       OnMouseMove = Label51MouseMove
  291.     end
  292.     object Label52: TLabel
  293.       Left = 192
  294.       Top = 16
  295.       Width = 57
  296.       Height = 49
  297.       Hint = 'Se desplaza al siguiente registro'
  298.       Alignment = taCenter
  299.       Caption = 'Siguiente'
  300.       Font.Color = clRed
  301.       Font.Height = -12
  302.       Font.Name = 'Arial'
  303.       Font.Style = []
  304.       ParentFont = False
  305.       ParentShowHint = False
  306.       ShowHint = True
  307.       Transparent = True
  308.       OnMouseMove = Label52MouseMove
  309.     end
  310.     object Label53: TLabel
  311.       Left = 248
  312.       Top = 16
  313.       Width = 57
  314.       Height = 49
  315.       Hint = 'Se desplaza al ∩┐╜ltimo registro'
  316.       Alignment = taCenter
  317.       Caption = '∩┐╜ltimo'
  318.       Color = clMaroon
  319.       Font.Color = clRed
  320.       Font.Height = -12
  321.       Font.Name = 'Arial'
  322.       Font.Style = []
  323.       ParentColor = False
  324.       ParentFont = False
  325.       ParentShowHint = False
  326.       ShowHint = True
  327.       Transparent = True
  328.       OnMouseMove = Label53MouseMove
  329.     end
  330.     object Label54: TLabel
  331.       Left = 304
  332.       Top = 16
  333.       Width = 57
  334.       Height = 49
  335.       Hint = 'Inserta un nuevo registro vac∩┐╜o'
  336.       Alignment = taCenter
  337.       Caption = 'Nuevo'
  338.       Font.Color = clRed
  339.       Font.Height = -12
  340.       Font.Name = 'Arial'
  341.       Font.Style = []
  342.       ParentFont = False
  343.       ParentShowHint = False
  344.       ShowHint = True
  345.       Transparent = True
  346.       OnMouseMove = Label54MouseMove
  347.     end
  348.     object Label55: TLabel
  349.       Left = 360
  350.       Top = 16
  351.       Width = 57
  352.       Height = 49
  353.       Hint = 'Borra el registro actual'
  354.       Alignment = taCenter
  355.       Caption = 'Borrar'
  356.       Font.Color = clRed
  357.       Font.Height = -12
  358.       Font.Name = 'Arial'
  359.       Font.Style = []
  360.       ParentFont = False
  361.       ParentShowHint = False
  362.       ShowHint = True
  363.       Transparent = True
  364.       OnMouseMove = Label55MouseMove
  365.     end
  366.     object Label56: TLabel
  367.       Left = 416
  368.       Top = 16
  369.       Width = 57
  370.       Height = 49
  371.       Hint = 'Grabar el registro'
  372.       Alignment = taCenter
  373.       Caption = 'Grabar'
  374.       Font.Color = clRed
  375.       Font.Height = -12
  376.       Font.Name = 'Arial'
  377.       Font.Style = []
  378.       ParentFont = False
  379.       ParentShowHint = False
  380.       ShowHint = True
  381.       Transparent = True
  382.       OnMouseMove = Label56MouseMove
  383.     end
  384.     object Label57: TLabel
  385.       Left = 472
  386.       Top = 16
  387.       Width = 57
  388.       Height = 49
  389.       Hint = 'Actualiza los datos'
  390.       Alignment = taCenter
  391.       Caption = 'Actualizar'
  392.       Font.Color = clRed
  393.       Font.Height = -12
  394.       Font.Name = 'Arial'
  395.       Font.Style = []
  396.       ParentFont = False
  397.       ParentShowHint = False
  398.       ShowHint = True
  399.       Transparent = True
  400.       OnMouseMove = Label57MouseMove
  401.     end
  402.     object Label2: TLabel
  403.       Left = 16
  404.       Top = 96
  405.       Width = 252
  406.       Height = 15
  407.       Caption = 'Nombre del S∩┐╜ntoma, Enfermedad, Dolencia...'
  408.       Font.Color = clBlue
  409.       Font.Height = -12
  410.       Font.Name = 'Arial'
  411.       Font.Style = []
  412.       ParentFont = False
  413.       Transparent = True
  414.     end
  415.     object SpButton200: TSpeedButton
  416.       Left = 488
  417.       Top = 112
  418.       Width = 25
  419.       Height = 25
  420.       Hint = 'Ayuda'
  421.       Caption = '?'
  422.       Font.Color = clBlue
  423.       Font.Height = -13
  424.       Font.Name = 'System'
  425.       Font.Style = [fsBold]
  426.       ParentFont = False
  427.       ParentShowHint = False
  428.       ShowHint = True
  429.       OnClick = SpButton200Click
  430.     end
  431.     object Label1: TLabel
  432.       Left = 16
  433.       Top = 160
  434.       Width = 140
  435.       Height = 15
  436.       Caption = 'Indicaciones y Posolog∩┐╜a:'
  437.       Font.Color = clBlue
  438.       Font.Height = -12
  439.       Font.Name = 'Arial'
  440.       Font.Style = []
  441.       ParentFont = False
  442.       Transparent = True
  443.     end
  444.     object SpeedButton1: TSpeedButton
  445.       Left = 520
  446.       Top = 112
  447.       Width = 25
  448.       Height = 25
  449.       Hint = 'Visualizar Lista'
  450.       Glyph.Data = {
  451.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  452.         0400000000007000000000000000000000001000000000000000000000000000
  453.         80000080000000808000800000008000800080800000C0C0C000808080000000
  454.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  455.         330033333333333333003300000000033300330FFFFFFF033300330F00000F03
  456.         3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
  457.         3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
  458.         33003333333333333300}
  459.       ParentShowHint = False
  460.       ShowHint = True
  461.       OnClick = SpeedButton1Click
  462.     end
  463.     object BitBtn1: TBitBtn
  464.       Left = 16
  465.       Top = 16
  466.       Width = 41
  467.       Height = 41
  468.       Hint = 'Volver al Men∩┐╜'
  469.       ParentShowHint = False
  470.       ShowHint = True
  471.       TabOrder = 0
  472.       OnClick = BitBtn1Click
  473.       OnMouseMove = BitBtn1MouseMove
  474.       Glyph.Data = {
  475.         76020000424D7602000000000000760000002800000020000000200000000100
  476.         0400000000000000000000000000000000001000000010000000000000000000
  477.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  478.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  479.         7777777777777777777777777777777777777777777777777777777777777777
  480.         777777777777777777777777777777731444444E131313131377777777FFFF71
  481.         F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  482.         F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  483.         F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  484.         4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  485.         AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  486.         4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  487.         CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  488.         CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  489.         CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  490.         FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  491.         F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  492.         F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  493.         F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  494.         7777777777777777777777777777777777777777777777777777}
  495.     end
  496.     object DBNavigator1: TDBNavigator
  497.       Left = 80
  498.       Top = 32
  499.       Width = 448
  500.       Height = 25
  501.       DataSource = DataSource1
  502.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbRefresh]
  503.       TabOrder = 1
  504.       OnClick = DBNavigator1Click
  505.     end
  506.     object BitBtn2: TBitBtn
  507.       Left = 552
  508.       Top = 16
  509.       Width = 41
  510.       Height = 41
  511.       Hint = 'Imprimir'
  512.       ParentShowHint = False
  513.       ShowHint = True
  514.       TabOrder = 2
  515.       OnClick = BitBtn2Click
  516.       OnMouseMove = BitBtn2MouseMove
  517.       Glyph.Data = {
  518.         76020000424D7602000000000000760000002800000020000000200000000100
  519.         0400000000000000000000000000000000001000000010000000000000000000
  520.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  521.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
  522.         000000000000000000070F8888888888888888888888888888800FF800000000
  523.         000000000000008888800FF708888888888888888888880778800FF70F777777
  524.         777777777777778078800FF70F777777777777777777778808800FF70F777777
  525.         777777777777778808800FF708888888888888888888888808800FF000000000
  526.         000000000000000808800F0888888888888888888888888008800F0777777777
  527.         777777777777777808800F0777777777777777777777777880800F0777777777
  528.         777777777777777888000F0777777777777777777777777888000F0777777777
  529.         777777777777777888000F0777777777777777777999977888000F0777777777
  530.         777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777
  531.         777777777777777F88000FF0777700000000000000008777F8000FF700000FFF
  532.         FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF
  533.         FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF
  534.         FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770
  535.         FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777
  536.         0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF
  537.         0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007}
  538.     end
  539.     object MEMO2: TDBMemo
  540.       Left = 16
  541.       Top = 112
  542.       Width = 433
  543.       Height = 25
  544.       DataField = 'Sintomas'
  545.       DataSource = DataSource1
  546.       MaxLength = 55
  547.       ReadOnly = True
  548.       TabOrder = 3
  549.       OnEnter = MEMO2Enter
  550.       OnExit = MEMO2Exit
  551.       OnKeyPress = MEMO2KeyPress
  552.       OnMouseMove = MEMO2MouseMove
  553.     end
  554.     object BitBtn2000: TBitBtn
  555.       Left = 456
  556.       Top = 112
  557.       Width = 25
  558.       Height = 25
  559.       Hint = 'Buscar registros'
  560.       Font.Color = clBlack
  561.       Font.Height = -13
  562.       Font.Name = 'System'
  563.       Font.Style = [fsBold]
  564.       ParentFont = False
  565.       ParentShowHint = False
  566.       ShowHint = True
  567.       TabOrder = 4
  568.       OnClick = BitBtn2000Click
  569.       OnMouseMove = BitBtn2000MouseMove
  570.       Glyph.Data = {
  571.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  572.         0400000000007000000000000000000000001000000000000000000000000000
  573.         80000080000000808000800000008000800080800000C0C0C000808080000000
  574.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  575.         33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
  576.         33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
  577.         33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
  578.         33003333333333333300}
  579.     end
  580.     object Memo3: TDBMemo
  581.       Left = 16
  582.       Top = 176
  583.       Width = 577
  584.       Height = 241
  585.       DataField = 'Indicaciones'
  586.       DataSource = DataSource1
  587.       ScrollBars = ssVertical
  588.       TabOrder = 5
  589.       OnEnter = MEMO2Enter
  590.       OnExit = MEMO2Exit
  591.       OnMouseMove = Memo3MouseMove
  592.     end
  593.     object DBLookupListBox1: TDBLookupListBox
  594.       Left = 16
  595.       Top = 176
  596.       Width = 577
  597.       Height = 244
  598.       Color = clWhite
  599.       KeyField = 'Sintomas'
  600.       ListField = 'Sintomas'
  601.       ListSource = DataSource1
  602.       TabOrder = 6
  603.       Visible = False
  604.       OnClick = DBLookupListBox1Click
  605.     end
  606.     object BOTONCANCELAR: TButton
  607.       Left = 480
  608.       Top = 384
  609.       Width = 67
  610.       Height = 25
  611.       Hint = 'Cancelar Lista'
  612.       Caption = '&Ocultar'
  613.       ParentShowHint = False
  614.       ShowHint = True
  615.       TabOrder = 7
  616.       Visible = False
  617.       OnClick = BOTONCANCELARClick
  618.     end
  619.   end
  620.   object PrintDialog1: TPrintDialog
  621.     Copies = 1
  622.     Options = [poSelection]
  623.     Left = 608
  624.     Top = 96
  625.   end
  626.   object FontDialog1: TFontDialog
  627.     Font.Color = clWindowText
  628.     Font.Height = -13
  629.     Font.Name = 'System'
  630.     Font.Style = []
  631.     MinFontSize = 0
  632.     MaxFontSize = 0
  633.     Left = 608
  634.     Top = 304
  635.   end
  636.   object PrinterSetupDialog1: TPrinterSetupDialog
  637.     Left = 608
  638.     Top = 336
  639.   end
  640.   object ReplaceDialog1: TReplaceDialog
  641.     Left = 608
  642.     Top = 264
  643.   end
  644.   object DataSource1: TDataSource
  645.     DataSet = Table1
  646.     Left = 608
  647.     Top = 152
  648.   end
  649.   object Table1: TTable
  650.     Active = True
  651.     Filtered = True
  652.     FilterOptions = [foCaseInsensitive, foNoPartialCompare]
  653.     DatabaseName = 'c:\natup1'
  654.     IndexFieldNames = 'Sintomas'
  655.     TableName = 'Abuela.DB'
  656.     Left = 608
  657.     Top = 200
  658.     object Table1Sintomas: TStringField
  659.       FieldName = 'Sintomas'
  660.       Required = True
  661.       Size = 75
  662.     end
  663.     object Table1Indicaciones: TMemoField
  664.       FieldName = 'Indicaciones'
  665.       BlobType = ftMemo
  666.       Size = 240
  667.     end
  668.   end
  669. end
  670.