home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORM777 / TFORM777.txt
Text File  |  1995-05-10  |  17KB  |  598 lines
  1. object FORM777: TFORM777
  2.   Left = 5
  3.   Top = 51
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   AutoScroll = False
  8.   Caption = 'Ayuda (Bases de Datos)'
  9.   ClientHeight = 461
  10.   ClientWidth = 640
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'System'
  14.   Font.Style = []
  15.   Position = poScreenCenter
  16.   WindowState = wsMaximized
  17.   OnActivate = FormActivate
  18.   PixelsPerInch = 96
  19.   TextHeight = 16
  20.   object Memo1: TMemo
  21.     Left = 0
  22.     Top = 8
  23.     Width = 17
  24.     Height = 25
  25.     Font.Color = clBlack
  26.     Font.Height = -1
  27.     Font.Name = 'Arial'
  28.     Font.Style = []
  29.     Lines.Strings = (
  30.       '.'
  31.       ''
  32.       ''
  33.       ''
  34.       ''
  35.       ''
  36.       ''
  37.       ''
  38.       ''
  39.       ''
  40.       ''
  41.       ''
  42.       ''
  43.       ''
  44.       '.')
  45.     ParentFont = False
  46.     TabOrder = 0
  47.     Visible = False
  48.   end
  49.   object Memo123: TMemo
  50.     Left = 0
  51.     Top = 56
  52.     Width = 17
  53.     Height = 25
  54.     Font.Color = clBlack
  55.     Font.Height = -1
  56.     Font.Name = 'Arial'
  57.     Font.Style = []
  58.     Lines.Strings = (
  59.       '0')
  60.     ParentFont = False
  61.     TabOrder = 1
  62.     Visible = False
  63.   end
  64.   object Panel298765: TPanel
  65.     Left = 8
  66.     Top = 8
  67.     Width = 617
  68.     Height = 441
  69.     BevelInner = bvLowered
  70.     BevelWidth = 2
  71.     BorderWidth = 1
  72.     BorderStyle = bsSingle
  73.     Font.Color = clBlack
  74.     Font.Height = -13
  75.     Font.Name = 'System'
  76.     Font.Style = [fsBold]
  77.     ParentFont = False
  78.     TabOrder = 2
  79.     OnMouseMove = Panel298765MouseMove
  80.     object Label50: TLabel
  81.       Left = 80
  82.       Top = 24
  83.       Width = 57
  84.       Height = 49
  85.       Hint = 'Registro primero'
  86.       Alignment = taCenter
  87.       Caption = 'Primero'
  88.       Font.Color = clRed
  89.       Font.Height = -12
  90.       Font.Name = 'Arial'
  91.       Font.Style = []
  92.       ParentFont = False
  93.       ParentShowHint = False
  94.       ShowHint = True
  95.       Transparent = True
  96.       OnMouseMove = Label50MouseMove
  97.     end
  98.     object Label51: TLabel
  99.       Left = 136
  100.       Top = 24
  101.       Width = 57
  102.       Height = 49
  103.       Hint = 'Registro anterior'
  104.       Alignment = taCenter
  105.       Caption = 'Anterior'
  106.       Font.Color = clRed
  107.       Font.Height = -12
  108.       Font.Name = 'Arial'
  109.       Font.Style = []
  110.       ParentFont = False
  111.       ParentShowHint = False
  112.       ShowHint = True
  113.       Transparent = True
  114.       OnMouseMove = Label51MouseMove
  115.     end
  116.     object Label52: TLabel
  117.       Left = 192
  118.       Top = 24
  119.       Width = 57
  120.       Height = 49
  121.       Hint = 'Siguiente registro'
  122.       Alignment = taCenter
  123.       Caption = 'Siguiente'
  124.       Font.Color = clRed
  125.       Font.Height = -12
  126.       Font.Name = 'Arial'
  127.       Font.Style = []
  128.       ParentFont = False
  129.       ParentShowHint = False
  130.       ShowHint = True
  131.       Transparent = True
  132.       OnMouseMove = Label52MouseMove
  133.     end
  134.     object Label53: TLabel
  135.       Left = 248
  136.       Top = 24
  137.       Width = 57
  138.       Height = 49
  139.       Hint = '∩┐╜ltimo registro'
  140.       Alignment = taCenter
  141.       Caption = '∩┐╜ltimo'
  142.       Font.Color = clRed
  143.       Font.Height = -12
  144.       Font.Name = 'Arial'
  145.       Font.Style = []
  146.       ParentFont = False
  147.       ParentShowHint = False
  148.       ShowHint = True
  149.       Transparent = True
  150.       OnMouseMove = Label53MouseMove
  151.     end
  152.     object Label54: TLabel
  153.       Left = 304
  154.       Top = 24
  155.       Width = 57
  156.       Height = 49
  157.       Hint = 'A∩┐╜adir registro'
  158.       Alignment = taCenter
  159.       Caption = 'Nuevo'
  160.       Font.Color = clRed
  161.       Font.Height = -12
  162.       Font.Name = 'Arial'
  163.       Font.Style = []
  164.       ParentFont = False
  165.       ParentShowHint = False
  166.       ShowHint = True
  167.       Transparent = True
  168.       OnMouseMove = Label54MouseMove
  169.     end
  170.     object Label55: TLabel
  171.       Left = 360
  172.       Top = 24
  173.       Width = 57
  174.       Height = 49
  175.       Hint = 'Borrar registro'
  176.       Alignment = taCenter
  177.       Caption = 'Borrar'
  178.       Font.Color = clRed
  179.       Font.Height = -12
  180.       Font.Name = 'Arial'
  181.       Font.Style = []
  182.       ParentFont = False
  183.       ParentShowHint = False
  184.       ShowHint = True
  185.       Transparent = True
  186.       OnMouseMove = Label55MouseMove
  187.     end
  188.     object Label56: TLabel
  189.       Left = 416
  190.       Top = 24
  191.       Width = 57
  192.       Height = 49
  193.       Hint = 'Grabar registro'
  194.       Alignment = taCenter
  195.       Caption = 'Grabar'
  196.       Font.Color = clRed
  197.       Font.Height = -12
  198.       Font.Name = 'Arial'
  199.       Font.Style = []
  200.       ParentFont = False
  201.       ParentShowHint = False
  202.       ShowHint = True
  203.       Transparent = True
  204.       OnMouseMove = Label56MouseMove
  205.     end
  206.     object Label57: TLabel
  207.       Left = 472
  208.       Top = 24
  209.       Width = 57
  210.       Height = 49
  211.       Hint = 'Actualizar datos'
  212.       Alignment = taCenter
  213.       Caption = 'Actualizar'
  214.       Font.Color = clRed
  215.       Font.Height = -12
  216.       Font.Name = 'Arial'
  217.       Font.Style = []
  218.       ParentFont = False
  219.       ParentShowHint = False
  220.       ShowHint = True
  221.       Transparent = True
  222.       OnMouseMove = Label57MouseMove
  223.     end
  224.     object Label3: TLabel
  225.       Left = 176
  226.       Top = 88
  227.       Width = 250
  228.       Height = 22
  229.       Alignment = taCenter
  230.       Caption = 'AYUDA  -  BASE DE DATOS'
  231.       DragMode = dmAutomatic
  232.       Font.Color = clBlack
  233.       Font.Height = -19
  234.       Font.Name = 'Arial'
  235.       Font.Style = [fsBold]
  236.       ParentFont = False
  237.       Transparent = True
  238.     end
  239.     object SpButton200: TSpeedButton
  240.       Left = 472
  241.       Top = 144
  242.       Width = 25
  243.       Height = 25
  244.       Hint = 'Ayuda'
  245.       Caption = '?'
  246.       Font.Color = clBlue
  247.       Font.Height = -13
  248.       Font.Name = 'System'
  249.       Font.Style = [fsBold]
  250.       ParentFont = False
  251.       ParentShowHint = False
  252.       ShowHint = True
  253.       OnClick = SpButton200Click
  254.       OnMouseMove = SpButton200MouseMove
  255.     end
  256.     object Label2: TLabel
  257.       Left = 16
  258.       Top = 128
  259.       Width = 293
  260.       Height = 16
  261.       Hint = 'Campo clave (∩┐╜ndice)'
  262.       Caption = 'Nombre del S∩┐╜ntoma, Enfermedad, Producto, etc...'
  263.       Font.Color = clBlue
  264.       Font.Height = -13
  265.       Font.Name = 'Arial'
  266.       Font.Style = []
  267.       ParentFont = False
  268.       ParentShowHint = False
  269.       ShowHint = True
  270.       Transparent = True
  271.     end
  272.     object Label1: TLabel
  273.       Left = 16
  274.       Top = 200
  275.       Width = 431
  276.       Height = 16
  277.       Caption = 
  278.         'Tratamiento recomendado, Modo de Empleo, Otros datos de inter∩┐╜s,' +
  279.         ' etc...'
  280.       Font.Color = clBlue
  281.       Font.Height = -13
  282.       Font.Name = 'Arial'
  283.       Font.Style = []
  284.       ParentFont = False
  285.       Transparent = True
  286.       Visible = False
  287.     end
  288.     object SpeedButton1: TSpeedButton
  289.       Left = 504
  290.       Top = 144
  291.       Width = 25
  292.       Height = 25
  293.       Hint = 'Visualizar Lista'
  294.       Glyph.Data = {
  295.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  296.         0400000000007000000000000000000000001000000000000000000000000000
  297.         80000080000000808000800000008000800080800000C0C0C000808080000000
  298.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  299.         330033333333333333003300000000033300330FFFFFFF033300330F00000F03
  300.         3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
  301.         3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
  302.         33003333333333333300}
  303.       ParentShowHint = False
  304.       ShowHint = True
  305.       OnClick = SpeedButton1Click
  306.       OnMouseMove = SpeedButton1MouseMove
  307.     end
  308.     object BitBtn1: TBitBtn
  309.       Left = 16
  310.       Top = 24
  311.       Width = 41
  312.       Height = 41
  313.       Hint = 'Volver al Men∩┐╜'
  314.       ParentShowHint = False
  315.       ShowHint = True
  316.       TabOrder = 0
  317.       OnClick = BitBtn1Click
  318.       OnMouseMove = BitBtn1MouseMove
  319.       Glyph.Data = {
  320.         76020000424D7602000000000000760000002800000020000000200000000100
  321.         0400000000000000000000000000000000001000000010000000000000000000
  322.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  323.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  324.         7777777777777777777777777777777777777777777777777777777777777777
  325.         777777777777777777777777777777731444444E131313131377777777FFFF71
  326.         F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  327.         F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  328.         F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  329.         4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  330.         AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  331.         4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  332.         CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  333.         CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  334.         CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  335.         FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  336.         F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  337.         F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  338.         F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  339.         7777777777777777777777777777777777777777777777777777}
  340.     end
  341.     object DBNavigator1: TDBNavigator
  342.       Left = 80
  343.       Top = 40
  344.       Width = 448
  345.       Height = 25
  346.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbRefresh]
  347.       Ctl3D = True
  348.       ParentCtl3D = False
  349.       ParentShowHint = False
  350.       ShowHint = True
  351.       TabOrder = 1
  352.       OnClick = DBNavigator1Click
  353.     end
  354.     object BitBtn2: TBitBtn
  355.       Left = 552
  356.       Top = 24
  357.       Width = 41
  358.       Height = 41
  359.       Hint = 'Imprimir'
  360.       ParentShowHint = False
  361.       ShowHint = True
  362.       TabOrder = 2
  363.       OnClick = BitBtn2Click
  364.       OnMouseMove = BitBtn2MouseMove
  365.       Glyph.Data = {
  366.         76020000424D7602000000000000760000002800000020000000200000000100
  367.         0400000000000000000000000000000000001000000010000000000000000000
  368.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  369.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
  370.         000000000000000000070F8888888888888888888888888888800FF800000000
  371.         000000000000008888800FF708888888888888888888880778800FF70F777777
  372.         777777777777778078800FF70F777777777777777777778808800FF70F777777
  373.         777777777777778808800FF708888888888888888888888808800FF000000000
  374.         000000000000000808800F0888888888888888888888888008800F0777777777
  375.         777777777777777808800F0777777777777777777777777880800F0777777777
  376.         777777777777777888000F0777777777777777777777777888000F0777777777
  377.         777777777777777888000F0777777777777777777999977888000F0777777777
  378.         777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777
  379.         777777777777777F88000FF0777700000000000000008777F8000FF700000FFF
  380.         FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF
  381.         FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF
  382.         FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770
  383.         FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777
  384.         0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF
  385.         0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007}
  386.     end
  387.     object BitBtn2000: TBitBtn
  388.       Left = 440
  389.       Top = 144
  390.       Width = 25
  391.       Height = 25
  392.       Hint = 'Busca registros en el campo clave (∩┐╜ndice)'
  393.       Font.Color = clBlack
  394.       Font.Height = -13
  395.       Font.Name = 'System'
  396.       Font.Style = [fsBold]
  397.       ParentFont = False
  398.       ParentShowHint = False
  399.       ShowHint = True
  400.       TabOrder = 3
  401.       OnClick = BitBtn2000Click
  402.       OnMouseMove = BitBtn2000MouseMove
  403.       Glyph.Data = {
  404.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  405.         0400000000007000000000000000000000001000000000000000000000000000
  406.         80000080000000808000800000008000800080800000C0C0C000808080000000
  407.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  408.         33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
  409.         33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
  410.         33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
  411.         33003333333333333300}
  412.     end
  413.     object n1: TMemo
  414.       Left = 16
  415.       Top = 144
  416.       Width = 417
  417.       Height = 25
  418.       Hint = 'Campo clave (∩┐╜ndice)'
  419.       DragMode = dmAutomatic
  420.       Font.Color = clBlack
  421.       Font.Height = -12
  422.       Font.Name = 'Arial'
  423.       Font.Style = []
  424.       Lines.Strings = (
  425.         
  426.           'En este campo se ha de escribir el S∩┐╜ntoma, Enfermedad, Producto' +
  427.           ', etc...')
  428.       ParentFont = False
  429.       ParentShowHint = False
  430.       ReadOnly = True
  431.       ShowHint = True
  432.       TabOrder = 4
  433.       OnMouseMove = n1MouseMove
  434.     end
  435.     object n2: TMemo
  436.       Left = 16
  437.       Top = 216
  438.       Width = 577
  439.       Height = 121
  440.       Hint = 'Podr∩┐╜ escribir toda la informaci∩┐╜n que usted desee.'
  441.       DragMode = dmAutomatic
  442.       Font.Color = clBlack
  443.       Font.Height = -13
  444.       Font.Name = 'Arial'
  445.       Font.Style = []
  446.       Lines.Strings = (
  447.         
  448.           'Esta pantalla es s∩┐╜lo de informaci∩┐╜n ∩┐╜ de ayuda para el usuario.' +
  449.           ' '
  450.         ''
  451.         
  452.           '- Antes de cambiar del campo clave (∩┐╜ndice) a otros campos, debe' +
  453.           'r∩┐╜ usted de pulsar el bot∩┐╜n:'
  454.         '  GRABAR.'
  455.         ' '
  456.         
  457.           '- En este tipo de campo, se encribir∩┐╜ toda la informaci∩┐╜n desead' +
  458.           'a, por ejemplo:  '
  459.         
  460.           '  El tratamiento recomendado,  Indicaciones,  Modo de empleo,  O' +
  461.           'tros datos de inter∩┐╜s, '
  462.         
  463.           '  Observaciones,  Definici∩┐╜n del T∩┐╜rmino m∩┐╜dico,  Funci∩┐╜n el el ' +
  464.           'organismo, '
  465.         '  Recomendaciones terap∩┐╜uticas, etc, etc, ...'
  466.         ''
  467.         
  468.           '- Para visualizar toda la informaci∩┐╜n que contienen los campos, ' +
  469.           'haga uso de las barras'
  470.         '  de desplazamiento que contienen.'
  471.         ''
  472.         
  473.           '- Para cambiar de linea dentro del mismo campo, pulse la tecla: ' +
  474.           'INTRO.'
  475.         ''
  476.         
  477.           '- Para cambiar de un campo a otro campo, haga clic con el punter' +
  478.           'o del mouse sobre el '
  479.         
  480.           '  campo deseado y a continuaci∩┐╜n escriba toda la informaci∩┐╜n que' +
  481.           ' usted desee.'
  482.         ''
  483.         
  484.           '- Recuerda que los cambios que hagas ser∩┐╜n escritos en la base d' +
  485.           'e datos tan pronto como'
  486.         '  abandones la fila actual o hagas clic en el bot∩┐╜n Grabar. '
  487.         
  488.           '  Por seguridad, Graba y Actualiza los datos introducidos antes ' +
  489.           'de cerrar.'
  490.         '')
  491.       ParentFont = False
  492.       ParentShowHint = False
  493.       ReadOnly = True
  494.       ScrollBars = ssVertical
  495.       ShowHint = True
  496.       TabOrder = 5
  497.       OnMouseMove = n2MouseMove
  498.     end
  499.     object Panel1: TPanel
  500.       Left = 16
  501.       Top = 376
  502.       Width = 577
  503.       Height = 41
  504.       Hint = 'Panel de informaci∩┐╜n'
  505.       BevelInner = bvRaised
  506.       BorderWidth = 3
  507.       DragMode = dmAutomatic
  508.       Font.Color = clBlack
  509.       Font.Height = -12
  510.       Font.Name = 'Arial'
  511.       Font.Style = []
  512.       ParentFont = False
  513.       ParentShowHint = False
  514.       ShowHint = True
  515.       TabOrder = 6
  516.     end
  517.     object DBLookupListBox1: TDBLookupListBox
  518.       Left = 16
  519.       Top = 216
  520.       Width = 577
  521.       Height = 148
  522.       Color = clWhite
  523.       KeyField = 'Dolencia/Enfermedad'
  524.       ListField = 'Dolencia/Enfermedad'
  525.       ListSource = DataSource1
  526.       TabOrder = 7
  527.       Visible = False
  528.       OnClick = DBLookupListBox1Click
  529.       OnMouseMove = DBLookupListBox1MouseMove
  530.     end
  531.     object UpDown1: TUpDown
  532.       Left = 16
  533.       Top = 80
  534.       Width = 17
  535.       Height = 33
  536.       Hint = 'Botones de Desplazamiento'
  537.       Min = 0
  538.       ParentShowHint = False
  539.       Position = 0
  540.       ShowHint = False
  541.       TabOrder = 8
  542.       Wrap = False
  543.       OnMouseMove = UpDown1MouseMove
  544.     end
  545.     object BOTONCANCELAR: TButton
  546.       Left = 480
  547.       Top = 328
  548.       Width = 67
  549.       Height = 25
  550.       Hint = 'Cancelar Lista'
  551.       Caption = '&Ocultar'
  552.       ParentShowHint = False
  553.       ShowHint = True
  554.       TabOrder = 9
  555.       Visible = False
  556.       OnClick = BOTONCANCELARClick
  557.       OnMouseMove = BOTONCANCELARMouseMove
  558.     end
  559.   end
  560.   object PrintDialog1: TPrintDialog
  561.     Copies = 1
  562.     Options = [poSelection]
  563.     Left = 616
  564.     Top = 48
  565.   end
  566.   object FontDialog1: TFontDialog
  567.     Font.Color = clWindowText
  568.     Font.Height = -13
  569.     Font.Name = 'System'
  570.     Font.Style = []
  571.     MinFontSize = 0
  572.     MaxFontSize = 0
  573.     Left = 616
  574.     Top = 88
  575.   end
  576.   object PrinterSetupDialog1: TPrinterSetupDialog
  577.     Left = 608
  578.     Top = 392
  579.   end
  580.   object ReplaceDialog1: TReplaceDialog
  581.     Left = 608
  582.     Top = 8
  583.   end
  584.   object DataSource1: TDataSource
  585.     DataSet = Table1
  586.     Left = 610
  587.     Top = 170
  588.   end
  589.   object Table1: TTable
  590.     Active = True
  591.     DatabaseName = 'c:\natup1'
  592.     IndexFieldNames = 'Dolencia/Enfermedad'
  593.     TableName = 'Tnatural.DB'
  594.     Left = 610
  595.     Top = 114
  596.   end
  597. end
  598.