home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Midas / Adhoc / CLIENTFR.DFM / CLIENTFR.txt
Encoding:
Text File  |  1999-08-11  |  1.9 KB  |  96 lines
  1. object Form1: TForm1
  2.   Left = 245
  3.   Top = 115
  4.   AutoScroll = False
  5.   Caption = 'AdHoc Query Demo'
  6.   ClientHeight = 318
  7.   ClientWidth = 508
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = True
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Label1: TLabel
  19.     Left = 14
  20.     Top = 4
  21.     Width = 28
  22.     Height = 13
  23.     Caption = 'Query'
  24.   end
  25.   object Bevel1: TBevel
  26.     Left = 8
  27.     Top = 90
  28.     Width = 487
  29.     Height = 2
  30.     Shape = bsTopLine
  31.   end
  32.   object SQL: TMemo
  33.     Left = 12
  34.     Top = 20
  35.     Width = 321
  36.     Height = 61
  37.     Lines.Strings = (
  38.       'select * from customer')
  39.     TabOrder = 0
  40.   end
  41.   object DatabaseName: TComboBox
  42.     Left = 341
  43.     Top = 20
  44.     Width = 145
  45.     Height = 21
  46.     ItemHeight = 13
  47.     TabOrder = 1
  48.     Text = 'DBDEMOS'
  49.     OnClick = DatabaseNameClick
  50.   end
  51.   object RunButton: TButton
  52.     Left = 342
  53.     Top = 51
  54.     Width = 144
  55.     Height = 25
  56.     Caption = '&Run Query'
  57.     Default = True
  58.     TabOrder = 2
  59.     OnClick = RunButtonClick
  60.   end
  61.   object DBGrid1: TDBGrid
  62.     Left = 12
  63.     Top = 100
  64.     Width = 479
  65.     Height = 207
  66.     DataSource = DataSource1
  67.     TabOrder = 3
  68.     TitleFont.Charset = DEFAULT_CHARSET
  69.     TitleFont.Color = clWindowText
  70.     TitleFont.Height = -11
  71.     TitleFont.Name = 'MS Sans Serif'
  72.     TitleFont.Style = []
  73.   end
  74.   object DataSource1: TDataSource
  75.     DataSet = ClientData
  76.     Left = 90
  77.     Top = 256
  78.   end
  79.   object RemoteServer: TDCOMConnection
  80.     Connected = True
  81.     ServerGUID = '{85C677A2-F92F-11D0-9FFC-00A0248E4B9A}'
  82.     ServerName = 'Serv.AdHocQueryDemo'
  83.     Left = 20
  84.     Top = 256
  85.   end
  86.   object ClientData: TClientDataSet
  87.     Aggregates = <>
  88.     PacketRecords = 10
  89.     Params = <>
  90.     ProviderName = 'AdHocProvider'
  91.     RemoteServer = RemoteServer
  92.     Left = 56
  93.     Top = 256
  94.   end
  95. end
  96.