📄 unit1.dfm
字号:
object MainForm: TMainForm
Left = 416
Top = 57
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #20116#23376#26827#28216#25103
ClientHeight = 600
ClientWidth = 542
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
FFF0000FFF00000FFF0000FFF000000FFFFF00FFFFF000FFFFF00FFFFF00000F
FFFF00FFFFF000FFFFF00FFFFF00000FFFFF00FFFFF000FFFFF00FFFFF000000
FFF0000FFF00000FFF0000FFF000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFBF7F7EFFBF7E3EFFBF7C1EE80000001FBF7C1EFFBF7E3EFFBF7F7EFF1E3
E3C7E0C1C18380000000E0C1C183F1E3E3C7FBF7F7EFFBF7F7EFFBF7E3EFFBF7
C1EF80000000FBF7C1EFFBF7E3EFFBF7F7EFFBF7F7EFFBF7E3EFFBF7C1EF8000
0000FBF7C1EFFBF7E3EFFBF7F7EFFBF7F7EFFFFFFFFFFFFFFFFFFFFFFFFF}
Menu = MainMenu
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnMouseDown = FormMouseDown
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 536
Width = 545
Height = 65
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 28
Width = 54
Height = 13
Caption = #29609#23478#27493#25968' '
end
object Edit1: TEdit
Left = 80
Top = 28
Width = 121
Height = 21
TabOrder = 0
Text = 'Edit1'
end
object Button1: TButton
Left = 224
Top = 24
Width = 75
Height = 25
Caption = #26032#28216#25103'(&N)'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 344
Top = 24
Width = 75
Height = 25
Caption = #24724#26827'(&B)'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 456
Top = 24
Width = 75
Height = 25
Caption = #31163#24320'(&Q)'
TabOrder = 3
OnClick = Button3Click
end
end
object MainMenu: TMainMenu
Left = 184
Top = 192
object N6: TMenuItem
Caption = #25991#20214'(&F)'
object N11: TMenuItem
Caption = #26032#28216#25103'(&N)'
OnClick = N11Click
end
object N4: TMenuItem
Caption = #25991#20214#21015#34920'(&L)'
OnClick = N4Click
end
object N7: TMenuItem
Caption = #25171#24320'...(&O)'
OnClick = N7Click
end
object N8: TMenuItem
Caption = #20445#23384'...(&S)'
OnClick = N8Click
end
object N9: TMenuItem
Caption = '-'
end
object N10: TMenuItem
Caption = #36864#20986'(&E)'
OnClick = N10Click
end
end
object N1: TMenuItem
Caption = #36873#39033'(&O)'
object N3: TMenuItem
Caption = #24724#26827'(&B)'
OnClick = N3Click
end
object ComputerFirst: TMenuItem
Caption = #35745#31639#26426#20808'(&C)'
Checked = True
OnClick = ComputerFirstClick
end
object N5: TMenuItem
Caption = #33258#21160#19979#26827'(&A)'
OnClick = N5Click
end
end
object N2: TMenuItem
Caption = #20851#20110'..(&A)'
OnClick = N2Click
end
end
object ShanShuoTimer: TTimer
Enabled = False
Interval = 300
OnTimer = ShanShuoTimerTimer
Left = 72
Top = 152
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=WuZiDb.mdb;Persist ' +
'Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 288
Top = 168
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select *from save1;')
Left = 352
Top = 168
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 424
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -