ClientIndexesU1.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 125
  4.   Width = 560
  5.   Height = 283
  6.   Caption = 
  7.     'Client Indexes (Sorting Data In A Grid) - Click on a column titl' +
  8.     'e'
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   PixelsPerInch = 120
  17.   TextHeight = 16
  18.   object DBGrid1: TDBGrid
  19.     Left = 0
  20.     Top = 0
  21.     Width = 552
  22.     Height = 250
  23.     Align = alClient
  24.     DataSource = DataSource1
  25.     TabOrder = 0
  26.     TitleFont.Charset = DEFAULT_CHARSET
  27.     TitleFont.Color = clWindowText
  28.     TitleFont.Height = -13
  29.     TitleFont.Name = 'MS Sans Serif'
  30.     TitleFont.Style = []
  31.     OnTitleClick = DBGrid1TitleClick
  32.   end
  33.   object ADODataSet1: TADODataSet
  34.     Active = True
  35.     ConnectionString = 
  36.       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:program filesmi' +
  37.       'crosoft officeofficesamplesnorthwind.mdb;Persist Security Inf' +
  38.       'o=False'
  39.     CursorType = ctStatic
  40.     CommandText = 'SELECT * FROM CUSTOMERS'
  41.     Parameters = <>
  42.     Left = 232
  43.     Top = 72
  44.   end
  45.   object DataSource1: TDataSource
  46.     DataSet = ADODataSet1
  47.     Left = 336
  48.     Top = 72
  49.   end
  50. end