home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Midas / Pooler / CLNTFRM.DFM / CLNTFRM.txt
Encoding:
Text File  |  1999-08-11  |  1.8 KB  |  89 lines
  1. object Form1: TForm1
  2.   Left = 209
  3.   Top = 106
  4.   Width = 497
  5.   Height = 379
  6.   Caption = 'Form1'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = True
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Button1: TButton
  17.     Left = 16
  18.     Top = 8
  19.     Width = 89
  20.     Height = 25
  21.     Caption = 'Run SQL'
  22.     TabOrder = 0
  23.     OnClick = Button1Click
  24.   end
  25.   object Memo1: TMemo
  26.     Left = 128
  27.     Top = 8
  28.     Width = 353
  29.     Height = 89
  30.     Lines.Strings = (
  31.       'select * from employee')
  32.     TabOrder = 1
  33.     OnChange = Memo1Change
  34.   end
  35.   object DBGrid1: TDBGrid
  36.     Left = 16
  37.     Top = 104
  38.     Width = 465
  39.     Height = 241
  40.     DataSource = DataSource1
  41.     TabOrder = 2
  42.     TitleFont.Charset = DEFAULT_CHARSET
  43.     TitleFont.Color = clWindowText
  44.     TitleFont.Height = -11
  45.     TitleFont.Name = 'MS Sans Serif'
  46.     TitleFont.Style = []
  47.   end
  48.   object Button2: TButton
  49.     Left = 16
  50.     Top = 40
  51.     Width = 89
  52.     Height = 25
  53.     Caption = 'GetNextPacket'
  54.     Enabled = False
  55.     TabOrder = 3
  56.     OnClick = Button2Click
  57.   end
  58.   object ClientDataSet1: TClientDataSet
  59.     Aggregates = <>
  60.     FetchOnDemand = False
  61.     PacketRecords = 4
  62.     Params = <>
  63.     ProviderName = 'DataSetProvider1'
  64.     RemoteServer = RemoteServer1
  65.     AfterOpen = CheckButtonActive
  66.     AfterClose = CheckButtonActive
  67.     BeforeGetRecords = ClientDataSet1BeforeGetRecords
  68.     Left = 56
  69.     Top = 64
  70.   end
  71.   object RemoteServer1: TDCOMConnection
  72.     ServerGUID = '{0CE99804-9F28-11D1-8944-00A0248E5091}'
  73.     ServerName = 'Server.Pooler'
  74.     Left = 16
  75.     Top = 64
  76.   end
  77.   object DataSource1: TDataSource
  78.     DataSet = ClientDataSet1
  79.     Left = 88
  80.     Top = 64
  81.   end
  82.   object CDSClone: TClientDataSet
  83.     Aggregates = <>
  84.     Params = <>
  85.     Left = 56
  86.     Top = 32
  87.   end
  88. end
  89.