zhrepfrm.dfm
来自「一个电力企业的后台管理程序」· DFM 代码 · 共 469 行
DFM
469 行
object Frm_ZhRep: TFrm_ZhRep
Left = 289
Top = 139
BorderStyle = bsSingle
Caption = '综合统计报表'
ClientHeight = 281
ClientWidth = 350
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 PC_Content: TPageControl
Left = 0
Top = 0
Width = 350
Height = 237
ActivePage = TabSheet1
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '用户满意度统计报表'
object Panel2: TPanel
Left = 0
Top = 56
Width = 342
Height = 93
Align = alBottom
Color = 16775408
TabOrder = 0
object Label1: TLabel
Left = 140
Top = 17
Width = 24
Height = 12
Caption = '日期'
end
object Label2: TLabel
Left = 140
Top = 57
Width = 24
Height = 12
Caption = '年度'
end
object Label3: TLabel
Left = 244
Top = 57
Width = 24
Height = 12
Caption = '月份'
end
object RB_BySatDay: TRadioButton
Left = 19
Top = 15
Width = 71
Height = 17
Caption = '按日统计'
Checked = True
TabOrder = 0
TabStop = True
OnClick = RB_BySatDayClick
end
object RB_BySatMonth: TRadioButton
Left = 19
Top = 55
Width = 70
Height = 17
Caption = '按月统计'
TabOrder = 1
OnClick = RB_BySatMonthClick
end
object DTP_SatDate: TDateTimePicker
Left = 178
Top = 12
Width = 141
Height = 20
CalAlignment = dtaLeft
Date = 37291.6904302546
Time = 37291.6904302546
DateFormat = dfLong
DateMode = dmUpDown
ImeName = '中文 (简体) - 微软拼音'
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object SE_SatYear: TSpinEdit
Left = 179
Top = 52
Width = 59
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
MaxValue = 3000
MinValue = 1999
ParentFont = False
TabOrder = 3
Value = 2003
end
object SE_SatMonth: TSpinEdit
Left = 276
Top = 52
Width = 43
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
MaxValue = 12
MinValue = 1
ParentFont = False
TabOrder = 4
Value = 1
end
end
object Panel3: TPanel
Left = 0
Top = 149
Width = 342
Height = 61
Align = alBottom
Color = 16775408
TabOrder = 1
object Label4: TLabel
Left = 9
Top = 7
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 = 219
Top = 2
Width = 3
Height = 58
Shape = bsLeftLine
end
object DsFancyButton1: TDsFancyButton
Left = 223
Top = 19
Width = 89
Height = 23
ButtonColor = 15391410
Caption = '自定义报表'
FrameColor = 15391410
FrameWidth = 6
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
Visible = False
OnClick = DsFancyButton1Click
end
object RB_ByNormal: TRadioButton
Left = 19
Top = 36
Width = 70
Height = 17
Caption = '一般报表'
Checked = True
TabOrder = 0
TabStop = True
end
object RB_ByWord: TRadioButton
Left = 121
Top = 37
Width = 81
Height = 17
Caption = 'WORD报表'
TabOrder = 1
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 342
Height = 56
Align = alClient
Color = 16775408
TabOrder = 2
object Label5: TLabel
Left = 10
Top = 6
Width = 48
Height = 12
Caption = '业务类别'
Font.Charset = ANSI_CHARSET
Font.Color = 4194304
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object RB_EleCout: TRadioButton
Left = 19
Top = 30
Width = 70
Height = 17
Caption = '故障报修'
Checked = True
TabOrder = 0
TabStop = True
end
object RB_UserAsk: TRadioButton
Left = 135
Top = 30
Width = 75
Height = 17
Caption = '用户咨询'
TabOrder = 1
end
object RB_UserComp: TRadioButton
Left = 245
Top = 30
Width = 71
Height = 17
Caption = '用户投诉'
TabOrder = 2
end
end
end
object TabSheet2: TTabSheet
Caption = '回访率统计报表'
ImageIndex = 1
TabVisible = False
object Panel5: TPanel
Left = 0
Top = 0
Width = 342
Height = 123
Align = alTop
Color = 16775408
TabOrder = 0
object Label6: TLabel
Left = 123
Top = 31
Width = 24
Height = 12
Caption = '日期'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 125
Top = 82
Width = 24
Height = 12
Caption = '年度'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 227
Top = 82
Width = 24
Height = 12
Caption = '月份'
end
object RB_ByBackDay: TRadioButton
Left = 36
Top = 30
Width = 70
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_ByBackDayClick
end
object RB_ByBackMonth: TRadioButton
Left = 36
Top = 82
Width = 69
Height = 17
Caption = '按月统计'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RB_ByBackMonthClick
end
object DTP_BackDate: TDateTimePicker
Left = 162
Top = 27
Width = 139
Height = 20
CalAlignment = dtaLeft
Date = 37292.6818169792
Time = 37292.6818169792
DateFormat = dfLong
DateMode = dmUpDown
ImeName = '中文 (简体) - 微软拼音'
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object SE_BackYear: TSpinEdit
Left = 162
Top = 78
Width = 56
Height = 27
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 0
end
object SE_BackMonth: TSpinEdit
Left = 258
Top = 78
Width = 43
Height = 27
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 0
end
end
object Panel6: TPanel
Left = 0
Top = 123
Width = 342
Height = 87
Align = alClient
Color = 16775408
TabOrder = 1
object Label9: TLabel
Left = 19
Top = 16
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 = 181
Top = 1
Width = 4
Height = 85
Shape = bsLeftLine
end
object DsFancyButton4: TDsFancyButton
Left = 213
Top = 33
Width = 88
Height = 24
ButtonColor = 15391410
Caption = '自定义报表'
FrameColor = 15391410
FrameWidth = 6
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton4Click
end
object RB_BackNormal: TRadioButton
Left = 17
Top = 54
Width = 70
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_BackWord: TRadioButton
Left = 95
Top = 54
Width = 69
Height = 17
Caption = 'WORD报表'
Font.Charset = ANSI_CHARSET
Font.Color = 9805
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
end
end
object Panel1: TPanel
Left = 0
Top = 237
Width = 350
Height = 44
Align = alBottom
Color = 12422417
TabOrder = 1
object DsFancyButton2: TDsFancyButton
Left = 129
Top = 12
Width = 83
Height = 22
ButtonColor = 15391410
Caption = '确 定'
FrameColor = 15391410
FrameWidth = 6
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton2Click
end
object DsFancyButton3: TDsFancyButton
Left = 231
Top = 11
Width = 83
Height = 22
ButtonColor = 15391410
Caption = '取 消'
FrameColor = 15391410
FrameWidth = 6
CornerRadius = 10
Shape = shCapsule
TextStyle = txRaised
OnClick = DsFancyButton3Click
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?