jm_fhdsc.dfm

省级集邮品管理ERP

      Align = alLeft
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 1
      object Label8: TLabel
        Left = 0
        Top = 8
        Width = 6
        Height = 12
      end
      object DBG_fhd: TDBGrid
        Left = 1
        Top = 32
        Width = 183
        Height = 324
        Align = alBottom
        DataSource = DS_fhd
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '微软拼音输入法 3.0'
        ParentFont = False
        PopupMenu = data.pm_Export
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDrawColumnCell = DBG_fhdDrawColumnCell
        Columns = <
          item
            Expanded = False
            FieldName = 'FHDH'
            Title.Caption = '发货单号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DWMC'
            Title.Caption = '发往单位'
            Width = 93
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'KDRQ'
            Title.Caption = '发货日期'
            Width = 71
            Visible = True
          end>
      end
      object CBo_checked: TCheckBox
        Left = 4
        Top = 8
        Width = 149
        Height = 17
        Caption = '显示未勾核发货单'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = CBo_checkedClick
      end
    end
  end
  object DS_fhd: TDataSource
    DataSet = rxQry_fhd
    Left = 84
    Top = 164
  end
  object DS_ckpp: TDataSource
    DataSet = RxQry_ckpp
    Left = 309
    Top = 200
  end
  object rxQry_fhd: TRxQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select a.FHDH, a.YJDH, a.CKXZ, a.QXDW, a.KDRQ, a.ZTZT, '
      ' a.GHRQ, a.JSZT, a.ZPRQ, a.FZDS, a.CKRQ, a.DJRQ, a.ZGR, '
      ' a.KGY, a.HDR, a.ZBR, a.BZ, a.SDATE,'
      ' b.DWMC, c.RCKXZMC'
      'from TM_HTCKD a, '
      '(select DWDM,DWMC from tgs_gxdwsjb where DWDM > 0'
      ' union'
      ' select YGDM,YGMC from tgs_ryb) b, TGS_JRCKXZDM c'
      'where %TJ'
      'order by a.FHDH desc')
    UpdateObject = UpdateSQL1
    Macros = <
      item
        DataType = ftString
        Name = 'TJ'
        ParamType = ptInput
        Value = '0=0'
      end>
    Left = 56
    Top = 161
  end
  object RxQry_ckpp: TQuery
    CachedUpdates = True
    BeforeInsert = RxQry_ckppBeforeInsert
    DatabaseName = 'YZPP'
    DataSource = DS_fhd
    RequestLive = True
    SQL.Strings = (
      'select FHDH, LB,lb LBMC, PPDM, JJ, SL, YJ, XJ, '
      '  JSJ, ZK, ZH, PPMC,KFDM '
      ' from TM_HTCKPP '
      ' where FHDH=:FHDH')
    UpdateObject = UpdateSQL2
    Left = 280
    Top = 201
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object RxQry_ckppFHDH: TStringField
      FieldName = 'FHDH'
    end
    object RxQry_ckppLB: TStringField
      FieldName = 'LB'
      Size = 5
    end
    object RxQry_ckppPPDM: TStringField
      FieldName = 'PPDM'
      Size = 15
    end
    object RxQry_ckppJJ: TFloatField
      FieldName = 'JJ'
      OnGetText = RxQry_ckppJJGetText
      OnSetText = RxQry_ckppJJSetText
    end
    object RxQry_ckppSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '#,##'
      EditFormat = '#'
    end
    object RxQry_ckppYJ: TFloatField
      FieldName = 'YJ'
    end
    object RxQry_ckppXJ: TFloatField
      FieldName = 'XJ'
      OnGetText = RxQry_ckppXJGetText
      OnSetText = RxQry_ckppXJSetText
    end
    object RxQry_ckppJSJ: TFloatField
      FieldName = 'JSJ'
    end
    object RxQry_ckppZK: TFloatField
      FieldName = 'ZK'
    end
    object RxQry_ckppZH: TStringField
      FieldName = 'ZH'
      Size = 16
    end
    object RxQry_ckppPPMC: TStringField
      FieldName = 'PPMC'
      Size = 120
    end
    object RxQry_ckppKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TM_HTCKPP.KFDM'
      Size = 3
    end
  end
  object UpdateSQL1: TUpdateSQL
    DeleteSQL.Strings = (
      'delete from TM_HTCKD'
      'where'
      '  FHDH = :OLD_FHDH ')
    Left = 112
    Top = 165
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TM_HTCKPP'
      'set'
      '  SL = :SL'
      'where'
      '  FHDH = :OLD_FHDH'
      '  and LB=:OLD_LB'
      '  and PPDM=:OLD_PPDM'
      '  and KFDM=:OLD_KFDM')
    DeleteSQL.Strings = (
      'delete from TM_HTCKPP'
      'where'
      '  FHDH = :OLD_FHDH'
      '')
    Left = 333
    Top = 201
  end
  object Qry_kcsl: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select * from tm_htkc')
    Left = 305
    Top = 229
  end
  object SqlStrings1: TSqlStrings
    jyp_Sql.Strings = (
      
        'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
        'n.bz,N.KFDM from'
      
        '(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
        'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_jyppkc a,'
      '(select ppdm,jj,sum(ts) ts,kfdm from'
      
        '                                (select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm from tks_jyckpp a,tks_jyfhd b'
      
        '                                 where a.fhdh=b.fhdh and b.hdr i' +
        's null and a.kfdm=:KFDM'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm from tm_htckpp a,tm_htckd b'
      
        '                                 where a.fhdh=b.fhdh and a.lb='#39'0' +
        #39' and b.ghrq is null and    kfdm=:KFDM)'
      'group by ppdm,jj,kfdm ) b'
      
        'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
        'fdm(+)=a.kfdm) n,tb_yzppxxb m'
      'where n.ppdm=m.tdm and ts>0'
      'order by ppdm,jj,zh'
      ' ')
    yp_Sql.Strings = (
      
        'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
        'n.bz,N.KFDM from'
      
        '(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
        'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_yppkc a,'
      '(select ppdm,jj,sum(ts) ts,kfdm from'
      
        '                                (select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm from tks_ypckpp a,tks_ypfhd b'
      
        '                                 where a.fhdh=b.fhdh and b.hdr i' +
        's null and a.kfdm=:KFDM'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm from tm_htckpp a,tm_htckd b'
      
        '                                 where a.fhdh=b.fhdh and a.lb='#39'1' +
        #39' and b.ghrq is null and  kfdm=:KFDM)'
      'group by ppdm,jj,kfdm ) b'
      
        'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
        'fdm(+)=a.kfdm) n,tb_yzppxxb m'
      'where n.ppdm=m.tdm  and ts>0'
      'order by ppdm,jj,zh')
    grp_Sql.Strings = (
      
        'select n.ppdm,m.tmc ppmc,m.zh zh,n.ts,n.jj,n.yj,n.xj,n.jsj,n.zk,' +
        'n.bz,N.KFDM from '
      
        '(select a.ppdm,a.jj,a.ts-decode(b.ts,null,0,b.ts) ts,a.kfdm,a.KW' +
        'H,a.YJ, a.XJ, a.JSJ, a.ZK, a.BZ from tys_grppkc a,'
      '(select ppdm,jj,sum(ts) ts,kfdm from '
      
        '                                (select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm from tks_grpckpp a,tks_grpfhd b'
      
        '                                 where a.fhdh=b.fhdh and b.hdr i' +
        's null and a.kfdm=:KFDM'
      '                                 union all'
      
        '                                 select a.ppdm,a.jj,a.sl ts,a.kf' +
        'dm from tm_htckpp a,tm_htckd b'
      
        '                                 where a.fhdh=b.fhdh and a.lb='#39'2' +
        #39' and b.ghrq is null and    kfdm=:KFDM)'
      'group by ppdm,jj,kfdm ) b'
      
        'where a.kfdm=:KFDM and b.ppdm(+)=a.ppdm and b.jj(+)=a.jj and b.k' +
        'fdm(+)=a.kfdm) n,tb_yzppxxb m'
      'where n.ppdm=m.tdm and ts>0'
      'order by ppdm,jj,zh')
    Left = 72
    Top = 204
  end
end