Hot Shareware 32/hot34.iso/ficheros/9EDU/NATURO10.ZIP/natur10.exe/NATUP1/NATUP1.EXE/0/RCDATA/TFORM14/TFORM14.txt

Text File | 1995-05-10 | 16KB | 705 lines

object Form14: TForm14
  Left = -7
  Top = 108
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  AutoScroll = False
  Caption = 'Informaci�n Diet�tica (Base de Datos)'
  ClientHeight = 461
  ClientWidth = 640
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 8
    Width = 17
    Height = 25
    Font.Color = clBlack
    Font.Height = -1
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      '.'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '.')
    ParentFont = False
    TabOrder = 0
    Visible = False
  end
  object Memo123: TMemo
    Left = 0
    Top = 88
    Width = 17
    Height = 25
    Font.Color = clBlack
    Font.Height = -1
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      '.'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '.')
    ParentFont = False
    TabOrder = 1
    Visible = False
  end
  object Panel1yh54: TPanel
    Left = 8
    Top = 8
    Width = 617
    Height = 441
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 2
    object Label50: TLabel
      Left = 80
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Se desplaza al primer registro'
      Alignment = taCenter
      Caption = 'Primero'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label51: TLabel
      Left = 136
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Se desplaza al registro anterior'
      Alignment = taCenter
      Caption = 'Anterior'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label52: TLabel
      Left = 192
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Se desplaza al siguiente registro'
      Alignment = taCenter
      Caption = 'Siguiente'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label53: TLabel
      Left = 248
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Se desplaza al �ltimo registro'
      Alignment = taCenter
      Caption = '�ltimo'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label54: TLabel
      Left = 304
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Inserta un nuevo registro vac�o'
      Alignment = taCenter
      Caption = 'Nuevo'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label55: TLabel
      Left = 360
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Borra el registro actual'
      Alignment = taCenter
      Caption = 'Borrar'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label56: TLabel
      Left = 416
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Grabar el registro'
      Alignment = taCenter
      Caption = 'Grabar'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label57: TLabel
      Left = 472
      Top = 16
      Width = 57
      Height = 49
      Hint = 'Actualiza los datos'
      Alignment = taCenter
      Caption = 'Actualizar'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label1: TLabel
      Left = 16
      Top = 80
      Width = 48
      Height = 15
      Caption = 'Nombre:'
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object SpButton200: TSpeedButton
      Left = 488
      Top = 96
      Width = 25
      Height = 25
      Hint = 'Ayuda'
      Caption = '?'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpButton200Click
    end
    object Label2: TLabel
      Left = 16
      Top = 128
      Width = 142
      Height = 15
      Caption = 'Funci�n en el Organismo:'
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 16
      Top = 200
      Width = 137
      Height = 15
      Caption = 'S�ntomas de Deficiencia:'
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 16
      Top = 272
      Width = 183
      Height = 15
      Caption = 'Recomendaciones Terap�uticas:'
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label5: TLabel
      Left = 16
      Top = 360
      Width = 105
      Height = 15
      Caption = 'Fuentes Naturales:'
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object SpeedButton1: TSpeedButton
      Left = 520
      Top = 96
      Width = 25
      Height = 25
      Hint = 'Visualizar Lista'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        330033333333333333003300000000033300330FFFFFFF033300330F00000F03
        3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
        3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
        33003333333333333300}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object BitBtn1: TBitBtn
      Left = 16
      Top = 16
      Width = 41
      Height = 41
      Hint = 'Volver al Men�'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        777777777777777777777777777777731444444E131313131377777777FFFF71
        F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
        F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
        F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
        4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
        AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
        4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
        CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
        CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
        CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
        FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
        F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
        F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
        F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
        7777777777777777777777777777777777777777777777777777}
    end
    object DBNavigator1: TDBNavigator
      Left = 80
      Top = 32
      Width = 448
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbRefresh]
      TabOrder = 1
      OnClick = DBNavigator1Click
    end
    object BitBtn2: TBitBtn
      Left = 552
      Top = 16
      Width = 41
      Height = 41
      Hint = 'Imprimir'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BitBtn2Click
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
        000000000000000000070F8888888888888888888888888888800FF800000000
        000000000000008888800FF708888888888888888888880778800FF70F777777
        777777777777778078800FF70F777777777777777777778808800FF70F777777
        777777777777778808800FF708888888888888888888888808800FF000000000
        000000000000000808800F0888888888888888888888888008800F0777777777
        777777777777777808800F0777777777777777777777777880800F0777777777
        777777777777777888000F0777777777777777777777777888000F0777777777
        777777777777777888000F0777777777777777777999977888000F0777777777
        777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777
        777777777777777F88000FF0777700000000000000008777F8000FF700000FFF
        FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF
        FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF
        FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770
        FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777
        0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF
        0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007}
    end
    object MEMO2: TDBMemo
      Left = 16
      Top = 96
      Width = 433
      Height = 25
      DataField = 'Informaci�n Diet�tica'
      DataSource = DataSource1
      MaxLength = 55
      ReadOnly = True
      TabOrder = 3
      OnEnter = MEMO2Enter
      OnExit = MEMO2Exit
      OnKeyPress = MEMO2KeyPress
    end
    object BitBtn2000: TBitBtn
      Left = 456
      Top = 96
      Width = 25
      Height = 25
      Hint = 'Buscar registros'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BitBtn2000Click
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
        33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
        33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
        33003333333333333300}
    end
    object Memo3: TDBMemo
      Left = 16
      Top = 144
      Width = 577
      Height = 49
      DataField = 'Funcion'
      DataSource = DataSource1
      ScrollBars = ssVertical
      TabOrder = 5
      OnEnter = MEMO2Enter
      OnExit = MEMO2Exit
    end
    object Memo4: TDBMemo
      Left = 16
      Top = 216
      Width = 577
      Height = 49
      DataField = 'Sintomas'
      DataSource = DataSource1
      ScrollBars = ssVertical
      TabOrder = 6
      OnEnter = MEMO2Enter
      OnExit = MEMO2Exit
    end
    object Memo5: TDBMemo
      Left = 16
      Top = 288
      Width = 577
      Height = 65
      DataField = 'Recomendacion'
      DataSource = DataSource1
      ScrollBars = ssVertical
      TabOrder = 7
      OnEnter = MEMO2Enter
      OnExit = MEMO2Exit
    end
    object Memo6: TDBMemo
      Left = 16
      Top = 376
      Width = 577
      Height = 41
      DataField = 'Fuentes'
      DataSource = DataSource1
      ScrollBars = ssVertical
      TabOrder = 8
      OnEnter = MEMO2Enter
      OnExit = MEMO2Exit
    end
    object DBLookupListBox1: TDBLookupListBox
      Left = 16
      Top = 128
      Width = 577
      Height = 292
      Color = clWhite
      KeyField = 'Informaci�n Diet�tica'
      ListField = 'Informaci�n Diet�tica'
      ListSource = DataSource1
      TabOrder = 9
      Visible = False
      OnClick = DBLookupListBox1Click
    end
    object BOTONCANCELAR: TButton
      Left = 480
      Top = 384
      Width = 67
      Height = 25
      Hint = 'Cancelar Lista'
      Caption = '&Ocultar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      Visible = False
      OnClick = BOTONCANCELARClick
    end
  end
  object PrintDialog1: TPrintDialog
    Copies = 1
    Options = [poSelection]
    Left = 608
    Top = 16
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 608
    Top = 304
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 608
    Top = 336
  end
  object ReplaceDialog1: TReplaceDialog
    Left = 608
    Top = 280
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 608
    Top = 88
  end
  object Table1: TTable
    Active = True
    Filtered = True
    DatabaseName = 'C:\NATUP1'
    IndexFieldNames = 'Informaci�n Diet�tica'
    TableName = 'INFORMD.DB'
    Left = 608
    Top = 128
    object Table1Funcion: TMemoField
      FieldName = 'Funcion'
      BlobType = ftMemo
      Size = 240
    end
    object Table1Sintomas: TMemoField
      FieldName = 'Sintomas'
      BlobType = ftMemo
      Size = 240
    end
    object Table1Recomendacion: TMemoField
      FieldName = 'Recomendacion'
      BlobType = ftMemo
      Size = 240
    end
    object Table1Fuentes: TMemoField
      FieldName = 'Fuentes'
      BlobType = ftMemo
      Size = 240
    end
    object Table1InformacinDiettica: TStringField
      FieldName = 'Informaci�n Diet�tica'
      Required = True
      Size = 75
    end
  end
end