phonelinefm.dfm

一个电力企业的后台管理程序

object fm_PhoneLine: Tfm_PhoneLine
  Left = 31
  Top = 30
  BorderStyle = bsDialog
  Caption = '座席电话线路配置'
  ClientHeight = 320
  ClientWidth = 320
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object lv_phoneline: TListView
    Left = 0
    Top = 0
    Width = 320
    Height = 275
    Align = alClient
    Columns = <
      item
        Caption = '电话线路'
        Width = 150
      end
      item
        Caption = '主机名称'
        Width = 150
      end>
    ColumnClick = False
    FlatScrollBars = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = lv_phonelineDblClick
  end
  object pnl_button: TPanel
    Left = 0
    Top = 275
    Width = 320
    Height = 45
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 1
    object btn_Insert: TBitBtn
      Left = 32
      Top = 8
      Width = 75
      Height = 25
      Caption = '新增'
      TabOrder = 0
      OnClick = btn_InsertClick
    end
    object btn_Edit: TBitBtn
      Left = 120
      Top = 8
      Width = 75
      Height = 25
      Caption = '编辑'
      TabOrder = 1
      OnClick = btn_EditClick
    end
    object btn_Close: TBitBtn
      Left = 208
      Top = 8
      Width = 75
      Height = 25
      Caption = '关闭'
      TabOrder = 2
      OnClick = btn_CloseClick
    end
  end
  object qr_phoneline: TQuery
    CachedUpdates = True
    DatabaseName = 'DBECSC'
    RequestLive = True
    SQL.Strings = (
      'Select TeleNum,HostName,lineid,acdmember,password'
      ',devicetype,usage,lineinhost,ivrchstate,ivrchAddr'
      ',ivrchanswermode,priority from PhoneLine'
      'where acdmember is not null order by telenum')
    UpdateObject = us_phoneline
    Left = 176
    Top = 64
  end
  object us_phoneline: TUpdateSQL
    ModifySQL.Strings = (
      'update PhoneLine'
      'set'
      '  TeleNum = :TeleNum,'
      '  HostName = :HostName,'
      '  lineid = :lineid,'
      '  acdmember = :acdmember,'
      '  password = :password,'
      '  devicetype = :devicetype,'
      '  usage = :usage,'
      '  lineinhost = :lineinhost,'
      '  ivrchstate = :ivrchstate,'
      '  ivrchAddr = :ivrchAddr,'
      '  ivrchanswermode = :ivrchanswermode,'
      '  priority = :priority'
      'where'
      '  TeleNum = :OLD_TeleNum')
    InsertSQL.Strings = (
      'insert into PhoneLine'
      
        '  (TeleNum, HostName, lineid, acdmember, password, devicetype, u' +
        'sage, lineinhost, '
      '   ivrchstate, ivrchAddr, ivrchanswermode, priority)'
      'values'
      
        '  (:TeleNum, :HostName, :lineid, :acdmember, :password, :devicet' +
        'ype, :usage, '
      
        '   :lineinhost, :ivrchstate, :ivrchAddr, :ivrchanswermode, :prio' +
        'rity)')
    DeleteSQL.Strings = (
      'delete from PhoneLine'
      'where'
      '  TeleNum = :OLD_TeleNum')
    Left = 176
    Top = 128
  end
end