main.dfm

由内线接电话终端

object frmExchange: TfrmExchange
  Left = 211
  Top = 80
  Width = 900
  Height = 662
  Caption = 'Exchange5.01'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object lblRouter: TLabel
    Left = 2
    Top = 40
    Width = 48
    Height = 13
    Caption = #36335#30001#34920#65306
  end
  object Label1: TLabel
    Left = 695
    Top = 0
    Width = 36
    Height = 13
    Caption = #20869#32447#65306
  end
  object Label2: TLabel
    Left = 0
    Top = 555
    Width = 36
    Height = 13
    Caption = #21495#30721#65306
  end
  object Label3: TLabel
    Left = 70
    Top = 555
    Width = 48
    Height = 13
    Caption = #32493#21495#38271#65306
  end
  object Label4: TLabel
    Left = 137
    Top = 555
    Width = 36
    Height = 13
    Caption = #32493#21495#65306
  end
  object Label5: TLabel
    Left = 232
    Top = 555
    Width = 36
    Height = 13
    Caption = #31867#22411#65306
  end
  object Label6: TLabel
    Left = 560
    Top = 0
    Width = 48
    Height = 13
    Caption = #25968#23383#32447#65306
  end
  object Label7: TLabel
    Left = 350
    Top = 555
    Width = 36
    Height = 13
    Caption = #32447#36335#65306
  end
  object Label8: TLabel
    Left = 0
    Top = 582
    Width = 36
    Height = 13
    Caption = #35828#26126#65306
  end
  object SGRouter: TStringGrid
    Left = 0
    Top = 55
    Width = 417
    Height = 322
    ColCount = 7
    FixedCols = 0
    ScrollBars = ssVertical
    TabOrder = 9
    OnDrawCell = SGRouterDrawCell
    OnSelectCell = SGRouterSelectCell
  end
  object btnSave: TBitBtn
    Left = 352
    Top = 577
    Width = 65
    Height = 25
    Caption = #20445#23384
    TabOrder = 8
    OnClick = btnSaveClick
  end
  object btnDelete: TBitBtn
    Left = 287
    Top = 577
    Width = 65
    Height = 25
    Caption = #21024#38500
    TabOrder = 7
    OnClick = btnDeleteClick
  end
  object btnAdd: TBitBtn
    Left = 157
    Top = 577
    Width = 65
    Height = 25
    Caption = #22686#21152
    TabOrder = 5
    OnClick = btnAddClick
  end
  object EdNumber: TMaskEdit
    Left = 34
    Top = 552
    Width = 33
    Height = 21
    TabOrder = 0
  end
  object EdSubLen: TEdit
    Left = 118
    Top = 552
    Width = 19
    Height = 21
    TabOrder = 1
  end
  object EdSubNumber: TEdit
    Left = 172
    Top = 552
    Width = 53
    Height = 21
    TabOrder = 2
  end
  object btnEdit: TButton
    Left = 222
    Top = 577
    Width = 65
    Height = 25
    Caption = #20462#25913
    TabOrder = 6
    OnClick = btnEditClick
  end
  object PCICARD1: TPCICARD
    Left = 448
    Top = 312
    Width = 33
    Height = 33
    TabOrder = 10
    Visible = False
    OnL1Call = PCICARD1L1Call
    OnL1Release = PCICARD1L1Release
    OnL1ACM = PCICARD1L1ACM
    OnL1Ack = PCICARD1L1Ack
    OnL1CalloutChannel = PCICARD1L1CalloutChannel
    ControlData = {00000100690300006903000000000000}
  end
  object EdLine: TEdit
    Left = 384
    Top = 552
    Width = 33
    Height = 21
    TabOrder = 3
  end
  object EdComment: TEdit
    Left = 34
    Top = 579
    Width = 110
    Height = 21
    TabOrder = 4
  end
  object Memo: TMemo
    Left = 0
    Top = 392
    Width = 417
    Height = 153
    ScrollBars = ssVertical
    TabOrder = 11
  end
  object EdLineType: TComboBox
    Left = 268
    Top = 552
    Width = 77
    Height = 21
    ItemHeight = 13
    TabOrder = 12
    Text = #20869#32447
    Items.Strings = (
      #20869#32447
      'ISDN'
      #19968#21495#20449#20196
      #19971#21495#20449#20196
      #19971#21495'ISUP')
  end
  object CBRing: TCheckBox
    Left = 8
    Top = 8
    Width = 97
    Height = 17
    Caption = 'RingbackTone'
    Checked = True
    State = cbChecked
    TabOrder = 13
  end
end