home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Ado / Rds / clientmain.dfm / clientmain.txt
Encoding:
Text File  |  1999-08-11  |  1.7 KB  |  81 lines

  1. object Form1: TForm1
  2.   Left = 263
  3.   Top = 204
  4.   AutoScroll = False
  5.   Caption = 'RDS Client Demo'
  6.   ClientHeight = 211
  7.   ClientWidth = 412
  8.   Color = clBtnFace
  9.   ParentFont = True
  10.   OldCreateOrder = False
  11.   Position = poScreenCenter
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object DBGrid1: TDBGrid
  15.     Left = 0
  16.     Top = 35
  17.     Width = 412
  18.     Height = 176
  19.     Align = alClient
  20.     DataSource = DataSource1
  21.     TabOrder = 0
  22.     TitleFont.Charset = DEFAULT_CHARSET
  23.     TitleFont.Color = clWindowText
  24.     TitleFont.Height = -11
  25.     TitleFont.Name = 'MS Sans Serif'
  26.     TitleFont.Style = []
  27.   end
  28.   object Panel1: TPanel
  29.     Left = 0
  30.     Top = 0
  31.     Width = 412
  32.     Height = 35
  33.     Align = alTop
  34.     BevelOuter = bvNone
  35.     TabOrder = 1
  36.     object ServerNameCombo: TComboBox
  37.       Left = 64
  38.       Top = 10
  39.       Width = 145
  40.       Height = 21
  41.       ItemHeight = 13
  42.       TabOrder = 0
  43.       Text = 'RDSServer.DataFactory'
  44.       Items.Strings = (
  45.         'RServer.RDSAppServer'
  46.         'RDSServer.DataFactory')
  47.     end
  48.     object OpenButton: TButton
  49.       Left = 218
  50.       Top = 7
  51.       Width = 75
  52.       Height = 25
  53.       Caption = 'Open'
  54.       TabOrder = 1
  55.       OnClick = OpenButtonClick
  56.     end
  57.   end
  58.   object DataSource1: TDataSource
  59.     DataSet = Employee
  60.     Left = 65
  61.     Top = 165
  62.   end
  63.   object Employee: TADODataSet
  64.     ConnectionString = 
  65.       'FILE NAME=C:\Program Files\Common Files\System\OLE DB\Data Links' +
  66.       '\DBDemos.UDL'
  67.     CursorType = ctStatic
  68.     LockType = ltBatchOptimistic
  69.     CommandText = 'Employee'
  70.     CommandType = cmdTable
  71.     Parameters = <>
  72.     RDSConnection = RDSConnection1
  73.     Left = 29
  74.     Top = 165
  75.   end
  76.   object RDSConnection1: TRDSConnection
  77.     Left = 15
  78.     Top = 3
  79.   end
  80. end
  81.