history.dfm

这是一个正式的项目工程

              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 = 'StandardG'
            end
            object Series4: TLineSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = clLime
              Title = '平均值'
              LinePen.Width = 2
              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 = 'AverageG'
            end
            object Series2: TLineSeries
              Marks.ArrowLength = 8
              Marks.Visible = False
              DataSource = tbExtension
              SeriesColor = clWhite
              Title = '实际值'
              LinePen.Width = 2
              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 = 'Gravity'
            end
          end
        end
      end
      object Panel4: TPanel
        Left = 540
        Top = 1
        Width = 62
        Height = 391
        Align = alClient
        TabOrder = 1
        object SpeedButton6: TSpeedButton
          Left = 0
          Top = 181
          Width = 23
          Height = 22
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333FF3333333333333003333333333333F77F33333333333009033
            333333333F7737F333333333009990333333333F773337FFFFFF330099999000
            00003F773333377777770099999999999990773FF33333FFFFF7330099999000
            000033773FF33777777733330099903333333333773FF7F33333333333009033
            33333333337737F3333333333333003333333333333377333333333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton6Click
        end
        object SpeedButton7: TSpeedButton
          Left = 22
          Top = 159
          Width = 23
          Height = 22
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
            3333333333777F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
            3333333777737777F333333099999990333333373F3333373333333309999903
            333333337F33337F33333333099999033333333373F333733333333330999033
            3333333337F337F3333333333099903333333333373F37333333333333090333
            33333333337F7F33333333333309033333333333337373333333333333303333
            333333333337F333333333333330333333333333333733333333}
          NumGlyphs = 2
          OnClick = SpeedButton7Click
        end
        object SpeedButton8: TSpeedButton
          Left = 22
          Top = 181
          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
          OnClick = SpeedButton8Click
        end
        object SpeedButton9: TSpeedButton
          Left = 45
          Top = 181
          Width = 23
          Height = 22
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333FF3333333333333003333
            3333333333773FF3333333333309003333333333337F773FF333333333099900
            33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
            99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
            33333333337F3F77333333333309003333333333337F77333333333333003333
            3333333333773333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton9Click
        end
        object SpeedButton10: TSpeedButton
          Left = 22
          Top = 202
          Width = 23
          Height = 22
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000010000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
            333333333337F33333333333333033333333333333373F333333333333090333
            33333333337F7F33333333333309033333333333337373F33333333330999033
            3333333337F337F33333333330999033333333333733373F3333333309999903
            333333337F33337F33333333099999033333333373333373F333333099999990
            33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333300033333333333337773333333}
          NumGlyphs = 2
          OnClick = SpeedButton10Click
        end
        object Button2: TButton
          Left = 4
          Top = 120
          Width = 55
          Height = 25
          Caption = '打印图表'
          Font.Charset = GB2312_CHARSET
          Font.Color = clHighlight
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = Button2Click
        end
        object Button9: TButton
          Left = 3
          Top = 89
          Width = 57
          Height = 25
          Caption = '缩 小'
          Font.Charset = GB2312_CHARSET
          Font.Color = clHighlight
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = Button9Click
        end
        object Button8: TButton
          Left = 3
          Top = 41
          Width = 57
          Height = 25
          Caption = '放 大'
          Font.Charset = GB2312_CHARSET
          Font.Color = clHighlight
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = Button8Click
        end
      end
    end
  end
  object ViewGEMaster: TTable
    DatabaseName = 'MainDB'
    ReadOnly = True
    TableName = 'PHG.db'
    Left = 47
    Top = 346
    object ViewGEMasterProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object ViewGEMasterHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object ViewGEMasterGroupID: TStringField
      FieldName = 'GroupID'
      Size = 3
    end
    object ViewGEMasterGroupIdLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'GroupIdLookup'
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'GroupID'
      Lookup = True
    end
  end
  object dsViewGEMaster: TDataSource
    DataSet = ViewGEMaster
    Left = 31
    Top = 330
  end
  object dsViewGEDetail: TDataSource
    DataSet = ViewGEDetail
    Left = 85
    Top = 330
  end
  object ViewGEDetail: TTable
    DatabaseName = 'MainDB'
    IndexFieldNames = 'ProjectID;HourseID;GroupID'
    MasterFields = 'ProjectID;HourseID;GroupID'
    MasterSource = dsViewGEMaster
    ReadOnly = True
    TableName = 'GE.db'
    Left = 101
    Top = 346
    object ViewGEDetailProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object ViewGEDetailHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object ViewGEDetailGroupID: TStringField
      FieldName = 'GroupID'
      Size = 3
    end
    object ViewGEDetailExtensionID: TStringField
      FieldName = 'ExtensionID'
      Size = 3
    end
    object ViewGEDetailExtensionIDLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'ExtensionIDLookup'
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'ExtensionID'
      Lookup = True
    end
  end
  object tbExtension: TTable
    OnCalcFields = tbExtensionCalcFields
    DatabaseName = 'MainDB'
    TableName = 'Extension.DB'
    Left = 145
    Top = 337
    object tbExtensionAutoInc: TAutoIncField
      FieldName = 'AutoInc'
      ReadOnly = True
    end
    object tbExtensionDDate: TDateTimeField
      FieldName = 'DDate'
    end
    object tbExtensionHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object tbExtensionExtensionID: TStringField
      FieldName = 'ExtensionID'
      Size = 3
    end
    object tbExtensionGravity: TFloatField
      FieldName = 'Gravity'
    end
    object tbExtensionHeight: TFloatField
      FieldName = 'Height'
    end
    object tbExtensionHorizonDiff: TFloatField
      FieldName = 'HorizonDiff'
    end
    object tbExtensionStandardG: TFloatField
      FieldName = 'StandardG'
    end
    object tbExtensionAverageG: TFloatField
      FieldName = 'AverageG'
    end
    object tbExtensionAverageH: TFloatField
      FieldName = 'AverageH'
    end
    object tbExtensionState: TStringField
      FieldName = 'State'
      Size = 2
    end
    object tbExtensionStandardG17: TFloatField
      FieldKind = fkCalculated
      FieldName = 'StandardG17'
      Calculated = True
    end
    object tbExtensionStandardG13: TFloatField
      FieldKind = fkCalculated
      FieldName = 'StandardG13'
      Calculated = True
    end
    object tbExtensionStandardG07: TFloatField
      FieldKind = fkCalculated
      FieldName = 'StandardG07'
      Calculated = True
    end
    object tbExtensionStandardG03: TFloatField
      FieldKind = fkCalculated
      FieldName = 'StandardG03'
      Calculated = True
    end
    object tbExtensionStandardG2: TFloatField
      FieldKind = fkCalculated
      FieldName = 'StandardG2'
      Calculated = True
    end
  end
end