jm_msfhzcx.dfm

省级集邮品管理ERP

        Name = 'DWDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LB'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ND'
        ParamType = ptUnknown
      end>
    object Qry_SearchND: TStringField
      FieldName = 'ND'
      Origin = 'JM_YZPP.TM_MSFHZB.ND'
      Size = 4
    end
    object Qry_SearchYF: TStringField
      FieldName = 'YF'
      Origin = 'JM_YZPP.TM_MSFHZB.YF'
      Size = 2
    end
    object Qry_SearchDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'JM_YZPP.TM_MSFHZB.DWDM'
      Size = 8
    end
    object Qry_SearchCRKDH: TStringField
      FieldName = 'CRKDH'
      Origin = 'JM_YZPP.TM_MSFHZB.CRKDH'
    end
    object Qry_SearchZI: TStringField
      FieldName = 'ZI'
      Origin = 'JM_YZPP.TM_MSFHZB.ZI'
      Size = 2
    end
    object Qry_SearchZY: TStringField
      FieldName = 'ZY'
      Origin = 'JM_YZPP.TM_MSFHZB.ZY'
      Size = 40
    end
    object Qry_SearchZJJE: TFloatField
      FieldName = 'ZJJE'
      Origin = 'JM_YZPP.TM_MSFHZB.XJZJJE'
      OnGetText = Qry_SearchZJJEGetText
      OnSetText = Qry_SearchZJJESetText
    end
    object Qry_SearchTJJE: TFloatField
      FieldName = 'TJJE'
      Origin = 'JM_YZPP.TM_MSFHZB.XJTJJE'
      OnGetText = Qry_SearchTJJEGetText
      OnSetText = Qry_SearchTJJESetText
    end
    object Qry_SearchHKJE: TFloatField
      FieldName = 'HKJE'
      Origin = 'JM_YZPP.TM_MSFHZB.XJHKJE'
      OnGetText = Qry_SearchHKJEGetText
      OnSetText = Qry_SearchHKJESetText
    end
    object Qry_SearchYE: TFloatField
      FieldName = 'YE'
      Origin = 'JM_YZPP.TM_MSFHZB.XJYE'
      OnGetText = Qry_SearchYEGetText
      OnSetText = Qry_SearchYESetText
    end
    object Qry_SearchZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'JM_YZPP.TM_MSFHZB.ZBR'
      Size = 12
    end
    object Qry_SearchZXJE: TFloatField
      FieldName = 'ZXJE'
      Origin = 'JM_YZPP.TM_MSFHZB.XJZXJE'
      OnGetText = Qry_SearchZXJEGetText
      OnSetText = Qry_SearchZXJESetText
    end
    object Qry_SearchRQ: TStringField
      FieldName = 'RQ'
      Size = 75
    end
    object Qry_SearchLB: TStringField
      FieldName = 'LB'
      Size = 5
    end
  end
  object Dso_Detail: TDataSource [8]
    DataSet = Qry_Detail
    Left = 450
    Top = 230
  end
  inherited Qry_Any: TQuery
    Left = 399
    Top = 261
  end
  inherited SqlStrings: TSqlStrings
    jyp_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 tm_PZFHZB'
      '  Where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd and lb = '#39'0'#39
      'UNION ALL'
      'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
      '  0, 0, 0, 0, YJYE/100'
      '  FROM tm_ZFHZYEB'
      '  where DWDM=:DWDM'
      '    and ND = GetYear(:RQFrom)'
      '    and TO_NUMBER(YF) = GetMonth(:RQFrom) and lb = '#39'0'#39
      'UNION ALL'
      
        'Select 2 ORD, YF, 2 ORD1, SYSDATE, '#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 tm_ZFHZB'
      '  Where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd and lb = '#39'0'#39
      '  GROUP BY YF'
      'UNION ALL'
      
        'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, '#39#39',  '#39#39' CRKDH, '#39#39', '#39'  '#39'||YF||' +
        #39'月本年累计'#39','
      
        '  YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
        '100 YJZXJE, 0 YJYE'
      '  FROM tm_ZFHZYEB'
      '  where DWDM=:DWDM and lb = '#39'0'#39
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      'ORDER BY 1, 2, 3, 4'
      ''
      ''
      ' '
      ' ')
    txp_Sql.Strings = (
      
        'Select 2 ORD, YF, 1 ORD1, RQ, TO_CHAR(RQ, '#39'MM-DD'#39') FSRQ, CRKDH, ' +
        'ZI, ZY,'
      
        '  ZJJE/100 YJZJJE,TJJE/100 YJTJJE, HKJE/100 YJHKJE,ZXJE/100 YJZX' +
        'JE,YE/100 YJYE'
      '  From tm_TXPZFHZB'
      '  Where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      'UNION ALL'
      'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
      '  0, 0, 0, 0, YE/100'
      '  FROM tm_TXPZFHZYEB'
      '  where DWDM=:DWDM'
      '    and ND = GetYear(:RQFrom)'
      '    and TO_NUMBER(YF) = GetMonth(:RQFrom)'
      'UNION ALL'
      
        'Select 2 ORD, YF, 2 ORD1, SYSDATE, '#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 tm_TXPZFHZB'
      '  Where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      '  GROUP BY YF'
      'UNION ALL'
      
        'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, '#39#39',  '#39#39' CRKDH, '#39#39', '#39'  '#39'||YF||' +
        #39'月本年累计'#39','
      
        '  ZJJE/100 YJZJJE,TJJE/100 YJTJJE, HKJE/100 YJHKJE,ZXJE/100 YJZX' +
        'JE, 0 YE'
      '  FROM tm_TXPZFHZYEB'
      '  where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      'ORDER BY 1, 2, 3, 4'
      '')
    yp_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 tm_ZFHZB'
      '  Where DWDM=:DWDM and lb = '#39'1'#39
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      'UNION ALL'
      'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
      '  0, 0, 0, 0, YJYE/100'
      '  FROM tm_ZFHZYEB'
      '  where DWDM=:DWDM and lb = '#39'1'#39
      '    and ND = GetYear(:RQFrom)'
      '    and TO_NUMBER(YF) = GetMonth(:RQFrom)'
      'UNION ALL'
      
        'Select 2 ORD, YF, 2 ORD1, SYSDATE, '#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 tm_ZFHZB'
      '  Where DWDM=:DWDM and lb = '#39'1'#39
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      '  GROUP BY YF'
      'UNION ALL'
      
        'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, '#39#39',  '#39#39' CRKDH, '#39#39', '#39'  '#39'||YF||' +
        #39'月本年累计'#39','
      
        '  YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
        '100 YJZXJE, 0 YJYE'
      '  FROM tm_ZFHZYEB'
      '  where DWDM=:DWDM and lb = '#39'1'#39
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      'ORDER BY 1, 2, 3, 4'
      ''
      ''
      ''
      ' '
      ' ')
    grp_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 tm_GRPZFHZB'
      '  Where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      'UNION ALL'
      'SELECT 1 ORD, '#39#39', 0 ORD1, SYSDATE, '#39#39', '#39#39', '#39#39', '#39'期初余额'#39','
      '  0, 0, 0, 0, YJYE/100'
      '  FROM tm_GRPZFHZYEB'
      '  where DWDM=:DWDM'
      '    and ND = GetYear(:RQFrom)'
      '    and TO_NUMBER(YF) = GetMonth(:RQFrom)'
      'UNION ALL'
      
        'Select 2 ORD, YF, 2 ORD1, SYSDATE, '#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 tm_GRPZFHZB'
      '  Where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      '  GROUP BY YF'
      'UNION ALL'
      
        'SELECT 2 ORD, YF, 3 ORD1, SYSDATE, '#39#39',  '#39#39' CRKDH, '#39#39', '#39'  '#39'||YF||' +
        #39'月本年累计'#39','
      
        '  YJZJJE/100 YJZJJE,YJTJJE/100 YJTJJE, YJHKJE/100 YJHKJE,YJZXJE/' +
        '100 YJZXJE, 0 YJYE'
      '  FROM tm_GRPZFHZYEB'
      '  where DWDM=:DWDM'
      '    AND ND||YF >= :RqFrom and ND||YF<= :RqEnd'
      'ORDER BY 1, 2, 3, 4'
      ''
      ''
      ' ')
    Left = 343
    Top = 179
  end
  object Qry_Detail: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'Select  a.LB , a.ND ,a.YF,a.DWDM,a.CRKDH,a.ZI,a.PPDM ,a.JJ,TO_CH' +
        'AR(a.RQ,'#39'MM-DD'#39') RQ ,a.YJ, a.XJ,a.SL,a.JZSJ,a.ZBR,a.SDATE,b.zh,B' +
        '.TMC PPMC '
      'From TM_MSFHZMXB a,tB_YZPPXXB b'
      
        'where a.ppdm=b.ppdm and a.jj=b.jj and DWDM=:DWDM and LB=:LB and ' +
        'to_number(YF)>=:YF1 AND TO_NUMBER(YF)<=:YF2 AND ND=:ND'
      ' '
      ' ')
    Left = 399
    Top = 230
    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>
    object Qry_DetailND: TStringField
      FieldName = 'ND'
      Origin = 'JM_YZPP.TM_MSFHZMXB.ND'
      Size = 4
    end
    object Qry_DetailYF: TStringField
      FieldName = 'YF'
      Origin = 'JM_YZPP.TM_MSFHZMXB.YF'
      Size = 2
    end
    object Qry_DetailDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'JM_YZPP.TM_MSFHZMXB.DWDM'
      Size = 8
    end
    object Qry_DetailCRKDH: TStringField
      FieldName = 'CRKDH'
      Origin = 'JM_YZPP.TM_MSFHZMXB.CRKDH'
    end
    object Qry_DetailZI: TStringField
      FieldName = 'ZI'
      Origin = 'JM_YZPP.TM_MSFHZMXB.ZI'
      Size = 2
    end
    object Qry_DetailPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'JM_YZPP.TM_MSFHZMXB.PPDM'
      Size = 15
    end
    object Qry_DetailJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'JM_YZPP.TM_MSFHZMXB.JJ'
      OnGetText = Qry_DetailJJGetText
      OnSetText = Qry_DetailJJSetText
    end
    object Qry_DetailYJ: TFloatField
      FieldName = 'YJ'
      Origin = 'JM_YZPP.TM_MSFHZMXB.YJ'
    end
    object Qry_DetailXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'JM_YZPP.TM_MSFHZMXB.XJ'
      OnGetText = Qry_DetailXJGetText
      OnSetText = Qry_DetailXJSetText
    end
    object Qry_DetailSL: TFloatField
      FieldName = 'SL'
      Origin = 'JM_YZPP.TM_MSFHZMXB.SL'
      DisplayFormat = '#,##'
    end
    object Qry_DetailJZSJ: TDateTimeField
      FieldName = 'JZSJ'
      Origin = 'JM_YZPP.TM_MSFHZMXB.JZSJ'
    end
    object Qry_DetailZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'JM_YZPP.TM_MSFHZMXB.ZBR'
      Size = 12
    end
    object Qry_DetailSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'JM_YZPP.TM_MSFHZMXB.SDATE'
    end
    object Qry_DetailRQ: TStringField
      FieldName = 'RQ'
      Size = 75
    end
    object Qry_DetailZH: TStringField
      FieldName = 'ZH'
      Size = 16
    end
    object Qry_DetailPPMC: TStringField
      FieldName = 'PPMC'
      Size = 120
    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 tm_JYPZFHZMXB Y, TB_YZPPTXXB J'
      'Where Y.PPDM = J.TDM(+)'
      'AND Y.DWDM=:DWDM and lb = '#39'0'#39
      '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, MZ/100 JJ, SJ/100 XJ,'
      'Y.SL,JZSJ'
      'from tm_TXPZFHZMXB Y, VW_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 tm_YPZFHZMXB Y, TB_JYPTXXB J'
      'Where Y.PPDM = J.TDM(+)'
      'AND Y.DWDM=:DWDM and lb = '#39'1'#39
      '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.TMC||'#39'('#39'||ZH||'#39')'#39' TMC'
      'from tm_GRPZFHZMXB 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'
      ''
      '')
    Left = 499
    Top = 261
  end
  object Qry_ryb: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'SELECT YGDM,YGMC FROM TGS_RYB')
    Left = 192
    Top = 61
  end
end