sj_grpfhdck.dfm

省级集邮品管理ERP

    end
    object RxDBCalcEdit1: TRxDBCalcEdit
      Left = 414
      Top = 68
      Width = 41
      Height = 21
      DataField = 'FZDS'
      DataSource = DataSource2
      DecimalPlaces = 15
      ButtonWidth = 0
      NumGlyphs = 2
      TabOrder = 8
    end
    object DBGrid3: TDBGrid
      Left = 8
      Top = 130
      Width = 521
      Height = 309
      DataSource = DataSource3
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 9
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'ZH'
          ReadOnly = True
          Title.Caption = '志号'
          Width = 68
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'TMC'
          ReadOnly = True
          Title.Caption = '名称'
          Width = 100
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'JJ'
          ReadOnly = True
          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 = 75
          Visible = True
        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 = 89
          Visible = True
        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 UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_GRPFHD'
      'set'
      '  ZPRQ = :ZPRQ,'
      '  FZDS = :FZDS,'
      '  CKRQ = :CKRQ,'
      '  ZTZT = :ZTZT,'
      '  HDR = :HDR,  '
      '  KGY = :KGY,'
      '  BZ = :BZ'
      'where'
      '  FHDH = :OLD_FHDH')
    InsertSQL.Strings = (
      'insert into TKS_GRPFHD'
      '  (ZPRQ, FZDS, CKRQ, KGY, BZ)'
      'values'
      '  (:ZPRQ, :FZDS, :CKRQ, :KGY, :BZ)')
    DeleteSQL.Strings = (
      'delete from TKS_GRPFHD'
      'where'
      '  FHDH = :OLD_FHDH')
    Left = 71
    Top = 142
  end
  object DataSource2: TDataSource
    DataSet = qryFHD
    Left = 102
    Top = 141
  end
  object qryFHDPP: TQuery
    CachedUpdates = True
    OnUpdateError = qryFHDUpdateError
    DatabaseName = 'YZPP'
    DataSource = DataSource2
    RequestLive = True
    SQL.Strings = (
      
        'SELECT J.FHDH, J.PPDM, J.JJ, J.KFDM, J.KWH, J.SL, J.YJ, J.XJ, Y.' +
        'ZH, Y.TMC, K.KFMC, J.DW as ppdw'
      ' FROM TKS_GRPCKPP J, TB_YZPPXXB Y, TGS_KFB K'
      ' WHERE J.PPDM = Y.TDM AND J.KFDM = K.KFDM'
      '   AND J.FHDH = :FHDH')
    UpdateObject = UpdateSQL2
    Left = 40
    Top = 175
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object qryFHDPPFHDH: TStringField
      FieldName = 'FHDH'
      Origin = 'YZPP.TKS_GRPCKPP.FHDH'
    end
    object qryFHDPPPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TKS_GRPCKPP.PPDM'
      Size = 15
    end
    object qryFHDPPJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TKS_GRPCKPP.JJ'
      OnGetText = qryFHDPPJJGetText
    end
    object qryFHDPPKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TKS_GRPCKPP.KFDM'
      Size = 3
    end
    object qryFHDPPKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TKS_GRPCKPP.KWH'
      Size = 30
    end
    object qryFHDPPSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TKS_GRPCKPP.SL'
      DisplayFormat = '#,##'
    end
    object qryFHDPPYJ: TFloatField
      FieldName = 'YJ'
      Origin = 'YZPP.TKS_GRPCKPP.YJ'
    end
    object qryFHDPPXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TKS_GRPCKPP.XJ'
    end
    object qryFHDPPZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
      Size = 16
    end
    object qryFHDPPTMC: TStringField
      FieldName = 'TMC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 120
    end
    object qryFHDPPKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
    object qryFHDPPPPDW: TStringField
      FieldName = 'PPDW'
      Origin = 'YZPP.TKS_GRPCKPP.DW'
      Size = 6
    end
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_GRPCKPP'
      'set'
      '  KWH = :KWH'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    InsertSQL.Strings = (
      'insert into TKS_GRPCKPP'
      '  (KWH)'
      'values'
      '  (:KWH)')
    DeleteSQL.Strings = (
      'delete from TKS_GRPCKPP'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  KFDM = :OLD_KFDM')
    Left = 71
    Top = 176
  end
  object DataSource3: TDataSource
    DataSet = qryFHDPP
    Left = 102
    Top = 175
  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_GRPFHD 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_GRPCKPP 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 StoredProc1: TStoredProc
    DatabaseName = 'YZPP'
    StoredProcName = 'GRP_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
end