home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / WinesDemo / Main.dfm / Main.txt
Text File  |  1998-03-16  |  2KB  |  93 lines
  1. object MainForm: TMainForm
  2.   Left = 94
  3.   Top = 134
  4.   Width = 638
  5.   Height = 294
  6.   Caption = 'Wines Database Demonstration'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object DBNavigator1: TDBNavigator
  15.     Left = 32
  16.     Top = 24
  17.     Width = 240
  18.     Height = 25
  19.     DataSource = DataSource1
  20.     TabOrder = 0
  21.   end
  22.   object DBGrid1: TDBGrid
  23.     Left = 8
  24.     Top = 64
  25.     Width = 609
  26.     Height = 153
  27.     DataSource = DataSource1
  28.     TabOrder = 1
  29.     TitleFont.Charset = DEFAULT_CHARSET
  30.     TitleFont.Color = clWindowText
  31.     TitleFont.Height = -11
  32.     TitleFont.Name = 'MS Sans Serif'
  33.     TitleFont.Style = []
  34.   end
  35.   object BitBtn1: TBitBtn
  36.     Left = 544
  37.     Top = 232
  38.     Width = 75
  39.     Height = 25
  40.     TabOrder = 2
  41.     Kind = bkClose
  42.   end
  43.   object DataSource1: TDataSource
  44.     DataSet = Table1
  45.     Left = 384
  46.     Top = 16
  47.   end
  48.   object Table1: TTable
  49.     Active = True
  50.     DatabaseName = 'WINES'
  51.     FieldDefs = <
  52.       item
  53.         Name = 'Name'
  54.         DataType = ftString
  55.         Precision = 0
  56.         Required = False
  57.         Size = 32
  58.       end
  59.       item
  60.         Name = 'Number'
  61.         DataType = ftFloat
  62.         Precision = 0
  63.         Required = False
  64.         Size = 0
  65.       end
  66.       item
  67.         Name = 'Source'
  68.         DataType = ftString
  69.         Precision = 0
  70.         Required = False
  71.         Size = 32
  72.       end
  73.       item
  74.         Name = 'Vintage'
  75.         DataType = ftString
  76.         Precision = 0
  77.         Required = False
  78.         Size = 4
  79.       end
  80.       item
  81.         Name = 'Purchased'
  82.         DataType = ftDate
  83.         Precision = 0
  84.         Required = False
  85.         Size = 0
  86.       end>
  87.     StoreDefs = True
  88.     TableName = 'Wines.db'
  89.     Left = 312
  90.     Top = 16
  91.   end
  92. end
  93.