invdm.~dfm

来自「文件包含程序源原文件」· ~DFM 代码 · 共 65 行

object dm_Inventory: Tdm_Inventory
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 247
  Top = 169
  Height = 397
  Width = 756
  object Query: TQuery
    DatabaseName = 'POP'
    Left = 48
    Top = 120
  end
  object StoredProc: TStoredProc
    DatabaseName = 'POP'
    Left = 48
    Top = 64
  end
  object Database: TDatabase
    AliasName = 'PM2'
    DatabaseName = 'POP'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 56
    Top = 8
  end
  object qryAutoPaperNo: TQuery
    DatabaseName = 'POP'
    SQL.Strings = (
      'exec Pub_getpaperno :Defines')
    Left = 104
    Top = 184
    ParamData = <
      item
        DataType = ftString
        Name = 'Defines'
        ParamType = ptInput
        Value = ''
      end>
  end
  object StpInOutStk: TStoredProc
    DatabaseName = 'POP'
    Left = 184
    Top = 72
  end
  object qrypm_mrp: TQuery
    DatabaseName = 'POP'
    SQL.Strings = (
      'exec pm_mrpcaculate :ifix,:ibom')
    Left = 296
    Top = 248
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ifix'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'ibom'
        ParamType = ptInput
      end>
  end
end