unityarnlslook.~dfm

纺织类 纤维强力测试中蠕变性能测试源码

        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1.000000000000000000
        XValues.Order = loAscending
        YValues.DateTime = False
        YValues.Name = 'Y'
        YValues.Multiplier = 1.000000000000000000
        YValues.Order = loNone
      end
    end
    object DBNavigator2: TDBNavigator
      Left = 0
      Top = 280
      Width = 264
      Height = 30
      DataSource = DataSource2
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Hints.Strings = (
        #31532#19968#22359#32455#29289
        #21069#19968#22359#32455#29289
        #19979#19968#22359#32455#29289
        #26368#21518#19968#22359#32455#29289
        'Insert record'
        'Delete record'
        'Edit record'
        'Post edit'
        'Cancel edit'
        'Refresh data')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 285
      Height = 272
      ActivePage = TabSheet1
      Align = alTop
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = #21472#21152#22270
        object Chart2: TChart
          Left = 0
          Top = 0
          Width = 277
          Height = 233
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Title.Text.Strings = (
            '')
          BottomAxis.Title.Caption = #20280#38271' mm'
          LeftAxis.Title.Caption = #36127#33655' cN'
          Legend.Visible = False
          View3D = False
          Align = alTop
          TabOrder = 0
          OnDblClick = Chart2DblClick
        end
      end
      object TabSheet2: TTabSheet
        Caption = #28857#29366#22270
        ImageIndex = 1
        object Chart3: TChart
          Left = 0
          Top = 0
          Width = 257
          Height = 233
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Title.Text.Strings = (
            '')
          BottomAxis.Automatic = False
          BottomAxis.AutomaticMaximum = False
          BottomAxis.AutomaticMinimum = False
          BottomAxis.Maximum = 100.000000000000000000
          BottomAxis.Title.Caption = #20280#38271' mm'
          LeftAxis.Automatic = False
          LeftAxis.AutomaticMaximum = False
          LeftAxis.AutomaticMinimum = False
          LeftAxis.Maximum = 1300.000000000000000000
          LeftAxis.Title.Caption = #24378#21147' cN'
          View3D = False
          TabOrder = 0
          OnDblClick = Chart3DblClick
          object testP: TPointSeries
            Marks.ArrowLength = 0
            Marks.Style = smsValue
            Marks.Visible = False
            SeriesColor = clRed
            ShowInLegend = False
            Title = 'PointP'
            Pointer.Brush.Color = clRed
            Pointer.InflateMargins = True
            Pointer.Style = psCircle
            Pointer.Visible = True
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1.000000000000000000
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1.000000000000000000
            YValues.Order = loNone
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = #32447#29366#22270'-'#24378#21147
        ImageIndex = 2
        object Chart4: TChart
          Left = 0
          Top = 0
          Width = 277
          Height = 224
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Title.Text.Strings = (
            '')
          BottomAxis.Title.Caption = #27979#35797#24207#21495
          LeftAxis.Title.Caption = #24378#21147' cN'
          Legend.Visible = False
          View3D = False
          Align = alTop
          TabOrder = 0
          OnDblClick = Chart4DblClick
          object bar1: TBarSeries
            Marks.ArrowLength = 20
            Marks.Style = smsValue
            Marks.Visible = True
            SeriesColor = clGreen
            BarWidthPercent = 20
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1.000000000000000000
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Bar'
            YValues.Multiplier = 1.000000000000000000
            YValues.Order = loNone
          end
        end
      end
      object TabSheet4: TTabSheet
        Caption = #32447#29366#22270'-'#20280#38271
        ImageIndex = 3
        object Chart5: TChart
          Left = 0
          Top = 0
          Width = 277
          Height = 224
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Title.Text.Strings = (
            '')
          BottomAxis.Title.Caption = #27979#35797#24207#21495
          LeftAxis.Title.Caption = #36127#33655' cN'
          Legend.Visible = False
          View3D = False
          Align = alTop
          TabOrder = 0
          OnDblClick = Chart5DblClick
          object bar2: TBarSeries
            Marks.ArrowLength = 20
            Marks.Style = smsValue
            Marks.Visible = True
            SeriesColor = clBlue
            BarWidthPercent = 10
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1.000000000000000000
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Bar'
            YValues.Multiplier = 1.000000000000000000
            YValues.Order = loNone
          end
        end
      end
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    OnDataChange = DataSource2DataChange
    Left = 208
    Top = 240
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 312
    Top = 304
  end
  object ADOTable3: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Yarn.mdb;Persist Se' +
      'curity Info=False'
    CursorType = ctStatic
    TableName = 'Preview'
    Left = 144
    Top = 352
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 200
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Yarn.mdb;Persist Se' +
      'curity Info=False'
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <
      item
        Name = 'deepId'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'deep2'
        DataType = ftString
        Size = -1
        Value = ''
      end>
    SQL.Strings = (
      'select * from fstop where samplename=:deepId')
    Left = 160
    Top = 104
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Yarn.mdb;Persist Se' +
      'curity Info=False'
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'samplename'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select * from fsrec where samplename=:samplename')
    Left = 168
    Top = 240
  end
  object ActionList1: TActionList
    Left = 648
    Top = 8
    object Action1: TAction
      Caption = 'Action1'
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = 'Action2'
      OnExecute = Action2Execute
    end
  end
end