sz_jypplx.dfm

省级集邮品管理ERP

            FieldName = '折扣'
            Width = 30
            Visible = True
          end
          item
            Expanded = False
            FieldName = '库房'
            Width = 70
            Visible = True
          end>
      end
    end
    object GroupBox3: TGroupBox
      Left = 369
      Top = 0
      Width = 423
      Height = 423
      Align = alClient
      Caption = '分配单信息'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object DBGrid2: TDBGrid
        Left = 2
        Top = 14
        Width = 419
        Height = 407
        Align = alClient
        DataSource = DataSource2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = data.pm_Export
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = '发货单号'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = '出库性质'
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = '去向单位'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = '数量'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = '售价'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = '库房'
            Visible = True
          end>
      end
    end
  end
  object Query1: TRxQuery
    AfterOpen = Query1AfterOpen
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select A.TDM TDM,A.ZH 志号,A.TMC 票品名称,B.JJ/100 进价,b.xj/100' +
        ' 售价,b.zk 折扣,c.kfmc 库房'
      'from TB_YZPPTXXB A,TYS_JYPPKC B,TGS_KFB c'
      'where a.tdm=b.ppdm and b.kfdm=c.kfdm order by B.PPDM,B.KFdm,B.JJ')
    Macros = <>
    Left = 80
    Top = 294
  end
  object Query2: TRxQuery
    DatabaseName = 'yzpp'
    DataSource = DataSource1
    SQL.Strings = (
      
        'select a.fhdh 发货单号,d.RCKXZMC 出库性质,e.DWMC 去向单位,b.sl ' +
        '数量,b.xj 售价,c.kfmc 库房 from'
      'TKS_JYFHD A,TKS_JYCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb e'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=:TDM and B.JJ/100=:进价'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    Macros = <
      item
        DataType = ftString
        Name = 'RQ1'
        ParamType = ptInput
        Value = '0'
      end
      item
        DataType = ftString
        Name = 'RQ2'
        ParamType = ptInput
        Value = '0'
      end>
    Left = 388
    Top = 294
    ParamData = <
      item
        DataType = ftString
        Name = 'TDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftFloat
        Name = '进价'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 112
    Top = 294
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 420
    Top = 294
  end
  object SqlStrings1: TSqlStrings
    jyp_Sql.Strings = (
      
        'select A.TDM TDM,A.ZH 志号,A.TMC 票品名称,B.JJ/100 进价,b.xj/100' +
        ' 售价,b.zk 折扣,c.kfmc 库房'
      'from TB_YZPPTXXB A,TYS_JYPPKC B,TGS_KFB c'
      'where a.tdm=b.ppdm and b.kfdm=c.kfdm order by B.PPDM,B.KFdm,B.JJ')
    txp_Sql.Strings = (
      
        'select A.TDM TDM,A.ZH 志号,A.TMC 票品名称,B.MZ/100 进价,b.SJ/100' +
        ' 售价,b.ZK 折扣,c.KFMC 库房'
      'from TB_YZPPXXB A,TKS_TXPPKC B,TGS_KFB c'
      'where a.TDM=b.TUDM and b.KFDM=c.KFDM order by B.TUDM,B.KFDM')
    yp_Sql.Strings = (
      
        'select A.TDM TDM,A.ZH 志号,A.MC 票品名称,B.JJ/100 进价,B.XJ/100 ' +
        '售价,B.ZK 折扣,C.KFMC 库房'
      'from TB_JYPTXXB A,TYS_YPPKC B,TGS_KFB C'
      
        'where A.TDM=B.PPDM and B.KFDM=C.KFDM order by B.PPDM,B.KFDM, B.J' +
        'J')
    grp_Sql.Strings = (
      
        'select A.TDM TDM,A.ZH 志号,A.TMC 票品名称,B.JJ/100 进价,B.XJ/100' +
        ' 售价,B.ZK 折扣,C.KFMC 库房'
      'from TB_YZPPXXB A,TYS_GRPPKC B,TGS_KFB C'
      
        'where A.TDM=B.PPDM and B.KFDM=C.KFDM order by B.PPDM,B.KFDM, B.J' +
        'J')
    Left = 80
    Top = 258
  end
  object SqlStrings2: TSqlStrings
    jyp_Sql.Strings = (
      
        'select a.fhdh 发货单号,d.RCKXZMC 出库性质,e.DWMC 去向单位,b.sl ' +
        '数量,b.xj 售价,c.kfmc 库房 from'
      'TKS_JYFHD A,TKS_JYCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb e'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=:TDM and B.JJ/100=:进价'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    txp_Sql.Strings = (
      
        'select a.fhdh 发货单号,d.RCKXZMC 出库性质,e.DWMC 去向单位,b.sl ' +
        '数量,b.sj 售价,c.kfmc 库房 from'
      'TKS_TXFHD A,TKS_TXCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb e'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=:TDM and B.SJ/100=:进价'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    yp_Sql.Strings = (
      
        'select a.fhdh 发货单号,d.RCKXZMC 出库性质,e.DWMC 去向单位,b.sl ' +
        '数量,b.xj 售价,c.kfmc 库房 from'
      'TKS_YPFHD A,TKS_YPCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb e'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=:TDM and B.JJ/100=:进价'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    grp_Sql.Strings = (
      
        'select a.fhdh 发货单号,d.RCKXZMC 出库性质,e.DWMC 去向单位,b.sl ' +
        '数量,b.xj 售价,c.kfmc 库房 from'
      
        'TKS_GRPFHD A,TKS_GRPCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb ' +
        'e'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=:TDM and B.JJ/100=:进价'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    Left = 389
    Top = 258
  end
  object SqlStrings3: TSqlStrings
    jyp_Sql.Strings = (
      'select DWDM,DWMC 单位名称 from TGS_GXDWSJB '
      'where ZJXJ='#39'1'#39' and FHDX='#39'1'#39' and JYYW='#39'1'#39' '
      'order by DWDM')
    txp_Sql.Strings = (
      'select DWDM,DWMC 单位名称 from TGS_GXDWSJB '
      'where ZJXJ='#39'1'#39' and FHDX='#39'1'#39' and TXYW='#39'1'#39' '
      'order by DWDM')
    yp_Sql.Strings = (
      'select DWDM,DWMC 单位名称 from TGS_GXDWSJB '
      'where ZJXJ='#39'1'#39' and FHDX='#39'1'#39' and JYYW='#39'1'#39' '
      'order by DWDM')
    grp_Sql.Strings = (
      'select DWDM,DWMC 单位名称 from TGS_GXDWSJB '
      'where ZJXJ='#39'1'#39' and FHDX='#39'1'#39' and JYYW='#39'1'#39' '
      'order by DWDM')
    Left = 80
    Top = 334
  end
  object SqlStrings4: TSqlStrings
    jyp_Sql.Strings = (
      
        'select a.fhdh 发货单号,F.ZH 志号,d.RCKXZMC 出库性质,e.DWMC 去向' +
        '单位,b.sl 数量,b.xj 售价,c.kfmc 库房 from'
      
        'TKS_JYFHD A,TKS_JYCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb e,' +
        'TB_YZPPTXXB F'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=F.TDM and a.qxdw=:DWDM'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    txp_Sql.Strings = (
      
        'select a.fhdh 发货单号,F.ZH 志号,d.RCKXZMC 出库性质,e.DWMC 去向' +
        '单位,b.sl 数量,b.SJ 售价,c.kfmc 库房 from'
      
        'TKS_TXFHD A,TKS_TXCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb e,' +
        'TB_YZPPTXXB F'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.TUDM=F.TDM and a.qxdw=:DWDM'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    yp_Sql.Strings = (
      
        'select a.fhdh 发货单号,F.ZH 志号,d.RCKXZMC 出库性质,e.DWMC 去向' +
        '单位,b.sl 数量,b.xj 售价,c.kfmc 库房 from'
      
        'TKS_YPFHD A,TKS_YPCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb e,' +
        'TB_YZPPTXXB F'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=F.TDM and a.qxdw=:DWDM'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    grp_Sql.Strings = (
      
        'select a.fhdh 发货单号,F.ZH 志号,d.RCKXZMC 出库性质,e.DWMC 去向' +
        '单位,b.sl 数量,b.xj 售价,c.kfmc 库房 from'
      
        'TKS_GRPFHD A,TKS_GRPCKPP B,TGS_KFB C,TGS_JRCKXZDM D,tgs_gxdwsjb ' +
        'e,TB_YZPPTXXB F'
      ' where A.FHDH=B.FHDH and A.ckxz=d.RCKXZDM and b.kfdm=c.kfdm'
      ' and a.qxdw=e.dwdm and B.PPDM=F.TDM and a.qxdw=:DWDM'
      
        ' and to_char(a.ckrq,'#39'YYYYMMDD'#39') >= %RQ1 and to_char(a.ckrq,'#39'YYYY' +
        'MMDD'#39') <= %RQ2'
      'order by a.ckrq,a.qxdw')
    Left = 389
    Top = 334
  end
end