mrp_qry_informaltotalmrp_item.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_InformalTotalMrp_Item: TFrm_Mrp_Qry_InformalTotalMrp_Item
  Left = 60
  Top = 91
  Caption = '父项物料表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '父项物料表'
  end
  inherited Pnl_Head: TPanel
    Height = 4
  end
  inherited Pnl_Body: TPanel
    Top = 61
    Height = 342
    inherited DBGridEh: TDBGridEh
      Height = 342
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 158
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 30
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemType'
          PickList.Strings = (
            '0 普通物料'
            '1 资源'
            '2 工具'
            '3 参考'
            '4 虚项'
            '5 劳务'
            '6 副产品'
            '7 成本')
          Width = 75
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
        end
        Item
          FieldName = 'PmCode'
          PickList.Strings = (
            '0 制造'
            '1 采购'
            '2 委外'
            '3 既自制又委外')
          Width = 47
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'PrepareLT'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RunLT'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QcLT'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchStrat'
          PickList.Strings = (
            '0 直接批量法'
            '1 固定批量法')
          Width = 80
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PmBatch'
          PickList.Strings = ()
          Width = 36
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MAXQTY'
          PickList.Strings = ()
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MINQTY'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 253
    Top = 123
  end
  inherited ActionList: TActionList
    Left = 184
    Top = 128
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii;Data Source=192.168.0.151;' +
      'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
      ';Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'select *,UomName,Itemflag=ItemCode+'#39' '#39'+ItemName'
      ' from Item,Uom'
      'where Item.UomCode=Uom.UomCode')
    Left = 216
    Top = 209
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料名称'
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainItemType: TIntegerField
      DisplayLabel = '物料类型'
      FieldName = 'ItemType'
    end
    object AdoQry_MainMAXQTY: TFloatField
      DisplayLabel = '最大库存'
      FieldName = 'MAXQTY'
    end
    object AdoQry_MainMINQTY: TFloatField
      DisplayLabel = '安全库存'
      FieldName = 'MINQTY'
    end
    object AdoQry_MainPURCHLDTIME: TFloatField
      DisplayLabel = '采购提前期'
      FieldName = 'PURCHLDTIME'
    end
    object AdoQry_MainMNLDTIME: TFloatField
      DisplayLabel = '制造提前期'
      FieldName = 'MNLDTIME'
    end
    object AdoQry_MainPmCode: TIntegerField
      DisplayLabel = '制购码'
      FieldName = 'PmCode'
    end
    object AdoQry_MainBatchStrat: TIntegerField
      DisplayLabel = '批量策略'
      FieldName = 'BatchStrat'
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainPmBatch: TIntegerField
      DisplayLabel = '批量'
      FieldName = 'PmBatch'
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainPrepareLT: TIntegerField
      DisplayLabel = '准备提前期'
      FieldName = 'PrepareLT'
    end
    object AdoQry_MainRunLT: TIntegerField
      DisplayLabel = '运行提前期'
      FieldName = 'RunLT'
    end
    object AdoQry_MainQcLT: TIntegerField
      DisplayLabel = '质检提前期'
      FieldName = 'QcLT'
    end
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 272
    Top = 185
  end
end