home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Shareware / Programare / pgedri / Source / Demos / Params / Main.xfm < prev    next >
Encoding:
Text File  |  2005-04-01  |  2.1 KB  |  103 lines
  1. object frmDemo: TfrmDemo
  2.   Left = 152
  3.   Top = 261
  4.   Width = 628
  5.   Height = 422
  6.   VertScrollBar.Range = 405
  7.   HorzScrollBar.Range = 300
  8.   ActiveControl = DBGrid1
  9.   Caption = 'Params Demo'
  10.   Color = clBackground
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   TextWidth = 6
  14.   object DBGrid1: TDBGrid
  15.     Left = 0
  16.     Top = 159
  17.     Width = 628
  18.     Height = 263
  19.     Align = alBottom
  20.     DataSource = dsParams
  21.     TabOrder = 0
  22.     TitleFont.Color = clBlack
  23.     TitleFont.Height = 11
  24.     TitleFont.Name = 'MS Shell Dlg'
  25.     TitleFont.Pitch = fpVariable
  26.     TitleFont.Style = []
  27.     TitleFont.Weight = 40
  28.   end
  29.   object edtSearchStr: TEdit
  30.     Left = 96
  31.     Top = 37
  32.     Width = 157
  33.     Height = 21
  34.     TabOrder = 1
  35.     Text = '%a%'
  36.   end
  37.   object Panel2: TPanel
  38.     Left = 2
  39.     Top = 109
  40.     Width = 298
  41.     Height = 33
  42.     Color = clInfoBk
  43.     TabOrder = 2
  44.     object Label3: TLabel
  45.       Left = 1
  46.       Top = 1
  47.       Width = 296
  48.       Height = 31
  49.       Align = alClient
  50.       Caption = 
  51.         'Enter the search string on the editbox above. The '#39'%'#39' char match' +
  52.         'es any string of zero opr more characters.'
  53.       WordWrap = True
  54.     end
  55.   end
  56.   object btnSearch: TButton
  57.     Left = 4
  58.     Top = 36
  59.     Width = 75
  60.     Height = 25
  61.     Caption = 'Search!'
  62.     TabOrder = 3
  63.     OnClick = btnSearchClick
  64.   end
  65.   object dsParams: TDataSource
  66.     DataSet = cdsParams
  67.     Left = 276
  68.     Top = 4
  69.   end
  70.   object connParams: TSQLConnection
  71.     ConnectionName = 'PGEConnection'
  72.     LoadParamsOnConnect = True
  73.     LoginPrompt = False
  74.     Left = 276
  75.     Top = 44
  76.   end
  77.   object sdsParams: TSQLDataSet
  78.     CommandText = 'select * from pg_type where typname ~~ :typname'
  79.     MaxBlobSize = -1
  80.     Params = <
  81.       item
  82.         DataType = ftString
  83.         Name = 'typname'
  84.         ParamType = ptInput
  85.       end>
  86.     SQLConnection = connParams
  87.     Left = 320
  88.     Top = 5
  89.   end
  90.   object cdsParams: TClientDataSet
  91.     Aggregates = <>
  92.     Params = <>
  93.     ProviderName = 'dpParams'
  94.     Left = 320
  95.     Top = 44
  96.   end
  97.   object dpParams: TDataSetProvider
  98.     DataSet = sdsParams
  99.     Left = 359
  100.     Top = 5
  101.   end
  102. end
  103.