grp_rkfh.dfm

省级集邮品管理ERP

          Title.Caption = '进价'
          Width = 60
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'PPDW'
          ReadOnly = True
          Title.Caption = '单位'
          Width = 30
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'SL'
          ReadOnly = True
          Title.Caption = '数量'
          Width = 62
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'KFMC'
          ReadOnly = True
          Title.Caption = '库房'
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KWH'
          Title.Caption = '库位'
          Width = 39
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BZ'
          Title.Caption = '备注'
          Width = 70
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Left = 69
      Top = 67
      Width = 99
      Height = 20
      Color = cl3DLight
      DataField = 'JZY'
      DataSource = DataSource2
      TabOrder = 6
    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_GRPRKD'
      'set'
      '  RKRQ = :RKRQ,'
      '  SHR = :SHR,'
      '  JZY = :JZY,'
      '  KGY = :KGY'
      'where'
      '  RKDH = :OLD_RKDH')
    InsertSQL.Strings = (
      'insert into TKS_GRPRKD'
      '  (RKRQ, SHR, JZY, KGY)'
      'values'
      '  (:RKRQ, :SHR, :JZY, :KGY)')
    DeleteSQL.Strings = (
      'delete from TKS_GRPRKD'
      'where'
      '  RKDH = :OLD_RKDH')
    Left = 71
    Top = 142
  end
  object DataSource2: TDataSource
    DataSet = qryRKD
    Left = 98
    Top = 141
  end
  object qryRKDPP: TQuery
    CachedUpdates = True
    OnUpdateError = qryRKDUpdateError
    DatabaseName = 'YZPP'
    DataSource = DataSource2
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.RKDH, J.PPDM, J.JJ, J.KFDM, J.KWH, J.SL, J.BZ, Y.ZH, Y.' +
        'TMC, K.KFMC, J.DW as ppdw'
      ' FROM TKS_GRPRKPP J, TB_YZPPXXB Y, TGS_KFB K'
      ' WHERE J.PPDM = Y.TDM AND J.KFDM = K.KFDM'
      '  AND J.RKDH = :RKDH'
      '')
    UpdateObject = UpdateSQL2
    Left = 40
    Top = 175
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RKDH'
        ParamType = ptUnknown
      end>
    object qryRKDPPRKDH: TStringField
      FieldName = 'RKDH'
      Origin = 'YZPP.TKS_GRPRKPP.RKDH'
    end
    object qryRKDPPPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TKS_GRPRKPP.PPDM'
      Size = 15
    end
    object qryRKDPPJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TKS_GRPRKPP.JJ'
      OnGetText = qryRKDPPJJGetText
      OnSetText = qryRKDPPJJSetText
    end
    object qryRKDPPKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TKS_GRPRKPP.KFDM'
      Size = 3
    end
    object qryRKDPPKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TKS_GRPRKPP.KWH'
      Size = 30
    end
    object qryRKDPPSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TKS_GRPRKPP.SL'
      DisplayFormat = '#,##'
    end
    object qryRKDPPBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TKS_GRPRKPP.BZ'
      Size = 60
    end
    object qryRKDPPZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
      Size = 16
    end
    object qryRKDPPTMC: TStringField
      FieldName = 'TMC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 120
    end
    object qryRKDPPKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
    object qryRKDPPPPDW: TStringField
      FieldName = 'PPDW'
      Origin = 'YZPP.TKS_GRPRKPP.DW'
      Size = 6
    end
  end
  object UpdateSQL2: 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 DataSource3: TDataSource
    DataSet = qryRKDPP
    Left = 102
    Top = 175
  end
  object qryRKD: TRxQuery
    CachedUpdates = True
    AfterScroll = qryRKDAfterScroll
    OnUpdateError = qryRKDUpdateError
    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_GRPRKD 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_GRPRKPP 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 = 144
  end
  object StoredProc2: TStoredProc
    DatabaseName = 'YZPP'
    StoredProcName = 'GRP_RKD_JZ'
    Left = 41
    Top = 248
    ParamData = <
      item
        DataType = ftFloat
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PC_RKDH'
        ParamType = ptInput
        Value = '1'
      end
      item
        DataType = ftString
        Name = 'PC_USERID'
        ParamType = ptInput
        Value = '1'
      end>
  end
end