📄 sy_zfhzcx.dfm
字号:
object QRShape7: TQRShape
Left = 0
Top = -3
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.0208333333333
0
-7.9375
2.64583333333333)
Brush.Color = clBlack
Pen.Mode = pmBlack
Shape = qrsRectangle
end
object QRShape8: TQRShape
Left = 61
Top = -1
Width = 1
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
161.395833333333
-2.64583333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape9: TQRShape
Left = 89
Top = -1
Width = 1
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
235.479166666667
-2.64583333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape10: TQRShape
Left = 240
Top = -1
Width = 1
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
635
-2.64583333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape11: TQRShape
Left = 440
Top = -1
Width = 1
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
1164.16666666667
-2.64583333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape12: TQRShape
Left = 600
Top = -1
Width = 1
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
1587.5
-2.64583333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRShape13: TQRShape
Left = 776
Top = 0
Width = 1
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
2053.16666666667
0
2.64583333333333)
Shape = qrsVertLine
end
object QRShape14: TQRShape
Left = 971
Top = -1
Width = 1
Height = 29
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
77.6111111111111
2568.22222222222
-3.52777777777778
3.52777777777778)
Brush.Color = clBlack
Pen.Mode = pmBlack
Shape = qrsRectangle
end
object QRLabel1: TQRLabel
Left = 325
Top = 4
Width = 46
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
859.895833333333
10.5833333333333
121.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '接上页'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 11
end
end
end
inherited Qry_Search: TRxQuery
AfterOpen = Qry_SearchAfterOpen
SQL.Strings = (
'Select 2 ORD, YF, 1 ORD1, RQ, TO_CHAR(RQ, '#39'MM-DD'#39') FSRQ, CRKDH, ' +
'ZI, ZY,'
' YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
'100 YJZXJE,YJYE/100 YJYE'
' From TYS_JYPZFHZB'
'')
Left = 395
Top = 199
end
inherited Dso_Search: TDataSource
Left = 423
Top = 199
end
object Dso_Detail: TDataSource [8]
DataSet = Qry_Detail
Left = 498
Top = 370
end
inherited Qry_Any: TQuery
DatabaseName = 'YZPP'
Left = 397
Top = 263
end
inherited SqlStrings: TSqlStrings
jyp_Sql.Strings = (
'Select 2 ORD, YF, 1 ORD1, RQ, ID, TO_CHAR(RQ, '#39'MM-DD'#39') FSRQ, CRK' +
'DH, ZI, ZY,'
' YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
'100 YJZXJE,YJYE/100 YJYE'
' From TYS_JYPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'UNION ALL'
'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, 0, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
' 0, 0, 0, 0, YJYE/100'
' FROM TYS_JYPZFHZYEB'
' where DWDM=:DWDM'
' and ND = GetYear(:RQFrom)'
' and TO_NUMBER(YF) = GetMonth(:RQFrom)'
'UNION ALL'
'Select 2 ORD, YF, 2 ORD1, SYSDATE, 0, '#39#39' FSRQ, '#39#39' CRKDH, '#39#39', '#39' ' +
#39'||YF||'#39'月小计'#39' ZY,'
' SUM(YJZJJE)/100 YJZJJE, SUM(YJTJJE)/100 YJTJJE, SUM(YJHKJE)/10' +
'0 YJHKJE, SUM(YJZXJE)/100 YJZXJE, 0 YJYE'
' From TYS_JYPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
' GROUP BY YF'
'UNION ALL'
'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, 0, '#39#39', '#39#39' CRKDH, '#39#39', '#39' '#39'||Y' +
'F||'#39'月本年累计'#39','
' YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
'100 YJZXJE, 0 YJYE'
' FROM TYS_JYPZFHZYEB'
' where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'ORDER BY 1, 2, 3, 4, 5'
''
'')
txp_Sql.Strings = (
'Select 2 ORD, YF, 1 ORD1, RQ, ID, TO_CHAR(RQ, '#39'MM-DD'#39') FSRQ, CRK' +
'DH, ZI, ZY,'
' ZJJE/100 YJZJJE,TJJE/100 YJTJJE, HKJE/100 YJHKJE,ZXJE/100 YJZX' +
'JE,YE/100 YJYE'
' From TYS_TXPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'UNION ALL'
'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, 0, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
' 0, 0, 0, 0, YE/100'
' FROM TYS_TXPZFHZYEB'
' where DWDM=:DWDM'
' and ND = GetYear(:RQFrom)'
' and TO_NUMBER(YF) = GetMonth(:RQFrom)'
'UNION ALL'
'Select 2 ORD, YF, 2 ORD1, SYSDATE, 0, '#39#39' FSRQ, '#39#39' CRKDH, '#39#39', '#39' ' +
#39'||YF||'#39'月小计'#39' ZY,'
' SUM(ZJJE)/100 YJZJJE, SUM(TJJE)/100 YJTJJE, SUM(HKJE)/100 YJHK' +
'JE, SUM(ZXJE)/100 YJZXJE, 0 YE'
' From TYS_TXPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
' GROUP BY YF'
'UNION ALL'
'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, 0, '#39#39', '#39#39' CRKDH, '#39#39', '#39' '#39'||Y' +
'F||'#39'月本年累计'#39','
' ZJJE/100 YJZJJE,TJJE/100 YJTJJE, HKJE/100 YJHKJE,ZXJE/100 YJZX' +
'JE, 0 YE'
' FROM TYS_TXPZFHZYEB'
' where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'ORDER BY 1, 2, 3, 4, 5')
yp_Sql.Strings = (
'Select 2 ORD, YF, 1 ORD1, RQ, ID, TO_CHAR(RQ, '#39'MM-DD'#39') FSRQ, CRK' +
'DH, ZI, ZY,'
' YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
'100 YJZXJE,YJYE/100 YJYE'
' From TYS_YPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'UNION ALL'
'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, 0, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
' 0, 0, 0, 0, YJYE/100'
' FROM TYS_YPZFHZYEB'
' where DWDM=:DWDM'
' and ND = GetYear(:RQFrom)'
' and TO_NUMBER(YF) = GetMonth(:RQFrom)'
'UNION ALL'
'Select 2 ORD, YF, 2 ORD1, SYSDATE, 0, '#39#39' FSRQ, '#39#39' CRKDH, '#39#39', '#39' ' +
#39'||YF||'#39'月小计'#39' ZY,'
' SUM(YJZJJE)/100 YJZJJE, SUM(YJTJJE)/100 YJTJJE, SUM(YJHKJE)/10' +
'0 YJHKJE, SUM(YJZXJE)/100 YJZXJE, 0 YJYE'
' From TYS_YPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
' GROUP BY YF'
'UNION ALL'
'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, 0, '#39#39', '#39#39' CRKDH, '#39#39', '#39' '#39'||Y' +
'F||'#39'月本年累计'#39','
' YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
'100 YJZXJE, 0 YJYE'
' FROM TYS_YPZFHZYEB'
' where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'ORDER BY 1, 2, 3, 4, 5'
''
''
' ')
grp_Sql.Strings = (
'Select 2 ORD, YF, 1 ORD1, RQ, ID, TO_CHAR(RQ, '#39'MM-DD'#39') FSRQ, CRK' +
'DH, ZI, ZY,'
' YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
'100 YJZXJE,YJYE/100 YJYE'
' From TYS_GRPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'UNION ALL'
'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, 0, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
' 0, 0, 0, 0, YJYE/100'
' FROM TYS_GRPZFHZYEB'
' where DWDM=:DWDM'
' and ND = GetYear(:RQFrom)'
' and TO_NUMBER(YF) = GetMonth(:RQFrom)'
'UNION ALL'
'Select 2 ORD, YF, 2 ORD1, SYSDATE, 0, '#39#39' FSRQ, '#39#39' CRKDH, '#39#39', '#39' ' +
#39'||YF||'#39'月小计'#39' ZY,'
' SUM(YJZJJE)/100 YJZJJE, SUM(YJTJJE)/100 YJTJJE, SUM(YJHKJE)/10' +
'0 YJHKJE, SUM(YJZXJE)/100 YJZXJE, 0 YJYE'
' From TYS_GRPZFHZB'
' Where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
' GROUP BY YF'
'UNION ALL'
'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, 0, '#39#39', '#39#39' CRKDH, '#39#39', '#39' '#39'||Y' +
'F||'#39'月本年累计'#39','
' YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
'100 YJZXJE, 0 YJYE'
' FROM TYS_GRPZFHZYEB'
' where DWDM=:DWDM'
' AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
'ORDER BY 1, 2, 3, 4, 5'
''
''
' ')
Left = 367
Top = 199
end
object Qry_Detail: TQuery
AfterOpen = Qry_DetailAfterOpen
DatabaseName = 'YZPP'
SQL.Strings = (
'Select DWDM,CRKDH,ZI,Y.PPDM,JJ/100 JJ,RQ, YJ/100 JJ, XJ/100 XJ,'
'Y.SL,JZSJ,ZBR, Y.SDATE, J.TMC||'#39'('#39'||ZH||'#39')'#39' TMC'
'from TYS_JYPZFHZMXB Y, TB_YZPPTXXB J'
'Where Y.PPDM = J.TDM(+)'
'AND Y.DWDM=:DWDM'
'AND Y.ND||Y.YF >= :RqFrom and Y.ND||Y.YF<= :RqEnd'
'ORDER BY CRKDH, ZH'
''
''
' ')
Left = 470
Top = 370
ParamData = <
item
DataType = ftUnknown
Name = 'DWDM'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'RQFrom'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'RQEnd'
ParamType = ptUnknown
end>
object Qry_DetailDWDM: TStringField
FieldName = 'DWDM'
Origin = 'YZPP.TYS_JYPZFHZMXB.DWDM'
Size = 8
end
object Qry_DetailCRKDH: TStringField
DisplayLabel = '单据号'
FieldName = 'CRKDH'
Origin = 'YZPP.TYS_JYPZFHZMXB.CRKDH'
end
object Qry_DetailZI: TStringField
DisplayLabel = '字'
FieldName = 'ZI'
Origin = 'YZPP.TYS_JYPZFHZMXB.ZI'
Size = 2
end
object Qry_DetailRQ: TDateTimeField
DisplayLabel = '日期'
FieldName = 'RQ'
Origin = 'YZPP.TYS_JYPZFHZMXB.RQ'
end
object Qry_DetailSL: TFloatField
DisplayLabel = '数量'
FieldName = 'SL'
Origin = 'YZPP.TYS_JYPZFHZMXB.SL'
DisplayFormat = '#,##0'
end
object Qry_DetailJZSJ: TDateTimeField
DisplayLabel = '记帐时间'
FieldName = 'JZSJ'
Origin = 'YZPP.TYS_JYPZFHZMXB.JZSJ'
end
object Qry_DetailZBR: TStringField
FieldName = 'ZBR'
Origin = 'YZPP.TYS_JYPZFHZMXB.ZBR'
Size = 12
end
object Qry_DetailSDATE: TDateTimeField
FieldName = 'SDATE'
Origin = 'YZPP.TYS_JYPZFHZMXB.SDATE'
end
object Qry_DetailPPDM: TStringField
FieldName = 'PPDM'
Size = 15
end
object Qry_DetailTMC: TStringField
DisplayLabel = '票品名称'
FieldName = 'TMC'
Size = 60
end
object Qry_DetailJJ: TFloatField
DisplayLabel = '进价'
FieldName = 'JJ'
end
object Qry_DetailXJ: TFloatField
DisplayLabel = '销价'
FieldName = 'XJ'
end
end
object SqlStrings1: TSqlStrings
jyp_Sql.Strings = (
'Select DWDM,CRKDH,ZI,Y.PPDM,JJ/100 JJ,RQ, XJ/100 XJ,'
'Y.SL,JZSJ,ZBR, Y.SDATE, J.TMC||'#39'('#39'||ZH||'#39')'#39' TMC'
'from TYS_JYPZFHZMXB Y, TB_YZPPTXXB J'
'Where Y.PPDM = J.TDM(+)'
'AND Y.DWDM=:DWDM'
'AND Y.ND||Y.YF >= :RqFrom and Y.ND||Y.YF<= :RqEnd'
'ORDER BY CRKDH, ZH'
''
' ')
txp_Sql.Strings = (
'Select DWDM,CRKDH,ZI,Y.PPDM,RQ,ZBR, Y.SDATE, J.TMC||'#39'('#39'||ZH||'#39')'#39 +
' TMC, JJ/100 JJ, XJ/100 XJ,'
'Y.SL,JZSJ'
'from TYS_TXPZFHZMXB Y, TB_YZPPXXB J'
'Where Y.PPDM = J.TDM(+)'
'AND Y.DWDM=:DWDM'
'AND Y.ND||Y.YF >= :RqFrom and Y.ND||Y.YF<= :RqEnd'
'ORDER BY CRKDH, ZH')
yp_Sql.Strings = (
'Select DWDM,CRKDH,ZI,Y.PPDM,JJ/100 JJ,RQ, XJ/100 XJ,'
'Y.SL,JZSJ,ZBR, Y.SDATE, J.MC||'#39'('#39'||ZH||'#39')'#39' TMC'
'from TYS_YPZFHZMXB Y, TB_JYPTXXB J'
'Where Y.PPDM = J.TDM(+)'
'AND Y.DWDM=:DWDM'
'AND Y.ND||Y.YF >= :RqFrom and Y.ND||Y.YF<= :RqEnd'
'ORDER BY CRKDH, ZH'
''
' ')
grp_Sql.Strings = (
'Select DWDM,CRKDH,ZI,Y.PPDM,JJ/100 JJ,RQ, XJ/100 XJ,'
'Y.SL,JZSJ,ZBR, Y.SDATE, J.PPMC||'#39'('#39'||ZH||'#39')'#39' TMC'
'from TYS_GRPZFHZMXB Y, VW_BASE J'
'Where Y.PPDM = J.PPDM(+)'
'AND Y.DWDM=:DWDM'
'AND Y.ND||Y.YF >= :RqFrom and Y.ND||Y.YF<= :RqEnd'
'ORDER BY CRKDH, ZH'
' ')
Left = 442
Top = 370
end
object Qry_Print: TRxQuery
DatabaseName = 'yzpp'
Macros = <>
Left = 396
Top = 232
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -