📄 unitpersonhealth.~dfm
字号:
object frmPersonHealth: TfrmPersonHealth
Left = 153
Top = 127
Width = 808
Height = 580
Caption = #20010#20154#20581#24247#26723#26696
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 800
Height = 242
Align = alClient
Caption = #20581#24247#26723#26696#21015#34920#21015#34920
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 796
Height = 170
Align = alTop
Color = clBtnFace
Ctl3D = False
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'PHid'
Title.Caption = #26723#26696#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'Pid'
Title.Caption = #20154#21592#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'Hheight'
Title.Caption = #36523#39640
Visible = True
end
item
Expanded = False
FieldName = 'Hbody'
Title.Caption = #20307#37325
Visible = True
end
item
Expanded = False
FieldName = 'Heye'
Title.Caption = #35270#21147
Visible = True
end
item
Expanded = False
FieldName = 'Hear'
Title.Caption = #21548#21147
Visible = True
end
item
Expanded = False
FieldName = 'Hblood'
Title.Caption = #34880#21387
Visible = True
end
item
Expanded = False
FieldName = 'Hb'
Title.Caption = 'B'#36229#32467#26524
Visible = True
end
item
Expanded = False
FieldName = 'HHealthcon'
Title.Caption = #29983#21270#32467#26524
Visible = True
end
item
Expanded = False
FieldName = 'HliveMelt'
Title.Caption = #20813#30123#32467#26524
Visible = True
end
item
Expanded = False
FieldName = 'Himmunity'
Title.Caption = #20581#24247#32467#35770
Visible = True
end
item
Expanded = False
FieldName = 'Hemit'
Title.Caption = #25918#23556#31185#26816#26597#32467#26524
Visible = True
end
item
Expanded = False
FieldName = 'Hmemo'
Title.Caption = #22791#27880
Visible = True
end
item
Expanded = False
FieldName = 'Uno'
Title.Caption = #35760#24405#21592
Visible = True
end
item
Expanded = False
FieldName = 'Hwritdate'
Title.Caption = #35760#24405#26102#38388
Visible = True
end>
end
object Panel1: TPanel
Left = 2
Top = 185
Width = 796
Height = 55
Align = alClient
TabOrder = 1
DesignSize = (
796
55)
object bbtnAdd: TBitBtn
Left = 34
Top = 4
Width = 75
Height = 33
Anchors = [akTop, akRight]
Caption = #28155#21152
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object bbtnModify: TBitBtn
Left = 149
Top = 5
Width = 75
Height = 33
Caption = #20462#25913
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object bbtnDel: TBitBtn
Left = 286
Top = 5
Width = 75
Height = 33
Anchors = [akTop, akRight]
Caption = #21024#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object bbtnSave: TBitBtn
Left = 531
Top = 5
Width = 75
Height = 33
Caption = #20445#23384
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object bbtnCancel: TBitBtn
Left = 412
Top = 5
Width = 75
Height = 33
Anchors = [akTop, akRight]
Caption = #21462#28040
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object bbtnExit: TBitBtn
Left = 648
Top = 4
Width = 75
Height = 33
Caption = #36864#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = bbtnExitClick
end
end
end
object pclPersonHealth: TPageControl
Left = 0
Top = 242
Width = 800
Height = 311
ActivePage = TabSheet1
Align = alBottom
TabOrder = 1
object TabSheet1: TTabSheet
Caption = #32534#36753
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
object GroupBox2: TGroupBox
Left = 0
Top = 2
Width = 792
Height = 281
Align = alBottom
Caption = #20581#24247#26723#26696#32534#36753#21306
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 6
Top = 22
Width = 73
Height = 16
AutoSize = False
Caption = #26723#26696#32534#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 317
Top = 190
Width = 76
Height = 18
AutoSize = False
Caption = #22791' '#27880#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 6
Top = 57
Width = 73
Height = 16
AutoSize = False
Caption = #20154#21592#32534#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 29
Top = 91
Width = 73
Height = 16
AutoSize = False
Caption = #36523#39640#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 28
Top = 127
Width = 73
Height = 16
AutoSize = False
Caption = #20307#37325#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 28
Top = 163
Width = 73
Height = 16
AutoSize = False
Caption = #35270#21147#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 258
Top = 23
Width = 73
Height = 16
AutoSize = False
Caption = #21548#21147#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 259
Top = 59
Width = 73
Height = 16
AutoSize = False
Caption = #34880#21387#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 22
Top = 192
Width = 132
Height = 16
AutoSize = False
Caption = #25918#23556#31185#26816#26597#32467#26524#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 463
Top = 20
Width = 73
Height = 16
AutoSize = False
Caption = 'B'#36229#32467#26524#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 614
Top = 17
Width = 73
Height = 16
AutoSize = False
Caption = #29983#21270#32467#26524#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 461
Top = 103
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -