?? unit1.dfm
字號:
object Form1: TForm1
Left = 245
Top = 141
Width = 319
Height = 194
Caption = #20013#21326#20154#27665#20849#21644#22269#20844#27665#25143#31821#31649#29702#31995#32479'V1.0'
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 72
Top = 8
Width = 209
Height = 25
AutoSize = False
Caption = #20013#21326#20154#27665#20849#21644#22269#20844#27665#25143#31821#31649#29702#31995#32479
end
object Label2: TLabel
Left = 48
Top = 40
Width = 81
Height = 13
AutoSize = False
Caption = #29992#25143#24080#21495
end
object Label3: TLabel
Left = 48
Top = 80
Width = 57
Height = 13
AutoSize = False
Caption = #29992#25143#23494#30721
end
object ComboBox1: TComboBox
Left = 112
Top = 40
Width = 145
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 13
TabOrder = 0
end
object Edit1: TEdit
Left = 112
Top = 80
Width = 145
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
PasswordChar = '*'
TabOrder = 1
end
object Button1: TButton
Left = 112
Top = 120
Width = 65
Height = 25
Caption = #30331#20837
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 192
Top = 120
Width = 65
Height = 25
Caption = #36864#20986
TabOrder = 3
OnClick = Button2Click
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\'#22797#20214 +
' '#38472#22836#21457'\'#25968#25454#24211'\db1.mdb;Mode=Share Deny None;Extended Properties="";Per' +
'sist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:' +
'Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine' +
' Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Parti' +
'al Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New' +
' Database Password="";Jet OLEDB:Create System Database=False;Jet' +
' OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Com' +
'pact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OL' +
'EDB:SFP=False'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 8
Top = 8
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select '#24080#21495' from '#30331#20837#34920'1')
Left = 8
Top = 40
end
object ADOQuery2: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 8
Top = 72
end
object ADOQuery3: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 8
Top = 112
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -