jm_msfhzcx.dfm

省级集邮品管理ERP

      Left = 57
      Top = 112
      Width = 743
      Height = 18
      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 = (
        63.5
        2621.13888888889)
      BandType = rbDetail
      object QRShape58: TQRShape
        Left = 0
        Top = -1
        Width = 686
        Height = 19
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          67.0277777777778
          0
          -3.52777777777778
          2420.05555555556)
        Shape = qrsRectangle
      end
      object QRShape59: TQRShape
        Left = 46
        Top = 0
        Width = 1
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          162.277777777778
          0
          3.52777777777778)
        Shape = qrsVertLine
      end
      object QRShape60: TQRShape
        Left = 67
        Top = 0
        Width = 1
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          236.361111111111
          0
          3.52777777777778)
        Shape = qrsVertLine
      end
      object QRShape61: TQRShape
        Left = 330
        Top = 0
        Width = 1
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1164.16666666667
          0
          3.52777777777778)
        Shape = qrsVertLine
      end
      object QRShape62: TQRShape
        Left = 450
        Top = 0
        Width = 3
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1587.5
          0
          10.5833333333333)
        Shape = qrsRightAndLeft
      end
      object QRShape63: TQRShape
        Left = 570
        Top = 0
        Width = 3
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          2010.83333333333
          0
          10.5833333333333)
        Shape = qrsRightAndLeft
      end
      object QRDBText18: TQRDBText
        Left = 12
        Top = 4
        Width = 11
        Height = 10
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          35.2777777777778
          42.3333333333333
          14.1111111111111
          38.8055555555556)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Qry_Search
        DataField = 'RQ'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText19: TQRDBText
        Left = 51
        Top = 4
        Width = 11
        Height = 10
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          35.2777777777778
          179.916666666667
          14.1111111111111
          38.8055555555556)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Qry_Search
        DataField = 'ZI'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText20: TQRDBText
        Left = 196
        Top = 4
        Width = 11
        Height = 10
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          35.2777777777778
          691.444444444444
          14.1111111111111
          38.8055555555556)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Qry_Search
        DataField = 'ZY'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText21: TQRDBText
        Left = 72
        Top = 5
        Width = 27
        Height = 10
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          35.2777777777778
          254
          17.6388888888889
          95.25)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Qry_Search
        DataField = 'CRKDH'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText22: TQRDBText
        Left = 414
        Top = 4
        Width = 22
        Height = 10
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          35.2777777777778
          1460.5
          14.1111111111111
          77.6111111111111)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Qry_Search
        DataField = 'ZJJE'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText23: TQRDBText
        Left = 534
        Top = 4
        Width = 22
        Height = 10
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          35.2777777777778
          1883.83333333333
          14.1111111111111
          77.6111111111111)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Qry_Search
        DataField = 'TJJE'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRDBText24: TQRDBText
        Left = 655
        Top = 4
        Width = 11
        Height = 10
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          35.2777777777778
          2310.69444444444
          14.1111111111111
          38.8055555555556)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Qry_Search
        DataField = 'YE'
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRShape64: TQRShape
        Left = 180
        Top = 0
        Width = 1
        Height = 18
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          635
          0
          3.52777777777778)
        Shape = qrsVertLine
      end
    end
  end
  inherited Qry_Search: TRxQuery
    SQL.Strings = (
      
        'Select 1 ORD, LB , ND, YF, DWDM ,CRKDH,  ZI, to_char(RQ,'#39'MM-DD'#39')' +
        ' RQ,ZY, '
      
        '         YJZJJE ZJJE, YJTJJE TJJE, YJHKJE HKJE,YJZXJE ZXJE, YJYE' +
        ' YE,'
      '         JJZJJE, JJTJJE, JJHKJE, JJZXJE, JJYE, XJZJJE, XJTJJE,'
      '          XJHKJE, XJZXJE, XJYE,ZBR,SDATE'
      'From  TM_MSFHZB'
      
        'Where DWDM=:DWDM and LB=:LB and ( to_number(YF1)>=:YF1 AND TO_NU' +
        'MBER(YF)<=:YF2 AND ND=:ND )  '
      ''
      'UNION ALL'
      'Select 0 ORD, '#39#39', '#39#39', '#39#39','#39#39', '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
      '  0 ZJJE, 0 TJJE, 0 HKJE,0 ZXJE, YJYE YE,'
      '         JJZJJE, JJTJJE, JJHKJE, JJZXJE, JJYE, XJZJJE, XJTJJE,'
      '          XJHKJE, XJZXJE, XJYE,ZBR,SDATE'
      '  From TM_MSFHZB'
      '  Where DWDM=:DWDM '
      '    AND ND = GetYear(:YF1)'
      '    and TO_NUMBER(YF) = GetMonth(:YF1)'
      'UNION ALL'
      'Select 2 ORD, LB,ND,YF, DWDM, '#39#39', '#39#39', '#39#39','#39'  '#39'||YF||'#39'月小计'#39' ZY,'
      
        '  SUM(YJZJJE) ZJJE, SUM(YJTJJE) TJJE,SUM(YJHKJE) HKJE,SUM(YJXJE)' +
        ' ZXJE ,0 YE,'
      
        '   0 JJZJJE, 0 JJTJJE, 0 JJHKJE,0 JJZXJE, 0 JJYE, 0 XJZJJE, 0 XJ' +
        'TJJE,'
      '         0 XJHKJE,0 XJZXJE,0 XJYE,'#39#39' ZBR,'#39#39' SDATE '
      '  From TM_MSFHZB'
      
        '  Where DWDM=:DWDM and LB=:LB and ( to_number(YF)>=:YF1 AND TO_N' +
        'UMBER(YF)<=:YF2 AND ND=:ND )'
      '  GROUP BY LB,YF,ND,DMDM'
      'UNION ALL'
      'SELECT 3 ORD,LB,ND,'#39#39', DWDM, '#39#39', '#39#39', '#39#39','#39'  '#39'||YF||'#39'月本年累计'#39','
      
        '  SUM(YJZJJE) ZJJE, SUM(YJTJJE) TJJE,SUM(YJHKJE) HKJE,SUM(YJXJE)' +
        ' ZXJE ,0 YE,'
      
        '   0 JJZJJE, 0 JJTJJE, 0 JJHKJE,0 JJZXJE, 0 JJYE, 0 XJZJJE, 0 XJ' +
        'TJJE,'
      '         0 XJHKJE,0 XJZXJE,0 XJYE,'#39#39' ZBR,'#39#39' SDATE '
      '  From TM_MSFHZB'
      '  Where DWDM=:DWDM and LB=:LB and  AND ND=:ND '
      '  GROUP BY LB,ND,DMDM '
      'Order By ORD')
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DWDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LB'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YF1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YF2'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ND'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DWDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YF1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YF1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DWDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LB'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YF1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YF2'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ND'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown