mrp_qry_graphanalyzercapacity_new.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_GraphAnalyzerCapacity_New: TFrm_Mrp_Qry_GraphAnalyzerCapacity_New
  Left = 6
  Top = 75
  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_Look: TToolButton
        Enabled = False
        Visible = False
      end
      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
      inherited ToolButton9: 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 = 36
      Height = 12
      Caption = '横坐标'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label14: TLabel
      Left = 57
      Top = 40
      Width = 108
      Height = 12
      Caption = '表示超负荷能力工时'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label11: TLabel
      Left = 202
      Top = 40
      Width = 36
      Height = 12
      Caption = '横坐标'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label10: TLabel
      Left = 240
      Top = 40
      Width = 96
      Height = 12
      Caption = '表示工作中心能力'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label1: TLabel
      Left = 544
      Top = 40
      Width = 36
      Height = 12
      Caption = '纵坐标'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label2: TLabel
      Left = 586
      Top = 40
      Width = 108
      Height = 12
      Caption = '表示能力需求时间段'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label4: TLabel
      Left = 362
      Top = 40
      Width = 36
      Height = 12
      Caption = '横坐标'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label15: TLabel
      Left = 400
      Top = 40
      Width = 120
      Height = 12
      Caption = '表示未超负荷能力工时'
      Enabled = False
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    Top = 113
    Height = 319
    inherited DBGridEh: TDBGridEh
      Height = 319
      ReadOnly = False
    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
        Hint = '点击图形查询明细'
        AllowZoom = False
        AnimatedZoomSteps = 0
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bSclear
        MArginLeft = 6
        PrintProportional = False
        Title.Text.Strings = (
          '能力需求计划表(日/周/月)图表查询')
        OnClickSeries = DBChArt1ClickSeries
        BottomAxis.LabelsAnGle = 300
        BottomAxis.LabelsFont.ChArset = ANSI_CHArSET
        BottomAxis.LabelsFont.Color = clBlack
        BottomAxis.LabelsFont.Height = -11
        BottomAxis.LabelsFont.Name = 'Arial'
        BottomAxis.LabelsFont.Style = []
        BottomAxis.LabelsSepAration = 0
        LeftAxis.LabelsMultiLine = True
        LeftAxis.LabelStyle = talValue
        Legend.Visible = False
        MaxPointsPerPage = 23
        TopAxis.Labels = False
        TopAxis.LabelStyle = talValue
        View3D = False
        View3DWalls = False
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvLowered
        ParentShowHint = False
        PopuPmenu = PopuPmenu
        ShowHint = True
        TabOrder = 0
        OnMouseMove = DBChArt1MouseMove
        object Label5: TLabel
          Left = 2
          Top = 392
          Width = 6
          Height = 12
          Enabled = False
          Visible = False
        end
        object Label16: TLabel
          Left = 11
          Top = 15
          Width = 36
          Height = 12
          Caption = '横坐标'
          Font.ChArset = GB2312_CHArSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 49
          Top = 15
          Width = 102
          Height = 12
          Caption = ':工作中心负荷工时'
          Font.ChArset = GB2312_CHArSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 635
          Top = 15
          Width = 72
          Height = 12
          Caption = '当前页/合计:'
          Font.ChArset = GB2312_CHArSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label19: TLabel
          Left = 708
          Top = 15
          Width = 6
          Height = 12
          Font.ChArset = GB2312_CHArSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Series1: TBarSeries
          MArks.ArrowLength = 20
          MArks.BackColor = clYellow
          MArks.Style = smsValue
          MArks.Visible = False
          DataSource = AdoQry_Head
          PercentFormat = '#,##0.###'
          SerieScolor = clBlue
          XLabelsSource = 'amodate'
          BarWidthPercent = 40
          MultiBar = mbStacked
          UseYOrigin = False
          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 = 'mohours'
        end
        object Series2: TBarSeries
          MArks.ArrowLength = 20
          MArks.BackColor = clRed
          MArks.Style = smsValue
          MArks.Visible = False
          DataSource = AdoQry_Head
          SerieScolor = clRed
          XLabelsSource = 'amodate'
          BarWidthPercent = 40
          MultiBar = mbStacked
          UseYOrigin = False
          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 = 'sumhours'
        end
        object Series3: TBarSeries
          HorizAxis = aTopAxis
          MArks.ArrowLength = 0
          MArks.Style = smsValue
          MArks.Visible = False
          DataSource = AdoQry_Head
          SerieScolor = clWhite
          XLabelsSource = 'sumhours'
          BarBrush.Color = clWhite
          BarBrush.Style = bSclear
          BarPen.Visible = False
          BarWidthPercent = 30
          MultiBar = mbStacked
          UseYOrigin = False
          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 = 'mohours'
        end
        object Series4: TLineSeries
          MArks.ArrowLength = 8
          MArks.BackColor = clYellow
          MArks.Font.ChArset = ANSI_CHArSET
          MArks.Font.Color = clBlue
          MArks.Font.Height = -12
          MArks.Font.Name = '宋体'
          MArks.Font.Style = [fsBold]
          MArks.Style = smsValue
          MArks.TransParent = True
          MArks.Visible = False
          DataSource = AdoQry_Head
          SerieScolor = clRed
          XLabelsSource = 'Capacityhours'
          LinePen.Color = clRed
          LinePen.Style = psDashDotDot
          LinePen.Width = 3
          LinePen.SmallDots = True
          Pointer.Brush.Color = clBlue
          Pointer.HorizSize = 2
          Pointer.InflateMArgins = False
          Pointer.Style = psDiagCross
          Pointer.VertSize = 2
          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 = 'Capacityhours'
        end
        object Series5: TFastLineSeries
          Cursor = crArrow
          MArks.ArrowLength = 8
          MArks.Style = smsValue
          MArks.Visible = True
          DataSource = AdoQry_Head
          SerieScolor = clGreen
          XLabelsSource = 'flag'
          LinePen.Color = clGreen
          LinePen.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 = 'flag'
          object TeeFunction1: TAddTeeFunction
          end
        end
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
      '8.0.151'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select substring(convert(varchAr(10),c.modate,102),6,5) amodate'
      ',i.Capacityhours,(sum(mohours)-i.Capacityhours) sumhours'
      'from Capacity c,Item i'
      'where c.wcCode=i.ItemCode and i.ItemType=1 '
      'and i.Capacityhours>0 and c.modate>=getdate()'
      'and c.modate in (select sdate from Calendar where workday=1)'
      'group by c.modate,i.Capacityhours'
      'Order by c.modate')
    Left = 197
    Top = 131
  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=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'select * from Capacityweek Order by amodate')
    Left = 368
    Top = 153
  end
  inherited DataSource: TDataSource
    DataSet = nil
    Left = 192
    Top = 161
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 16
    Top = 185
    object First: TMenuItem [0]
      Caption = '上一页'
      OnClick = FirstClick
    end
    inherited HideColumn: TMenuItem
      Caption = '下一页'
    end
    object n99: TMenuItem
      Caption = '最后一页'
      OnClick = n99Click
    end
    object rep1: TMenuItem
      Caption = '返回首页'
      OnClick = rep1Click
    end
  end
  object PopuPmenu2: TPopuPmenu
    AutoHotkeys = maManual
    Left = 298
    Top = 139
  end
end