mrp_qry_graphanalyzercapacity.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_GraphAnalyzerCapacity: TFrm_Mrp_Qry_GraphAnalyzerCapacity
  Left = 91
  Top = 101
  Caption = '能力需求计划表(日/周/月)图表'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label6: TLabel [0]
    Left = 179
    Top = 8
    Width = 72
    Height = 12
    Caption = '表示需求工时'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel [1]
    Left = 155
    Top = 8
    Width = 24
    Height = 12
    Caption = '蓝色'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel [2]
    Left = 187
    Top = 16
    Width = 72
    Height = 12
    Caption = '表示需求工时'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel [3]
    Left = 163
    Top = 16
    Width = 24
    Height = 12
    Caption = '蓝色'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  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
      inherited ToolButton2: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '能力需求计划表(日/周/月)图表'
  end
  inherited Pnl_Head: TPanel
    Height = 56
    inherited Lbl_OrderTitle: TLabel
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    inherited Lbl_Condition: TLabel
      Left = 21
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 84
      Caption = '完工日期/周/月'
      Visible = False
    end
    object Label3: TLabel
      Left = 18
      Top = 63
      Width = 60
      Height = 12
      Caption = '额定能力：'
    end
    object Label12: TLabel
      Left = 76
      Top = 64
      Width = 48
      Height = 12
      Caption = '额定能力'
    end
    object Label13: TLabel
      Left = 19
      Top = 40
      Width = 24
      Height = 12
      Caption = '绿色'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 43
      Top = 40
      Width = 108
      Height = 12
      Caption = '表示未负荷能力工时'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 163
      Top = 40
      Width = 24
      Height = 12
      Caption = '红色'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 187
      Top = 40
      Width = 84
      Height = 12
      Caption = '表示超能力工时'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  inherited Pnl_Body: TPanel
    Top = 113
    Height = 319
    inherited DBGridEh: TDBGridEh
      Height = 319
      ReadOnly = False
      Columns = <
        Item
          FieldName = 'FinishMonth'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Countmohours'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CountwcCapacity'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverCapacity'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverCapacityrate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 782
      Height = 319
      Align = alClient
      BevelInner = bvLowered
      Caption = 'Panel1'
      TabOrder = 1
      object DBChArt1: TDBChArt
        Left = 2
        Top = 2
        Width = 778
        Height = 315
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bSclear
        MArginLeft = 6
        Title.Text.Strings = (
          '能力需求计划表(日/周/月)图表查询')
        LeftAxis.LabelsMultiLine = True
        Legend.Visible = False
        Align = alClient
        TabOrder = 0
        object Label1: TLabel
          Left = 3
          Top = 40
          Width = 84
          Height = 12
          Caption = '负荷能力比率：'
        end
        object Label2: TLabel
          Left = 2
          Top = 392
          Width = 96
          Height = 12
          Caption = '完工日期/周/月：'
        end
        object Series1: TBarSeries
          MArks.ArrowLength = 20
          MArks.Style = smsValue
          MArks.Visible = True
          DataSource = AdoQry_Head
          SerieScolor = clBlue
          XLabelsSource = 'FinishMonth'
          BarWidthPercent = 10
          MultiBar = mbStacked
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAScending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'CountwcCapacity'
        end
        object Series2: TBarSeries
          MArks.ArrowLength = 20
          MArks.Style = smsValue
          MArks.Visible = True
          DataSource = AdoQry_Head
          SerieScolor = clRed
          XLabelsSource = 'FinishMonth'
          BarWidthPercent = 10
          MultiBar = mbStacked
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAScending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'OverCapacity'
        end
        object Series3: TBarSeries
          HorizAxis = aTopAxis
          MArks.ArrowLength = 0
          MArks.Style = smsValue
          MArks.Visible = False
          DataSource = AdoQry_Head
          SerieScolor = clYellow
          XLabelsSource = 'OverCapacityrate'
          BarBrush.Color = clWhite
          BarBrush.Style = bSclear
          BarPen.Visible = False
          BarWidthPercent = 10
          MultiBar = mbStacked
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAScending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'Countmohours'
        end
        object Series4: TLineSeries
          MArks.ArrowLength = 8
          MArks.Visible = False
          DataSource = AdoQry_Head
          SerieScolor = clBlue
          Pointer.InflateMArgins = True
          Pointer.Style = psRectanGle
          Pointer.Visible = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAScending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'CountwcCapacity1'
        end
        object TBarSeries
          MArks.ArrowLength = 20
          MArks.Visible = True
          SerieScolor = clGreen
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAScending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 85
    Top = 107
  end
  inherited ActionList: TActionList
    Left = 104
    Top = 152
  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)),'
      '       CountwcCapacity1=sum(isnull(Item.Capacityhours,0)),'
      
        '       OverCapacity=abs(sum(isnull(mohours,0))-sum(isnull(Item.c' +
        'Apacityhours,0))),'
      
        '       OverCapacity1=sum(isnull(mohours,0))-sum(isnull(Item.Capa' +
        'cityhours,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 ca' +
        'pacity.MoLineno=MoLine.MoLineno'
      '      left outer join Item on Capacity.wcCode=Item.ItemCode'
      'group by MoLine.MoLinedate')
    Left = 272
    Top = 177
    object AdoQry_HeadFinishMonth: TStringField
      DisplayLabel = '完工日期/周/月'
      FieldName = 'FinishMonth'
      Origin = '#tmpres'
      ReadOnly = True
      Size = 30
    end
    object AdoQry_HeadCountmohours: TFloatField
      DisplayLabel = '需求工时'
      FieldName = 'Countmohours'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_HeadCountwcCapacity: TFloatField
      DisplayLabel = '额定能力'
      FieldName = 'CountwcCapacity'
      Origin = '#tmpres'
    end
    object AdoQry_HeadOverCapacity: TFloatField
      DisplayLabel = '超能力工时'
      FieldName = 'OverCapacity'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_HeadOverCapacityrate: TStringField
      DisplayLabel = '超能力比率'
      FieldName = 'OverCapacityrate'
      Origin = '#tmpres'
      ReadOnly = True
      Size = 31
    end
    object AdoQry_HeadOverCapacity1: TFloatField
      FieldName = 'OverCapacity1'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_HeadCountwcCapacity1: TFloatField
      FieldName = 'CountwcCapacity1'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 192
    Top = 161
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 16
    Top = 129
  end
end