joad.dfm
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 262 行
DFM
262 行
inherited frmJoad: TfrmJoad
Left = 65
Top = 20
Width = 670
Height = 547
Caption = '人事流动汇总表'
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited Splitter1: TSplitter
Top = 85
Width = 662
end
inherited Panel2: TPanel
Top = 88
Width = 662
Height = 413
end
inherited Panel3: TPanel
Width = 662
Height = 85
inherited Splitter2: TSplitter
Left = 581
Height = 83
end
inherited GroupBox3: TGroupBox
Width = 580
Height = 83
ParentCtl3D = False
inherited edLable5: TLabel
Left = 342
Top = 41
Width = 36
Caption = '日期:'
end
inherited edLabel6: TLabel
Left = 465
Top = 41
end
object lbLabel4: TLabel [2]
Left = 4
Top = 41
Width = 60
Height = 12
Caption = '部 门:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object lbLabel6: TLabel [3]
Left = 170
Top = 41
Width = 54
Height = 12
Caption = '月 份:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
inherited dtDateBg: TDateEdit
Left = 377
Top = 36
Width = 86
TabOrder = 1
end
inherited dtDateEn: TDateEdit
Left = 481
Top = 37
Width = 85
TabOrder = 3
end
object edDept: TSDEdit
Left = 68
Top = 36
Width = 96
Height = 20
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
BrowseNo = '11'
OnButtonClick = edDeptButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object cbsdMonth: TSDComboBox
Left = 231
Top = 36
Width = 98
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 2
end
object sysFmonthBox: TSDEdit
Left = 710
Top = 8
Width = 3
Height = 21
ParentColor = True
TabOrder = 4
Visible = False
CharType = ctNumeric
SplitSymbol = ' | '
end
object edDeptBox: TSDEdit
Left = 197
Top = 84
Width = 17
Height = 18
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
MaxLength = 1
ParentCtl3D = False
ParentFont = False
TabOrder = 5
Visible = False
CharType = ctNumeric
SplitSymbol = ' | '
end
end
inherited GroupBox2: TGroupBox
Left = 584
Width = 77
Height = 83
ParentCtl3D = False
inherited btRest: TBitBtn
Left = 7
Top = 55
Width = 64
Height = 22
end
inherited btFind: TBitBtn
Left = 7
Top = 32
Width = 64
Height = 22
end
inherited BitBtn1: TBitBtn
Left = 7
Top = 8
Width = 63
Height = 23
end
end
end
inherited Panel1: TPanel
Top = 501
Width = 662
Height = 19
ParentCtl3D = False
TabOrder = 3
inherited sbBar: TStatusBar
Top = -2
Width = 660
end
end
object JoadGrid: TSDGrid [4]
Left = 0
Top = 88
Width = 662
Height = 413
Align = alClient
ColCount = 6
Ctl3D = False
DefaultColWidth = 80
DefaultRowHeight = 18
FixedColor = 8564917
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
ParentCtl3D = False
TabOrder = 2
OnDblClick = JoadGridDblClick
Columns = <
item
ColumnFont.Charset = DEFAULT_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -11
ColumnFont.Name = 'MS Sans Serif'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = DEFAULT_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -11
ColumnFont.Name = 'MS Sans Serif'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = DEFAULT_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -11
ColumnFont.Name = 'MS Sans Serif'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = DEFAULT_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -11
ColumnFont.Name = 'MS Sans Serif'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = DEFAULT_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -11
ColumnFont.Name = 'MS Sans Serif'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = DEFAULT_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -11
ColumnFont.Name = 'MS Sans Serif'
ColumnFont.Style = []
ColumnWidth = 0
end>
ColWidths = (
7
102
103
102
121
116)
RowHeights = (
18
18
18
18
18)
end
inherited AdvReport: TAdvReport
Left = 384
Top = 59
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?