📄 gzprint.dfm
字号:
end
item
Expanded = False
FieldName = 'S'
Visible = True
end
item
Expanded = False
FieldName = 'T'
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 408
Top = 37
Width = 305
Height = 84
DataSource = DataSource3
FixedColor = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 2
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 = clLime
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Title.Color = clLime
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Title.Color = clLime
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Title.Color = clLime
Visible = True
end>
end
object Button9: TButton
Left = 120
Top = 192
Width = 75
Height = 25
Caption = 'Button9'
TabOrder = 3
end
end
object TabSheet2: TTabSheet
Caption = '部门工资汇总查询'
ImageIndex = 1
object Panel1: TPanel
Left = 80
Top = 0
Width = 593
Height = 49
TabOrder = 0
object Label7: TLabel
Left = 16
Top = 16
Width = 41
Height = 13
AutoSize = False
Caption = '年份:'
end
object Label8: TLabel
Left = 120
Top = 16
Width = 41
Height = 13
AutoSize = False
Caption = '月份:'
end
object Edit6: TEdit
Left = 48
Top = 16
Width = 49
Height = 21
TabOrder = 0
Text = '2003'
end
object UpDown3: TUpDown
Left = 97
Top = 16
Width = 16
Height = 21
Associate = Edit6
Min = 1999
Max = 3000
Position = 2003
TabOrder = 1
Thousands = False
Wrap = False
end
object Edit7: TEdit
Left = 152
Top = 16
Width = 41
Height = 21
TabOrder = 2
Text = '6'
end
object UpDown4: TUpDown
Left = 193
Top = 16
Width = 16
Height = 21
Associate = Edit7
Min = 1
Max = 12
Position = 6
TabOrder = 3
Thousands = False
Wrap = False
end
object GroupBox3: TGroupBox
Left = 232
Top = 3
Width = 329
Height = 41
TabOrder = 4
object Button5: TButton
Left = 8
Top = 11
Width = 75
Height = 25
Caption = '按条件查询'
TabOrder = 0
OnClick = Button5Click
end
object Button6: TButton
Left = 88
Top = 11
Width = 75
Height = 25
Caption = '打印预览'
TabOrder = 1
OnClick = Button6Click
end
object Button7: TButton
Left = 168
Top = 11
Width = 75
Height = 25
Caption = '打印'
TabOrder = 2
OnClick = Button7Click
end
object Button8: TButton
Left = 248
Top = 11
Width = 75
Height = 25
Caption = '退出'
TabOrder = 3
end
end
end
object DBGrid4: TDBGrid
Left = 8
Top = 56
Width = 737
Height = 329
DataSource = DataSource4
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid4DrawColumnCell
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'
Visible = True
end
item
Expanded = False
FieldName = 'B'
Visible = True
end
item
Expanded = False
FieldName = 'C'
Visible = True
end
item
Expanded = False
FieldName = 'D'
Visible = True
end
item
Expanded = False
FieldName = 'E'
Visible = True
end
item
Expanded = False
FieldName = 'F'
Visible = True
end
item
Expanded = False
FieldName = 'G'
Visible = True
end
item
Expanded = False
FieldName = 'H'
Visible = True
end
item
Expanded = False
FieldName = 'I'
Visible = True
end
item
Expanded = False
FieldName = 'J'
Visible = True
end
item
Expanded = False
FieldName = 'K'
Visible = True
end
item
Expanded = False
FieldName = 'L'
Visible = True
end
item
Expanded = False
FieldName = 'M'
Visible = True
end
item
Expanded = False
FieldName = 'N'
Visible = True
end
item
Expanded = False
FieldName = 'O'
Visible = True
end
item
Expanded = False
FieldName = 'P'
Visible = True
end
item
Expanded = False
FieldName = 'Q'
Visible = True
end
item
Expanded = False
FieldName = 'R'
Visible = True
end
item
Expanded = False
FieldName = 'S'
Visible = True
end
item
Expanded = False
FieldName = 'T'
Visible = True
end>
end
end
end
object TreeView1: TTreeView
Left = 272
Top = 56
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 = 1
OnKeyUp = TreeView1KeyUp
end
object DataSource1: TDataSource
DataSet = DataModule1.gzgns
Left = 12
Top = 216
end
object DataSource2: TDataSource
DataSet = DataModule1.rsbm
Left = 12
Top = 248
end
object DataSource3: TDataSource
DataSet = DataModule1.yggb
Left = 12
Top = 184
end
object DataSource4: TDataSource
DataSet = DataModule1.gzgns
Left = 132
Top = 104
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -