mps.dfm

来自「速达开源ERP系统」· DFM 代码 · 共 221 行

inherited frmMps: TfrmMps
  Left = 24
  Top = 61
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Mps计划'
  ClientHeight = 464
  ClientWidth = 759
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 442
    Width = 759
  end
  inherited CoolBar1: TCoolBar
    Width = 759
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 759
      end>
    inherited tbMainBar: TToolBar
      Width = 746
      inherited tbGenDetail: TToolButton
        Visible = True
      end
      inherited ToolButton2: TToolButton
        Visible = True
      end
      inherited tbCheck: TToolButton
        Visible = True
      end
      inherited ToolButton5: TToolButton
        Visible = True
      end
    end
  end
  object sgMps: TSDGrid [2]
    Left = 0
    Top = 39
    Width = 759
    Height = 403
    Align = alClient
    Color = clWhite
    ColCount = 12
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    PopupMenu = pMenu
    TabOrder = 2
    OnClick = sgMpsClick
    OnDblClick = sgMpsDblClick
    Columns = <
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -11
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '物料编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '需求日期'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '需求数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '已生成数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '操作日期'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '计划员'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '审核标志'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '审核员'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '审核日期'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '状态'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '系统日期'
        ColumnWidth = 0
      end>
    ColWidths = (
      6
      113
      67
      60
      65
      63
      62
      59
      58
      66
      44
      59)
  end
  inherited MainMenu1: TMainMenu
    Left = 550
    Top = 1
  end
  inherited ImageList1: TImageList
    Left = 585
    Top = 2
  end
  inherited QueryPrnDlg: TPrintDialog
    Left = 650
    Top = 1
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 617
    Top = 1
  end
  inherited pmDetail: TPopupMenu
    Left = 711
    Top = 3
  end
  inherited puQueryGrid: TPopupMenu
    Left = 680
    Top = 2
  end
  object pMenu: TPopupMenu
    OnPopup = pMenuPopup
    Left = 512
    Top = 4
    object MICheck: TMenuItem
      Caption = '审核'
      OnClick = tbCheckClick
    end
    object MIMpsd: TMenuItem
      Caption = '显示明细'
      OnClick = sgMpsDblClick
    end
  end
end