main.~dfm

三汇录音卡的录音源码增加了将来电号码写数据库

object MainForm: TMainForm
  Left = 167
  Top = 83
  Width = 636
  Height = 263
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 16
    Top = 184
    Width = 42
    Height = 14
    Caption = #36890'  '#36947
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object ChannelListView: TListView
    Left = 8
    Top = 4
    Width = 609
    Height = 169
    Columns = <
      item
        Caption = #36890#36947
        MaxWidth = 50
        Width = 40
      end
      item
        Caption = #36890#36947#29366#24577
        MaxWidth = 500
        MinWidth = 50
        Width = 60
      end
      item
        Caption = #24037#20316#26041#24335
        MaxWidth = 100
        MinWidth = 50
        Width = 60
      end
      item
        Caption = #21551#21160#38190
        MaxWidth = 50
        MinWidth = 50
      end
      item
        Caption = #26159#21542#30417#21548
        MaxWidth = 100
        MinWidth = 50
        Width = 60
      end
      item
        Caption = 'RxDTMF'
        MaxWidth = 200
      end
      item
        Caption = 'CallerId'
        MaxWidth = 100
      end
      item
        Caption = #20986#38169#20449#24687
        MaxWidth = 350
        Width = 250
      end>
    ColumnClick = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GridLines = True
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    ViewStyle = vsReport
  end
  object ComCur_Line: TComboBox
    Left = 64
    Top = 182
    Width = 41
    Height = 21
    ImeName = #19975#33021#20116#31508'EXE'#22806#25346#29256
    ItemHeight = 13
    TabOrder = 1
    Visible = False
    OnChange = ComCur_LineChange
  end
  object SetListen: TBitBtn
    Left = 264
    Top = 182
    Width = 65
    Height = 25
    Caption = #35774#32622#30417#21548
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Visible = False
    OnClick = SetListenClick
  end
  object UnSetListen: TBitBtn
    Left = 336
    Top = 182
    Width = 65
    Height = 25
    Caption = #21462#28040#30417#21548
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Visible = False
    OnClick = UnSetListenClick
  end
  object Play: TBitBtn
    Left = 408
    Top = 182
    Width = 65
    Height = 25
    Caption = #25773#25918#24405#38899
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Visible = False
    OnClick = PlayClick
  end
  object StopPlay: TBitBtn
    Left = 480
    Top = 182
    Width = 65
    Height = 25
    Caption = #20572#27490#25918#38899
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    Visible = False
    OnClick = StopPlayClick
  end
  object CommandExit: TBitBtn
    Left = 552
    Top = 182
    Width = 65
    Height = 25
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = CommandExitClick
  end
  object RadioButton1: TRadioButton
    Left = 112
    Top = 180
    Width = 49
    Height = 25
    Caption = #22768#25511
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    Visible = False
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 160
    Top = 180
    Width = 49
    Height = 25
    Caption = #21387#25511
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    TabStop = True
    Visible = False
    OnClick = RadioButton2Click
  end
  object RadioButton3: TRadioButton
    Left = 208
    Top = 180
    Width = 49
    Height = 25
    Caption = #30721#25511
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    Visible = False
    OnClick = RadioButton3Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 217
    Width = 628
    Height = 19
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 224
  end
  object Database1: TDatabase
    AliasName = 'MyAccess'
    DatabaseName = 'Access1'
    LoginPrompt = False
    Params.Strings = (
      'User Name=Admin'
      'Password=1230123')
    SessionName = 'Default'
    Left = 138
    Top = 42
  end
  object Query1: TQuery
    DatabaseName = 'Access1'
    SQL.Strings = (
      'select '#35760#24405#26102#38388','#26469#30005#21495#30721','#21628#21483#20998#26426'  From ShowForm Where '#35760#24405#26102#38388'='
      '(Select Max('#35760#24405#26102#38388') From ShowForm) ')
    Left = 168
    Top = 42
  end
  object Timer2: TTimer
    Interval = 5000
    OnTimer = Timer2Timer
    Left = 272
  end
  object IdUDPClient1: TIdUDPClient
    Host = '10.28.1.1'
    Port = 8090
    Left = 104
    Top = 56
  end
  object MSConnection1: TMSConnection
    Database = 'CMDB'
    Options.PersistSecurityInfo = True
    Options.Provider = prSQL
    Username = 'sa'
    Password = 'hicc'
    Server = '10.28.1.3\sqlexpress'
    LoginPrompt = False
    Left = 96
    Top = 96
  end
  object StoredProc1: TMSStoredProc
    StoredProcName = 'Insert_cg_tele;1'
    Connection = MSConnection1
    SQL.Strings = (
      
        '{:RETURN_VALUE = CALL Insert_cg_tele;1(:Cg_sno, :Cg_teleid, :Cg_' +
        'datetime, :Cg_teleno, :Cg_channelno, :Cg_fjno, :Cg, :Place, :Des' +
        'cribe, :Accept, :FileName)}')
    Left = 144
    Top = 96
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'Cg_sno'
        ParamType = ptInput
        Size = 40
      end
      item
        DataType = ftString
        Name = 'Cg_teleid'
        ParamType = ptInput
        Size = 40
      end
      item
        DataType = ftDateTime
        Name = 'Cg_datetime'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'Cg_teleno'
        ParamType = ptInput
        Size = 15
      end
      item
        DataType = ftString
        Name = 'Cg_channelno'
        ParamType = ptInput
        Size = 5
      end
      item
        DataType = ftString
        Name = 'Cg_fjno'
        ParamType = ptInput
        Size = 8
      end
      item
        DataType = ftInteger
        Name = 'Cg'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'Place'
        ParamType = ptInput
        Size = 10
      end
      item
        DataType = ftWideString
        Name = 'Describe'
        ParamType = ptInput
        Size = 4000
      end
      item
        DataType = ftString
        Name = 'Accept'
        ParamType = ptInput
        Size = 8
      end
      item
        DataType = ftString
        Name = 'FileName'
        ParamType = ptInput
        Size = 20
      end>
  end
  object IdUDPServer1: TIdUDPServer
    Active = True
    BroadcastEnabled = True
    Bindings = <>
    DefaultPort = 8091
    OnUDPRead = IdUDPServer1UDPRead
    Left = 72
    Top = 56
  end
end