📄 doublesystem.dfm
字号:
object Form7: TForm7
Left = 40
Top = 191
BorderStyle = bsDialog
Caption = #21333#20449#24687#38598#32500#25252
ClientHeight = 321
ClientWidth = 646
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 646
Height = 321
Align = alClient
BevelInner = bvSpace
BorderStyle = bsSingle
TabOrder = 0
object Bevel1: TBevel
Left = 0
Top = 41
Width = 641
Height = 2
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 1
Top = 276
Width = 641
Height = 2
Shape = bsBottomLine
end
object Label1: TLabel
Left = 32
Top = 14
Width = 112
Height = 16
Caption = #35831#36873#25321#20449#24687#38598#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object ComboBox1: TComboBox
Left = 152
Top = 12
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
OnChange = ComboBox1Change
Items.Strings = (
#22522#26412#20449#24687#38598'(A01)'
#34892#25919'('#31649#29702')'#32844#21153#20449#24687#38598'(A02)'
#19987#19994#25216#26415#32844#21153#20449#24687#38598'(A03)'
#31038#20250'('#23447#25945')'#22242#20307#20219#32844#20449#24687#38598'(A04)'
#32844#32423#20449#24687#38598'(A05)'
#19987#19994#25216#26415#20219#32844#36164#26684'('#32844#31216')'#20449#24687#38598'(A06)'
#34900#31216#20449#24687#38598'(A07)'
#23398#21382#20449#24687#38598'(A08)'
#23398#20301#20449#24687#38598'(A09)'
#35821#35328#33021#21147#20449#24687#38598'(A10)'
#22521#35757'('#36827#20462')'#20449#24687#38598'(A11)'
#20986#22269'('#22659')'#20449#24687#38598'(A12)'
#21442#19982#37325#35201#21382#21490#27963#21160#20449#24687#38598'(A13)'
#22870#24809#20449#24687#38598'(A14)'
#32452#32455#32771#26680#32771#23519'('#23457#26597')'#20449#24687#38598'(A15)'
#23653#21382#20449#24687#38598'(A16)'
#32463#21382#32508#36848#20449#24687#38598'(A17)'
#19994#32489#20449#24687#38598'(A18)'
#19987#19994#25216#26415#24037#20316#21450#25104#26524#20449#24687#38598'(A19)'
#19987#19994#25216#26415#24037#20316#33719#22870#20449#24687#38598'(A20)'
#33719#21462#19987#21033#20449#24687#38598'(A21)'
#35770#33879#20449#24687#38598'(A22)'
#21518#22791#24178#37096#20449#24687#38598'(A23)'
#19987#23478#20449#24687#38598'(A24)'
#26469#21326#23450#23621#19987#23478#20449#24687#38598'(A25)'
#36864#20986#29616#24441#20891#20154'('#27494#35686')'#20449#24687#38598'(A26)'
#24037#20154#25216#26415#31561#32423#20449#24687#38598'(A27)'
#24037#20154#32463#21382#20449#24687#38598'(A28)'
#35843#20837#20449#24687#38598'(A29)'
#35843#20986#20449#24687#38598'(A30)'
#31163#36864#20449#24687#38598'(A31)'
#24037#36164#21464#21160#20449#24687#38598'(A32)'
#24037#36164#31119#21033#39033#30446#20449#24687#38598'(A33)'
#31038#20250#20445#38505#20449#24687#38598'(A34)'
#22269#31821#20449#24687#38598'(A35)'
#23478#24237#25104#21592#21450#31038#20250#20851#31995#20449#24687#38598'(A36)'
#20303#22336#36890#20449#20449#24687#38598'(A37)'
#20154#20107#26723#26696#31649#29702#20449#24687#38598'(A38)'
#34917#20805#20449#24687#38598'(A39)'
#20307#26684#26816#26597#20449#24687#38598'(A40)'
#30103'('#20241')'#20859#20449#24687#38598'(A41)'
#34892#25919'('#31649#29702')'#32844#21382#20449#24687#38598'(A42)')
end
object Button1: TButton
Left = 384
Top = 12
Width = 89
Height = 25
Caption = #36827#20837#32500#25252
Default = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 520
Top = 12
Width = 75
Height = 25
Cancel = True
Caption = #36864#20986
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 63
Top = 285
Width = 75
Height = 25
Caption = #28155#21152
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 175
Top = 285
Width = 75
Height = 25
Caption = #21024#38500
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 290
Top = 285
Width = 75
Height = 25
Caption = #20462#25913
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 405
Top = 285
Width = 75
Height = 25
Caption = #25552#20132
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = Button6Click
end
object DBGrid1: TDBGrid
Left = 3
Top = 47
Width = 635
Height = 226
DataSource = DataSource1
ReadOnly = True
TabOrder = 7
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button7: TButton
Left = 520
Top = 285
Width = 75
Height = 25
Caption = #21462#28040
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = Button7Click
end
end
object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
Left = 352
Top = 8
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=ganbu' +
'system.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
'5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
'P=False'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 320
Top = 16
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 112
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -