mrp_enter_delmps.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_DelMps: TFrm_Mrp_Enter_DelMps
  Left = 61
  Top = 87
  Caption = '主生产计划清除'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_New: TToolButton
        Visible = False
      end
      inherited TlBtn_Modify: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '主生产计划清除'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 132
      Caption = '月份/物料代码/需用日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      ReadOnly = False
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'MpScheck'
          PickList.Strings = (
            '0'
            '1')
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 43
          KeyList.Strings = (
            '0'
            '1')
          Checkboxes = True
        end
        Item
          FieldName = 'MpsMonth'
          PickList.Strings = ()
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsBatchNo'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 31
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsStatus'
          PickList.Strings = (
            '4 关闭')
          Width = 55
          KeyList.Strings = (
            '4')
        end
        Item
          FieldName = 'MpsQTY'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsDATE'
          PickList.Strings = ()
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsRemArk'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 213
    Top = 179
  end
  inherited ActionList: TActionList
    Left = 184
    Top = 120
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      
        'select m.*,i.ItemName,u.UomName from Mps m join Item i on m.Item' +
        'Code=i.ItemCode  left outer  join Uom u on i.UomCode=u.UomCode')
    Left = 376
    Top = 257
    object AdoQry_MainMpsId: TBCDField
      FieldName = 'MpsId'
      Origin = 'Mps'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object AdoQry_MainMpsMonth: TStringField
      DisplayLabel = '月份'
      FieldName = 'MpsMonth'
      Origin = 'Mps'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = 'Mps'
      Size = 16
    end
    object AdoQry_MainMpsDATE: TDateTimeField
      DisplayLabel = '需用日期'
      FieldName = 'MpsDATE'
      Origin = 'Mps'
    end
    object AdoQry_MainMpsQTY: TFloatField
      DisplayLabel = '生产订货量'
      FieldName = 'MpsQTY'
      Origin = 'Mps'
    end
    object AdoQry_MainMpsStatus: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'MpsStatus'
      Origin = 'Mps'
    end
    object AdoQry_MainMpsFinishQty: TFloatField
      FieldName = 'MpsFinishQty'
      Origin = 'Mps'
    end
    object AdoQry_MainMpsOutQty: TFloatField
      FieldName = 'MpsOutQty'
      Origin = 'Mps'
    end
    object AdoQry_MainMpsRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'MpsRemArk'
      Origin = 'Mps'
      Size = 150
    end
    object AdoQry_MainMpScheck: TIntegerField
      DisplayLabel = '标记'
      FieldName = 'MpScheck'
      Origin = 'Mps'
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainMpsBatchNo: TStringField
      DisplayLabel = '主计划批次号'
      FieldName = 'MpsBatchNo'
      Origin = 'Mps'
      Size = 10
    end
  end
  inherited DataSource: TDataSource
    Left = 328
    Top = 153
  end
end