u_msginfo.dfm

语音坐席,支持录音及语音回访,和自动催款

object MsgInfo: TMsgInfo
  Left = 47
  Top = 285
  Width = 700
  Height = 252
  AlphaBlendValue = 225
  Caption = #31995#32479#20449#24687#22788#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDefaultPosOnly
  ScreenSnap = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 180
    Width = 692
    Height = 38
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 12
      Width = 28
      Height = 14
      Caption = #26085#26399
    end
    object Label2: TLabel
      Left = 128
      Top = 12
      Width = 28
      Height = 14
      Caption = #31867#22411
    end
    object Label3: TLabel
      Left = 248
      Top = 12
      Width = 28
      Height = 14
      Caption = #22788#29702
    end
    object ComboBox1: TComboBox
      Left = 40
      Top = 8
      Width = 81
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 0
      Text = #20170#22825
      OnChange = ComboBox1Change
      Items.Strings = (
        #20170#22825
        #26152#22825
        #21069#22825
        #26368#36817#19968#21608
        #26368#36817#19968#26376)
    end
    object ComboBox2: TComboBox
      Left = 160
      Top = 8
      Width = 81
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 1
      Text = #20840#37096
      OnChange = ComboBox1Change
      Items.Strings = (
        #20840#37096
        #23450#20301
        #38382#39064
        #23436#27605
        #26410#23436#25104
        #20854#20182)
    end
    object BitBtn1: TBitBtn
      Left = 368
      Top = 7
      Width = 77
      Height = 25
      Hint = #23450#20301#21040#35813#30701#20449#21457#20986#30340#20301#32622
      Caption = #23450#20301
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
        5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
        335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
        C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
        CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
        C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
        CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
        5555555775FFFF77555555555C4CCC5555555555577777555555}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 448
      Top = 7
      Width = 77
      Height = 25
      Hint = #21521#24403#21069#30701#20449#30340#21457#20986#20154#22238#22797#30701#20449
      Caption = #22238#30701#20449
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
        000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
        FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
        FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
        9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
        0000777777777777777733333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 528
      Top = 7
      Width = 77
      Height = 25
      Hint = #23558#24403#21069#30701#20449#26631#35760#20026#24050#32463#36807#22788#29702#30340#30701#20449
      Caption = #24050#22788#29702
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
    object ComboBox3: TComboBox
      Left = 280
      Top = 8
      Width = 81
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 5
      Text = #20840#37096
      OnChange = ComboBox1Change
      Items.Strings = (
        #20840#37096
        #26410#22788#29702
        #24050#22788#29702)
    end
    object BitBtn4: TBitBtn
      Left = 608
      Top = 7
      Width = 77
      Height = 25
      TabOrder = 6
      Kind = bkClose
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 692
    Height = 139
    Align = alClient
    AllowedOperations = []
    AutoFitColWidths = True
    DataSource = DataSource1
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
    DefaultColumnState = False
    lineColor = clGreen
    SelectedColor = clHighlight
    SelectedFontColor = clWhite
    activerowcolor = False
    rowsinglecolor = clMoneyGreen
    rowdoublecolor = clCream
    OnDblClick = BitBtn1Click
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Phone'
        Footers = <>
        Title.Caption = #30005#35805
        Width = 115
        drawcurrency = False
      end
      item
        EditButtons = <>
        FieldName = 'Text'
        Footers = <>
        Title.Caption = #30701#20449#20869#23481
        Width = 303
        drawcurrency = False
      end
      item
        EditButtons = <>
        FieldName = 'TS'
        Footers = <>
        Title.Caption = #26102#38388
        Width = 162
        drawcurrency = False
      end
      item
        EditButtons = <>
        FieldName = #28040#24687#31867#22411
        Footers = <>
        Width = 96
        drawcurrency = False
      end
      item
        EditButtons = <>
        FieldName = #24050#22788#29702
        Footers = <>
        drawcurrency = False
      end>
  end
  object DBMemo1: TDBMemo
    Left = 0
    Top = 139
    Width = 692
    Height = 41
    Align = alBottom
    DataField = 'Text'
    DataSource = DataSource1
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Query1: TQuery
    CachedUpdates = True
    DatabaseName = 'SQL_CITY'
    SQL.Strings = (
      'Select * From '#25910#20449#24687' Where 1>0')
    UpdateObject = UpdateSQL1
    Left = 32
    Top = 28
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 64
    Top = 28
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update '#25910#20449#24687
      'set'
      '  '#24050#22788#29702' = :'#24050#22788#29702
      'where'
      '  SN = :OLD_SN')
    InsertSQL.Strings = (
      'insert into '#25910#20449#24687
      '  ('#24050#22788#29702')'
      'values'
      '  (:'#24050#22788#29702')')
    DeleteSQL.Strings = (
      'delete from '#25910#20449#24687
      'where'
      '  SN = :OLD_SN')
    Left = 96
    Top = 28
  end
end