sj_jypfhdck.dfm

省级集邮品管理ERP

      Width = 521
      Height = 57
      BevelOuter = bvNone
      TabOrder = 18
      object Label6: TLabel
        Left = 48
        Top = 13
        Width = 12
        Height = 12
        Alignment = taRightJustify
        Caption = '版'
      end
      object Label13: TLabel
        Left = 12
        Top = 37
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = '起始包号'
      end
      object Label15: TLabel
        Left = 136
        Top = 37
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = '终止包号'
      end
      object Label14: TLabel
        Left = 268
        Top = 37
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = '起始版号'
      end
      object Label16: TLabel
        Left = 392
        Top = 37
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = '终止版号'
      end
      object Label8: TLabel
        Left = 304
        Top = 13
        Width = 12
        Height = 12
        Alignment = taRightJustify
        Caption = '包'
      end
      object Edt_qsbao: TEdit
        Left = 64
        Top = 33
        Width = 65
        Height = 20
        TabOrder = 2
        OnExit = Edt_qsbaoExit
      end
      object DBLB_ban: TDBLookupComboBox
        Left = 64
        Top = 9
        Width = 189
        Height = 20
        KeyField = 'BLSH'
        ListField = 'BJC'
        ListSource = DS_ban1
        TabOrder = 0
        OnCloseUp = DBLB_banCloseUp
      end
      object Edt_zzbao: TEdit
        Left = 188
        Top = 33
        Width = 65
        Height = 20
        TabOrder = 3
        OnExit = Edt_zzbaoExit
      end
      object Edt_qsban: TEdit
        Left = 320
        Top = 33
        Width = 65
        Height = 20
        TabOrder = 4
      end
      object Edt_zzban: TEdit
        Left = 444
        Top = 33
        Width = 64
        Height = 20
        TabOrder = 5
      end
      object DBLB_bao: TDBLookupComboBox
        Left = 320
        Top = 9
        Width = 189
        Height = 20
        KeyField = 'BZLSH'
        ListField = 'BJC'
        ListSource = DS_bao
        TabOrder = 1
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 748
    Height = 38
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 3
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 746
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '集邮票出库单复核'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 20
      Top = 19
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object USQL_FHDH: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_JYFHD'
      'set'
      '  ZPRQ = :ZPRQ,'
      '  FZDS = :FZDS,'
      '  CKRQ = :CKRQ,'
      '  ZTZT = :ZTZT,'
      '  HDR = :HDR, '
      '  KGY = :KGY,'
      '  BZ = :BZ'
      'where'
      '  FHDH = :OLD_FHDH')
    InsertSQL.Strings = (
      'insert into TKS_JYFHD'
      '  (ZPRQ, FZDS, CKRQ, KGY, BZ)'
      'values'
      '  (:ZPRQ, :FZDS, :CKRQ, :KGY, :BZ)')
    DeleteSQL.Strings = (
      'delete from TKS_JYFHD'
      'where'
      '  FHDH = :OLD_FHDH')
    Left = 71
    Top = 142
  end
  object DS_FHDH: TDataSource
    DataSet = qryFHD
    Left = 102
    Top = 141
  end
  object qryFHDPP: TQuery
    CachedUpdates = True
    OnUpdateError = qryFHDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.FHDH, J.PPDM, J.JJ, J.KFDM, J.KWH, J.SL, J.YJ, J.XJ, Y.' +
        'ZH, Y.TJC, K.KFMC, '#39'套'#39' as ppdw'
      ' FROM TKS_JYCKPP J, TB_YZPPTXXB Y, TGS_KFB K'
      ' WHERE J.PPDM = Y.TDM AND J.KFDM = K.KFDM'
      '   AND J.FHDH = :FHDH'
      ''
      '')
    UpdateObject = USQL_FHDPP
    Left = 40
    Top = 175
    ParamData = <
      item
        DataType = ftString
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object qryFHDPPFHDH: TStringField
      FieldName = 'FHDH'
    end
    object qryFHDPPPPDM: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object qryFHDPPJJ: TFloatField
      FieldName = 'JJ'
      OnGetText = qryFHDPPJJGetText
      OnSetText = qryFHDPPJJSetText
    end
    object qryFHDPPKFDM: TStringField
      FieldName = 'KFDM'
      Size = 3
    end
    object qryFHDPPKWH: TStringField
      FieldName = 'KWH'
      Size = 30
    end
    object qryFHDPPSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '###,###,###,###'
    end
    object qryFHDPPYJ: TFloatField
      FieldName = 'YJ'
    end
    object qryFHDPPXJ: TFloatField
      FieldName = 'XJ'
    end
    object qryFHDPPZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object qryFHDPPTJC: TStringField
      FieldName = 'TJC'
      Size = 60
    end
    object qryFHDPPKFMC: TStringField
      FieldName = 'KFMC'
      Size = 30
    end
    object qryFHDPPPPDW: TStringField
      FieldName = 'PPDW'
      FixedChar = True
      Size = 2
    end
  end
  object USQL_FHDPP: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_JYCKPP'
      'set'
      '  KWH = :KWH'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    InsertSQL.Strings = (
      'insert into TKS_JYCKPP'
      '  (KWH)'
      'values'
      '  (:KWH)')
    DeleteSQL.Strings = (
      'delete from TKS_JYCKPP'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    Left = 71
    Top = 176
  end
  object DS_FHDPP: TDataSource
    DataSet = qryFHDPP
    Left = 102
    Top = 175
  end
  object qryBD: TQuery
    CachedUpdates = True
    AfterInsert = qryBDAfterInsert
    OnUpdateError = qryFHDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT FHDH, DZBH, DZZL, YSJE'
      ' FROM TKS_JYDSZLB'
      ' WHERE FHDH = :FHDH')
    UpdateObject = USQL_BD
    Left = 40
    Top = 210
    ParamData = <
      item
        DataType = ftString
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
  end
  object USQL_BD: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_JYDSZLB'
      'set'
      '  FHDH = :FHDH,'
      '  DZBH = :DZBH,'
      '  DZZL = :DZZL,'
      '  YSJE = :YSJE'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  DZBH = :OLD_DZBH')
    InsertSQL.Strings = (
      'insert into TKS_JYDSZLB'
      '  (FHDH, DZBH, DZZL, YSJE)'
      'values'
      '  (:FHDH, :DZBH, :DZZL, :YSJE)')
    DeleteSQL.Strings = (
      'delete from TKS_JYDSZLB'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  DZBH = :OLD_DZBH')
    Left = 71
    Top = 211
  end
  object DS_BD: TDataSource
    DataSet = qryBD
    Left = 102
    Top = 210
  end
  object qryBHBH: TQuery
    CachedUpdates = True
    AfterInsert = qryBHBHAfterInsert
    OnUpdateError = qryFHDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT J.FHDH, J.PPDM, J.BLSH, J.QSBH, J.ZZBH, Y.ZH, Y.TJC'
      ' FROM TKS_JYBHBHBCKD J, TB_YZPPTXXB Y'
      ' WHERE J.PPDM = Y.TDM'
      '   AND  FHDH = :FHDH')
    UpdateObject = USQL_BHBH
    Left = 40
    Top = 243
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object qryBHBHFHDH: TStringField
      FieldName = 'FHDH'
      Origin = 'YZPP.TKS_JYBHBHBCKD.FHDH'
    end
    object qryBHBHPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TKS_JYBHBHBCKD.PPDM'
      Size = 13
    end
    object qryBHBHBLSH: TFloatField
      FieldName = 'BLSH'
      Origin = 'YZPP.TKS_JYBHBHBCKD.BLSH'
    end
    object qryBHBHQSBH: TStringField
      FieldName = 'QSBH'
      Origin = 'YZPP.TKS_JYBHBHBCKD.QSBH'
      Size = 10
    end
    object qryBHBHZZBH: TStringField
      FieldName = 'ZZBH'
      Origin = 'YZPP.TKS_JYBHBHBCKD.ZZBH'
      Size = 10
    end
    object qryBHBHZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPTXXB.ZH'
      Size = 11
    end
    object qryBHBHTJC: TStringField
      FieldName = 'TJC'
      Origin = 'YZPP.TB_YZPPTXXB.TJC'
      Size = 60
    end
    object qryBHBHbz: TStringField
      FieldKind = fkLookup
      FieldName = 'bz'
      LookupDataSet = Qryban
      LookupKeyFields = 'BLSH'
      LookupResultField = 'BJC'
      KeyFields = 'BLSH'
      Lookup = True
    end
  end
  object USQL_BHBH: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_JYBHBHBCKD'
      'set'
      '  FHDH = :FHDH,'
      '  PPDM = :PPDM,'
      '  BLSH = :BLSH,'
      '  QSBH = :QSBH,'
      '  ZZBH = :ZZBH'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    InsertSQL.Strings = (
      'insert into TKS_JYBHBHBCKD'
      '  (FHDH, PPDM, BLSH, QSBH, ZZBH)'
      'values'
      '  (:FHDH, :PPDM, :BLSH, :QSBH, :ZZBH)')
    DeleteSQL.Strings = (
      'delete from TKS_JYBHBHBCKD'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    Left = 71
    Top = 244
  end
  object DS_BHBH: TDataSource
    DataSet = qryBHBH
    Left = 102
    Top = 243
  end
  object qryFHD: TRxQuery
    CachedUpdates = True
    AfterScroll = qryFHDAfterScroll
    OnUpdateError = qryFHDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.FHDH, J.CKXZ, J.QXDW, J.KDRQ, J.ZTZT, J.GHRQ, J.JSZT, J' +
        '.ZPRQ, J.FZDS, J.CKRQ, J.DJRQ, J.ZGR, J.KGY, J.HDR, J.ZBR, J.BZ,' +
        ' G.DWJC DWMC, X.RCKXZMC'
      ' FROM TKS_JYFHD J, TGS_GXDWSJB G, TGS_JRCKXZDM X'
      
        ' WHERE J.QXDW = G.DWDM AND J.CKXZ=X.RCKXZDM AND J.JSZT='#39'0'#39' AND %' +
        'CON '
      ' and J.FHDH not in'
      ' (select FHDH from TKS_JYCKPP where KFDM not in'
      '  (select KFDM from TGS_KFRYDZB where YGDM=%YGDM))'
      'ORDER BY KDRQ, G.PXM ')
    UpdateObject = USQL_FHDH
    Macros = <
      item
        DataType = ftString
        Name = 'CON'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'YGDM'
        ParamType = ptInput
        Value = '0=0'
      end>
    Left = 40
    Top = 144
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'YZPP'
    StoredProcName = 'JYP_FHD_JZ'
    Left = 41
    Top = 278
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_FHDH'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PC_USERID'
        ParamType = ptInput
      end>
  end
  object Qryban: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select a.TDM,a.BLSH,a.BJC '
      ' from TB_BSJB a, TKS_JYCKPP b'
      ' where a.TDM=b.PPDM'
      '  and b.FHDH=:FHDH')
    Left = 40
    Top = 337
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object QrybanTDM: TStringField
      FieldName = 'TDM'
      Origin = 'YZPP.TB_BSJB.TDM'
      Size = 13
    end
    object QrybanBLSH: TFloatField
      FieldName = 'BLSH'
      Origin = 'YZPP.TB_BSJB.BLSH'
    end
    object QrybanBJC: TStringField
      FieldName = 'BJC'
      Origin = 'YZPP.TB_BSJB.BJC'
      Size = 60
    end
  end
  object DS_ban: TDataSource
    DataSet = Qryban
    Left = 70
    Top = 337
  end
  object Qrybao: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select a.BJC, a.BZLSH, nvl(b.GBGBBS, 0) bs'
      ' from TB_BZSJB a, TB_BBGXB b'
      ' where a.BZLSH=b.BZLSH'
      '  and b.BLSH=:BLSH')
    Left = 148
    Top = 433
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'BLSH'
        ParamType = ptUnknown
      end>
    object QrybaoBJC: TStringField
      FieldName = 'BJC'
      Size = 60
    end
    object QrybaoBS: TFloatField
      FieldName = 'BS'
    end
    object QrybaoBZLSH: TFloatField
      FieldName = 'BZLSH'
    end
  end
  object DS_bao: TDataSource
    DataSet = Qrybao
    Left = 178
    Top = 433
  end
  object Qry_ban1: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select distinct a.TDM,a.BLSH,a.BJC '
      ' from TB_BSJB a, TKS_JYCKPP b'
      ' where a.TDM=b.PPDM'
      '  and a.TDM=:TDM')
    Left = 148
    Top = 401
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TDM'
        ParamType = ptUnknown
      end>
    object StringField1: TStringField
      FieldName = 'TDM'
      Origin = 'YZPP.TB_BSJB.TDM'
      Size = 13
    end
    object FloatField1: TFloatField
      FieldName = 'BLSH'
      Origin = 'YZPP.TB_BSJB.BLSH'
    end
    object StringField2: TStringField
      FieldName = 'BJC'
      Origin = 'YZPP.TB_BSJB.BJC'
      Size = 60
    end
  end
  object DS_ban1: TDataSource
    DataSet = Qry_ban1
    Left = 178
    Top = 401
  end
end