📄 gztj.dfm
字号:
end
object Label18: TLabel
Left = 136
Top = 8
Width = 105
Height = 13
AutoSize = False
Caption = '统计工资项目:'
end
object Label20: TLabel
Left = 608
Top = 8
Width = 33
Height = 13
AutoSize = False
Caption = '班组:'
end
object Label23: TLabel
Left = 392
Top = 8
Width = 27
Height = 13
Caption = '部门:'
end
object Edit9: TEdit
Left = 40
Top = 8
Width = 57
Height = 21
TabOrder = 0
Text = '2003'
end
object UpDown3: TUpDown
Left = 97
Top = 8
Width = 15
Height = 21
Associate = Edit9
Min = 2000
Max = 3000
Position = 2003
TabOrder = 1
Thousands = False
Wrap = False
end
object Edit10: TEdit
Left = 648
Top = 8
Width = 81
Height = 21
TabOrder = 2
OnEnter = Edit2Enter
OnExit = Edit12Exit
end
object Button1: TButton
Left = 224
Top = 40
Width = 75
Height = 25
Caption = '统计'
TabOrder = 3
OnClick = Button1Click
end
object Button5: TButton
Left = 312
Top = 40
Width = 75
Height = 25
Caption = '打印预览'
TabOrder = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 400
Top = 40
Width = 75
Height = 25
Caption = '打印'
TabOrder = 5
end
object Button12: TButton
Left = 488
Top = 40
Width = 75
Height = 25
Caption = '退出'
TabOrder = 6
end
object ComboBox5: TComboBox
Left = 224
Top = 8
Width = 145
Height = 21
ItemHeight = 0
TabOrder = 7
Text = ' '
OnDropDown = ComboBox5DropDown
end
object Edit12: TEdit
Left = 448
Top = 8
Width = 121
Height = 21
TabOrder = 8
OnEnter = Edit12Enter
OnExit = Edit12Exit
end
end
object TreeView2: TTreeView
Left = 456
Top = 32
Width = 121
Height = 161
Color = clLime
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Indent = 19
ParentFont = False
TabOrder = 2
OnKeyUp = TreeView2KeyUp
end
end
object TabSheet3: TTabSheet
Caption = '年工资分析统计图'
ImageIndex = 2
object Label15: TLabel
Left = 16
Top = 80
Width = 41
Height = 13
AutoSize = False
Caption = '月份'
end
object Label16: TLabel
Left = 56
Top = 80
Width = 41
Height = 13
AutoSize = False
Caption = '工资'
end
object Panel2: TPanel
Left = 8
Top = 0
Width = 785
Height = 73
TabOrder = 0
object Label8: TLabel
Left = 8
Top = 8
Width = 49
Height = 13
AutoSize = False
Caption = '年份:'
end
object Label9: TLabel
Left = 112
Top = 8
Width = 105
Height = 13
AutoSize = False
Caption = '统计工资项目:'
end
object Label10: TLabel
Left = 296
Top = 8
Width = 27
Height = 13
Caption = '部门:'
end
object Label11: TLabel
Left = 432
Top = 8
Width = 33
Height = 13
AutoSize = False
Caption = '班组:'
end
object Label12: TLabel
Left = 544
Top = 8
Width = 33
Height = 13
AutoSize = False
Caption = '编号:'
end
object Label13: TLabel
Left = 656
Top = 8
Width = 36
Height = 13
Caption = '姓名：'
end
object Label14: TLabel
Left = 320
Top = 8
Width = 27
Height = 13
Caption = '部门:'
end
object Edit5: TEdit
Left = 40
Top = 8
Width = 57
Height = 21
TabOrder = 0
Text = '2003'
end
object UpDown2: TUpDown
Left = 97
Top = 8
Width = 15
Height = 21
Associate = Edit5
Min = 2000
Max = 3000
Position = 2003
TabOrder = 1
Thousands = False
Wrap = False
end
object Edit6: TEdit
Left = 464
Top = 8
Width = 81
Height = 21
TabOrder = 2
OnClick = Edit6Click
OnEnter = Edit13Enter
OnExit = Edit13Exit
end
object Button9: TButton
Left = 200
Top = 40
Width = 75
Height = 25
Caption = '打印预览'
TabOrder = 3
end
object Button10: TButton
Left = 288
Top = 40
Width = 75
Height = 25
Caption = '打印'
TabOrder = 4
end
object Button11: TButton
Left = 376
Top = 40
Width = 75
Height = 25
Caption = '退出'
TabOrder = 5
OnClick = Button11Click
end
object ComboBox3: TComboBox
Left = 200
Top = 8
Width = 121
Height = 21
ItemHeight = 0
TabOrder = 6
OnDropDown = ComboBox3DropDown
end
object Button8: TButton
Left = 112
Top = 40
Width = 75
Height = 25
Caption = '统计'
TabOrder = 7
OnClick = Button8Click
end
object Edit7: TEdit
Left = 576
Top = 8
Width = 65
Height = 21
TabOrder = 8
OnEnter = Edit13Enter
OnExit = Edit13Exit
OnKeyUp = Edit7KeyUp
end
object Edit8: TEdit
Left = 696
Top = 8
Width = 73
Height = 21
TabOrder = 9
OnEnter = Edit13Enter
OnExit = Edit13Exit
OnKeyUp = Edit8KeyUp
end
object Edit13: TEdit
Left = 352
Top = 8
Width = 73
Height = 21
TabOrder = 10
OnEnter = Edit13Enter
OnExit = Edit13Exit
end
end
object DBListBox2: TDBListBox
Left = 48
Top = 96
Width = 57
Height = 321
ItemHeight = 13
TabOrder = 1
end
object DBListBox1: TDBListBox
Left = 8
Top = 96
Width = 41
Height = 321
ItemHeight = 13
TabOrder = 2
end
object Chart1: TChart
Left = 208
Top = 112
Width = 505
Height = 297
BackWall.Brush.Color = clWhite
Title.Text.Strings = (
'TChart')
Chart3DPercent = 1
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
View3DOptions.Zoom = 102
TabOrder = 3
object Series1: TAreaSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
DrawArea = True
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series2: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGreen
LinePen.Color = clGreen
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series3: TPieSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = True
SeriesColor = clYellow
OtherSlice.Text = 'Other'
PieValues.DateTime = False
PieValues.Name = 'Pie'
PieValues.Multiplier = 1
PieValues.Order = loNone
end
end
object RadioButton1: TRadioButton
Left = 560
Top = 80
Width = 65
Height = 17
Caption = '曲线图'
TabOrder = 4
OnClick = RadioButton1Click
end
object RadioButton2: TRadioButton
Left = 640
Top = 80
Width = 57
Height = 17
Caption = '柱型图'
TabOrder = 5
OnClick = RadioButton2Click
end
object RadioButton3: TRadioButton
Left = 720
Top = 80
Width = 49
Height = 17
Caption = '饼图'
TabOrder = 6
OnClick = RadioButton3Click
end
object dbgrid7: TDBGrid
Left = 360
Top = 32
Width = 313
Height = 81
DataSource = DataSource3
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 7
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clRed
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid2DrawColumnCell
OnDblClick = dbgrid7DblClick
OnKeyUp = dbgrid7KeyUp
Columns = <
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Title.Color = clActiveBorder
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Title.Color = clActiveBorder
Width = 45
Visible = True
end
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Title.Color = clActiveBorder
Width = 112
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Title.Color = clActiveBorder
Visible = True
end>
end
end
end
object DataSource1: TDataSource
DataSet = DataModule1.rsbm
Left = 44
Top = 64
end
object DataSource2: TDataSource
DataSet = DataModule1.gztj
Left = 76
Top = 64
end
object DataSource3: TDataSource
DataSet = DataModule1.yggb
Left = 12
Top = 64
end
object DataSource4: TDataSource
DataSet = DataModule1.gztjs
Left = 204
Top = 128
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -