📄 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -