unit1.dfm

利用delphi

object Form1: TForm1
  Left = 343
  Top = 237
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 216
    Top = 216
    Width = 153
    Height = 33
    AutoSize = False
  end
  object Label2: TLabel
    Left = 152
    Top = 296
    Width = 75
    Height = 13
    AutoSize = False
    Caption = 'wavelength(nm)'
  end
  object Label3: TLabel
    Left = 240
    Top = 296
    Width = 29
    Height = 13
    AutoSize = False
    Caption = 'power'
  end
  object BitBtn1: TBitBtn
    Left = 232
    Top = 128
    Width = 75
    Height = 25
    Caption = #24207#25968#20135#29983
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object Edit1: TEdit
    Left = 240
    Top = 168
    Width = 65
    Height = 21
    TabOrder = 1
    Text = '60'
  end
  object BitBtn3: TBitBtn
    Left = 184
    Top = 336
    Width = 75
    Height = 25
    Caption = #20445#23384
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object Edit3: TEdit
    Left = 408
    Top = 200
    Width = 49
    Height = 21
    TabOrder = 3
    Text = '6'
  end
  object Edit2: TEdit
    Left = 232
    Top = 312
    Width = 65
    Height = 21
    TabOrder = 4
  end
  object Edit4: TEdit
    Left = 160
    Top = 312
    Width = 65
    Height = 21
    TabOrder = 5
  end
  object SaveDialog1: TSaveDialog
    Left = 416
    Top = 128
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 216
    Top = 56
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 376
    Top = 56
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 448
    Top = 32
  end
end