sy_ndjhqlbzd.dfm

省级集邮品管理ERP

      'from TY_JYPYDJHB a, TGS_GXDWSJB b'
      'where a.DWDM=b.DWDM '
      ' and ND=:ND'
      ' and YDLXDM=:YDLXDM'
      'order by b.PXM')
    UpdateObject = UpdateSQL1
    Left = 32
    Top = 182
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ND'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'YDLXDM'
        ParamType = ptUnknown
      end>
    object Qry_ydND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JYPYDJHB.ND'
      Size = 4
    end
    object Qry_ydDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JYPYDJHB.DWDM'
      Size = 8
    end
    object Qry_ydYDLXDM: TStringField
      FieldName = 'YDLXDM'
      Origin = 'YZPP.TY_JYPYDJHB.YDLXDM'
      Size = 4
    end
    object Qry_ydYDTS: TFloatField
      FieldName = 'YDTS'
      Origin = 'YZPP.TY_JYPYDJHB.YDTS'
      DisplayFormat = '#,##'
    end
    object Qry_ydLSTS: TFloatField
      FieldName = 'LSTS'
      Origin = 'YZPP.TY_JYPYDJHB.LSTS'
      DisplayFormat = '#,##'
    end
    object Qry_yddwmc: TStringField
      FieldKind = fkLookup
      FieldName = 'dwmc'
      LookupDataSet = Qry_dw
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Size = 40
      Lookup = True
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JYPYDJHB'
      'set'
      '  YDTS = :YDTS,'
      '  LSTS = :LSTS  '
      'where'
      '  ND = :OLD_ND and'
      '  DWDM = :OLD_DWDM and'
      '  YDLXDM = :OLD_YDLXDM')
    Left = 88
    Top = 182
  end
  object Qry_super: TQuery
    Left = 476
    Top = 4
  end
  object DS_xq: TDataSource
    DataSet = Qry_xq
    Left = 272
    Top = 133
  end
  object Qry_xq: TQuery
    CachedUpdates = True
    OnCalcFields = Qry_xqCalcFields
    OnUpdateError = Qry_xqUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select '
      '  a.JHH,a.SQDWDM,a.ND,a.ZT,a.PPMC,a.XQZTS,a.YDTS,'
      '  a.LSTS,a.NCTS,a.KFYPTS,a.ZBR,a.PZR,a.ZDRQ,a.BZ,b.TMC '
      'from '
      '  TY_JJNXQB a, TF_PFXJHTAO b'
      'where '
      '  a.JHH=b.JHH and'
      '  a.ZT<>'#39'2'#39' and'
      '  a.ND=:ND and'
      '  a.SQDWDM=:SQDWDM'
      'order by a.JHH')
    UpdateObject = UpdateSQL2
    Left = 244
    Top = 133
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ND'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SQDWDM'
        ParamType = ptUnknown
      end>
    object Qry_xqJHH: TStringField
      FieldName = 'JHH'
      Origin = 'YZPP.TY_JJNXQB.JHH'
      Size = 8
    end
    object Qry_xqSQDWDM: TStringField
      FieldName = 'SQDWDM'
      Origin = 'YZPP.TY_JJNXQB.SQDWDM'
      OnChange = Act_dwchangeExecute
      Size = 8
    end
    object Qry_xqND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNXQB.ND'
      Size = 4
    end
    object Qry_xqZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJNXQB.ZT'
      Size = 1
    end
    object Qry_xqXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJNXQB.XQZTS'
      DisplayFormat = '#,##'
    end
    object Qry_xqPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TY_JJNXQB.PPMC'
      Visible = False
      Size = 60
    end
    object Qry_xqYDTS: TFloatField
      FieldName = 'YDTS'
      Origin = 'YZPP.TY_JJNXQB.YDTS'
      DisplayFormat = '#,##'
    end
    object Qry_xqLSTS: TFloatField
      FieldName = 'LSTS'
      Origin = 'YZPP.TY_JJNXQB.LSTS'
      DisplayFormat = '#,##'
    end
    object Qry_xqKFYPTS: TFloatField
      FieldName = 'KFYPTS'
      Origin = 'YZPP.TY_JJNXQB.KFYPTS'
      OnChange = Qry_xqKFYPTSChange
      DisplayFormat = '#,##'
    end
    object Qry_xqZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJNXQB.ZBR'
      Size = 12
    end
    object Qry_xqPZR: TStringField
      FieldName = 'PZR'
      Origin = 'YZPP.TY_JJNXQB.PZR'
      Size = 12
    end
    object Qry_xqZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJNXQB.ZDRQ'
    end
    object Qry_xqBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJNXQB.BZ'
      Size = 100
    end
    object Qry_xqNCTS: TFloatField
      FieldName = 'NCTS'
      Origin = 'YZPP.TY_JJNXQB.NCTS'
      OnChange = Qry_xqKFYPTSChange
      DisplayFormat = '#,##'
    end
    object Qry_xqTMC: TStringField
      FieldName = 'TMC'
      Origin = 'YZPP.TF_PFXJHTAO.TMC'
      Size = 60
    end
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JJNXQB'
      'set'
      '  JHH = :JHH,'
      '  SQDWDM = :SQDWDM,'
      '  ND = :ND,'
      '  ZT = :ZT,'
      '  PPMC = :PPMC,'
      '  XQZTS = :XQZTS,'
      '  YDTS = :YDTS,'
      '  LSTS = :LSTS,'
      '  NCTS = :NCTS,'
      '  KFYPTS = :KFYPTS,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  JHH = :OLD_JHH and'
      '  SQDWDM = :OLD_SQDWDM and'
      '  ND = :OLD_ND and'
      '  ZT = :OLD_ZT')
    InsertSQL.Strings = (
      'insert into TY_JJNXQB'
      
        '  (JHH, SQDWDM, ND, ZT, PPMC, XQZTS, YDTS, LSTS, NCTS, KFYPTS, Z' +
        'BR, '
      'PZR, '
      '   ZDRQ, BZ)'
      'values'
      
        '  (:JHH, :SQDWDM, :ND, :ZT, :PPMC, :XQZTS, :YDTS, :LSTS, :NCTS, ' +
        ':KFYPTS, '
      '   :ZBR, :PZR, :ZDRQ, :BZ)')
    DeleteSQL.Strings = (
      'delete from TY_JJNXQB'
      'where'
      '  JHH = :OLD_JHH and'
      '  SQDWDM = :OLD_SQDWDM and'
      '  ND = :OLD_ND and'
      '  ZT = :OLD_ZT')
    Left = 300
    Top = 133
  end
  object Qry_nc: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select distinct ND, a.DWDM, NCTS, b.PXM'
      ' from TY_JYPYDJHB a, TGS_GXDWSJB b'
      ' where a.DWDM=b.DWDM and ND=:ND'
      ' order by b.PXM')
    UpdateObject = USQL_nc
    Left = 136
    Top = 133
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ND'
        ParamType = ptUnknown
      end>
    object Qry_ncND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JYPYDJHB.ND'
      Size = 4
    end
    object Qry_ncdwmc: TStringField
      FieldKind = fkLookup
      FieldName = 'dwmc'
      LookupDataSet = Qry_dw
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Lookup = True
    end
    object Qry_ncDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JYPYDJHB.DWDM'
      Size = 8
    end
    object Qry_ncNCTS: TFloatField
      FieldName = 'NCTS'
      Origin = 'YZPP.TY_JYPYDJHB.NCTS'
      DisplayFormat = '#,##'
    end
  end
  object DS_nc: TDataSource
    DataSet = Qry_nc
    Left = 164
    Top = 133
  end
  object USQL_nc: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JYPYDJHB'
      'set'
      '  NCTS = :NCTS'
      'where'
      '  ND = :OLD_ND and'
      '  DWDM = :OLD_DWDM')
    Left = 192
    Top = 133
  end
end