📄 gl_enter_credence_p.dfm
字号:
AlignToBand = False
AutoSize = True
AutoStretch = True
Color = clWhite
DataSet = AdoQry_Tmp
DataField = 'CreditAmount'
OnPrint = QRDBText3Print
TransParent = True
WordWrAp = True
FontSize = 10
end
object QRShApe9: TQRShApe
Left = 563
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
1489.60416666667
-2.64583333333333
2.64583333333333)
ShApe = qrsVertLine
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 166
Width = 750
Height = 48
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
BeforePrint = PageFooterBand1BeforePrint
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
127
1984.375)
BandType = rbPageFooter
object QRLabel8: TQRLabel
Left = 7
Top = 29
Width = 47
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
18.5208333333333
76.7291666666667
124.354166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '制单人:'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QLbl_MBEmp: TQRLabel
Left = 56
Top = 29
Width = 71
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
148.166666666667
76.7291666666667
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QLbl_MBEmp'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 182
Top = 29
Width = 47
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
481.541666666667
76.7291666666667
124.354166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '审核人:'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QLbl_CredItemp: TQRLabel
Left = 232
Top = 29
Width = 99
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
613.833333333333
76.7291666666667
261.9375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QLbl_CredItemp'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 390
Top = 29
Width = 34
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1031.875
76.7291666666667
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '出纳:'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QLbl_PayEmp: TQRLabel
Left = 428
Top = 29
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1132.41666666667
76.7291666666667
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QLbl_PayEmp'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 550
Top = 29
Width = 34
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1455.20833333333
76.7291666666667
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '记账:'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QLbl_tallyEmp: TQRLabel
Left = 584
Top = 29
Width = 92
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1545.16666666667
76.7291666666667
243.416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QLbl_tallyEmp'
Color = clWhite
TransParent = False
WordWrAp = True
FontSize = 10
end
object QRShApe14: TQRShApe
Left = 1
Top = 20
Width = 747
Height = 7
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
18.5208333333333
2.64583333333333
52.9166666666667
1976.4375)
ShApe = qrsHorLine
end
object QLbl_PageBorrowCount: TQRLabel
Left = 571
Top = 6
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1510.77083333333
15.875
206.375)
Alignment = tArightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'BorrowCount'
Color = clWhite
OnPrint = QLbl_PageBorrowCountPrint
TransParent = False
WordWrAp = True
FontSize = 10
end
object QS_Line3: TQRShApe
Left = 654
Top = -1
Width = 1
Height = 24
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
63.5
1730.375
-2.64583333333333
2.64583333333333)
ShApe = qrsVertLine
end
object QLbl_PageLenderCount: TQRLabel
Left = 663
Top = 6
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1754.1875
15.875
206.375)
Alignment = tArightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'LenderCount'
Color = clWhite
OnPrint = QLbl_PageLenderCountPrint
TransParent = False
WordWrAp = True
FontSize = 10
end
object QS_Line2: TQRShApe
Left = 563
Top = -1
Width = 1
Height = 24
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
63.5
1489.60416666667
-2.64583333333333
2.64583333333333)
ShApe = qrsVertLine
end
object QRLbl_ThisPage: TQRLabel
Left = 322
Top = 6
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
851.958333333333
15.875
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '本页小计'
Color = clWhite
Font.ChArset = DEFAULT_CHArSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
TransParent = False
WordWrAp = True
FontSize = 10
end
object QS_Line1: TQRShApe
Left = 1
Top = -3
Width = 749
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
2.64583333333333
-7.9375
1981.72916666667)
ShApe = qrsHorLine
end
end
end
object AdoQry_Tmp: TAdoQuery
CurSorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select DocketName,Gl_CredenceLine.KMCode+'#39' '#39'+KMName As KMFlag,De' +
'bitAmount,CreditAmount,CashWay+'#39' '#39'+ProjectName As CashFlag'
'from Gl_CredenceLine '
'left join Gl_AccountSubject t2 on Gl_CredenceLine.kmCode=t2.kmco' +
'de '
'left join Gl_CashReport t3 on Gl_CredenceLine.CashWay=t3.project' +
'Code')
Left = 128
Top = 224
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -