history.dfm

这是一个正式的项目工程

object frmHistory: TfrmHistory
  Left = 72
  Top = 165
  Width = 652
  Height = 422
  Caption = '历史数据图表'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clHighlight
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object PanelSecond: TPanel
    Left = 0
    Top = 0
    Width = 644
    Height = 395
    Align = alClient
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 186
      Top = 1
      Width = 1
      Height = 393
      Cursor = crHSplit
    end
    object Label1: TLabel
      Left = 703
      Top = 72
      Width = 63
      Height = 13
      Caption = '建筑物号:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '楷体_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 742
      Top = 185
      Width = 23
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
    end
    object SpeedButton3: TSpeedButton
      Left = 719
      Top = 208
      Width = 23
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object SpeedButton5: TSpeedButton
      Left = 742
      Top = 208
      Width = 23
      Height = 22
      Hint = '恢复'
      Caption = 'R'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Vineta BT'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton4: TSpeedButton
      Left = 765
      Top = 208
      Width = 23
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object SpeedButton2: TSpeedButton
      Left = 742
      Top = 231
      Width = 23
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333300033333333333337773333333}
      NumGlyphs = 2
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 185
      Height = 393
      Align = alLeft
      TabOrder = 0
      object TreeViewSelect: TTreeView
        Left = 1
        Top = 1
        Width = 183
        Height = 391
        Align = alClient
        HideSelection = False
        HotTrack = True
        Indent = 19
        ReadOnly = True
        TabOrder = 0
        OnChange = TreeViewSelectChange
        OnChanging = TreeViewSelectChanging
      end
    end
    object Panel3: TPanel
      Left = 187
      Top = 1
      Width = 456
      Height = 393
      Align = alClient
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 537
        Top = 1
        Width = 3
        Height = 391
        Cursor = crHSplit
      end
      object Panel1: TPanel
        Left = 1
        Top = 1
        Width = 536
        Height = 391
        Align = alLeft
        Caption = 'Panel1'
        TabOrder = 0
        object GroupBox2: TGroupBox
          Left = 1
          Top = 1
          Width = 534
          Height = 389
          Align = alClient
          Caption = '重力轨迹图'
          Font.Charset = GB2312_CHARSET
          Font.Color = clHighlight
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object DBChart1: TDBChart
            Left = 2
            Top = 16
            Width = 543
            Height = 371
            Hint = '重力单位:吨'
            AnimatedZoom = True
            BackWall.Brush.Color = clWhite
            BackWall.Brush.Style = bsClear
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -13
            Title.Font.Name = '楷体_GB2312'
            Title.Font.Style = []
            Title.Text.Strings = (
              '重力/时间')
            LeftAxis.Automatic = False
            LeftAxis.AutomaticMaximum = False
            LeftAxis.AutomaticMinimum = False
            LeftAxis.Maximum = 7
            Legend.Font.Charset = GB2312_CHARSET
            Legend.Font.Color = clBlack
            Legend.Font.Height = -12
            Legend.Font.Name = '宋体'
            Legend.Font.Style = []
            MaxPointsPerPage = 50
            ScaleLastPage = False
            View3D = False
            Align = alLeft
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            object Series7: TAreaSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = 8388863
              Title = '超重停机'
              AreaLinesPen.Visible = False
              DrawArea = True
              Pointer.InflateMargins = True
              Pointer.Style = psRectangle
              Pointer.Visible = False
              XValues.DateTime = True
              XValues.Name = 'X'
              XValues.Multiplier = 1
              XValues.Order = loAscending
              XValues.ValueSource = 'DDate'
              YValues.DateTime = False
              YValues.Name = 'Y'
              YValues.Multiplier = 1
              YValues.Order = loNone
              YValues.ValueSource = 'StandardG2'
            end
            object Series1: TAreaSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = 4259584
              Title = '超重调整'
              AreaLinesPen.Visible = False
              DrawArea = True
              Pointer.InflateMargins = True
              Pointer.Style = psRectangle
              Pointer.Visible = False
              XValues.DateTime = True
              XValues.Name = 'X'
              XValues.Multiplier = 1
              XValues.Order = loAscending
              XValues.ValueSource = 'DDate'
              YValues.DateTime = False
              YValues.Name = 'Y'
              YValues.Multiplier = 1
              YValues.Order = loNone
              YValues.ValueSource = 'StandardG17'
            end
            object Series3: TAreaSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = clBlack
              Title = '正常值'
              AreaLinesPen.Visible = False
              DrawArea = True
              Pointer.InflateMargins = True
              Pointer.Style = psRectangle
              Pointer.Visible = False
              XValues.DateTime = True
              XValues.Name = 'X'
              XValues.Multiplier = 1
              XValues.Order = loAscending
              XValues.ValueSource = 'DDate'
              YValues.DateTime = False
              YValues.Name = 'Y'
              YValues.Multiplier = 1
              YValues.Order = loNone
              YValues.ValueSource = 'StandardG13'
            end
            object Series5: TAreaSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = 4259584
              Title = '失重调整'
              AreaLinesPen.Visible = False
              DrawArea = True
              Pointer.InflateMargins = True
              Pointer.Style = psRectangle
              Pointer.Visible = False
              XValues.DateTime = True
              XValues.Name = 'X'
              XValues.Multiplier = 1
              XValues.Order = loAscending
              XValues.ValueSource = 'DDate'
              YValues.DateTime = False
              YValues.Name = 'Y'
              YValues.Multiplier = 1
              YValues.Order = loNone
              YValues.ValueSource = 'StandardG07'
            end
            object Series6: TAreaSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = 8388863
              Title = '失重停机'
              AreaLinesPen.Visible = False
              DrawArea = True
              Pointer.InflateMargins = True
              Pointer.Style = psRectangle
              Pointer.Visible = False
              XValues.DateTime = True
              XValues.Name = 'X'
              XValues.Multiplier = 1
              XValues.Order = loAscending
              XValues.ValueSource = 'DDate'
              YValues.DateTime = False
              YValues.Name = 'Y'
              YValues.Multiplier = 1
              YValues.Order = loNone
              YValues.ValueSource = 'StandardG03'
            end
            object Series13: TLineSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = 8454016
              Title = '标准值'
              Pointer.InflateMargins = True
              Pointer.Style = psRectangle
              Pointer.Visible = False
              Stairs = True