系列呼叫中心系统平台呼叫中心系统平台以及行业用户呼叫中心系统.doc

文档介绍：系列呼叫中心系统平台呼叫中心系统平台以及行业用户呼叫中心系统
Tfrm_web = class(TForm)
StatusBar1: TStatusBar;
Timer1: TTimer;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
WebBrowser2: TWebBrowser;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label2: TLabel;
Edit2: TEdit;
Button2: TButton;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
Label3: TLabel;
Edit3: TEdit;
ADOQuery4: TADOQuery;
ADOQuery5: TADOQuery;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Query1: TADOQuery;
Button9: TButton;
Timer2: TTimer;
OpenDialog1: TOpenDialog;
Label5: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Button8: TButton;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure WebBrowser2DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
EnableClose:string;
CloseTime:string;
s1,s2,s3,s4,s5:string;
s6,s7,s8,s9,s10:string;
s11,s12,s13,s14,s15:string;
s16,s17,s18,s19,s20:string;
s21,s22,s23,s24,s25:string;
{ Public declarations }
end;
var
frm_web: Tfrm_web;
implementation
{$R *.dfm}
procedure (Sender: TObject);
var
readagentno:Tinifile;
sqlstr:string;
connectstr:string; //数据库连接
begin
readagentno:=(extractfilepath(paramstr(0))+'');
s2:=('Paramters','Url1','');
s2:=trim(s2);
//呼叫中心数据库连接
connectstr:=('Connect Database','ccdbconnectstring','');
;
//呼叫中心数据库连接ADOConnec