mrp_qry_classifystatmo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_ClassifyStatMo: TFrm_Mrp_Qry_ClassifyStatMo
  Left = 144
  Top = 113
  Caption = '生产订单分类统计'
  ClientHeight = 394
  ClientWidth = 804
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 804
  end
  inherited Pnl_Title: TPanel
    Width = 804
    Caption = '生产订单分类统计'
  end
  inherited Pnl_Head: TPanel
    Width = 804
    Height = 54
    inherited Lbl_OrderTitle: TLabel
      Top = 34
    end
    inherited Lbl_Order: TLabel
      Top = 34
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 360
    Width = 804
    Height = 34
    object Lbl_Type: TLabel
      Left = 7
      Top = 20
      Width = 48
      Height = 12
      Caption = '统计日：'
    end
    object DbTxt_Date: TDBText
      Left = 70
      Top = 20
      Width = 60
      Height = 12
      AutoSize = True
      DataSource = DataSource
    end
    object DbTxt_ItemFlag: TDBText
      Left = 70
      Top = 4
      Width = 84
      Height = 12
      AutoSize = True
      DataSource = DataSource
    end
    object DbTxt_FinishRate: TDBText
      Left = 679
      Top = 21
      Width = 96
      Height = 12
      AutoSize = True
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 631
      Top = 21
      Width = 48
      Height = 12
      Caption = '完成率：'
    end
    object Label3: TLabel
      Left = 6
      Top = 4
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 111
    Width = 804
    Height = 249
    inherited DBGridEh: TDBGridEh
      Width = 804
      Height = 249
      Columns = <
        Item
          FieldName = 'Date1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '统计日'
          Width = 70
          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 = 'MoTotalQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FinishedQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '完成数量'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishedQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '差异量'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FinishedRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '完成率'
          Width = 65
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 360
    Top = 205
  end
  inherited ActionList: TActionList
    Left = 186
    Top = 151
  end
  inherited AdoQry_Main: TAdoQuery
    Left = 217
    Top = 205
  end
  inherited DataSource: TDataSource
    Left = 370
    Top = 223
  end
end