home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORMA9999 / TFORMA9999.txt
Text File  |  1995-05-10  |  2KB  |  77 lines
  1. object FORMA9999: TFORMA9999
  2.   Left = -17
  3.   Top = 104
  4.   ActiveControl = BitBtn2
  5.   BorderIcons = [biSystemMenu]
  6.   AutoScroll = False
  7.   Caption = 'Lista de Remedios de la Abuela (Base de Datos)'
  8.   ClientHeight = 281
  9.   ClientWidth = 512
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   OnActivate = FormActivate
  16.   PixelsPerInch = 96
  17.   TextHeight = 16
  18.   object Panel1: TPanel
  19.     Left = 8
  20.     Top = 8
  21.     Width = 497
  22.     Height = 265
  23.     BevelInner = bvLowered
  24.     BevelWidth = 2
  25.     BorderWidth = 1
  26.     BorderStyle = bsSingle
  27.     TabOrder = 0
  28.     object DBGrid1: TDBGrid
  29.       Left = 16
  30.       Top = 16
  31.       Width = 465
  32.       Height = 193
  33.       Columns = <
  34.         item
  35.           FieldName = 'Sintomas'
  36.         end>
  37.       DataSource = DataSource1
  38.       Options = [dgEditing, dgIndicator, dgColumnResize, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  39.       ReadOnly = True
  40.       TabOrder = 0
  41.       TitleFont.Color = clWindowText
  42.       TitleFont.Height = -13
  43.       TitleFont.Name = 'System'
  44.       TitleFont.Style = []
  45.     end
  46.   end
  47.   object BitBtn2: TBitBtn
  48.     Left = 216
  49.     Top = 232
  50.     Width = 81
  51.     Height = 25
  52.     Caption = '&Cerrar'
  53.     TabOrder = 1
  54.     OnClick = BitBtn2Click
  55.     Kind = bkOK
  56.   end
  57.   object DataSource1: TDataSource
  58.     DataSet = Table1
  59.     Left = 24
  60.     Top = 224
  61.   end
  62.   object Table1: TTable
  63.     Active = True
  64.     Filtered = True
  65.     DatabaseName = 'C:\NATUP1'
  66.     IndexFieldNames = 'Sintomas'
  67.     TableName = 'Abuela.DB'
  68.     Left = 66
  69.     Top = 226
  70.     object Table1Sintomas: TStringField
  71.       FieldName = 'Sintomas'
  72.       Required = True
  73.       Size = 75
  74.     end
  75.   end
  76. end
  77.