mainform.dfm

东进D160A板卡自动外呼程序代码

          6BB895FF508D63FF315B30FF424B36EBD0D3D15B000000000000000000000000
          7B8497C61A1E28FF102111FF102111FF102111FFCACDCB7C2C3D1BFF352707FF
          461F00FF553B21F10000000000000000000000000000000000000000DCDCE046
          1A1E28FFB7B9BE7ECFD2D556F9FAFA0D5F6242E6332E00FF634007FF8C3C01FF
          A02300FFC7886EC200000000000000000000000000000000F3F3F321777472B7
          0000000000000000D7D9CD6E4B5E0AFF849548FF978C42FFAE6F24FFC65208FF
          991600FFEBDFD95E000000000000000000000000000000000000000000000000
          00000000BAC3A7927DA23FFFBCE497FFB7CF8BFFA7944DFFA6621BFF7C1900FF
          BEA0949A00000000000000000000000000000000000000000000000000000000
          E5EADE5B72A946FFB9F9BBFFACE9BEFF89A471FF6D6128FF380800FFCDC1BC7C
          0000000000000000000000000000000000000000000000000000000000000000
          94B781D76DBA77FF7AC9A7FF5B926CFF243A0FFF322B14FDFFFFFF0600000000
          0000000000000000000000000000000000000000000000000000000000000000
          BFD2BD83609169E7386745F3839288AAFEFEFE05000000000000000000000000
          0000000080065AFF00024DFF000241FF000038FF000031FF00002AFF000221FF
          00021CFF000E15FF003E05FF001E08FF300E18FFF00E00FFF00E0EFFF80E0000
          FC1E0000}
      end
      object Label1: TLabel
        Left = 49
        Top = 18
        Width = 336
        Height = 19
        Caption = #19996#33694#24066#33258#26469#27700#20844#21496#27700#36153#33258#21160#20652#32564#31995#32479
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Bevel1: TBevel
        Left = 8
        Top = 51
        Width = 457
        Height = 9
        Shape = bsTopLine
      end
      object Label2: TLabel
        Left = 472
        Top = 10
        Width = 16
        Height = 32
        Caption = #38899#13#10#37327
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 112
        Width = 120
        Height = 12
        Caption = #24403#21069#20652#32564#20219#21153#22788#29702#36827#24230
      end
      object Label4: TLabel
        Left = 533
        Top = 10
        Width = 16
        Height = 32
        Caption = #38899#13#10#36895
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 64
        Width = 144
        Height = 12
        Caption = #27599#26085#20652#32564#23458#25143#27424#36153#30340#26102#38388#27573
      end
      object Label6: TLabel
        Left = 120
        Top = 86
        Width = 12
        Height = 12
        Caption = #33267
      end
      object Bevel3: TBevel
        Left = 8
        Top = 192
        Width = 457
        Height = 9
        Shape = bsTopLine
      end
      object Label7: TLabel
        Left = 264
        Top = 64
        Width = 72
        Height = 12
        Caption = #21628#20986#21069#32512#21495#30721
      end
      object trbVolume: TTrackBar
        Left = 488
        Top = 3
        Width = 41
        Height = 232
        Enabled = False
        Max = 100
        Orientation = trVertical
        Frequency = 5
        Position = 50
        TabOrder = 0
        TickMarks = tmBoth
      end
      object Progressbar: TcxProgressBar
        Left = 8
        Top = 128
        Properties.BarStyle = cxbsGradient
        Properties.PeakValue = 56.000000000000000000
        Properties.SolidTextColor = True
        TabOrder = 1
        Width = 457
      end
      object btnStartdun: TBitBtn
        Left = 264
        Top = 202
        Width = 97
        Height = 25
        Action = dmCaller.actStartDun
        Caption = #24320#22987#20652#32564'(&S)'
        TabOrder = 2
      end
      object BitBtn1: TBitBtn
        Left = 368
        Top = 202
        Width = 97
        Height = 25
        Action = dmCaller.actRefreshTellist
        Caption = #21047#26032#20219#21153#21015#34920'(&R)'
        TabOrder = 3
      end
      object trbSpeed: TTrackBar
        Left = 550
        Top = 3
        Width = 41
        Height = 232
        Enabled = False
        Max = 100
        Orientation = trVertical
        Frequency = 5
        Position = 50
        TabOrder = 4
        TickMarks = tmBoth
      end
      object dtpStart: TDateTimePicker
        Left = 8
        Top = 82
        Width = 97
        Height = 20
        Date = 38833.375000000000000000
        Time = 38833.375000000000000000
        Kind = dtkTime
        TabOrder = 5
      end
      object dtpEnd: TDateTimePicker
        Left = 136
        Top = 82
        Width = 97
        Height = 20
        Date = 38833.854166666660000000
        Time = 38833.854166666660000000
        Kind = dtkTime
        TabOrder = 6
      end
      object chkAutoCall: TCheckBox
        Left = 9
        Top = 208
        Width = 248
        Height = 17
        Caption = #26681#25454#35774#23450#30340#20652#32564#26102#27573#33258#21160#25191#34892#20652#32564#20219#21153'(&A)'
        TabOrder = 7
        OnClick = chkAutoCallClick
      end
      object edtPrefix: TEdit
        Left = 264
        Top = 82
        Width = 49
        Height = 20
        TabOrder = 8
        Text = '9'
      end
    end
    object tsChannel: TTabSheet
      Caption = #35821#38899#36890#36947
      ImageIndex = 1
      object stategrid: TStringGrid
        Left = 0
        Top = 0
        Width = 593
        Height = 238
        Align = alClient
        De