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

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 125
  4.   Width = 582
  5.   Height = 297
  6.   Caption = 'Data Link Files'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 120
  15.   TextHeight = 16
  16.   object DBGrid1: TDBGrid
  17.     Left = 0
  18.     Top = 0
  19.     Width = 574
  20.     Height = 264
  21.     Align = alClient
  22.     DataSource = DataSource1
  23.     TabOrder = 0
  24.     TitleFont.Charset = DEFAULT_CHARSET
  25.     TitleFont.Color = clWindowText
  26.     TitleFont.Height = -13
  27.     TitleFont.Name = 'MS Sans Serif'
  28.     TitleFont.Style = []
  29.   end
  30.   object DataSource1: TDataSource
  31.     DataSet = ADOTable1
  32.     Left = 136
  33.     Top = 24
  34.   end
  35.   object ADOTable1: TADOTable
  36.     Active = True
  37.     Connection = ADOConnection1
  38.     CursorType = ctStatic
  39.     TableName = 'Customers'
  40.     Left = 264
  41.     Top = 24
  42.   end
  43.   object ADOConnection1: TADOConnection
  44.     Connected = True
  45.     ConnectionString = 'File Name=TEST.UDL'
  46.     LoginPrompt = False
  47.     Mode = cmShareDenyNone
  48.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  49.     Left = 384
  50.     Top = 24
  51.   end
  52. end