jm_yyypptp.dfm

省级集邮品管理ERP

  object DataSource1: TDataSource
    DataSet = qryRKDRK
    Left = 70
    Top = 107
  end
  object Qry_tpd: TQuery
    CachedUpdates = True
    AfterOpen = Qry_tpdAfterOpen
    AfterScroll = Qry_tpdAfterScroll
    DatabaseName = 'YZPP'
    DataSource = DataSource1
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM TM_TPDB ORDER BY DH desc')
    UpdateObject = UpdateSQL1
    Left = 40
    Top = 141
    object Qry_tpdDH: TStringField
      FieldName = 'DH'
      Origin = 'JM_YZPP.TM_TPDB.DH'
      Size = 11
    end
    object Qry_tpdTCZ: TStringField
      FieldName = 'TCZ'
      Origin = 'JM_YZPP.TM_TPDB.TCZ'
      Size = 8
    end
    object Qry_tpdTRZ: TStringField
      FieldName = 'TRZ'
      Origin = 'JM_YZPP.TM_TPDB.TRZ'
      Size = 8
    end
    object Qry_tpdCZY: TStringField
      FieldName = 'CZY'
      Origin = 'JM_YZPP.TM_TPDB.CZY'
      Size = 8
    end
    object Qry_tpdRQ: TDateTimeField
      FieldName = 'RQ'
      Origin = 'JM_YZPP.TM_TPDB.RQ'
    end
    object Qry_tpdTCFH: TDateTimeField
      FieldName = 'TCFH'
      Origin = 'JM_YZPP.TM_TPDB.TCFH'
    end
    object Qry_tpdTRFH: TDateTimeField
      FieldName = 'TRFH'
      Origin = 'JM_YZPP.TM_TPDB.TRFH'
    end
    object Qry_tpdCZYXM: TStringField
      FieldKind = fkLookup
      FieldName = 'CZYXM'
      LookupDataSet = Qry_ryb
      LookupKeyFields = 'YGDM'
      LookupResultField = 'YGMC'
      KeyFields = 'CZY'
      Lookup = True
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TM_TPDB'
      'set'
      '  DH = :DH,'
      '  TCZ = :TCZ,'
      '  TRZ = :TRZ,'
      '  CZY = :CZY,'
      '  RQ = :RQ,'
      '  TCFH = :TCFH,'
      '  TRFH = :TRFH'
      'where'
      '  DH = :OLD_DH')
    InsertSQL.Strings = (
      'insert into TM_TPDB'
      '  (DH, TCZ, TRZ, CZY, RQ, TCFH, TRFH)'
      'values'
      '  (:DH, :TCZ, :TRZ, :CZY, :RQ, :TCFH, :TRFH)')
    DeleteSQL.Strings = (
      'delete from TM_TPDB'
      'where'
      '  DH = :OLD_DH')
    Left = 71
    Top = 140
  end
  object DataSource2: TDataSource
    DataSet = Qry_tpd
    Left = 102
    Top = 141
  end
  object Qry_tpdpp: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    DataSource = DataSource2
    RequestLive = True
    SQL.Strings = (
      'SELECT DH,PPDM,SL,LB,DJ,jj FROM TM_TPDPP')
    UpdateObject = UpdateSQL2
    Left = 40
    Top = 175
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TM_TPDPP'
      'set'
      '  DH = :DH,'
      '  PPDM = :PPDM,'
      '  SL = :SL,'
      '  LB = :LB,'
      '  DJ = :DJ,'
      '  JJ = :JJ'
      'where'
      '  DH = :OLD_DH AND'
      '  PPDM = :OLD_PPDM AND'
      '  LB =:OLD_LB AND'
      '  JJ =:OLD_JJ AND')
    InsertSQL.Strings = (
      'insert into TM_TPDPP'
      '  (DH, PPDM, SL, LB, DJ,JJ)'
      'values'
      '  (:DH, :PPDM, :SL, :LB, :DJ,:JJ)')
    DeleteSQL.Strings = (
      'delete from TM_TPDPP'
      'where'
      '  DH = :OLD_DH and'
      '  PPDM =:OLD_PPDM AND'
      '  LB=:OLD_LB AND'
      '  JJ=:OLD_JJ'
      '  ')
    Left = 71
    Top = 176
  end
  object DataSource3: TDataSource
    DataSet = Qry_tpdpp
    Left = 102
    Top = 175
  end
  object qryRKDRK: TRxQuery
    AfterOpen = qryRKDRKAfterScroll
    AfterScroll = qryRKDRKAfterScroll
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'SELECT * FROM TM_TPDB where DH is null')
    MacroChar = #0
    Macros = <>
    Left = 40
    Top = 108
  end
  object DataSource4: TDataSource
    DataSet = Qry_tpdpp0
    Left = 250
    Top = 208
  end
  object Qry_ryb: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select ygmc ,ygdm from tgs_ryb order by ygdm')
    Left = 394
    Top = 32
  end
  object UpdateSQL3: TUpdateSQL
    ModifySQL.Strings = (
      'update TM_TPDPP'
      'set'
      '  DH = :DH,'
      '  PPDM = :PPDM,'
      '  LB = :LB,'
      '  SL = :SL,'
      '  DJ = :DJ,'
      '  JJ = :JJ'
      'where'
      '  DH = :OLD_DH AND'
      '  PPDM =: OLD_PPDM AND'
      '  LB = :OLD_LB AND'
      '  JJ = :OLD_LB ')
    InsertSQL.Strings = (
      'insert into TM_TPDPP'
      '  (DH, PPDM, LB, SL,DJ,JJ)'
      'values'
      '  (:DH, :PPDM, :LB, :SL,:DJ,:JJ)')
    DeleteSQL.Strings = (
      'delete from TM_TPDPP'
      'where'
      '  DH = :OLD_DH AND'
      '  PPDM = :OLD_PPDM AND'
      '  LB = :OLD_LB AND'
      '  JJ = :OLD_JJ')
    Left = 307
    Top = 208
  end
  object Qry_tpdpp0: TQuery
    CachedUpdates = True
    BeforeInsert = Qry_tpdpp0BeforeInsert
    OnCalcFields = Qry_tpdpp0CalcFields
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT dh,a.ppdm,a.sl,a.JJ,a.lb,a.dj,b.zh,b.ppmc FROM tm_tpdpp a' +
        ',tm_yyykc b where b.ppdm=a.ppdm and b.lb=a.lb and b.jj=a.jj'
      ''
      '')
    UpdateObject = UpdateSQL3
    Left = 278
    Top = 208
    object Qry_tpdpp0DH: TStringField
      FieldName = 'DH'
      Origin = 'JM_YZPP.TM_TPDPP.DH'
      Size = 11
    end
    object Qry_tpdpp0PPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'JM_YZPP.TM_TPDPP.PPDM'
      Size = 15
    end
    object Qry_tpdpp0ZH: TStringField
      FieldName = 'ZH'
      Origin = 'JM_YZPP.TM_YYYKC.ZH'
      Size = 16
    end
    object Qry_tpdpp0PPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'JM_YZPP.TM_YYYKC.PPMC'
      Size = 120
    end
    object Qry_tpdpp0LB: TStringField
      FieldName = 'LB'
      Origin = 'JM_YZPP.TM_TPDPP.LB'
      Size = 5
    end
    object Qry_tpdpp0SL: TFloatField
      FieldName = 'SL'
      Origin = 'JM_YZPP.TM_TPDPP.SL'
      DisplayFormat = '#,##'
      EditFormat = '#'
    end
    object Qry_tpdpp0DJ: TFloatField
      FieldName = 'DJ'
      Origin = 'JM_YZPP.TM_YYYKC.DJ'
      OnGetText = Qry_tpdpp0DJGetText
      OnSetText = Qry_tpdpp0DJSetText
    end
    object Qry_tpdpp0JJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TM_TPDPP.JJ'
      OnGetText = Qry_tpdpp0JJGetText
      OnSetText = Qry_tpdpp0JJSetText
    end
    object Qry_tpdpp0LYKC: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'LYKC'
      DisplayFormat = '#,##'
      EditFormat = '#'
      Calculated = True
    end
  end
  object Qry_temp: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select * FROM TM_TPDPP')
    UpdateObject = UpdateSQL4
    Left = 257
    Top = 253
  end
  object UpdateSQL4: TUpdateSQL
    ModifySQL.Strings = (
      'update TM_TPDPP'
      'set'
      '  DH = :DH,'
      '  PPDM = :PPDM,'
      '  LB = :LB,'
      '  SL = :SL,'
      '  DJ = :DJ,'
      '  JJ = :JJ'
      'where'
      
        '  DH = :OLD_DH and PPDM = :OLD_PPDM AND LB = :OLD_LB AND JJ=:OLD' +
        '_JJ')
    InsertSQL.Strings = (
      'insert into TM_TPDPP'
      '  (DH, PPDM, LB, SL, DJ,JJ)'
      'values'
      '  (:DH, :PPDM, :LB, :SL, :DJ,:JJ)')
    DeleteSQL.Strings = (
      'delete from TM_TPDPP'
      'where'
      '  DH = :OLD_DH AND'
      '  PPDM = :OLD_PPDM AND'
      '  LB = :OLD_LB AND'
      '  JJ = :OLD_JJ')
    Left = 285
    Top = 252
  end
  object DataSource5: TDataSource
    DataSet = Qry_ryb
    Left = 449
    Top = 25
  end
  object Query1: TQuery
    DatabaseName = 'YZPP'
    Left = 429
    Top = 53
  end
  object Qry_LYKC: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select a.ppdm,a.ppmc,a.zh,a.lb,a.jj,a.dj ,a.sl-decode(b.sl,null,' +
        '0,b.sl) sl,a.ygdm from tm_yyykc a,'
      '(select ppdm,ppmc,zh,lb,jj,sum(sl) sl,ygdm from '
      
        '                                       (select a.ppdm,a.ppmc,a.z' +
        'h,a.lb,a.jj,a.sl,b.ygdm from tm_qttjppmx a,tm_qttjd b'
      
        '                                        where a.fpdh=b.fpdh and ' +
        'b.ghrq is null and b.ygdm=:YGDM  '
      '                                        union all'
      
        '                                        select a.ppdm,c.ppmc,c.z' +
        'h,a.lb,a.jj,a.sl,b.tcz ygdm from tm_tpdpp a,tm_tpdb b,tm_yyykc c' +
        ' '
      
        '                                        where a.dh=b.dh and (a.p' +
        'pdm=c.ppdm and a.lb=c.lb and a.jj=c.jj) and c.ygdm=b.tcz and'
      
        '                                        (b.tcfh is null or b.trf' +
        'h is null) and c.ygdm=:YGDM) '
      'group by ppdm,ppmc,zh,lb,jj,ygdm) b'
      
        'where a.ygdm=:YGDM and B.ppdm(+)=A.ppdm and  B.jj(+)=A.jj and B.' +
        'ygdm(+)=A.ygdm and a.sl-decode(b.sl,null,0,b.sl)>0 and a.lb=:LB ' +
        'order by ppdm,zh,lb')
    Left = 270
    Top = 287
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'YGDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YGDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YGDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LB'
        ParamType = ptUnknown
      end>
  end
  object spr_dh: TStoredProc
    DatabaseName = 'yzpp'
    StoredProcName = 'PUBLIC_PROCESS.GET_NO'
    Left = 282
    Top = 328
    ParamData = <
      item
        DataType = ftString
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'BILLID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'SORTCODE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'DEPARTMENT'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CYEAR'
        ParamType = ptInput
      end>
  end
end