agentcountfrm.~dfm
来自「一个电力企业的后台管理程序」· ~DFM 代码 · 共 394 行
~DFM
394 行
object Frm_AgentCount: TFrm_AgentCount
Left = 223
Top = 89
BorderStyle = bsSingle
Caption = '座席业务统计'
ClientHeight = 280
ClientWidth = 373
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 373
Height = 280
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '座席业务统计'
object DsFancyButton1: TDsFancyButton
Left = 144
Top = 77
Width = 87
Height = 23
ButtonColor = 12246235
Caption = '确 定'
FrameColor = 8306365
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton1Click
end
object DsFancyButton2: TDsFancyButton
Left = 266
Top = 75
Width = 97
Height = 25
ButtonColor = 16773861
Caption = '取 消'
FrameColor = 16762766
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
end
object DsFancyButton3: TDsFancyButton
Left = 152
Top = 85
Width = 87
Height = 23
ButtonColor = 12246235
Caption = '确 定'
FrameColor = 8306365
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton1Click
end
object DsFancyButton4: TDsFancyButton
Left = 273
Top = 83
Width = 97
Height = 25
ButtonColor = 16773861
Caption = '取 消'
FrameColor = 16762766
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
end
object DsFancyButton7: TDsFancyButton
Left = 144
Top = 2
Width = 87
Height = 23
ButtonColor = 12246235
Caption = '确 定'
FrameColor = 8306365
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton1Click
end
object DsFancyButton8: TDsFancyButton
Left = 256
Top = 0
Width = 97
Height = 25
ButtonColor = 16773861
Caption = '取 消'
FrameColor = 16762766
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 365
Height = 58
Align = alTop
BevelOuter = bvNone
Color = 16775408
TabOrder = 0
object Label1: TLabel
Left = 12
Top = 11
Width = 48
Height = 12
Caption = '统计类别'
Font.Charset = ANSI_CHARSET
Font.Color = 4194304
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Bevel2: TBevel
Left = 3
Top = 54
Width = 363
Height = 50
Shape = bsTopLine
end
object RB_ByWorkId: TRadioButton
Left = 75
Top = 32
Width = 113
Height = 17
Caption = '按工号统计'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
end
object RB_ByType: TRadioButton
Left = 225
Top = 30
Width = 105
Height = 18
Caption = '按业务类型统计'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
object Panel2: TPanel
Left = 0
Top = 58
Width = 365
Height = 91
Align = alTop
BevelOuter = bvNone
Color = 16775408
TabOrder = 1
object Label2: TLabel
Left = 150
Top = 19
Width = 24
Height = 12
Caption = '日期'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 150
Top = 57
Width = 24
Height = 12
Caption = '年度'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 254
Top = 57
Width = 24
Height = 12
Caption = '月份'
end
object RB_ByDay: TRadioButton
Left = 34
Top = 16
Width = 69
Height = 17
Caption = '按日统计'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
OnClick = RB_ByDayClick
end
object RB_ByMonth: TRadioButton
Left = 34
Top = 56
Width = 72
Height = 17
Caption = '按月统计'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RB_ByMonthClick
end
object DTP_Date: TDateTimePicker
Left = 197
Top = 15
Width = 127
Height = 20
CalAlignment = dtaLeft
Date = 37291.4797465393
Time = 37291.4797465393
DateFormat = dfLong
DateMode = dmUpDown
ImeName = '中文 (简体) - 微软拼音'
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object SE_Year: TSpinEdit
Left = 197
Top = 52
Width = 55
Height = 21
MaxValue = 3000
MinValue = 1999
TabOrder = 3
Value = 1999
end
object SE_Month: TSpinEdit
Left = 282
Top = 53
Width = 43
Height = 21
MaxValue = 12
MinValue = 1
TabOrder = 4
Value = 1
end
end
object Panel3: TPanel
Left = 0
Top = 149
Width = 365
Height = 108
Align = alTop
BevelOuter = bvLowered
Color = 16775408
TabOrder = 2
object she: TDsFancyButton
Left = 245
Top = 27
Width = 83
Height = 22
ButtonColor = 15391410
Caption = '自定义报表'
FrameColor = 15391410
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
Visible = False
OnClick = sheClick
end
object Label5: TLabel
Left = 18
Top = 13
Width = 48
Height = 12
Caption = '报表模式'
Font.Charset = ANSI_CHARSET
Font.Color = 4194304
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Bevel1: TBevel
Left = 211
Top = 0
Width = 1
Height = 79
Shape = bsLeftLine
end
object RB_Normal: TRadioButton
Left = 17
Top = 41
Width = 71
Height = 17
Caption = '一般报表'
Checked = True
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
end
object RB_Word: TRadioButton
Left = 109
Top = 41
Width = 82
Height = 17
Caption = 'WORD报表'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Panel4: TPanel
Left = -1
Top = 72
Width = 371
Height = 41
Color = 12422417
TabOrder = 2
object DsFancyButton5: TDsFancyButton
Left = 112
Top = 10
Width = 79
Height = 20
ButtonColor = 15391410
Caption = '确 定'
FrameColor = 15391410
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton1Click
end
object DsFancyButton6: TDsFancyButton
Left = 215
Top = 9
Width = 76
Height = 21
ButtonColor = 15391410
Caption = '取 消'
FrameColor = 15391410
FrameWidth = 4
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton6Click
end
end
end
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?