📄 unit_reportsalary.dfm
字号:
end
object DetailBand1: TQRBand
Left = 38
Top = 170
Width = 718
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
82.020833333333330000
1899.708333333333000000)
BandType = rbDetail
object QRShape6: TQRShape
Left = 0
Top = -1
Width = 718
Height = 32
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
84.666666666666680000
0.000000000000000000
-2.645833333333333000
1899.708333333333000000)
Shape = qrsRectangle
end
object QRDBText2: TQRDBText
Left = 16
Top = 8
Width = 47
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
42.333333333333330000
21.166666666666670000
124.354166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'emp_no'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 119
Top = 7
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
314.854166666666700000
18.520833333333330000
171.979166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'emp_name'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 222
Top = 7
Width = 50
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
587.375000000000000000
18.520833333333330000
132.291666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'b_salary'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 320
Top = 8
Width = 44
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
846.666666666666700000
21.166666666666670000
116.416666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 's_extra'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 415
Top = 7
Width = 36
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1098.020833333333000000
18.520833333333330000
95.250000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'o_add'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 517
Top = 7
Width = 61
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1367.895833333333000000
18.520833333333330000
161.395833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'o_reduced'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 621
Top = 7
Width = 47
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1643.062500000000000000
18.520833333333330000
124.354166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 't_salary'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape9: TQRShape
Left = 101
Top = 1
Width = 1
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.083333333333340000
267.229166666666700000
2.645833333333333000
2.645833333333333000)
Shape = qrsRectangle
end
object QRShape10: TQRShape
Left = 208
Top = 1
Width = 1
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.083333333333340000
550.333333333333400000
2.645833333333333000
2.645833333333333000)
Shape = qrsRectangle
end
object QRShape11: TQRShape
Left = 304
Top = 1
Width = 1
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.083333333333340000
804.333333333333200000
2.645833333333333000
2.645833333333333000)
Shape = qrsRectangle
end
object QRShape12: TQRShape
Left = 400
Top = 1
Width = 1
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.083333333333340000
1058.333333333333000000
2.645833333333333000
2.645833333333333000)
Shape = qrsRectangle
end
object QRShape13: TQRShape
Left = 496
Top = 1
Width = 1
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.083333333333340000
1312.333333333333000000
2.645833333333333000
2.645833333333333000)
Shape = qrsRectangle
end
object QRShape14: TQRShape
Left = 600
Top = 1
Width = 1
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.083333333333340000
1587.500000000000000000
2.645833333333333000
2.645833333333333000)
Shape = qrsRectangle
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 201
Width = 718
Height = 40
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
105.833333333333300000
1899.708333333333000000)
BandType = rbPageFooter
object QRLabel20: TQRLabel
Left = 317
Top = 14
Width = 16
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
838.729166666666700000
37.041666666666670000
42.333333333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31532
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRSysData1: TQRSysData
Left = 335
Top = 13
Width = 57
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
886.354166666666700000
34.395833333333330000
150.812500000000000000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
FontSize = 11
end
object QRLabel21: TQRLabel
Left = 395
Top = 13
Width = 16
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
1045.104166666667000000
34.395833333333330000
42.333333333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #39029
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
end
object qry_name: TQuery
DatabaseName = 'MeiRong'
SQL.Strings = (
'select unitname from unit')
Left = 40
Top = 8
end
object qry_main: TQuery
DatabaseName = 'MeiRong'
SQL.Strings = (
'select sb.emp_no,emp_name,b_salary,s_extra,o_add,o_reduced,'
't_salary,year_month from salarybasic sb,employee e '
'where sb.emp_no=e.emp_no and year_month=:yearmonth')
Left = 72
Top = 8
ParamData = <
item
DataType = ftString
Name = 'yearmonth'
ParamType = ptInput
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -