ufrmqryado.dfm

数据库通用工具

object frmQryADO: TfrmQryADO
  Left = 192
  Top = 132
  BorderStyle = bsSingle
  Caption = 'ADO '#26597#35810
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 488
    Top = 56
    Width = 48
    Height = 13
    AutoSize = False
    Caption = #29992#25143#21517
  end
  object Label2: TLabel
    Left = 488
    Top = 88
    Width = 36
    Height = 13
    AutoSize = False
    Caption = #21475' '#20196
  end
  object Label3: TLabel
    Left = 16
    Top = 16
    Width = 48
    Height = 13
    AutoSize = False
    Caption = #28304#25991#20214
  end
  object bbtOpen: TBitBtn
    Left = 408
    Top = 10
    Width = 75
    Height = 25
    Caption = '&Open'
    TabOrder = 0
    OnClick = bbtOpenClick
  end
  object editPath: TEdit
    Left = 64
    Top = 12
    Width = 329
    Height = 20
    ReadOnly = True
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 40
    Width = 465
    Height = 409
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object editUser: TEdit
    Left = 552
    Top = 56
    Width = 121
    Height = 20
    TabOrder = 3
  end
  object editPass: TEdit
    Left = 552
    Top = 88
    Width = 121
    Height = 20
    TabOrder = 4
  end
  object bbtLink: TBitBtn
    Left = 496
    Top = 10
    Width = 75
    Height = 25
    Caption = '&Link'
    Enabled = False
    TabOrder = 5
    OnClick = bbtLinkClick
  end
  object bbtQry: TBitBtn
    Left = 496
    Top = 384
    Width = 70
    Height = 50
    Caption = '&Query'
    TabOrder = 6
    OnClick = bbtQryClick
  end
  object mo: TMemo
    Left = 496
    Top = 272
    Width = 169
    Height = 100
    Lines.Strings = (
      'select * from person')
    TabOrder = 7
  end
  object bbtUnLink: TBitBtn
    Left = 584
    Top = 10
    Width = 75
    Height = 25
    Caption = '&UnLink'
    Enabled = False
    TabOrder = 8
    OnClick = bbtUnLinkClick
  end
  object bbtClose: TBitBtn
    Left = 600
    Top = 416
    Width = 75
    Height = 25
    Cancel = True
    Caption = '&Close'
    TabOrder = 9
    OnClick = bbtCloseClick
  end
  object ListBox1: TListBox
    Left = 496
    Top = 120
    Width = 169
    Height = 150
    ItemHeight = 12
    TabOrder = 10
    OnClick = ListBox1Click
  end
  object adoConnection: TADOConnection
    CommandTimeout = 15
    ConnectionString = 
      'Provider=MSDASQL.1;Password=why;Persist Security Info=True;User ' +
      'ID=admin;Extended Properties="DBQ=.\cardBase.mdb;Driver={Microso' +
      'ft Access Driver (*.mdb)};DriverId=25;Exclusive=1;FIL=MS Access;' +
      'MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTr' +
      'ansactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 376
    Top = 104
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Access Database (*.mdb)|*.mdb'
    Left = 368
    Top = 40
  end
  object ADOQuery1: TADOQuery
    Connection = adoConnection
    Parameters = <>
    Left = 376
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 288
    Top = 160
  end
end