📄 gztj.dfm
字号:
object gztjb: Tgztjb
Left = -82
Top = 321
Width = 812
Height = 431
Caption = '工资统计分析'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 801
Height = 401
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '员工工资统计分析'
object Panel1: TPanel
Left = 8
Top = 0
Width = 785
Height = 73
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 8
Width = 49
Height = 13
AutoSize = False
Caption = '年份:'
end
object Label2: TLabel
Left = 112
Top = 8
Width = 105
Height = 13
AutoSize = False
Caption = '统计工资项目:'
end
object Label3: TLabel
Left = 296
Top = 8
Width = 27
Height = 13
Caption = '部门:'
end
object Label4: TLabel
Left = 432
Top = 8
Width = 33
Height = 13
AutoSize = False
Caption = '班组:'
end
object Label5: TLabel
Left = 544
Top = 8
Width = 33
Height = 13
AutoSize = False
Caption = '编号:'
end
object Label6: TLabel
Left = 656
Top = 8
Width = 36
Height = 13
Caption = '姓名：'
end
object Label7: TLabel
Left = 320
Top = 8
Width = 27
Height = 13
Caption = '部门:'
end
object Edit1: TEdit
Left = 40
Top = 8
Width = 57
Height = 21
TabOrder = 0
Text = '2003'
end
object UpDown1: TUpDown
Left = 97
Top = 8
Width = 16
Height = 21
Associate = Edit1
Min = 2000
Max = 3000
Position = 2003
TabOrder = 1
Thousands = False
Wrap = False
end
object Edit2: TEdit
Left = 464
Top = 8
Width = 81
Height = 21
TabOrder = 2
OnEnter = Edit11Enter
OnExit = Edit2Exit
end
object Button2: TButton
Left = 200
Top = 40
Width = 75
Height = 25
Caption = '打印预览'
TabOrder = 3
OnClick = Button2Click
end
object Button3: TButton
Left = 288
Top = 40
Width = 75
Height = 25
Caption = '打印'
TabOrder = 4
end
object Button4: TButton
Left = 376
Top = 40
Width = 75
Height = 25
Caption = '退出'
TabOrder = 5
OnClick = Button4Click
end
object Edit3: TEdit
Left = 576
Top = 8
Width = 73
Height = 21
TabOrder = 6
OnKeyUp = Edit3KeyUp
end
object Edit4: TEdit
Left = 688
Top = 8
Width = 89
Height = 21
TabOrder = 7
OnKeyUp = Edit8KeyUp
end
object ComboBox1: TComboBox
Left = 200
Top = 8
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 8
OnDropDown = ComboBox1DropDown
end
object Edit11: TEdit
Left = 352
Top = 8
Width = 73
Height = 21
TabOrder = 9
OnEnter = Edit11Enter
OnExit = Edit11Exit
end
end
object DBGrid1: TDBGrid
Left = 8
Top = 80
Width = 785
Height = 289
DataSource = DataSource2
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid2DrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'A_mon1'
Title.Caption = '一月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon2'
Title.Caption = '二月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon3'
Title.Caption = '三月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon4'
Title.Caption = '四月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon5'
Title.Caption = '五月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon6'
Title.Caption = '六月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon7'
Title.Caption = '七月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon8'
Title.Caption = '八月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon9'
Title.Caption = '九月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon10'
Title.Caption = '十月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon11'
Title.Caption = '十一月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon12'
Title.Caption = '十二月'
Visible = True
end>
end
object Button7: TButton
Left = 120
Top = 40
Width = 75
Height = 25
Caption = '统计'
TabOrder = 2
OnClick = Button7Click
end
object DBGrid2: TDBGrid
Left = 475
Top = 33
Width = 310
Height = 92
DataSource = DataSource3
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clRed
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid2DrawColumnCell
OnDblClick = DBGrid2DblClick
OnKeyUp = DBGrid2KeyUp
Columns = <
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Title.Color = 13612721
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Title.Color = 13612721
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Title.Color = 13612721
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Title.Color = 13612721
Width = 83
Visible = True
end>
end
object treeview1: TTreeView
Left = 352
Top = 32
Width = 121
Height = 145
Color = clLime
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Indent = 19
ParentFont = False
TabOrder = 4
OnKeyUp = treeview1KeyUp
end
end
object TabSheet2: TTabSheet
Caption = '部门工资统计分析'
ImageIndex = 2
object DBGrid4: TDBGrid
Left = 8
Top = 80
Width = 785
Height = 337
DataSource = DataSource4
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon1'
Title.Caption = '一月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon2'
Title.Caption = '二月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon3'
Title.Caption = '三月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon4'
Title.Caption = '四月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon5'
Title.Caption = '五月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon6'
Title.Caption = '六月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon7'
Title.Caption = '七月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon8'
Title.Caption = '八月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon9'
Title.Caption = '九月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon10'
Title.Caption = '十月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon11'
Title.Caption = '十一月'
Visible = True
end
item
Expanded = False
FieldName = 'A_mon12'
Title.Caption = '十二月'
Visible = True
end>
end
object Panel3: TPanel
Left = 8
Top = 0
Width = 785
Height = 73
TabOrder = 1
object Label17: TLabel
Left = 8
Top = 8
Width = 49
Height = 13
AutoSize = False
Caption = '年份:'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -