jyp_rkfh.dfm

省级集邮品管理ERP

        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'KFMC'
          ReadOnly = True
          Title.Caption = '库房'
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KWH'
          Title.Caption = '库位'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BZ'
          Title.Caption = '备注'
          Width = 54
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Left = 66
      Top = 65
      Width = 99
      Height = 20
      Color = cl3DLight
      DataField = 'JZY'
      DataSource = DS_RKD
      TabOrder = 9
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 748
    Height = 45
    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 = 23
      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_RKD: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_JYRKD'
      'set'
      '  RKRQ = :RKRQ,'
      '  SHR = :SHR,'
      '  JZY = :JZY,'
      '  KGY = :KGY'
      'where'
      '  RKDH = :OLD_RKDH')
    InsertSQL.Strings = (
      'insert into TKS_JYRKD'
      '  (RKRQ, SHR, JZY, KGY)'
      'values'
      '  (:RKRQ, :SHR, :JZY, :KGY)')
    DeleteSQL.Strings = (
      'delete from TKS_JYRKD'
      'where'
      '  RKDH = :OLD_RKDH')
    Left = 71
    Top = 142
  end
  object DS_RKD: TDataSource
    DataSet = qryRKD
    Left = 102
    Top = 141
  end
  object Qryban: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select a.TDM,a.BLSH,a.BJC '
      ' from TB_BSJB a, TKS_JYRKPP b'
      ' where a.TDM=b.PPDM'
      '  and b.RKDH=:RKDH')
    Left = 44
    Top = 297
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RKDH'
        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 qryRKDPP: TQuery
    CachedUpdates = True
    OnUpdateError = qryRKDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.RKDH, J.PPDM, J.JJ, J.KFDM, J.KWH, J.SL, J.BZ, Y.ZH, Y.' +
        'TJC, K.KFMC, '#39'套'#39' as ppdw'
      ' FROM TKS_JYRKPP J, TB_YZPPTXXB Y, TGS_KFB K'
      ' WHERE J.PPDM = Y.TDM AND J.KFDM = K.KFDM'
      '  AND J.RKDH = :RKDH')
    UpdateObject = USQL_RKDPP
    Left = 40
    Top = 175
    ParamData = <
      item
        DataType = ftString
        Name = 'RKDH'
        ParamType = ptUnknown
      end>
    object qryRKDPPRKDH: TStringField
      FieldName = 'RKDH'
    end
    object qryRKDPPPPDM: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object qryRKDPPJJ: TFloatField
      FieldName = 'JJ'
      OnGetText = qryRKDPPJJGetText
      OnSetText = qryRKDPPJJSetText
    end
    object qryRKDPPKFDM: TStringField
      FieldName = 'KFDM'
      Size = 3
    end
    object qryRKDPPKWH: TStringField
      FieldName = 'KWH'
      Size = 30
    end
    object qryRKDPPSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '#,##'
    end
    object qryRKDPPBZ: TStringField
      FieldName = 'BZ'
      Size = 60
    end
    object qryRKDPPZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object qryRKDPPTJC: TStringField
      FieldName = 'TJC'
      Size = 60
    end
    object qryRKDPPKFMC: TStringField
      FieldName = 'KFMC'
      Size = 30
    end
    object qryRKDPPPPDW: TStringField
      FieldName = 'PPDW'
      FixedChar = True
      Size = 2
    end
  end
  object USQL_RKDPP: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_JYRKPP'
      'set'
      '  KWH = :KWH,'
      '  BZ = :BZ'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    InsertSQL.Strings = (
      'insert into TKS_JYRKPP'
      '  (KWH, BZ)'
      'values'
      '  (:KWH, :BZ)')
    DeleteSQL.Strings = (
      'delete from TKS_JYRKPP'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    Left = 71
    Top = 176
  end
  object DS_RKDPP: TDataSource
    DataSet = qryRKDPP
    Left = 102
    Top = 175
  end
  object qryRKD: TRxQuery
    CachedUpdates = True
    AfterScroll = qryRKDAfterScroll
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.RKDH, J.RKXZ, RKRQ, KDRQ, DJRQ, SHR, ZBR, JZY, KGY, G.D' +
        'WJC DWMC, X.RCKXZMC'
      ' FROM TKS_JYRKD J, TGS_GXDWSJB G, TGS_JRCKXZDM X'
      ' WHERE J.LYDW = G.DWDM AND J.RKXZ=X.RCKXZDM AND %CON'
      ' and J.RKDH not in'
      ' (select RKDH from TKS_JYRKPP where KFDM not in'
      '  (select KFDM from TGS_KFRYDZB where YGDM=%YGDM))'
      'ORDER BY KDRQ,PXM')
    UpdateObject = USQL_RKD
    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_RKD_JZ'
    Left = 41
    Top = 244
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_RKDH'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PC_USERID'
        ParamType = ptInput
      end>
  end
  object DS_ban: TDataSource
    DataSet = Qryban
    Left = 74
    Top = 297
  end
  object qryBHBH: TQuery
    CachedUpdates = True
    AfterInsert = qryBHBHAfterInsert
    OnUpdateError = qryRKDUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT J.RKDH, J.PPDM, J.BLSH, J.QSBH, J.ZZBH, Y.ZH, Y.TJC'
      ' FROM TKS_JYBHBHBRKD J, TB_YZPPTXXB Y'
      ' WHERE J.PPDM = Y.TDM'
      '   AND J.RKDH = :RKDH')
    UpdateObject = USQL_BHBH
    Left = 40
    Top = 209
    ParamData = <
      item
        DataType = ftString
        Name = 'RKDH'
        ParamType = ptUnknown
      end>
    object qryBHBHRKDH: TStringField
      FieldName = 'RKDH'
      Origin = 'YZPP.TKS_JYBHBHBRKD.RKDH'
    end
    object qryBHBHPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TKS_JYBHBHBRKD.PPDM'
      Size = 13
    end
    object qryBHBHBLSH: TFloatField
      FieldName = 'BLSH'
      Origin = 'YZPP.TKS_JYBHBHBRKD.BLSH'
    end
    object qryBHBHQSBH: TStringField
      FieldName = 'QSBH'
      Origin = 'YZPP.TKS_JYBHBHBRKD.QSBH'
      Size = 10
    end
    object qryBHBHZZBH: TStringField
      FieldName = 'ZZBH'
      Origin = 'YZPP.TKS_JYBHBHBRKD.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_JYBHBHBRKD'
      'set'
      '  RKDH = :RKDH,'
      '  PPDM = :PPDM,'
      '  BLSH = :BLSH,'
      '  QSBH = :QSBH,'
      '  ZZBH = :ZZBH'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    InsertSQL.Strings = (
      'insert into TKS_JYBHBHBRKD'
      '  (RKDH, PPDM, BLSH, QSBH, ZZBH)'
      'values'
      '  (:RKDH, :PPDM, :BLSH, :QSBH, :ZZBH)'
      '   ')
    DeleteSQL.Strings = (
      'delete from TKS_JYBHBHBRKD'
      'where'
      '  RKDH = :OLD_RKDH and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    Left = 71
    Top = 210
  end
  object DS_BHBH: TDataSource
    DataSet = qryBHBH
    Left = 102
    Top = 209
  end
end