sy_kcpptj.dfm

省级集邮品管理ERP

  end
  object SP_JYP_TJJZ: TStoredProc
    DatabaseName = 'yzpp'
    StoredProcName = 'JYP_TJ_JZ'
    Left = 20
    Top = 360
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_TJDH'
        ParamType = ptInput
      end>
  end
  object USQL_YP_KC: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_YPPKC'
      'set'
      '  XJ = :XJ'
      'where'
      '  PPDM = :PPDM')
    Left = 76
    Top = 232
  end
  object SqlS_KC: TSqlStrings
    jyp_Sql.Strings = (
      'Select'
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.PPDM, KCHSJ '
      'from '
      '  TYS_JYPPKC a,TB_YZPPTXXB b, TG_GJPPJGB c'
      'where '
      '  a.PPDM=b.TDM '
      '  and a.PPDM=c.PPDM(+) %TJ'
      'order by a.PPDM ')
    txp_Sql.Strings = (
      'Select'
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.PPDM, KCHSJ'
      'from '
      '  TYS_TXPPKC a,TB_YZPPXXB b, TG_GJPPJGB c'
      'where '
      '  a.PPDM=b.TDM'
      '  and a.PPDM=c.PPDM(+) %TJ'
      'order by a.PPDM'
      '')
    yp_Sql.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.PPDM, KCHSJ '
      'from '
      '  TYS_YPPKC a,TB_YZPPXXB b, TG_GJPPJGB c '
      'where '
      '  a.PPDM=b.TDM '
      '  and a.PPDM=c.PPDM(+) %TJ '
      'order by a.PPDM')
    grp_Sql.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.PPDM, KCHSJ '
      'from '
      '  TYS_GRPPKC a,TB_YZPPXXB b, TG_GJPPJGB c'
      'where '
      '  a.PPDM=b.TDM '
      '  and a.PPDM=c.PPDM(+) %TJ '
      'order by a.PPDM')
    Left = 20
    Top = 168
  end
  object SqlS_TJD: TSqlStrings
    jyp_Sql.Strings = (
      'select * from tys_jyptjb where xh=0')
    txp_Sql.Strings = (
      'select * from tys_txptjb where xh=0')
    yp_Sql.Strings = (
      'select * from tys_yptjb where xh=0')
    grp_Sql.Strings = (
      'select * from tys_grptjb where xh=0')
    Left = 156
    Top = 168
  end
  object SqlS_TJDB: TSqlStrings
    jyp_Sql.Strings = (
      'select'
      '  TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ'
      'from '
      '  TYS_JYPTJDB'
      'where'
      '  TJDH='#39'0'#39)
    txp_Sql.Strings = (
      'select'
      '  TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ'
      'from '
      '  TYS_TXPTJDB'
      'where'
      '  TJDH='#39'0'#39)
    yp_Sql.Strings = (
      'select'
      '  TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ'
      'from '
      '  TYS_YPTJDB'
      'where'
      '  TJDH='#39'0'#39)
    grp_Sql.Strings = (
      'select'
      '  TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ'
      'from '
      '  TYS_GRPTJDB'
      'where'
      '  TJDH='#39'0'#39)
    Left = 268
    Top = 168
  end
  object USQL_YP_TJD: TUpdateSQL
    ModifySQL.Strings = (
      'update tys_jyptjb'
      'set'
      '  XH = :XH,'
      '  PPDM = :PPDM,'
      '  YJ = :YJ,'
      '  XJ = :XJ,'
      '  XGRQ = :XGRQ,'
      '  XGR = :XGR'
      'where'
      '  XH = :OLD_XH')
    InsertSQL.Strings = (
      'insert into tys_yptjb'
      '  (XH, PPDM, YJ, XJ, XGRQ, XGR)'
      'values'
      '  (:XH, :PPDM, :YJ, :XJ, :XGRQ, :XGR)')
    DeleteSQL.Strings = (
      'delete from tys_yptjb'
      'where'
      '  XH = :OLD_XH')
    Left = 212
    Top = 232
  end
  object USQL_YP_TJDB: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JYPTJDB'
      'set'
      '  TJDH = :TJDH,'
      '  TZLX = :TZLX,'
      '  PPDM = :PPDM,'
      '  SL = :SL,'
      '  YDJ = :YDJ,'
      '  XDJ = :XDJ,'
      '  ZBR = :ZBR,'
      '  TJRQ = :TJRQ'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    InsertSQL.Strings = (
      'insert into TYS_YPTJDB'
      '  (TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ)'
      'values'
      '  (:TJDH, :TZLX, :PPDM, :SL, :YDJ, :XDJ, :ZBR, trunc(sysdate))')
    DeleteSQL.Strings = (
      'delete from TYS_JYPTJDB'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    Left = 324
    Top = 232
  end
  object SP_YP_TJJZ: TStoredProc
    DatabaseName = 'yzpp'
    StoredProcName = 'YP_TJ_JZ'
    Left = 88
    Top = 360
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_TJDH'
        ParamType = ptInput
      end>
  end
  object USQL_GRP_KC: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_GRPPKC'
      'set'
      '  XJ = :XJ'
      'where'
      '  PPDM = :PPDM')
    Left = 76
    Top = 268
  end
  object USQL_GRP_TJD: TUpdateSQL
    ModifySQL.Strings = (
      'update tys_grptjb'
      'set'
      '  XH = :XH,'
      '  PPDM = :PPDM,'
      '  YJ = :YJ,'
      '  XJ = :XJ,'
      '  XGRQ = :XGRQ,'
      '  XGR = :XGR'
      'where'
      '  XH = :OLD_XH')
    InsertSQL.Strings = (
      'insert into tys_grptjb'
      '  (XH, PPDM, YJ, XJ, XGRQ, XGR)'
      'values'
      '  (:XH, :PPDM, :YJ, :XJ, :XGRQ, :XGR)')
    DeleteSQL.Strings = (
      'delete from tys_grptjb'
      'where'
      '  XH = :OLD_XH')
    Left = 212
    Top = 268
  end
  object USQL_GRP_TJDB: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_GRPTJDB'
      'set'
      '  TJDH = :TJDH,'
      '  TZLX = :TZLX,'
      '  PPDM = :PPDM,'
      '  SL = :SL,'
      '  YDJ = :YDJ,'
      '  XDJ = :XDJ,'
      '  ZBR = :ZBR,'
      '  TJRQ = :TJRQ'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    InsertSQL.Strings = (
      'insert into TYS_GRPTJDB'
      '  (TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ)'
      'values'
      '  (:TJDH, :TZLX, :PPDM, :SL, :YDJ, :XDJ, :ZBR, trunc(sysdate))')
    DeleteSQL.Strings = (
      'delete from TYS_GRPTJDB'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    Left = 324
    Top = 268
  end
  object SP_GRP_TJJZ: TStoredProc
    DatabaseName = 'yzpp'
    StoredProcName = 'GRP_TJ_JZ'
    Left = 120
    Top = 360
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_TJDH'
        ParamType = ptInput
      end>
  end
  object Qry_kf: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select b.KFMC, b.KFDM from tgs_kfrydzb a,tgs_kfb b where a.kfdm=' +
        'b.kfdm and b.kfdm not in ('#39'-1'#39', '#39'-2'#39')'
      ' and a.ygdm=:YGDM')
    Left = 132
    Top = 19
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'YGDM'
        ParamType = ptUnknown
      end>
  end
  object DS_kf: TDataSource
    DataSet = Qry_kf
    Left = 160
    Top = 19
  end
  object SqlS_KC2: TSqlStrings
    jyp_Sql.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.JSJ,a.ZK,a.PPDM, JJ '
      'from '
      '  TYS_JYPPKC a,TB_YZPPTXXB b '
      'where '
      '  a.PPDM=b.TDM %TJ'
      'order by a.PPDM')
    txp_Sql.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.JSJ,a.ZK,a.PPDM, JJ '
      'from '
      '  TYS_TXPPKC a,TB_YZPPXXB b '
      'where '
      '  a.PPDM=b.TDM %TJ '
      'order by a.PPDM')
    yp_Sql.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.JSJ,a.ZK,a.PPDM, JJ '
      'from '
      '  TYS_YPPKC a,TB_YZPPXXB b '
      'where '
      '  a.PPDM=b.TDM %TJ '
      'order by a.PPDM')
    grp_Sql.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.JSJ,a.ZK,a.PPDM, JJ '
      'from '
      '  TYS_GRPPKC a,TB_YZPPXXB b '
      'where '
      '  a.PPDM=b.TDM %TJ '
      'order by a.PPDM')
    Left = 440
    Top = 168
  end
  object qry_KC2: TRxQuery
    CachedUpdates = True
    BeforePost = qryKCBeforePost
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.JSJ,a.ZK,a.PPDM, JJ'
      'from '
      '  TYS_YPPKC a,TB_YZPPXXB b '
      'where '
      '  a.PPDM=b.TDM '
      'order by a.PPDM')
    UpdateObject = USQL_JYP2
    Macros = <>
    Left = 468
    Top = 168
    object StringField1: TStringField
      FieldName = 'FLG'
      FixedChar = True
      Size = 1
    end
    object StringField2: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object StringField3: TStringField
      FieldName = 'TMC'
      Size = 60
    end
    object FloatField1: TFloatField
      FieldName = 'YJ'
      OnGetText = qryKCYJGetText
      OnSetText = qryKCYJSetText
    end
    object FloatField2: TFloatField
      FieldName = 'XJ'
      OnGetText = qryKCYJGetText
      OnSetText = qryKCXJSetText
    end
    object FloatField3: TFloatField
      FieldName = 'JSJ'
      OnChange = qryKCJSJChange
      OnGetText = qryKCYJGetText
      OnSetText = qryKCYJSetText
    end
    object FloatField4: TFloatField
      FieldName = 'ZK'
      OnChange = qryKCJSJChange
    end
    object StringField4: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object qry_KC2JJ: TFloatField
      FieldName = 'JJ'
      OnGetText = qryKCYJGetText
    end
  end
  object USQL_JYP2: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JYPPKC'
      'set'
      '  JSJ= :JSJ,'
      '  ZK = :ZK'
      'where'
      '  PPDM = :PPDM'
      '  and KFDM= :KFDM'
      '  and JJ= :JJ')
    Left = 496
    Top = 168
  end
  object DS_KC2: TDataSource
    DataSet = qry_KC2
    Left = 524
    Top = 168
  end
  object USQL_TXP2: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXPPKC'
      'set'
      '  JSJ= :JSJ,'
      '  ZK = :ZK'
      'where'
      '  PPDM = :PPDM'
      '  and KFDM= :KFDM'
      '  and JJ= :JJ'
      '')
    Left = 496
    Top = 200
  end
  object USQL_YP2: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_YPPKC'
      'set'
      '  JSJ= :JSJ,'
      '  ZK = :ZK'
      'where'
      '  PPDM = :PPDM'
      '  and KFDM= :KFDM'
      '  and JJ= :JJ')
    Left = 496
    Top = 232
  end
  object USQL_GRP2: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_GRPPKC'
      'set'
      '  JSJ= :JSJ,'
      '  ZK = :ZK'
      'where'
      '  PPDM = :PPDM'
      '  and KFDM= :KFDM'
      '  and JJ= :JJ')
    Left = 496
    Top = 268
  end
  object USQL_TXP_KC: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXPPKC'
      'set'
      '  XJ = :XJ'
      'where'
      '  PPDM = :PPDM')
    Left = 76
    Top = 200
  end
  object USQL_TXP_TJD: TUpdateSQL
    ModifySQL.Strings = (
      'update tys_txptjb'
      'set'
      '  XH = :XH,'
      '  PPDM = :PPDM,'
      '  YJ = :YJ,'
      '  XJ = :XJ,'
      '  XGRQ = :XGRQ,'
      '  XGR = :XGR'
      'where'
      '  XH = :OLD_XH')
    InsertSQL.Strings = (
      'insert into tys_txptjb'
      '  (XH, PPDM, YJ, XJ, XGRQ, XGR)'
      'values'
      '  (:XH, :PPDM, :YJ, :XJ, :XGRQ, :XGR)')
    Left = 212
    Top = 200
  end
  object USQL_TXP_TJDB: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXPTJDB'
      'set'
      '  TJDH = :TJDH,'
      '  TZLX = :TZLX,'
      '  PPDM = :PPDM,'
      '  SL = :SL,'
      '  YDJ = :YDJ,'
      '  XDJ = :XDJ,'
      '  ZBR = :ZBR,'
      '  TJRQ = :TJRQ'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    InsertSQL.Strings = (
      'insert into TYS_TXPTJDB'
      '  (TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ)'
      'values'
      '  (:TJDH, :TZLX, :PPDM, :SL, :YDJ, :XDJ, :ZBR, trunc(sysdate))')
    DeleteSQL.Strings = (
      'delete from TYS_TXPTJDB'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    Left = 324
    Top = 200
  end
  object SP_TXP_TJJZ: TStoredProc
    DatabaseName = 'yzpp'
    StoredProcName = 'TXP_TJ_JZ'
    Left = 56
    Top = 360
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_TJDH'
        ParamType = ptInput
      end>
  end
end