mrp_qry_analyzermrpmo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMrpMo: TFrm_Mrp_Qry_AnalyzerMrpMo
  Left = 58
  Top = 131
  Caption = '订单物料短缺分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '订单物料短缺分析'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 126
      Caption = '子项物料代码/需求日期'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 396
    Height = 33
    object Label1: TLabel
      Left = 4
      Top = 14
      Width = 108
      Height = 12
      Caption = '当前子项物料标识：'
    end
    object dbtxtItemflag: TDBText
      Left = 112
      Top = 14
      Width = 78
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 299
    inherited DBGridEh: TDBGridEh
      Height = 299
      OnDblClick = Act_LookExecute
      FrozenCols = 1
      Columns = <
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 78
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 179
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BomItemType'
          PickList.Strings = (
            '普通物料'
            '工作中心'
            '工具'
            '结构虚项'
            '副产品'
            '成本中心'
            '替代虚项')
          Width = 57
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6')
        end
        Item
          FieldName = 'PmCode'
          PickList.Strings = (
            '制造'
            '采购'
            '委外加工'
            '既制造又委外')
          Width = 46
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'RequireDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'requireqty'
          PickList.Strings = ()
          Width = 45
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Assignqty'
          PickList.Strings = ()
          Title.Caption = '订单已领量'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'netqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrentonhandInv'
          PickList.Strings = ()
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrentonCheckInv'
          PickList.Strings = ()
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'wipqty'
          PickList.Strings = ()
          Width = 47
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Planqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'lessqty'
          PickList.Strings = ()
          Width = 40
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 136
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
    inherited Act_ShowGrid: TAction
      Caption = '物料订单法'
      Hint = '物料订单法'
      OnExecute = Act_ShowGridExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
      '8.0.151'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select Bom.ItemCode,Bom.BomItemType,Item.PmCode,'
      '  dateAdd(dd,(Item.MnLdTime)*(-1),'#39'2001.05.04'#39') As RequireDate,'
      '  100*Bom.BomQty*(1+ BomScrAp_Percent/100) as requireqty,'
      '  netqty=convert(float,0),'
      '  Planqty=convert(float,0),'
      '  Item.ItemName,Item.CurrentonhandInv,Item.CurrentonCheckInv,'
      '  Bom.Bomqty-Item.mnldtime as lessqty,'
      '  Bom.Bomqty-Item.mnldtime as wipqty,'
      '  Assignqty=convert(float,0),'
      '  Itemflag=Bom.ItemCode+'#39' '#39'+Item.ItemName'
      'From Bom '
      ' Join Item On Bom.ItemCode=Item.ItemCode')
    Left = 320
    Top = 177
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '子项物料代码'
      FieldName = 'ItemCode'
      Origin = '#tmpBomResult'
      Size = 16
    end
    object AdoQry_MainBomItemType: TIntegerField
      DisplayLabel = '子项属性'
      FieldName = 'BomItemType'
      Origin = '#tmpBomResult'
    end
    object AdoQry_MainPmCode: TIntegerField
      DisplayLabel = '制购码'
      FieldName = 'PmCode'
      Origin = '#tmpBomResult'
    end
    object AdoQry_MainRequireDate: TDateTimeField
      DisplayLabel = '需求日期'
      FieldName = 'RequireDate'
      Origin = '#tmpBomResult'
      ReadOnly = True
    end
    object AdoQry_Mainrequireqty: TFloatField
      DisplayLabel = '需求量'
      FieldName = 'requireqty'
      Origin = '#tmpBomResult'
      ReadOnly = True
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '子项物料描述'
      FieldName = 'ItemName'
      Origin = '#tmpBomResult'
      Size = 30
    end
    object AdoQry_MainCurrentonhandInv: TFloatField
      DisplayLabel = '现有库存'
      FieldName = 'CurrentonhandInv'
      Origin = '#tmpBomResult'
    end
    object AdoQry_Mainlessqty: TFloatField
      DisplayLabel = '短缺量'
      FieldName = 'lessqty'
      Origin = '#tmpBomResult'
      ReadOnly = True
    end
    object AdoQry_Mainwipqty: TFloatField
      DisplayLabel = '在订量'
      FieldName = 'wipqty'
      Origin = '#tmpBomResult'
      ReadOnly = True
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '子项物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainCurrentonCheckInv: TFloatField
      DisplayLabel = '待检库存'
      FieldName = 'CurrentonCheckInv'
    end
    object AdoQry_MainAssignqty: TFloatField
      DisplayLabel = '订单已经领料'
      FieldName = 'Assignqty'
      ReadOnly = True
    end
    object AdoQry_Mainnetqty: TFloatField
      DisplayLabel = '净需量'
      FieldName = 'netqty'
      ReadOnly = True
    end
    object AdoQry_MaInPlanqty: TFloatField
      DisplayLabel = '预计可用量'
      FieldName = 'Planqty'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 368
    Top = 137
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 216
    Top = 169
  end
end