mrp_qry_analyzermps.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMps: TFrm_Mrp_Qry_AnalyzerMps
  Left = 44
  Top = 76
  Caption = '主生产计划执行分析'
  ClientWidth = 767
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 767
  end
  inherited Pnl_Title: TPanel
    Width = 767
    Caption = '主生产计划执行分析'
  end
  inherited Pnl_Head: TPanel
    Width = 767
    Height = 59
    inherited Lbl_OrderTitle: TLabel
      Top = 35
    end
    inherited Lbl_Order: TLabel
      Top = 35
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 397
    Width = 767
    Height = 32
    object DbTxt_ItemFlag: TDBText
      Left = 62
      Top = 5
      Width = 84
      Height = 12
      AutoSize = True
      TransParent = True
    end
    object DbTxt_FinishRate: TDBText
      Left = 656
      Top = 20
      Width = 96
      Height = 12
      AutoSize = True
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 1
      Top = 5
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
    object Label3: TLabel
      Left = 588
      Top = 20
      Width = 66
      Height = 12
      Caption = 'Mps完成率：'
    end
    object Label1: TLabel
      Left = 0
      Top = 20
      Width = 60
      Height = 12
      Caption = '需用数量：'
    end
    object DbTxt_MpsQty: TDBText
      Left = 62
      Top = 20
      Width = 72
      Height = 12
      AutoSize = True
      DataField = 'Employeeflag'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 116
    Width = 767
    Height = 281
    inherited DBGridEh: TDBGridEh
      Width = 767
      Height = 281
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'Pla_EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划员代码'
          Width = 70
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划员姓名'
          Width = 80
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计划员标识'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 200
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 200
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mps需用日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsQTY'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mps订货量'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsStatus'
          PickList.Strings = (
            '2 准备'
            '3 下达'
            '4 关闭')
          Title.Alignment = taCenter
          Title.Caption = 'Mps行状态'
          Width = 62
          KeyList.Strings = (
            '2'
            '3'
            '4')
        end
        Item
          FieldName = 'MoPrepareQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mo准备量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoXDQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mo下达量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoFinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mo入库量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoCYQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mo差异量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoFinishRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mo完成率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsFinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mps完成量'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpScXQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mps差异量'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MpsFinishRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'Mps完成率'
          Width = 60
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 249
    Top = 176
  end
  inherited ActionList: TActionList
    Left = 146
    Top = 166
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select Employee.EmployeeCode+'#39' '#39'+Employee.EmployeeName as employ' +
        'eeflag from Mps'
      '  Join Item On Mps.ItemCode=Item.ItemCode '
      ' Join  Employee On Item.EmployeeCode=Employee.EmployeeCode')
    Left = 183
    Top = 167
  end
  inherited DataSource: TDataSource
    Left = 290
    Top = 178
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 216
    Top = 173
  end
end