mrp_qry_newuprightmrp.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_NewUpRightMrp: TFrm_Mrp_Qry_NewUpRightMrp
  Left = 34
  Top = 107
  Caption = 'Mps/Mrp竖式报表'
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = 'Mps/Mrp竖式报表'
  end
  inherited Pnl_Head: TPanel
    Height = 55
    inherited Image1: TImage
      Height = 55
    end
    inherited Lbl_Condition: TLabel
      Left = 84
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '物料代码'
    end
    object Label8: TLabel
      Left = 16
      Top = 38
      Width = 126
      Height = 12
      Caption = 'Mrp展开运算开始时间：'
      TransParent = True
    end
    object lbl_Mrprundate: TLabel
      Left = 144
      Top = 38
      Width = 48
      Height = 12
      Caption = '        '
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 112
    Height = 320
    inherited Image3: TImage
      Height = 320
    end
    inherited DBGridEh: TDBGridEh
      Height = 320
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      FrozenCols = 2
      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 = 148
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Caption = '计量单位'
          Width = 55
          KeyList.Strings = ()
        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 = 'PmBatch'
          PickList.Strings = ()
          Width = 41
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrentonhandInv'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'oncheckqty'
          PickList.Strings = ()
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PmCode'
          PickList.Strings = (
            '0 制造'
            '1 采购'
            '2 委外加工'
            '3 既制造又委外')
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'minqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Batchstrat'
          PickList.Strings = (
            '直接批量法'
            '固定批量法')
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 469
    Top = 187
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 184
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select distinct Item.ItemCode,Item.ItemName,'
      '         Itemflag=Item.ItemCode+'#39' '#39'+Item.ItemName,'
      '         UomName=Uom.UomName,'
      '         ldtime=case Informalss.PmType'
      '                  when 0 then Item.mnldtime'
      '                  when 1 then Item.purchldtime'
      '                end,'
      '         Item.Preparelt,'
      '         Item.runlt,'
      '         Item.Qclt,'
      '         Item.PmBatch,'
      '         Item.minqty,'
      '         Item.PmCode,'
      '         Item.Batchstrat,'
      '         Item.CurrentonhandInv,'
      '         oncheckqty=convert(float,0),'
      '         Assignedqty=convert(float,0)'
      'From Item'
      'Join Informalss On Item.ItemCode=Informalss.ItemCode'
      'join Uom on Item.UomCode=Uom.UomCode')
    Left = 368
    Top = 265
    object AdoQry_HeadItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tmptable'
      Size = 16
    end
    object AdoQry_HeadItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = '#tmptable'
      Size = 60
    end
    object AdoQry_HeadUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = '#tmptable'
      Size = 10
    end
    object AdoQry_Headldtime: TFloatField
      DisplayLabel = '提前期'
      FieldName = 'ldtime'
      Origin = '#tmptable'
      ReadOnly = True
    end
    object AdoQry_HeadCurrentonhandInv: TFloatField
      DisplayLabel = '当前可用库存'
      FieldName = 'CurrentonhandInv'
      Origin = '#tmptable'
    end
    object AdoQry_HeadItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#tmptable'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_Headoncheckqty: TFloatField
      DisplayLabel = '当前待检库存'
      FieldName = 'oncheckqty'
      Origin = '#tmptable'
      ReadOnly = True
    end
    object AdoQry_Headminqty: TFloatField
      DisplayLabel = '安全库存'
      FieldName = 'minqty'
      Origin = '#tmptable'
    end
    object AdoQry_HeadPmCode: TIntegerField
      DisplayLabel = '制购码'
      FieldName = 'PmCode'
      Origin = '#tmptable'
    end
    object AdoQry_HeadBatchstrat: TIntegerField
      DisplayLabel = '批量策略'
      FieldName = 'Batchstrat'
      Origin = '#tmptable'
    end
    object AdoQry_HeadPreparelt: TIntegerField
      DisplayLabel = '准备提前期'
      FieldName = 'Preparelt'
      Origin = '#tmptable'
    end
    object AdoQry_Headrunlt: TIntegerField
      DisplayLabel = '运行提前期'
      FieldName = 'runlt'
      Origin = '#tmptable'
    end
    object AdoQry_HeadQclt: TIntegerField
      DisplayLabel = '质检提前期'
      FieldName = 'Qclt'
      Origin = '#tmptable'
    end
    object AdoQry_HeadPmBatch: TIntegerField
      DisplayLabel = '批量'
      FieldName = 'PmBatch'
      Origin = '#tmptable'
    end
    object AdoQry_HeadAssignedqty: TFloatField
      DisplayLabel = 'MO已领量'
      FieldName = 'Assignedqty'
      Origin = '#tmptable'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 184
    Top = 273
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 320
  end
end