mrp_enter_closemo_mnitemlist.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_CloseMo_MnItemList: TFrm_Mrp_Enter_CloseMo_MnItemList
  Left = 193
  Top = 153
  Caption = '生产领料清单对应表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '领料清单对应表'
  end
  inherited Pnl_Head: TPanel
    Height = 5
    inherited Image1: TImage
      Height = 5
    end
  end
  inherited Pnl_Body: TPanel
    Top = 62
    Height = 341
    inherited Image3: TImage
      Height = 341
    end
    inherited DBGridEh: TDBGridEh
      Height = 341
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 112
          KeyList.Strings = ()
        end
        Item
          FieldName = 'moCtrlqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoRealqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverPlanQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 141
    Top = 131
  end
  inherited ActionList: TActionList
    Top = 120
  end
  inherited AdoQry_Main: TAdoQuery
    SQL.Strings = (
      'select mnItemList.ItemCode+'#39' '#39'+Item.ItemName as Itemflag,'
      '       mnItemList.DeptCode+'#39' '#39'+Dept.DeptName as Deptflag,'
      '       moCtrlqty,'
      '       MoRealqty,'
      '       case  '
      '                             when  MOCtrlQty>MoRealQty Then 0'
      '                             Else    MoRealQty-(MOCtrlQty)'
      '                       end As OverPlanQty   '
      'from mnItemList'
      'join Item on mnItemList.ItemCode=Item.ItemCode'
      
        'left  outer join Dept on mnItemList.DeptCode=Dept.DeptCode      ' +
        '    ')
    Left = 192
    Top = 225
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '子项物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '用料部门标识'
      FieldName = 'Deptflag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainmoCtrlqty: TFloatField
      DisplayLabel = '限额领料数'
      FieldName = 'moCtrlqty'
    end
    object AdoQry_MainMoRealqty: TFloatField
      DisplayLabel = '实际领料数'
      FieldName = 'MoRealqty'
    end
    object AdoQry_MainOverPlanQty: TFloatField
      DisplayLabel = '超额领料数'
      FieldName = 'OverPlanQty'
      ReadOnly = True
    end
  end
end