sj_txpfhdck.dfm

省级集邮品管理ERP

        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = '起始版号'
      end
      object Label16: TLabel
        Left = 394
        Top = 37
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = '终止版号'
      end
      object Label8: TLabel
        Left = 305
        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 = 322
        Top = 33
        Width = 65
        Height = 20
        TabOrder = 4
      end
      object Edt_zzban: TEdit
        Left = 446
        Top = 33
        Width = 64
        Height = 20
        TabOrder = 5
      end
      object DBLB_bao: TDBLookupComboBox
        Left = 321
        Top = 9
        Width = 189
        Height = 20
        KeyField = 'BZLSH'
        ListField = 'BJC'
        ListSource = DS_bao
        TabOrder = 1
      end
    end
    object BitBtn8: TBitBtn
      Left = 450
      Top = 183
      Width = 70
      Height = 25
      Caption = '确定'
      TabOrder = 17
      OnClick = BitBtn8Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333FF333333333333300333333333
        33333773FF33333333333090033333333333373773FF33333333330990033333
        3333337F3773FF33333333099990033333333373F33773FFF333333099999007
        33333337F33337773333333099999903333333373F3333733333333309999033
        333333337F3337F333333333099990733333333373F3F77F3333333330900907
        3333333337F77F77F33333333003709073333333377377F77F33333337333709
        073333333733377F77F33333333333709033333333333377F7F3333333333337
        0733333333333337773333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Panel4: TPanel
      Left = 0
      Top = 118
      Width = 529
      Height = 2
      TabOrder = 18
    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 UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_TXFHD'
      'set'
      '  ZPRQ = :ZPRQ,'
      '  FZDS = :FZDS,'
      '  CKRQ = :CKRQ,'
      '  ZTZT = :ZTZT,'
      '  HDR = :HDR,'
      '  KGY = :KGY,'
      '  BZ = :BZ'
      'where'
      '  FHDH = :OLD_FHDH')
    InsertSQL.Strings = (
      'insert into TKS_TXFHD'
      '  (ZPRQ, FZDS, CKRQ, KGY, BZ)'
      'values'
      '  (:ZPRQ, :FZDS, :CKRQ, :KGY, :BZ)')
    DeleteSQL.Strings = (
      'delete from TKS_TXFHD'
      'where'
      '  FHDH = :OLD_FHDH')
    Left = 71
    Top = 142
  end
  object DataSource2: TDataSource
    DataSet = qryFHD
    Left = 102
    Top = 142
  end
  object qryFHDPP: TQuery
    CachedUpdates = True
    OnUpdateError = qryFHDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.FHDH, J.TUDM PPDM, J.KFDM, J.KWH, Y.TPMZ MZ, J.JJ, J.SL' +
        ', Y.ZH, Y.TMC TJC, K.KFMC'
      ' FROM TKS_TXCKPP J, TB_YZPPXXB Y, TGS_KFB K'
      ' WHERE J.TUDM = Y.TDM AND J.KFDM = K.KFDM'
      '  AND J.FHDH = :FHDH'
      ' '
      ' '
      ' ')
    UpdateObject = UpdateSQL2
    Left = 40
    Top = 173
    ParamData = <
      item
        DataType = ftString
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object qryFHDPPFHDH: TStringField
      FieldName = 'FHDH'
      Origin = 'YZPP.TKS_TXCKPP.FHDH'
    end
    object qryFHDPPPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TKS_TXCKPP.TUDM'
      Size = 13
    end
    object qryFHDPPKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TKS_TXCKPP.KFDM'
      Size = 3
    end
    object qryFHDPPKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TKS_TXCKPP.KWH'
      Size = 30
    end
    object qryFHDPPMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TKS_TXCKPP.MZ'
      OnGetText = qryFHDPPMZGetText
      OnSetText = qryFHDPPMZSetText
    end
    object qryFHDPPSJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TKS_TXCKPP.SJ'
      OnGetText = qryFHDPPMZGetText
      OnSetText = qryFHDPPMZSetText
    end
    object qryFHDPPSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TKS_TXCKPP.SL'
      DisplayFormat = '###,###,###,###'
    end
    object qryFHDPPZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
      Size = 16
    end
    object qryFHDPPTJC: TStringField
      FieldName = 'TJC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 102
    end
    object qryFHDPPKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_TXCKPP'
      'set'
      '  KWH = :KWH'
      'where'
      '  FHDH = :OLD_FHDH')
    InsertSQL.Strings = (
      'insert into TKS_TXCKPP'
      '  (KWH)'
      'values'
      '  (:KWH)')
    DeleteSQL.Strings = (
      'delete from TKS_TXCKPP'
      'where'
      '  FHDH = :OLD_FHDH')
    Left = 71
    Top = 173
  end
  object DataSource3: TDataSource
    DataSet = qryFHDPP
    Left = 102
    Top = 173
  end
  object UpdateSQL3: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_TXDSZLB'
      'set'
      '  FHDH = :FHDH,'
      '  DZBH = :DZBH,'
      '  DZZL = :DZZL,'
      '  YSJE = :YSJE'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  DZBH = :OLD_DZBH')
    InsertSQL.Strings = (
      'insert into TKS_TXDSZLB'
      '  (FHDH, DZBH, DZZL, YSJE)'
      'values'
      '  (:FHDH, :DZBH, :DZZL, :YSJE)')
    DeleteSQL.Strings = (
      'delete from TKS_TXDSZLB'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  DZBH = :OLD_DZBH')
    Left = 71
    Top = 204
  end
  object DataSource4: TDataSource
    DataSet = qryBD
    Left = 102
    Top = 204
  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.TMC TJC'
      ' FROM TKS_TXBHBHBCKD J, TB_YZPPXXB Y'
      ' WHERE J.PPDM = Y.TDM'
      '  AND J.FHDH = :FHDH'
      ' ')
    UpdateObject = UpdateSQL4
    Left = 40
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object qryBHBHFHDH: TStringField
      FieldName = 'FHDH'
      Origin = 'YZPP.TKS_TXBHBHBCKD.FHDH'
    end
    object qryBHBHPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TKS_TXBHBHBCKD.PPDM'
      Size = 13
    end
    object qryBHBHBLSH: TFloatField
      FieldName = 'BLSH'
      Origin = 'YZPP.TKS_TXBHBHBCKD.BLSH'
    end
    object qryBHBHQSBH: TStringField
      FieldName = 'QSBH'
      Origin = 'YZPP.TKS_TXBHBHBCKD.QSBH'
      Size = 10
    end
    object qryBHBHZZBH: TStringField
      FieldName = 'ZZBH'
      Origin = 'YZPP.TKS_TXBHBHBCKD.ZZBH'
      Size = 10
    end
    object qryBHBHZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
      Size = 16
    end
    object qryBHBHTJC: TStringField
      FieldName = 'TJC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 120
    end
    object qryBHBHbz: TStringField
      FieldKind = fkLookup
      FieldName = 'bz'
      LookupDataSet = Qryban
      LookupKeyFields = 'BLSH'
      LookupResultField = 'BJC'
      KeyFields = 'BLSH'
      Lookup = True
    end
  end
  object UpdateSQL4: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_TXBHBHBCKD'
      '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_TXBHBHBCKD'
      '  (FHDH, PPDM, BLSH, QSBH, ZZBH)'
      'values'
      '  (:FHDH, :PPDM, :BLSH, :QSBH, :ZZBH)')
    DeleteSQL.Strings = (
      'delete from TKS_TXBHBHBCKD'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    Left = 71
    Top = 235
  end
  object DataSource5: TDataSource
    DataSet = qryBHBH
    Left = 102
    Top = 235
  end
  object qryFHD: TRxQuery
    CachedUpdates = True
    AfterScroll = qryFHDAfterScroll
    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_TXFHD 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_TXCKPP where KFDM not in'
      '  (select KFDM from TGS_KFRYDZB where YGDM=%YGDM))'
      'ORDER BY KDRQ, PXM')
    UpdateObject = UpdateSQL1
    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 = 142
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'YZPP'
    StoredProcName = 'TXP_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 qryBD: TQuery
    CachedUpdates = True
    AfterInsert = qryBDAfterInsert
    OnUpdateError = qryFHDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT FHDH, DZBH, DZZL, YSJE'
      ' FROM TKS_TXDSZLB'
      ' WHERE FHDH = :FHDH')
    UpdateObject = UpdateSQL3
    Left = 40
    Top = 204
    ParamData = <
      item
        DataType = ftString
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
  end
  object Qryban: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select a.TDM,a.BLSH,a.BJC '
      ' from TB_BSJB a, TKS_TXCKPP b, TB_BTGXB c'
      ' where substr(a.TDM,1,11)=substr(c.TUDM,1,11) '
      '  and b.TUDM=c.TUDM'
      '  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 Qry_ban1: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select distinct a.TDM,a.BLSH,a.BJC '
      ' from TB_BSJB a, TKS_TXCKPP b'
      ' where substr(a.TDM,1,11)=substr(b.TUDM,1,11)'
      '  and b.TUDM=: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
  object DS_bao: TDataSource
    DataSet = Qrybao
    Left = 178
    Top = 433
  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
end