unit1.~dfm

GPIB 控制Agilent 34401A

object Form1: TForm1
  Left = 123
  Top = 108
  Width = 820
  Height = 543
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Vcsel Output Power Test Program'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 153
    Height = 97
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 18
      Width = 40
      Height = 19
      Caption = 'Date:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 46
      Width = 42
      Height = 19
      Caption = 'Time:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 56
      Top = 18
      Width = 81
      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 56
      Top = 46
      Width = 81
      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 96
    Width = 809
    Height = 49
    TabOrder = 1
    object Label4: TLabel
      Left = 16
      Top = 16
      Width = 33
      Height = 19
      Caption = 'WO:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 211
      Top = 16
      Width = 28
      Height = 19
      Caption = 'OP:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 417
      Top = 16
      Width = 65
      Height = 19
      Caption = 'SFC No.:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Edit3: TEdit
      Left = 64
      Top = 8
      Width = 89
      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      Text = '00000000'
      OnKeyDown = Edit3KeyPress
    end
    object Edit4: TEdit
      Left = 249
      Top = 8
      Width = 121
      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      Text = '00000'
      OnKeyDown = Edit4KeyPress
    end
    object Edit5: TEdit
      Left = 497
      Top = 8
      Width = 132
      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      Text = '00000000000'
      OnKeyDown = Edit5KeyPress
    end
    object BitBtn2: TBitBtn
      Left = 672
      Top = 16
      Width = 65
      Height = 25
      Caption = 'Test'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn2Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 144
    Width = 505
    Height = 353
    TabOrder = 2
    object Label7: TLabel
      Left = 224
      Top = 32
      Width = 66
      Height = 19
      Caption = 'Current:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 224
      Top = 80
      Width = 52
      Height = 19
      Caption = 'Power:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 408
      Top = 24
      Width = 22
      Height = 19
      Caption = 'uA'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 408
      Top = 80
      Width = 26
      Height = 19
      Caption = 'uW'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 208
      Top = 152
      Width = 281
      Height = 193
      Alignment = taCenter
      AutoSize = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -97
      Font.Name = '??'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 185
      Height = 329
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold, fsItalic]
      Lines.Strings = (
        'Memo1')
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object Edit6: TEdit
      Left = 312
      Top = 24
      Width = 89
      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object Edit7: TEdit
      Left = 312
      Top = 72
      Width = 89
      Height = 28
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'Bodoni MT'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
  end
  object GroupBox4: TGroupBox