📄 rsqkqxfs.dfm
字号:
object frm_rsqkqxfs: Tfrm_rsqkqxfs
Left = 151
Top = 121
Width = 598
Height = 406
Caption = 'frm_rsqkqxfs'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 590
Height = 41
Align = alTop
TabOrder = 0
object Label2: TLabel
Left = 181
Top = 10
Width = 226
Height = 29
Caption = '人事情况曲线分析图'
Font.Charset = DEFAULT_CHARSET
Font.Color = clInfoBk
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 180
Top = 10
Width = 226
Height = 29
Caption = '人事情况曲线分析图'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object Panel2: TPanel
Left = 0
Top = 41
Width = 590
Height = 338
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
object Bevel1: TBevel
Left = 16
Top = 64
Width = 121
Height = 213
Style = bsRaised
end
object Bevel2: TBevel
Left = 16
Top = 11
Width = 121
Height = 41
Style = bsRaised
end
object DBChart1: TDBChart
Left = 160
Top = 12
Width = 417
Height = 313
AllowPanning = pmNone
AllowZoom = False
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
BackWall.Pen.Visible = False
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = '宋体'
Title.Font.Style = []
Title.Text.Strings = (
'人事曲线分析')
AxisVisible = False
ClipPoints = False
Frame.Visible = False
Legend.TextStyle = ltsRightValue
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
View3DOptions.Zoom = 99
View3DWalls = False
BevelInner = bvLowered
TabOrder = 0
object Series1: TPieSeries
Marks.ArrowLength = 8
Marks.Style = smsLabelPercentTotal
Marks.Visible = True
DataSource = Query1
SeriesColor = clRed
XLabelsSource = 'hl'
OtherSlice.Text = 'Other'
PieValues.DateTime = False
PieValues.Name = 'Pie'
PieValues.Multiplier = 1
PieValues.Order = loNone
PieValues.ValueSource = 'rs'
end
end
object CheckBox1: TCheckBox
Left = 30
Top = 23
Width = 67
Height = 17
Caption = '3D效果'
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 1
OnClick = CheckBox1Click
end
object RadioButton1: TRadioButton
Left = 28
Top = 82
Width = 97
Height = 17
Caption = '按性别生成'
Checked = True
TabOrder = 2
TabStop = True
end
object RadioButton2: TRadioButton
Left = 27
Top = 122
Width = 98
Height = 17
Caption = '按学历生成'
TabOrder = 3
end
object RadioButton3: TRadioButton
Left = 28
Top = 159
Width = 95
Height = 17
Caption = '按部门生成'
TabOrder = 4
end
object RadioButton4: TRadioButton
Left = 28
Top = 197
Width = 97
Height = 17
Caption = '按职称生成'
TabOrder = 5
end
object RadioButton5: TRadioButton
Left = 28
Top = 236
Width = 97
Height = 17
Caption = '按职务生成'
TabOrder = 6
end
object Button1: TButton
Left = 32
Top = 293
Width = 75
Height = 25
Caption = '生成曲线'
TabOrder = 7
OnClick = Button1Click
end
end
object Query1: TQuery
Active = True
DatabaseName = 'rsgzgl'
SQL.Strings = (
'select count(*) rs,xb hl from ygzlb group by xb')
Left = 64
Top = 9
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -