phonelinefm.pas

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

unit phonelinefm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls, Buttons, Db, DBTables;

type
  Tfm_PhoneLine = class(TForm)
    lv_phoneline: TListView;
    pnl_button: TPanel;
    btn_Insert: TBitBtn;
    btn_Edit: TBitBtn;
    btn_Close: TBitBtn;
    qr_phoneline: TQuery;
    us_phoneline: TUpdateSQL;
    procedure FormCreate(Sender: TObject);
    procedure btn_CloseClick(Sender: TObject);
    procedure btn_InsertClick(Sender: TObject);
    procedure btn_EditClick(Sender: TObject);
    procedure lv_phonelineDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenDataSet;
  end;
var
  fm_PhoneLine: Tfm_PhoneLine;
Resourcestring
  PHONELINE_SQL_SEL='Select TeleNum,HostName,lineid,acdmember,password,acdGroup'
                   +',devicetype,usage,lineinhost,ivrchstate,ivrchAddr'
                   +',ivrchanswermode,priority,status from PhoneLine'
                   +' where acdmember is not null order by telenum';
  PHONELINE_SQL_INS='insert into PhoneLine'
                   +'(TeleNum, HostName, lineid, acdmember, password,acdGroup'
                   +',devicetype, usage, lineinhost,ivrchstate'
                   +',ivrchAddr, ivrchanswermode, priority,status) values'
                   +'(:TeleNum, :HostName, :lineid, :acdmember,'
                   +':password, :acdGroup, :devicetype, :usage,:lineinhost,'
                   +':ivrchstate, :ivrchAddr, :ivrchanswermode,:priority,:status)';
  PHONELINE_SQL_MOD='update PhoneLine set TeleNum = :TeleNum,HostName = :HostName,'
                   +'lineid = :lineid,acdmember = :acdmember,password = :password,acdgroup = :acdgroup,'
                   +'devicetype = :devicetype,usage = :usage,lineinhost = :lineinhost,'
                   +'ivrchstate = :ivrchstate,ivrchAddr = :ivrchAddr,'
                   +'ivrchanswermode = :ivrchanswermode,priority = :priority,status = :status'
                   +' where TeleNum = :OLD_TeleNum';
  PHONELINE_SQL_DEL='delete from PhoneLine where TeleNum = :OLD_TeleNum';
implementation
uses phonelineinfofm;
{$R *.DFM}
procedure Tfm_PhoneLine.OpenDataSet;
begin
  qr_Phoneline.Close;
  qr_PhoneLine.Sql.Text :=PHONELINE_SQL_SEL;
  qr_PhoneLine.Prepare ;
  qr_PhoneLine.Open;
  us_PhoneLine.InsertSQL.Text:=PHONELINE_SQL_INS;
  us_PhoneLine.ModifySQL.Text:=PHONELINE_SQL_MOD;
  us_PhoneLine.DeleteSQL.Text:=PHONELINE_SQL_DEL;

  lv_PhoneLine.Items.Clear ;
  while not qr_PhoneLine.Eof do
  begin
    with lv_PhoneLine.Items.Add do
    begin
      Caption:=qr_phoneline.fieldbyname('TeleNum').Asstring;
      SubItems.Add(qr_phoneline.fieldbyname('HostName').Asstring);
    end;
    qr_PhoneLine.Next ;
  end;
end;
procedure Tfm_PhoneLine.FormCreate(Sender: TObject);
begin
  OpenDataSet;
end;

procedure Tfm_PhoneLine.btn_CloseClick(Sender: TObject);
begin
  Close;
end;

procedure Tfm_PhoneLine.btn_InsertClick(Sender: TObject);
begin
  fm_phonelineinfo:=Tfm_phonelineinfo.CreateForm(Qr_PhoneLine,True);
  try
    if fm_PhoneLineInfo.ShowModal = mrok then OpenDataSet;
  finally
    fm_PhonelineInfo.Free;
  end;


end;

procedure Tfm_PhoneLine.btn_EditClick(Sender: TObject);
var
  LI_Temp:TListItem;
begin
  if Assigned(Lv_PhoneLine.Selected) then
  begin
    Li_Temp:=Lv_PhoneLine.Selected;
    qr_PhoneLine.Locate('TeleNum',li_Temp.Caption,[]);
    fm_phonelineinfo:=Tfm_phonelineinfo.CreateForm(Qr_PhoneLine,False);
    try
      if fm_PhoneLineInfo.ShowModal = mrok then OpenDataSet;
    finally
      fm_PhonelineInfo.Free;
    end;
  end else ShowMessage('请先选中要编辑的内容');

end;

procedure Tfm_PhoneLine.lv_phonelineDblClick(Sender: TObject);
begin
  btn_Edit.Click;
end;

end.