📄 person.dfm
字号:
object person_form: Tperson_form
Left = 206
Top = 168
Width = 897
Height = 563
Caption = #32844#24037#24037#36164#20449#24687#31649#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label6: TLabel
Left = 24
Top = 24
Width = 65
Height = 25
AutoSize = False
Caption = #32844#24037#32534#21495#65306
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 889
Height = 57
Color = clSkyBlue
TabOrder = 0
object SpeedButton1: TSpeedButton
Left = 72
Top = 16
Width = 57
Height = 33
Caption = #28155#21152
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clYellow
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 256
Top = 16
Width = 57
Height = 33
Caption = #20462#25913
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clYellow
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 456
Top = 16
Width = 57
Height = 33
Caption = #21024#38500
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clYellow
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 696
Top = 16
Width = 57
Height = 33
Caption = #36864#20986
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clYellow
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton4Click
end
end
object Panel2: TPanel
Left = 0
Top = 56
Width = 889
Height = 217
TabOrder = 1
object Label1: TLabel
Left = 0
Top = 0
Width = 81
Height = 17
AutoSize = False
Caption = #20449#24687#20462#25913#21306#65306
end
object Label2: TLabel
Left = 24
Top = 24
Width = 65
Height = 25
AutoSize = False
Caption = #32844#24037#32534#21495#65306
end
object Label3: TLabel
Left = 328
Top = 24
Width = 73
Height = 25
AutoSize = False
Caption = #32844#24037#22995#21517#65306
end
object Label4: TLabel
Left = 600
Top = 24
Width = 73
Height = 25
AutoSize = False
Caption = #25152#23646#37096#38376#65306
end
object Label13: TLabel
Left = 8
Top = 128
Width = 65
Height = 25
AutoSize = False
Caption = #20445#38505#65306
end
object Label14: TLabel
Left = 216
Top = 128
Width = 65
Height = 25
AutoSize = False
Caption = #27700#30005#36153#65306
end
object Label15: TLabel
Left = 440
Top = 128
Width = 65
Height = 25
AutoSize = False
Caption = #25151#31199#65306
end
object Label16: TLabel
Left = 656
Top = 128
Width = 65
Height = 25
AutoSize = False
Caption = #20250#36153#65306
end
object Edit1: TEdit
Left = 104
Top = 24
Width = 161
Height = 21
TabOrder = 0
end
object Edit2: TEdit
Left = 400
Top = 24
Width = 161
Height = 21
TabOrder = 1
end
object Edit3: TEdit
Left = 672
Top = 24
Width = 161
Height = 21
TabOrder = 2
end
object Panel3: TPanel
Left = -8
Top = 48
Width = 897
Height = 57
TabOrder = 3
object Label5: TLabel
Left = 8
Top = 0
Width = 73
Height = 25
AutoSize = False
Caption = #24037#36164#21333#65306
end
object Label7: TLabel
Left = 16
Top = 24
Width = 41
Height = 21
AutoSize = False
Caption = #22522#26412#24037#36164#65306
end
object Label8: TLabel
Left = 168
Top = 24
Width = 41
Height = 21
AutoSize = False
Caption = #22870#37329#65306
end
object Label9: TLabel
Left = 360
Top = 24
Width = 41
Height = 21
AutoSize = False
Caption = #34917#21161#65306
end
object Label10: TLabel
Left = 544
Top = 24
Width = 41
Height = 21
AutoSize = False
Caption = #27941#36148#65306
end
object Label11: TLabel
Left = 720
Top = 24
Width = 41
Height = 21
AutoSize = False
Caption = #20844#31215#37329#65306
end
object Edit4: TEdit
Left = 64
Top = 24
Width = 81
Height = 21
TabOrder = 0
end
object Edit5: TEdit
Left = 224
Top = 24
Width = 81
Height = 21
TabOrder = 1
end
object Edit6: TEdit
Left = 416
Top = 24
Width = 89
Height = 21
TabOrder = 2
end
object Edit7: TEdit
Left = 608
Top = 24
Width = 81
Height = 21
TabOrder = 3
end
object Edit8: TEdit
Left = 784
Top = 24
Width = 81
Height = 21
TabOrder = 4
end
end
object Edit9: TEdit
Left = 80
Top = 128
Width = 81
Height = 21
TabOrder = 4
end
object Edit10: TEdit
Left = 280
Top = 128
Width = 89
Height = 21
TabOrder = 5
end
object Edit11: TEdit
Left = 512
Top = 128
Width = 89
Height = 21
TabOrder = 6
end
object Edit12: TEdit
Left = 720
Top = 128
Width = 89
Height = 21
TabOrder = 7
end
object Panel4: TPanel
Left = -8
Top = 168
Width = 897
Height = 49
TabOrder = 8
object SpeedButton5: TSpeedButton
Left = 264
Top = 8
Width = 73
Height = 33
Caption = #25552#20132#20462#25913
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold, fsItalic]
ParentFont = False
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 536
Top = 8
Width = 73
Height = 33
Caption = #21462#28040#20462#25913
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold, fsItalic]
ParentFont = False
OnClick = SpeedButton6Click
end
end
end
object Panel5: TPanel
Left = 0
Top = 392
Width = 889
Height = 137
Color = clGreen
TabOrder = 2
object Label18: TLabel
Left = 0
Top = 0
Width = 73
Height = 25
AutoSize = False
Caption = #26597#35810#21306#65306
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsItalic, fsUnderline]
ParentFont = False
end
object Label19: TLabel
Left = 104
Top = 24
Width = 145
Height = 25
AutoSize = False
Caption = #25353#29031#32844#24037#32534#21495#26597#35810#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 104
Top = 56
Width = 145
Height = 25
AutoSize = False
Caption = #25353#29031#32844#24037#22995#21517#26597#35810#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton7: TSpeedButton
Left = 472
Top = 24
Width = 73
Height = 22
Caption = #26597#35810
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold, fsItalic]
ParentFont = False
OnClick = SpeedButton7Click
end
object SpeedButton8: TSpeedButton
Left = 472
Top = 56
Width = 73
Height = 22
Caption = #26597#35810
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold, fsItalic]
ParentFont = False
OnClick = SpeedButton8Click
end
object SpeedButton9: TSpeedButton
Left = 608
Top = 32
Width = 137
Height = 41
Caption = 'ShowAll'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = SpeedButton9Click
end
object Edit14: TEdit
Left = 256
Top = 24
Width = 185
Height = 21
TabOrder = 0
end
object Edit15: TEdit
Left = 256
Top = 56
Width = 185
Height = 21
TabOrder = 1
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 272
Width = 889
Height = 120
BorderStyle = bsNone
Color = clYellow
DataSource = mydm.personSource
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'personno'
Title.Caption = #32844#24037#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'name'
Title.Caption = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'department'
Title.Caption = #37096#38376
Width = 125
Visible = True
end
item
Expanded = False
FieldName = 'add1'
Title.Caption = #22522#26412#24037#36164
Visible = True
end
item
Expanded = False
FieldName = 'add2'
Title.Caption = #22870#37329
Visible = True
end
item
Expanded = False
FieldName = 'add3'
Title.Caption = #34917#21161
Visible = True
end
item
Expanded = False
FieldName = 'add4'
Title.Caption = #27941#36148
Visible = True
end
item
Expanded = False
FieldName = 'add5'
Title.Caption = #20844#31215#37329
Visible = True
end
item
Expanded = False
FieldName = 'sub1'
Title.Caption = #20445#38505
Visible = True
end
item
Expanded = False
FieldName = 'sub2'
Title.Caption = #27700#30005#36153
Visible = True
end
item
Expanded = False
FieldName = 'sub3'
Title.Caption = #25151#31199
Visible = True
end
item
Expanded = False
FieldName = 'sub4'
Title.Caption = #20250#36153
Visible = True
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -