?? unit1.~dfm
字號:
object Form1: TForm1
Left = 196
Top = 103
Width = 544
Height = 418
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDefault
Visible = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object BitBtn1: TBitBtn
Left = 16
Top = 10
Width = 138
Height = 25
Caption = #30452#25509#36830#25509#25968#25454','#25968#25454#32465#23450
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 172
Top = 10
Width = 113
Height = 25
Caption = #20195#30721#36830#25509#25968#25454
TabOrder = 1
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 16
Top = 50
Width = 137
Height = 25
Caption = 'EditConnectionString'
TabOrder = 2
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 172
Top = 50
Width = 113
Height = 25
Caption = 'Param'#28165#21333
TabOrder = 3
OnClick = BitBtn4Click
end
object txt_Info: TMemo
Left = 16
Top = 184
Width = 185
Height = 193
Lines.Strings = (
'txt_Info')
TabOrder = 4
end
object txt_SQL: TMemo
Left = 16
Top = 88
Width = 185
Height = 89
Lines.Strings = (
'txt_SQL')
TabOrder = 5
end
object BitBtn5: TBitBtn
Left = 308
Top = 10
Width = 75
Height = 25
Caption = 'ModalResult'
TabOrder = 6
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 308
Top = 50
Width = 75
Height = 25
Caption = #38169#35823
TabOrder = 7
OnClick = BitBtn6Click
end
object BitBtn7: TBitBtn
Left = 410
Top = 10
Width = 75
Height = 25
Caption = #24211#23384
TabOrder = 8
OnClick = BitBtn7Click
end
object cmd_CreateMDB: TBitBtn
Left = 208
Top = 88
Width = 97
Height = 25
Caption = #21019#24314'MDB'#25968#25454#24211
TabOrder = 9
OnClick = cmd_CreateMDBClick
end
object DBGrid1: TDBGrid
Left = 208
Top = 120
Width = 320
Height = 161
DataSource = DataSource1
TabOrder = 10
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Conn_Main: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\Rea' +
'lty.mdb;Mode=ReadWrite;Extended Properties="";Persist Security I' +
'nfo=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="' +
'";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLE' +
'DB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;J' +
'et OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passw' +
'ord="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt ' +
'Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet ' +
'OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=True'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 80
Top = 136
end
object Qry_R: TADOQuery
Connection = Conn_Main
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select * From MSysObjects')
Left = 144
Top = 136
end
object Conn_SQL: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Password=gselec;Persist Security Info=True;U' +
'ser ID=sa;Initial Catalog=Easter2;Data Source=.'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'SQLOLEDB.1'
Left = 80
Top = 192
end
object SaveDialog1: TSaveDialog
Filter = 'MDB'#25968#25454#24211'|*.mdb|'#25152#26377#25991#20214'|*.*'
Left = 72
Top = 256
end
object DataSource1: TDataSource
DataSet = Qry_R
Left = 200
Top = 136
end
object Qry_SQL: TADOQuery
Connection = Conn_SQL
Parameters = <>
Left = 144
Top = 193
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -