?? unit3.dfm
字號:
object Form3: TForm3
Left = 184
Top = 127
Width = 768
Height = 614
Caption = #36873#35838#31995#32479
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBox3: TGroupBox
Left = 0
Top = 0
Width = 761
Height = 73
Caption = #20320#30340#20449#24687
TabOrder = 11
object Label1: TLabel
Left = 80
Top = 24
Width = 24
Height = 13
Caption = #23398#21495
end
object Label2: TLabel
Left = 248
Top = 24
Width = 24
Height = 13
Caption = #22995#21517
end
object Label3: TLabel
Left = 432
Top = 24
Width = 24
Height = 13
Caption = #24180#32423
end
object Label8: TLabel
Left = 72
Top = 0
Width = 84
Height = 13
Caption = #36755#20837#23398#21495#21518#22238#36710
end
object Button1: TButton
Left = 664
Top = 32
Width = 75
Height = 25
Caption = #20851#38381
TabOrder = 0
OnClick = Button1Click
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 64
Width = 761
Height = 169
Caption = #24050#36873#35838#31243
DockSite = True
TabOrder = 10
object Label6: TLabel
Left = 72
Top = 16
Width = 3
Height = 13
end
object Label7: TLabel
Left = 24
Top = 16
Width = 48
Height = 13
Caption = #35760#24405#25968#65306
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 240
Width = 761
Height = 113
Caption = #35838#31243#20449#24687
TabOrder = 9
object Label4: TLabel
Left = 56
Top = 32
Width = 36
Height = 13
Caption = #35838#31243#21495
end
object Label5: TLabel
Left = 200
Top = 40
Width = 36
Height = 13
Caption = #35838#31243#21517
end
object BitBtn3: TBitBtn
Left = 384
Top = 72
Width = 75
Height = 25
Caption = #21024#38500
Enabled = False
TabOrder = 0
OnClick = BitBtn3Click
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 376
Width = 689
Height = 185
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
object Edit1: TEdit
Left = 80
Top = 40
Width = 121
Height = 21
TabOrder = 1
OnKeyPress = Edit1KeyPress
end
object Edit2: TEdit
Left = 256
Top = 40
Width = 121
Height = 21
TabOrder = 2
end
object Edit3: TEdit
Left = 432
Top = 40
Width = 121
Height = 21
TabOrder = 3
end
object DBGrid2: TDBGrid
Left = 0
Top = 96
Width = 689
Height = 120
DataSource = DataSource2
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid2CellClick
end
object Edit4: TEdit
Left = 32
Top = 304
Width = 121
Height = 21
TabOrder = 5
end
object Edit5: TEdit
Left = 184
Top = 304
Width = 121
Height = 21
TabOrder = 6
end
object BitBtn1: TBitBtn
Left = 384
Top = 272
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 7
OnClick = BitBtn1Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880008888
8000888880808888808088888000788870008888800000000000000000800008
00000888808000080000080080000000000008888800008000080CCCCCC00CCC
00888C888880088800888C800800080800888C8888888888C8888CCCCCCCCCCC
C8888C8CC8CC8CC8C8888CCCCCCCCCCCC8888888888888888888}
end
object BitBtn2: TBitBtn
Left = 512
Top = 264
Width = 75
Height = 41
Caption = #36873#35838
Enabled = False
TabOrder = 8
OnClick = BitBtn2Click
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000007777777777777777700000007777777774F77777700000007777
7777444F77777000000077777774444F777770000000700000444F44F7777000
000070FFF444F0744F777000000070F8884FF0774F777000000070FFFFFFF077
74F77000000070F88888F077774F7000000070FFFFFFF0777774F000000070F8
8777F07777774000000070FFFF00007777777000000070F88707077777777000
000070FFFF007777777770000000700000077777777770000000777777777777
777770000000}
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\de' +
'lphi'#20316#19994'\'#35838#31243#35774#35745'\'#28304#20195#30721'\'#26032#24314' Microsoft Office Access '#24212#29992#31243#24207'.mdb;Mode=Share D' +
'eny None;Extended Properties="";Persist Security Info=False;Jet ' +
'OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Da' +
'tabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Lo' +
'cking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Globa' +
'l Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLE' +
'DB: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=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 632
Top = 8
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.'#35838#31243#21495',a.'#35838#31243#21517',b.'#19978#35838#26102#38388#22825',b.'#19978#35838#26102#38388#33410',b.'#19978#35838#22320#28857' '
'from '#35838#31243#20449#24687' a,'#35838#31243#34920' b'
'where a.'#35838#31243#21495'=b.'#35838#31243#21495)
Left = 560
Top = 8
end
object DataSource1: TDataSource
DataSet = ADOQuery1
OnDataChange = DataSource1DataChange
Left = 600
Top = 8
end
object ADOQuery2: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.'#23398#21495', a.'#35838#31243#21495',b.'#35838#31243#21517',b.'#24320#35838#31995',c.'#19978#35838#26102#38388#22825',c.'#19978#35838#26102#38388#33410',c.'#19978#35838#22320#28857
'from '#36873#35838#34920' a,'#35838#31243#20449#24687' b,'#35838#31243#34920' c'
'where (a.'#35838#31243#21495'=b.'#35838#31243#21495')and(c.'#35838#31243#21495'=b.'#35838#31243#21495')')
Left = 520
Top = 8
end
object ADOQuery3: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#23398#29983#20449#24687#34920)
Left = 664
Top = 8
end
object DataSource2: TDataSource
DataSet = ADOQuery2
OnDataChange = DataSource2DataChange
Left = 496
Top = 8
end
object ADOCommand1: TADOCommand
Connection = ADOConnection1
Parameters = <>
Left = 632
Top = 272
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -