home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi2 / dscol.exe / 16BIT / FDSCDEMO.DFM / FDSCDEMO.txt
Text File  |  1996-10-05  |  2KB  |  111 lines
  1. object Form1: TForm1
  2.   Left = 227
  3.   Top = 145
  4.   Width = 431
  5.   Height = 290
  6.   Caption = 'TColumnsDataSource Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   OnDestroy = FormDestroy
  14.   TextHeight = 16
  15.   object Panel1: TPanel
  16.     Left = 0
  17.     Top = 0
  18.     Width = 423
  19.     Height = 33
  20.     Align = alTop
  21.     BevelOuter = bvNone
  22.     Caption = 'Introducing a tool to inhance user control:'
  23.     Font.Color = clPurple
  24.     Font.Height = -21
  25.     Font.Name = 'Times New Roman'
  26.     Font.Style = [fsBold]
  27.     ParentFont = False
  28.     TabOrder = 0
  29.   end
  30.   object Panel2: TPanel
  31.     Left = 0
  32.     Top = 33
  33.     Width = 423
  34.     Height = 230
  35.     Align = alClient
  36.     TabOrder = 1
  37.     object DBGrid1: TDBGrid
  38.       Left = 8
  39.       Top = 48
  40.       Width = 409
  41.       Height = 176
  42.       DataSource = ColumnsDataSource1
  43.       TabOrder = 0
  44.       TitleFont.Color = clWindowText
  45.       TitleFont.Height = -13
  46.       TitleFont.Name = 'System'
  47.       TitleFont.Style = []
  48.     end
  49.     object DBNavigator1: TDBNavigator
  50.       Left = 8
  51.       Top = 8
  52.       Width = 241
  53.       Height = 25
  54.       DataSource = ColumnsDataSource1
  55.       TabOrder = 1
  56.     end
  57.     object Button1: TButton
  58.       Left = 328
  59.       Top = 8
  60.       Width = 89
  61.       Height = 33
  62.       Caption = 'Columns...'
  63.       TabOrder = 2
  64.       OnClick = Button1Click
  65.     end
  66.   end
  67.   object ColumnsDataSource1: TColumnsDataSource
  68.     DataSet = Table1
  69.     IncludeSortBy = False
  70.     IniFileName = 'C:\WINDOWS\DSCOL.INI'
  71.     Left = 288
  72.     Top = 41
  73.   end
  74.   object Table1: TTable
  75.     DatabaseName = 'DBDEMOS'
  76.     TableName = 'PERSONEL.DB'
  77.     Left = 256
  78.     Top = 41
  79.     object Table1EmpNo: TStringField
  80.       DisplayLabel = 'Employee Number'
  81.       FieldName = 'EmpNo'
  82.       Size = 10
  83.     end
  84.     object Table1LastName: TStringField
  85.       DisplayLabel = 'Last Name'
  86.       FieldName = 'LastName'
  87.     end
  88.     object Table1FirstName: TStringField
  89.       DisplayLabel = 'First Name'
  90.       FieldName = 'FirstName'
  91.       Size = 15
  92.     end
  93.     object Table1PhoneExt: TStringField
  94.       DisplayLabel = 'Phone Extension'
  95.       FieldName = 'PhoneExt'
  96.       Size = 4
  97.     end
  98.     object Table1HireDate: TDateTimeField
  99.       DisplayLabel = 'Hire Date'
  100.       FieldName = 'HireDate'
  101.     end
  102.     object Table1Salary: TFloatField
  103.       FieldName = 'Salary'
  104.     end
  105.     object Table1Boss: TStringField
  106.       FieldName = 'Boss'
  107.       Size = 10
  108.     end
  109.   end
  110. end
  111.