mrp_qry_oblongmrp.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 257 行

inherited Frm_Mrp_Qry_OblongMrp: TFrm_Mrp_Qry_OblongMrp
  Left = 33
  Top = 139
  Caption = 'Mps/Mrp横式报表'
  ClientWidth = 776
  Position = poDefault
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 776
  end
  inherited Pnl_Title: TPanel
    Width = 776
    Caption = 'Mps/Mrp横式报表'
  end
  inherited Pnl_Head: TPanel
    Width = 776
    Height = 57
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '物料代码'
    end
    object Label8: TLabel
      Left = 16
      Top = 37
      Width = 126
      Height = 12
      Caption = 'Mrp展开运算开始时间：'
    end
    object lbl_Mrprundate: TLabel
      Left = 144
      Top = 37
      Width = 48
      Height = 12
      Caption = '        '
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 776
  end
  inherited Pnl_Body: TPanel
    Top = 114
    Width = 776
    Height = 318
    inherited DBGridEh: TDBGridEh
      Width = 776
      Height = 318
      Columns = <
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 61
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 221
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Caption = '计量单位'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ldtime'
          PickList.Strings = ()
          Width = 41
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PmBatch'
          PickList.Strings = ()
          Width = 35
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrentonhandInv'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Assignedqty'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'oncheckqty'
          PickList.Strings = ()
          Width = 77
          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 ActionList: TActionList
    Left = 144
    Top = 152
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=lc;Use Proce' +
      'dure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstat' +
      'ion ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select distinct Item.ItemCode,Item.ItemName,'
      '         Itemflag=Item.ItemCode+'#39' '#39'+Item.ItemName,'
      '         UomName=Uom.UomName,'
      '         ldtime=case ss.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 ss On Item.ItemCode=ss.ItemCode'
      'join Uom on Item.UomCode=Uom.UomCode')
    Left = 288
    Top = 233
    object AdoQry_HeadItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tmpoblgItemResult'
      Size = 16
    end
    object AdoQry_HeadItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = '#tmpoblgItemResult'
      Size = 60
    end
    object AdoQry_HeadUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = '#tmpoblgItemResult'
      Size = 10
    end
    object AdoQry_Headldtime: TFloatField
      DisplayLabel = '提前期'
      FieldName = 'ldtime'
      Origin = '#tmpoblgItemResult'
      ReadOnly = True
    end
    object AdoQry_HeadCurrentonhandInv: TFloatField
      DisplayLabel = '当前可用库存'
      FieldName = 'CurrentonhandInv'
      Origin = '#tmpoblgItemResult'
    end
    object AdoQry_HeadItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#tmpoblgItemResult'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_Headoncheckqty: TFloatField
      DisplayLabel = '当前待检库存'
      FieldName = 'oncheckqty'
      Origin = '#tmpoblgItemResult'
      ReadOnly = True
    end
    object AdoQry_Headminqty: TFloatField
      DisplayLabel = '安全库存'
      FieldName = 'minqty'
      Origin = '#tmpoblgItemResult'
    end
    object AdoQry_HeadPmCode: TIntegerField
      DisplayLabel = '制购码'
      FieldName = 'PmCode'
      Origin = '#tmpoblgItemResult'
    end
    object AdoQry_HeadBatchstrat: TIntegerField
      DisplayLabel = '批量策略'
      FieldName = 'Batchstrat'
      Origin = '#tmpoblgItemResult'
    end
    object AdoQry_HeadPreparelt: TIntegerField
      FieldName = 'Preparelt'
    end
    object AdoQry_Headrunlt: TIntegerField
      FieldName = 'runlt'
    end
    object AdoQry_HeadQclt: TIntegerField
      FieldName = 'Qclt'
    end
    object AdoQry_HeadPmBatch: TIntegerField
      DisplayLabel = '批量'
      FieldName = 'PmBatch'
    end
    object AdoQry_HeadAssignedqty: TFloatField
      DisplayLabel = 'MO已领量'
      FieldName = 'Assignedqty'
      Origin = '#tmpoblgItemResult'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 368
    Top = 241
  end
end