mrp_qry_analyzercapacity.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerCapacity: TFrm_Mrp_Qry_AnalyzerCapacity
  Left = 91
  Top = 17
  Caption = '能力需求计划表(日/周/月)'
  ClientHeight = 443
  ClientWidth = 725
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 725
    inherited ToolBar: TToolBar
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
      inherited ToolButton2: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 725
    Caption = '能力需求计划表(日/周/月)'
  end
  inherited Pnl_Head: TPanel
    Width = 725
    inherited Lbl_OrderTitle: TLabel
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    inherited Lbl_Condition: TLabel
      Left = 17
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 84
      Caption = '完工日期/周/月'
      Visible = False
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 424
    Width = 725
    Height = 19
  end
  inherited Pnl_Body: TPanel
    Width = 725
    Height = 327
    inherited DBGridEh: TDBGridEh
      Width = 725
      Height = 327
      OnDblClick = Act_LookExecute
      Columns = <
        Item
          FieldName = 'FinishMonth'
          PickList.Strings = ()
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Countmohours'
          PickList.Strings = ()
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CountwcCapacity'
          PickList.Strings = ()
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverCapacity'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverCapacityrate'
          PickList.Strings = ()
          Width = 63
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 397
    Top = 163
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2;Use Proc' +
      'edure for Prepare=1;Auto Translate=True;Packet Size=4096;Worksta' +
      'tion ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select FinishMonth=convert(varchAr,datepArt(mm,MoLine.MoLinedate' +
        ')),'
      '       Countmohours=sum(isnull(mohours,0)),'
      '       CountwcCapacity=sum(isnull(Item.Capacityhours,0)),'
      
        '       OverCapacity=sum(isnull(mohours,0))-sum(isnull(Item.Capac' +
        'ityhours,0)),'
      
        '       OverCapacityrate=convert(varchAr,case sum(isnull(mohours,' +
        '0))'
      '                          when 0 then -100'
      
        '                         else (sum(isnull(mohours,0))-sum(isnull' +
        '(Item.Capacityhours,0)))/sum(isnull(mohours,0))'
      '                        end)+'#39'%'#39
      '      from Capacity(nolock) '
      
        '        left outer join MoLine on Capacity.mono=MoLine.mono and ' +
        'Capacity.MoLineno=MoLine.MoLineno'
      '        left outer join Item on Capacity.wcCode=Item.ItemCode'
      'group by MoLine.MoLinedate'
      '')
    Left = 304
    Top = 129
    object AdoQry_HeadFinishMonth: TStringField
      DisplayLabel = '完工日期/周/月'
      FieldName = 'FinishMonth'
      Origin = '#tmpResult'
      ReadOnly = True
      Size = 30
    end
    object AdoQry_HeadCountmohours: TFloatField
      DisplayLabel = '需求工时'
      FieldName = 'Countmohours'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_HeadCountwcCapacity: TFloatField
      DisplayLabel = '额定能力工时'
      FieldName = 'CountwcCapacity'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_HeadOverCapacity: TFloatField
      DisplayLabel = '超能力工时'
      FieldName = 'OverCapacity'
      Origin = '#tmpResult'
      ReadOnly = True
    end
    object AdoQry_HeadOverCapacityrate: TStringField
      DisplayLabel = '超能力比率'
      FieldName = 'OverCapacityrate'
      Origin = '#tmpResult'
      ReadOnly = True
      Size = 31
    end
  end
  inherited DataSource: TDataSource
    Left = 320
    Top = 209
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 256
    Top = 177
  end
end