sal_qry_saleplanofitemanalyse.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_SalePlanOfItemAnalyse: TFrm_Sal_Qry_SalePlanOfItemAnalyse
  Left = 98
  Caption = '产品销售计划执行分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '产品销售计划执行分析'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_OrderTitle: TLabel
      Top = 22
    end
    inherited Lbl_Order: TLabel
      Top = 22
      Width = 78
      Caption = '年份/部门代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'PlanYear'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 221
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_Year'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_Year'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffrationAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rateration'
          PickList.Strings = ()
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ratePlan'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ratePlan1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffrationAmount1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rateration1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ratePlan2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffrationAmount2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rateration2'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_3'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ratePlan3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffrationAmount3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rateration3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ratePlan4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffrationAmount4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rateration4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ratePlan5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffrationAmount5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rateration5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ratePlan6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffrationAmount6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rateration6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_7'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_7'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleAmount7'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'realSaleqty7'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiffAmount7'
          PickList.Strings = ()
          KeyList.Strings = ()
        end