📄 rank.dfm
字号:
inherited frmRank: TfrmRank
Left = 151
Top = 92
Caption = '职务代码'
ClientHeight = 405
ClientWidth = 619
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel [0]
Left = 0
Top = 39
Width = 289
Height = 344
Align = alLeft
Caption = 'Panel1'
Ctl3D = False
ParentCtl3D = False
TabOrder = 3
object tvRank: TTreeView
Left = 1
Top = 1
Width = 287
Height = 342
Align = alClient
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
HideSelection = False
Indent = 19
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 0
OnChange = tvRankChange
end
end
inherited sbBar: TStatusBar
Top = 383
Width = 619
end
inherited CoolBar1: TCoolBar
Width = 619
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 619
end>
inherited tbMainBar: TToolBar
Width = 606
inherited tbQuery: TToolButton
Visible = False
end
end
end
object FloatPanel1: TFloatPanel [3]
Left = 289
Top = 39
Width = 330
Height = 344
Align = alClient
Color = clWhite
Caption = 'FloatPanel1'
ParentColor = False
TabOrder = 2
object Label2: TLabel
Left = 16
Top = 19
Width = 60
Height = 12
Caption = '本级编码:'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 17
Top = 46
Width = 60
Height = 12
Caption = '职务名称:'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 18
Top = 131
Width = 60
Height = 12
Caption = '详细说明:'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 16
Top = 74
Width = 60
Height = 12
Caption = '上级编码:'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object lblUpperCode: TLabel
Left = 77
Top = 74
Width = 24
Height = 12
Caption = 'Null'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label6: TLabel
Left = 18
Top = 103
Width = 36
Height = 12
Caption = '层级:'
end
object lbRankUpperCode: TLabel
Left = 78
Top = 17
Width = 90
Height = 12
Alignment = taRightJustify
Caption = 'lbRankUpperCode'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object lbRankLevel: TLabel
Left = 76
Top = 103
Width = 66
Height = 12
Caption = 'lbRankLevel'
end
object seRankName: TSDEdit
Left = 77
Top = 41
Width = 176
Height = 18
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Text = 'seRankName'
SplitSymbol = ' | '
end
object memRankDesc: TMemo
Left = 77
Top = 131
Width = 208
Height = 60
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Lines.Strings = (
'memRankDesc')
ParentCtl3D = False
ParentFont = False
TabOrder = 2
end
object seRankItem: TSDEdit
Left = 168
Top = 15
Width = 53
Height = 18
Ctl3D = False
MaxLength = 3
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = '0'
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
end
inherited RecPrintDlg: TPrintDialog
Left = 351
Top = 43
end
inherited PrnSetupDlg: TPrinterSetupDialog
Left = 391
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -