phonelineinfofm.pas

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

unit phonelineinfofm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls,db,dbtables;

type
  Tfm_phonelineinfo = class(TForm)
    Panel1: TPanel;
    btn_Insert: TBitBtn;
    btn_Confirm: TBitBtn;
    btn_Cancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edt_TeleNum: TEdit;
    edt_HostName: TEdit;
    edt_acdMember: TEdit;
    edt_password: TEdit;
    edt_AcdGroup: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure btn_ConfirmClick(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure btn_InsertClick(Sender: TObject);
  private
    { Private declarations }
    m_QrCurData:Tquery;
    m_BIsIns:Boolean;
  public
    { Public declarations }
    constructor CreateForm(Qr_Data:TQuery;IsIns:Boolean);overload;
  end;

var
  fm_phonelineinfo: Tfm_phonelineinfo;

implementation

{$R *.DFM}
constructor Tfm_phonelineinfo.CreateForm(Qr_Data:TQuery;IsIns:Boolean);
begin
  m_QrCurData := Qr_Data;
  m_BIsIns    := IsIns;
  inherited Create(Application);
end;
procedure Tfm_phonelineinfo.FormCreate(Sender: TObject);
begin
  if m_BIsIns then
  begin
    Caption:='新增座席线路';
    btn_Insert.Visible :=True;
    edt_TeleNum.Enabled:=True;
    edt_TeleNum.Text   :='';
    edt_HostName.Text  :='';
    edt_AcdMember.Text :='';
    edt_PassWord.Text  :='';
    edt_Acdgroup.Text  :='';
  end else
  begin
    Caption:='编辑座席线路';
    btn_Insert.Visible  :=False;
    edt_TeleNum.Enabled :=False;
    edt_TeleNum.Text   :=m_QrCurdata.FieldbyName('TeleNum').AsString;
    edt_HostName.Text  :=m_QrCurdata.FieldbyName('HostName').AsString;
    edt_AcdMember.Text :=m_QrCurdata.FieldbyName('AcdMember').AsString;
    edt_PassWord.Text  :=m_QrCurdata.FieldbyName('TeleNum').AsString;
    edt_Acdgroup.Text  :=m_QrCurdata.FieldbyName('AcdGroup').AsString;
  end;

end;

procedure Tfm_phonelineinfo.btn_ConfirmClick(Sender: TObject);
begin
  if m_bIsIns then
  begin
    btn_Insert.Click ;
  end else
  begin
    try
      m_QrCurData.Edit ;
      m_QrCurdata.FieldbyName('TeleNum').AsString  :=Trim(edt_TeleNum.Text);
      m_QrCurdata.FieldbyName('HostName').AsString :=Trim(edt_HostName.Text);
      m_QrCurdata.FieldbyName('AcdMember').AsString:=Trim(edt_AcdMember.Text);
      m_QrCurdata.FieldbyName('TeleNum').AsString  :=Trim(edt_PassWord.Text);
      m_QrCurdata.FieldbyName('AcdGroup').AsString :=Trim(edt_Acdgroup.Text);
      m_QrCurData.Post ;
      m_QrCurData.ApplyUpdates ;
    except
      m_QrCurData.CancelUpdates;
    end;
    m_QrcurData.CommitUpdates ;
  end;
end;

procedure Tfm_phonelineinfo.btn_CancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tfm_phonelineinfo.btn_InsertClick(Sender: TObject);
begin
  if Trim(edt_TeleNum.text)='' then
  begin
    showmessage('座席线路号不能为空！');
    Exit;
  end;
  if Trim(edt_HostName.text)='' then
  begin
    showmessage('座席主机名不能为空！');
    Exit;
  end;
  if Trim(edt_acdMember.text)='' then
  begin
    showmessage('ACD成员号不能为空！');
    Exit;
  end;
  if Trim(edt_password.text)='' then
  begin
    showmessage('ACD口令不能为空！');
    Exit;
  end;
  try
    m_QrCurData.Append ;
    m_QrCurdata.FieldbyName('TeleNum').AsString  :=Trim(edt_TeleNum.Text);
    m_QrCurdata.FieldbyName('HostName').AsString :=Trim(edt_HostName.Text);
    m_QrCurdata.FieldbyName('AcdMember').AsString:=Trim(edt_AcdMember.Text);
    m_QrCurdata.FieldbyName('TeleNum').AsString  :=Trim(edt_PassWord.Text);
    m_QrCurdata.FieldbyName('AcdGroup').AsString :=Trim(edt_Acdgroup.Text);

    m_QrCurdata.FieldbyName('lineid').AsString  :='0';
    m_QrCurdata.FieldbyName('devicetype').AsString :='1';
    m_QrCurdata.FieldbyName('usage').AsString:='1';
    m_QrCurdata.FieldbyName('lineinhost').AsString  :='0';
    m_QrCurdata.FieldbyName('ivrchstate').AsString :='0';
    m_QrCurdata.FieldbyName('ivrchaddr').AsString:='0';
    m_QrCurdata.FieldbyName('ivrchanswermode').AsString  :='0';
    m_QrCurdata.FieldbyName('priority').AsString  :='10000000000000000000000000000000';
    m_QrCurdata.FieldbyName('Status').AsString :='-1';
    m_QrCurData.Post ;
    m_QrCurData.ApplyUpdates ;
  except
    m_QrCurData.CancelUpdates;
  end;
  m_QrcurData.CommitUpdates ;

end;

end.