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