Оглавление (стр. 7 )

  procedure Button2Click(Sender: TObject);

  procedure FormClose(Sender: TObject; var Action: TCloseAction);

  procedure Button4Click(Sender: TObject);

  procedure Button7Click(Sender: TObject);

  procedure Button6Click(Sender: TObject);

  procedure Button8Click(Sender: TObject);

  procedure Edit7KeyPress(Sender: TObject; var Key: Char);

  procedure Button3Click(Sender: TObject);

4.9 Сохранение данных в Excel

Для удобного просмотра и хранения данных используется Excel. Пользователь может сохранить и распечатать отчеты о проделанной  работе. Все отчеты сохраняются в системную папку «work» (см. рис. 14).

Рис. 14. Отчет

procedure TForm1.Button7Click(Sender: TObject);

var

n: integer;

begin

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'num. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[1,n+1]:=RichEdit1.Lines. Strings[n];

  StringGrid1.RowCount:=StringGrid1.RowCount+1;

  end;

  StringGrid1.RowCount:=StringGrid1.RowCount-1;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'org. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[2,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'adr. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[3,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'tel. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[4,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'kontl. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[5,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'email. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[6,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'reg. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[7,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'vidd. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[8,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'osnprod. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[9,n+1]:=RichEdit1.Lines. Strings[n];

  end;

RichEdit1.Lines. LoadFromFile(GetProgramPath+'data\'+'meneg. txt');

  for n:=0 to RichEdit1.Lines. Count-1 do

  begin

  StringGrid1.Cells[10,n+1]:=RichEdit1.Lines. Strings[n];

  end;

end;

function IsOLEObjectInstalled(Name: String): boolean;

var

ClassID: TCLSID;

Rez: HRESULT;

begin

// ищем CLSID OLE-объекта

Rez:=CLSIDFromProgID(PWideChar(WideString(Name)), ClassID);

if Rez=S_OK

then Result:=true // объект найден

else Result:=false;

end;

4.10 Резервное копирование данных

В системе предусмотрено резервное копирование клиентских данных. Это позволит обеспечить сохранность данных и предотвратить их потерю. Все копии сохраняются в отдельный файл “absdaz. dat” (см. рис. 15).

Рис.15. Резервное копирование

procedure TForm1.Button6Click(Sender: TObject);

var

EditFile:string;

begin

Button2.Click;

if SaveDialog1.Execute then

  begin

  EditFile:=SaveDialog1.FileName;

  RichEdit2.Lines. SaveToFile(EditFile);

  end;

end;

procedure Save(Grid: TStringGrid; column: integer);

var

i: integer;

temp: integer;

max: integer;

begin

max:=0;

for i:=0 to Grid. RowCount-1 do

  begin

  temp:=Grid. Canvas. TextWidth(Grid. Cells[column, i]);

  if temp>max

  then max:=temp;

  end;

Grid. ColWidths[column]:=Max+Grid. GridLineWidth+6;

end;

4.11 Телефонный сервис

Для удобства пользования телефонного модуля применяется сервис VoxImplant. Данный сервис обладает всем необходимым набором для быстрой и удобной работы с использованием VoIP технологии. Далее будет описан пошаговый  алгоритм создания модуля телефонного сервиса. После регистрации на VoxImplant создаем сценарий работы модуля для обработки звонков (см. рис. 16).

Рис. 16. Создание сценария работы приложения

Сценарии — это то, что происходит при различных событиях в системе, как обрабатываются звонки.

Создаем пользователя для работы в системе. Так  же функционал сервиса VoxImplant позволяет создавать нескольких пользователей в системе с различными приоритетами в работе с данными клиента. Это дает возможность разграничить доступ к данным между сотрудниками и отслеживать работу, проделанную каждым из операторов call-центра (см. рис. 17).

Рис. 17. Создание нового пользователя

Создание модуля Приложения позволит загружать код процедуры звонка клиента. Модуль так же дает возможность добавлять существующие учетные записи сотрудников для работы с системой (см. рис. 18).

Рис. 18. Создание модуля Приложения

Система полностью настроена для работы. Ниже приведен листинг кода для процедуры звонка клиенту. Все звонки совершаются в созданной HTML странице загруженной на сервер VoxImplant.

<html>        

<head>

<script type="text/javascript" src="http://cdn. /voximplant. min. js"></script>

<script type="text/javascript">

var initialized = false, // SDK загружено

  loggedIn = false, // пользователь авторизован

  connected = false, // получено соединение с VoxImplant сервером

  voxImplant = VoxImplant. getInstance();

// добавляем прослушивателей основных событий

// событие загрузки SDK

voxImplant. addEventListener(VoxImplant. Events. SDKReady, handleSDKReady);

// событие установки соединения с сервером VoxImplant

voxImplant. addEventListener(VoxImplant. Events. ConnectionEstablished, handleConnectionEstablished);

// событие авторизации пользователя на сервере VoxImplant

voxImplant. addEventListener(VoxImplant. Events. AuthResult, handleAuthResult);

// SDK загружен, соединяемся с VoxImplant сервером

function handleSDKReady() {

  initialized = true;

  voxImplant. connect();

}

// соединились с VoxImplant сервером успешно, авторизуем юзера

function handleConnectionEstablished() {

  connected = true;

  login();

}

// проверяем статус авторизации

function handleAuthResult(e) {

  if (e. result) {

  // Авторизовались успешно

  loggedIn = true;

  makeCall();

  }

}

// проводим авторизацию

function login(){

  // данные созданного пользователя и приложения

  voxImplant. login("*****@***needteam. ", "e352TM77");

}

function makeCall(){

  var call = voxImplant. call("79636722229"); // ваш номер для дозвона

}

function testCall() {

  // если SDK не инициализирован - проводим процесс

  if (!initialized) voxImplant. init();

  else {

  // если не установлено соединение с сервером VoxImplant - //устанавливаем

  if (!voxImplant. connected()) voxImplant. connect();

  else {

  // если пользователь не авторизован - авторизуем, если авторизован - //звоним

  if (!loggedIn) login();

  else makeCall();

  }

  }

}

</script>

</head>

<body>

  <a href="javascript:testCall()">Позвони мне, позвони!</a><br/>

</body>

</html>

После загрузки функции на сервер VoxImplant проводиться тест на работоспособность кода (см. рис. 19).

Рис. 19. Тестовые звонки

4.12 Варианты использования системы

Для определения вариантов использования системы будут использоваться диаграммы вариантов использования (от англ. Use case diagrams, далее UML).  UML диаграмма наглядно покажет бизнес-процесс сотрудника call-центра (см. рис. 20).

Рис. 20. Бизнес-процесс сотрудника call-центра

ЭКОЛОГИЯ И ОХРАНА ТРУДА

5.1 Анализ пожарных сигнализаций на рабочем месте

Сегодня любое предприятие не может существовать без основных элементов безопасности – пожарной сигнализации. Наличие системы автоматической пожарной сигнализации (АПС) – это обязательное требование для обеспечения безопасности здоровья и жизни сотрудников предприятия. 

Существует два основных типа АПС:

аналоговая; адресная.

Основные функции станционной части системы:

отражение событий, происходящих на территории; контроль и автоматическая проверка всех элементов системы; формирование и хранение данных о системе; формирование сигналов управления и коммутации.

Так же стоит уделить внимание организации всего электропитания системы АПС. В нормах пожарной безопасности система электропитания должна быть первой категории надежности, что предусматривает наличие двух независимых источников электропитания.