unit1.dfm

并口测试程序

object Form1: TForm1
  Left = 190
  Top = 131
  Width = 544
  Height = 375
  Caption = #24182#21475#25805#20316
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 72
    Top = 40
    Width = 377
    Height = 121
    Caption = '0378'#31471#21475#23383#33410#36755#20986#25511#21046
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label2: TLabel
      Left = 16
      Top = 24
      Width = 117
      Height = 13
      Caption = #33033#20914#23485#24230#65288#24494#31186#65289#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 16
      Top = 48
      Width = 169
      Height = 13
      Caption = #33033#20914#30340#39640#30005#24179#23485#24230#65288#24494#31186#65289#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 72
      Width = 169
      Height = 13
      Caption = #33033#20914#30340#20302#30005#24179#23485#24230#65288#24494#31186#65289#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 216
      Top = 72
      Width = 21
      Height = 13
      Caption = '100'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 96
      Width = 130
      Height = 13
      Caption = #33033#20914#30340#39057#29575#65288#36203#20857#65289#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 216
      Top = 96
      Width = 28
      Height = 13
      Caption = '5000'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Button4: TButton
      Left = 296
      Top = 16
      Width = 75
      Height = 25
      Caption = #36755#20986#33033#20914
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button4Click
    end
    object Button3: TButton
      Left = 294
      Top = 80
      Width = 75
      Height = 25
      Caption = #39640#30005#24179
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button1: TButton
      Left = 294
      Top = 48
      Width = 75
      Height = 25
      Caption = #20302#30005#24179
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 208
      Top = 24
      Width = 57
      Height = 21
      MaxLength = 7
      TabOrder = 3
      Text = '200'
      OnChange = Edit1Change
    end
    object Edit2: TEdit
      Left = 208
      Top = 48
      Width = 57
      Height = 21
      MaxLength = 7
      TabOrder = 4
      Text = '100'
      OnChange = Edit2Change
    end
  end
  object GroupBox1: TGroupBox
    Left = 64
    Top = 176
    Width = 393
    Height = 105
    Caption = '0379'#31471#21475#23383#33410#36755#20837#29366#24577
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Button2: TButton
      Left = 158
      Top = 72
      Width = 75
      Height = 25
      Caption = #33719#21462#30005#24179
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button2Click
    end
    object LabeledEdit1: TLabeledEdit
      Left = 352
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 7
      EditLabel.Height = 13
      EditLabel.Caption = '0'
      Enabled = False
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 1
    end
    object LabeledEdit2: TLabeledEdit
      Left = 304
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 7
      EditLabel.Height = 13
      EditLabel.Caption = '1'
      Enabled = False
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 2
    end
    object LabeledEdit3: TLabeledEdit
      Left = 256
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 7
      EditLabel.Height = 13
      EditLabel.Caption = '2'
      Enabled = False
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 3
    end
    object LabeledEdit4: TLabeledEdit
      Left = 208
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = '-3(15)'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 4
    end
    object LabeledEdit5: TLabeledEdit
      Left = 160
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 35
      EditLabel.Height = 13
      EditLabel.Caption = '4(13)'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 5
    end
    object LabeledEdit6: TLabeledEdit
      Left = 112
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 35
      EditLabel.Height = 13
      EditLabel.Caption = '5(12)'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 6
    end
    object LabeledEdit7: TLabeledEdit
      Left = 64
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 42
      EditLabel.Height = 13
      EditLabel.Caption = '-6(10)'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 7
    end
    object LabeledEdit8: TLabeledEdit
      Left = 16
      Top = 40
      Width = 25
      Height = 21
      EditLabel.Width = 35
      EditLabel.Height = 13
      EditLabel.Caption = '7(11)'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 8
    end
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object Help1: TMenuItem
      Caption = '&H'#24110#21161
      object About1: TMenuItem
        Caption = '&A'#20851#20110'...'
        OnClick = About1Click
      end
    end
  end
end