Meeting

Код встречи

Id_meeting

Счетчик

Код менеджера

Id_manager

Числовой (длинное целое)

Код клиента

Id_customer

Числовой (длинное целое)

Коммента-рии

Comments

Текстовый (150)

Код результата

Id_result

Числовой (длинное целое)

Место встречи

Place

Текстовый (50)

Дата встречи

Date

Дата/Время

Время встречи

Time

Дата/Время

Результа-ты

Results

Код результата

Id_result

Счетчик

Результат

Result

Текстовый (100)

Отображать для звонков

Show_call

Логический

Отображать для встреч

Show_meet

Логический

2.1.5 Характеристика результатной информации

2.5.1.1. Характеристика результатных документов.

Результатной информацией в разработанной ИС являются:

· Отчет по клиентам

· Сводный отчет за указанный период времени

· Экранная форма «текущие звонки» и «текущие встречи» за выбранную дату

Отчет по клиентам включает следующую инфомацию: ФИО менеджера, наименование клиента, список встреч и звонков с указанием дат и комментариев, пометка заключен ли договор. Информация сгруппирована по клиентам.

Образцы отчета по клиентам и сводного отчета за указанный период времени приведены в приложениях 4 и 5.

Экранная форма «текущие звонки» и «текущие встречи» содержит приведена на рисунке 2.7.

Рисунок 2.7. Экранная форма «Текущие звонки и встречи»

2.5.1.2. Характеристика таблиц с результатной информацией

Для отчетов по клиентам и сводному отчету разработан следующий запрос:

SELECT s.*

FROM

(SELECT 1 as id, Customer.*,Call.*, Manager.FIO_manager

FROM (Customer INNER JOIN Call ON Customer.Id_customer = Call.Id_customer) INNER JOIN Manager ON Customer.Id_manager = Manager.Id_manager

UNION ALL SELECT 2, Customer.*, Meeting.*, Manager.FIO_manager

FROM (Customer INNER JOIN Meeting ON Customer.Id_customer = Meeting.Id_customer) INNER JOIN Manager ON Customer.Id_manager = Manager.Id_manager

) s

ORDER BY s.Name_organiz;

При печати к нему дополнительно применяется фильтр для выборки клиентов конкретного менеджера:

DataModule2.Query_Rep1.Filter:='Customer.Id_manager=' +[Meneger_id];

В отчете по клиентам данные сгруппированы в по клиенту, в сводном отчете - по менеджеру. Разная группировка и отображение разных данных на основе одного запроса выполнено встроенными средствами QR.

Для экранной формы «текущие звонки» и «текущие встречи» разработаны следующие запросы:

· текущие звонки:

SELECT Call.Date, Customer.Name_organiz, Call.Comments, IIf(Call!First=True,'Да','---') AS [First], Customer.Id_manager

FROM Call INNER JOIN Customer ON Call.Id_customer = Customer.Id_customer

· текущие встречи:

SELECT Meeting.Date, Meeting.Comments, Meeting.Place, Customer.Name_organiz, Customer.Id_manager

FROM Meeting INNER JOIN Customer ON Meeting.Id_customer = Customer.Id_customer

К запросам дополнительно применяется фильтры для выборки информации для конкретного менеджера и выбранной дате:

DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +[Meneger_id];

DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +[Meneger_id];

2.2. Программное обеспечение задачи (комплекса задач, АРМ)

2.2.1. Общие положения

Разработанный программный комплекс содержит 9 форм и модуль данных. Дерево классов представлено на рисунке 2.8.

Рисунок 2.8. Дерево классов программного комплекса

Дерево объектов каждой формы и модуля данных представлены на рисунках 2.9. - 2.18

Рисунок 2.9. Дерево объектов формы «Form1»

Рисунок 2.10. Дерево объектов формы «Form3»

Рисунок 2.11. Дерево объектов формы «Form4»

Рисунок 2.12. Дерево объектов формы «Form5»

Рисунок 2.13. Дерево объектов формы «Form6»

Рисунок 2.14. Дерево объектов формы «Form7»

Рисунок 2.15. Дерево объектов формы «Form8»

Рисунок 2.16. Дерево объектов формы «DataModule2»

Рисунок 2.17. Дерево объектов формы «Form9»



Рисунок 2.18. Дерево объектов формы «Form10»

Рисунок 2.19. Модуль данных

Модуль Данных (DataModule) предназначен для централизованного хранения и использования компонент доступа к базам данных. Модуль данных разработанной ИС представлен на рисунке 2.19.

2.2.2. Структурная схема пакета

Приложение содержит несколько взаимосвязанных модулей, которые схематично представлены на рис. 2.20.

Рисунок 2.20. Дерево модулей программного комплекса

2.2.3. Описание программных модулей

Разрабатываемый проект включает в себя следующие файлы:

1. Файл проекта (Project1.dpr) Этот текстовый файл используется для хранения информации о формах и модулях. В нем содержатся операторы инициализации и запуска программы на выполнение.

2. Файлы форм (Unit1.dfm - Unit10.dfm) Это двоичный или текстовый файл, который создается Delphi для хранения информации о формах

2. Файлы модулей (Unit1.pas - Unit10.pas) Каждой форме проекте, соответствует текстовый файл модуля, используемый для хранения кода. Т.к. форм в проекте 12, модулей соответственно тоже 12.

4. Файл параметров проекта (Project1.dfo) В этом файле хранятся установки параметров проекта.

5. Файл ресурсов (Project1.res) Этот бинарный файл содержит используемую проектом пиктограмму и прочие ресурсы.

6. Объектные файлы модулей (Unit1.dcu - Unit10.dcu) Это откомпилированный файл модулей (Unit1.pas - Unit10.pas), которые компонуется в окончательный исполняемый файл.

7. Исполняемый файл (Project1.ехе) Это исполняемый файл приложения. Он является автономным исполняемым файлом, для которого больше ничего не требуется.

8. Файл базы данных Komputel.mdb.

Листинг программного кода приведен в приложении 6.

2.3. Технологическое обеспечение задачи (комплекса задач, АРМ)

При запуске программы необходимо выбрать имя пользователя и ввести пароль (см. рисунок 2.17). Если пароль введен верно, загрузится главная форма программы (см. рисунок 2.18), в противном случае появится сообщение «Неправильный пароль».

Главная форма программы состоит из меню, календаря и списков звонков и встреч. Меню содержит следующие пункты:

· Клиенты

· Звонки

· Встречи

· Менеджеры /только для администратора/

· Отчеты

o По клиентам

o Сводный

· Выход

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

При выборе пункта меню «Клиенты» появляется форма «Клиенты» (, на которой можно добавить нового клиента, а также изменить информацию об уже существующем.

При выборе пункта меню «Звонки» появляется форма «Звонки» (на которой можно добавить новый звонок, изменить информацию об уже существующем, а также удалить звонок.

При выборе пункта меню «Встречи» появляется форма «Встречи» на которой можно добавить новую встречу, изменить информацию об уже существующей, а также удалить встречу.

Для формирования отчетов необходимо выбрать пункт меню «Отчеты». При выборе подпункта «По клиентам» формируется отчет по всем клиентам менеджера. Если данный отчет формирует администратор, в отчет попадают все клиенты всех менеджеров.

При выборе подпункта «Сводный» необходимо также ввести период за который требуется получить отчет. В отчет попадаю все встречи и звонки, совершенные менеджером за указанный период. Если данный отчет формирует администратор, в отчет попадают попадаю все встречи и звонки всех менеджеров за указанный период.

Для администратора существует, кроме нижеперечисленных, пункт меню «Менеджеры». При его выборе появляется форма, на которой можно добавить нового менеджера или изменить информацию об уже существющем

3. Обоснование экономической эффективности проекта

3.1 Расчет экономии труда за счет применения ЭВМ

Экономическая эффективность (экономия труда за счет применения ЭВМ) рассчитывается по формуле 3.1:

Эг=Тр*N-(То+N*Тэвм) (3.1) где

Эг - экономия труда за счет применения ЭВМ

Тр - затраты времени на решение задач вручную

N - предполагаемое количество дней работы с программой.

То=S*k где S и K - единовременные затараты

S -средняя занятость в течение дня

k - количество дней для составления и отладки программы

Тэвм=Тв+Тм+Тп - время решения задачи на ЭВМ где Тв, Тм, Тп - текущие затраты

Тв - время ввода исходной информации

Тм - машинное время

Тп - время вывода информации на печать (в часах)

До внедрения программного модуля формирование отчетов у каждого менеджера уходило следующие количество времени: 2 часа в неделю или 8 часов в месяц. Менеджеров отделе 10.

Тр = 80

Автоматизация тестирования позволила сэкономить время на формирование отчетов, на формирование и печать отчетов теперь достаточно 15 минут в неделю или 1 час в месяц на каждого менеджера.

Тэвм=10

Эг=Тр*N-(То+N*Тэвм)=80 - 10= 70 часов в месяц

3.2. Рост производительности труда от применения ЭВМ

Рост производительности труда от применения ЭВМ рассчитывается по формуле (3.2):

П=Эг/(Тр*N)*100 (3.2)

П=70/80*100=87,5%, где П - изменения производительности труда оператора.

Проанализировав полученные данные, можно с уверенностью сказать, что внедрение разрабатываемого модуля оправдано.

3.3 Расчет затрат на создание программного обеспечения и оценка экономической эффективности

3.3.1 Расчет затрат на разработку системы

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

Смета затрат включает следующие статьи:

- основная заработная плата разработчиков информационной системы;

- дополнительная заработная плата разработчиков информационной системы;

- отчисления на социальные страхования;

- расчет затрат на амортизацию ЭВМ;

- расходы на электроэнергию, используемую при разработку информационной системы;

- накладные расходы. Рассмотрим более подробно каждую из указанных статей затрат.

3.3.2. Расчет затрат на основную заработную плату разработчикам

Оплата труда представляет совокупность средств, выплаченных работникам в денежной и натуральной форме как за отработанное время, выполненную работу, так и в установленном законодательством порядке за неотработанное время.

Начисление основной заработной платы производится в зависимости от принятых на предприятии форм оплаты труда. При повременной оплате труда основная заработная плата начисляется работникам за фактически отработанное время, а при сдельной за фактически выполненную работу.

Повременная форма оплаты труда находит применение при расчете заработной платы рабочих, служащих, специалистов и руководителей. При этой форме оплаты труда заработная плата рассчитывается исходя из месячного должностного оклада за проработанное время. Необходимо учесть начисление доплат за сверхурочные работы. Доплата начисляется сверх повременного заработка из расчета 20% тарифной ставки рабочего - повременщика.

Затраты на основную заработную плату (Зосн.) при повременной форме оплаты труда рассчитываются по формуле (3.3):

Зосн.=Омес.*Траб.*Кд/Др.мес., (3.3) где:

Омес. - месячный оклад разработчика программы;

Др.мес. - среднее количество рабочих дней в месяце;

Траб. - фактическое время участия в разработке программы;

Кд - коэффициент, учитывающий доплаты к основной зарплате. При этом отношение Омес./Др.мес. характеризует среднюю дневную зарплату разработчика.

В данном дипломном проекте:

Омес. руководителя разработки программы = 60000 руб.

Омес. Программиста = 45000 руб.

Др.мес. = 21 день;

Кд=1.

Результаты расчета затрат на основную заработную плату разработчиков программы представлены в таблице 3.1.

Таблица 3.1.

Затраты на основную заработную плату

Исполнители	Время работы, кол. дней	Оклад	Средняя дневная зарплата Омес./Др.мес, руб.	Затраты на зарплату, руб.
Руководитель	4	60000р.	2857р.	11428р.
Программист	42	45000р.	2142р.	89964р.
Итого				101868р.

3.3.3. Расчет дополнительной заработной платы разработчиков программы

В статье "Дополнительная заработная плата" планируются и учитываются выплаты, предусмотренные законодательством о труде или коллективными договорами за непроработанное на производстве (неявочное) время: оплата очередных и дополнительных отпусков, компенсация за неиспользованный отпуск, оплата льготных часов подросткам, оплата времени, связанного с выполнением государственных и общественных обязанностей и др. Она определяется в процентном отношении основной заработной платы

Здол. = Кдоп. * Зосн. ( 3.4 ) где:

Кдоп. - коэффициент, учитывающий величину дополнительной зарплаты разработчиков программы. Примем Кдоп. равным 0,2. На основе формулы (3.4) определяем:

Здоп. = 0,2 * 101868р.= 20373,6 руб.

3.3.4. Расчет отчислений на социальное страхование и обеспечение

В соответствии с законами Российской Федерации о пенсионном обеспечении, о занятости населения, о медицинском страховании, о государственном социальном страховании работники предприятий подлежат обязательному социальному страхованию и обеспечению.

Отчисления на социальное страхование включает в себя (в % к сумме основн., и дополн. заработной платы) приведена в таблице 3.2

Таблица 3.2

Отчисления на социальное страхование

Наименование отчислений	Процент
социальное страхование	3,2
медицинское страхование	2,8
пенсионный фонд	20,00
ИТОГО:	26

В таблице 3.3 приведены данные применительно к рассчитанной сумме основной и дополнительной заработной плате.

Таблица 3.3

Отчисления на социальные страхования

Вид отчисления	Процент	Сумма отчислений
Социальное страхование	3,2	3 260р.
Медицинское страхование	2,8	2 852р.
Пенсионный фонд	20	20 374р.
ИТОГО:	26	26 486р.

3.3.5. Расчет затрат на амортизацию ЭВМ, используемых при разработке системы.

Амортизация - это процесс постепенного изнашивания основных средств и перенесения по установленным нормам их стоимости на произведенную продукцию (работы, услуги).

Начисление по установленным нормам амортизации основных средств называется амортизационными отчислениями. Нормы амортизационных отчислений установлены в процентах к балансовой (первоначальной) стоимости основных средств.

Нормы амортизации могут корректироваться в зависимости от отклонений от нормативных условий использования основных средств. Порядок их начисления определен Едиными нормами амортизационных отчислений на полное восстановление основных фондов народного хозяйства Российской Федерации, утвержденными постановлением Совета Министров СССР от 22 октября 1990 года N 1072.

Единые нормы амортизационных отчислений дифференцированы в зависимости от нормативного срока службы основных средств.

Срок службы (Тсл.) - величина, обратная норме амортизационных отчислений, представляет собой отношение ста процентов к норме амортизации:

Тсл.=100/На (3.6) где:

На - норма амортизации в %.

Износ отражает моральное и физическое состояние объектов и является одним из критериев замены их на более совершенные, производительные, комфортабельные виды машин, оборудования и др. средств.

Расчет затрат на амортизацию оборудования производится следующим образом:

Зам.=Сперв.*(На/100) * т * (фаб/Фд.о.) (3.7) где:

Сперв.- первоначальная стоимость ЭВМ, используемой при разработке программы;

На - норма амортизационных отчислений;

т - количество используемых ЭВМ;

фаб. - время работы ЭВМ;

Фд.о. - действительный годовой фонд времени работы ЭВМ. Примем:

Сперв. == 18000 руб.,

На= 12,5%,

т = 1 шт.,

фаб. = 42 дня * 8 ч. = 336 ч.,

Фд.о. == Кол.раб.дн. * Кол.смен * Продолж.смены =

= 252 дня* 1 смена* 8 ч. ⁼ 2016 ч.

На основе формулы определяем:

Зам.= 375руб.

Результаты расчета затрат на амортизацию ЭВМ, используемые при разработке программы, представлены в таблице 3.4.

Таблица 3.4.

Затраты на амортизацию

Наименование оборудования	Количество единиц оборудования, шт	Время работы оборудования в раб., ч	Норма амортизационных отчислений %	Затраты на амортизацию, руб.
IВМ РС	1	336	12,5	375

3.3.6. Расчет затрат на электроэнергию, используемую ЭВМ в процессе разработки программы.

Затраты на электроэнергию (Зэл.эн.) рассчитываются по формуле (3.8):

Зэл.эн.=Цэ. * Р * т * ф (3.8) где:

Р - мощность ЭВМ, используемой при разработке программы;

ф - время работы ЭВМ, используемое при разработке программы;

т - количество используемых ЭВМ;

Цэ. - цена 1 кВт* ч электроэнергии.

Примем:

Р = 250 Вт;

ф = 336 ч;

т = 1;

Цэ. = 3,1 руб. На основе формулы (3.8) определяем Зэл.эн.:

Зэл.эн. = 269,4 руб.

Результаты расчета затрат на электроэнергию, используемую в процессе разработки программы, представлены в таблице 3.5.

Таблица 3.5

Затраты на электроэнергию

Наименование оборудования	Количество единиц оборудования т, шт	Время работы оборудования Гр.,ч	Мощность оборудования, кВт	Затраты на электроэнергию, руб.
IВМ РС	1	336	0.25	269,4 руб.

3.3.7. Расчет накладных расходов

В статью "Накладные расходы" включаются расходы на управление и хозяйственное обслуживание. По этой статье учитывается заработная плата аппарата управления и общехозяйственных служб, затраты на содержание и текущий ремонт зданий, сооружений, оборудования и инвентаря, амортизационные отчисления на их полное восстановление и капитальный ремонт, расходы по охране труда, научно-технической информации, изобретательству и рационализации. Величина накладных расходов определяется в процентах от основной и дополнительной заработной платы.

Накладные расходы (Рнакл.) рассчитываются по формуле (3.9):

Рнакл.=Кн * (Зосн.+Здоп.) (3.9) где:

Кн - коэффициент накладных расходов. Примем Кн равным 1.1. На основе формулы (3.9) определяем:

Рнакл. =1.1* (101868 руб. + 20373,6 руб.) =134465,76 руб. Результаты расчета затрат на разработку информационной системы предприятия сведем в таблицу 3.6.

Таблица 3.6.

Смета затрат на разработку системы

№п/п	Статьи затрат	Затраты, руб.	% к итогу
1	Основная заработная плата разработчиков	101868	35,89
2	Дополнительная заработная плата разработчиков	20373,6	7,18
3	Отчисления на социальное страхование.	26 486р.	9,33
4	Амортизационные отчисления	375	0,13
5	Расходы на электроэнергию	269,4	0,09
6	Накладные расходы	134465,76	47,37
7	Итого:	283837,76	100

3.4. Расчет экономической эффективности

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

Обобщенным критерием экономической эффективности является минимум затрат живого и овеществленного труда

Экономический эффект от внедрения вычислительной и организационной техники подразделяется на прямой и косвенный.

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

Определим экономическую эффективность с помощью трудовых и стоимостных показателей.

На составление отчетности в месяц затрачивалось 80 чел./ч (Т₀) При использовании автоматизированной системы - 10 чел./ч в месяц (Т₁) Абсолютный показатель экономической эффективности Т_эк составляет:

Т_эк = Т₀- Т₁ (3.10)

Т_эк = 80 - 10=70 чел./ч в месяц

Относительный индекс производительности труда вычисляется по формуле (3.11):

J _п.т.= Т₁ /Т₀ (3.11)

J _п.т.=10/80=0,125

Рассчитаем стоимостной показатель по формуле 3.12

С_эк = С₀- С₁ (3.12)

Заработная плата менеджера составляет 50000 руб в месяц, прибавим к ней 26% начислений на зарплату итого получаем 50000 +13000= 63000 руб.

Затраты на заработную плату менеджеров при ручном проведении тестирования составят 30000 руб (С₀). При использовании АИС 3750 руб(С₁).

С_эк = 30000 - 3750 =750 р.

Индекс стоимости затрат определяется по формуле 3.13

J _{ст.затр..}= С₁ /С₀ (3.13)

J _{ст.затр..}= 3750 /30000 =0,125

Срок окупаемости затрат вычисляется по формуле 3.14

, где (3.14)

З₀ - затраты на техническое оборудование;

П₀ - затраты на программное обеспечение.

Подставим имеющиеся данные в формулу 2.12, в результате получим:

З₀ - затрат на оборудование равны 0, т.к. имеющееся оборудование возможно использовать и для новой системы;

П₀ - затраты на программное обеспечение вычисленные в п.3.3 равны 283837,76 руб.;

месяцев.

В результате сделанных расчетов можно сделать вывод, что автоматизация повысит абсолютный показатель эффективности использования трудовых ресурсов на 70 часов в месяц, показатель стоимости уменьшит в 0,125 раз, окупаемость проекта около 11 месяцев.

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

Заключение

В процессе работы над дипломным проектом было разработано АРМ менеджера по работе с клиентами в ЗАО «Компьютел». Для достижения поставленной цели были решены следующие задачи:

· проведен анализ работы менеджера

· выявлена экономическую сущность задачи

· обосновано необходимость и цели использования ВТ для решения задач

· определены цель и назначение автоматизированного варианта решения задачи

· проведен анализ существующих разработок

· обоснованы проектные решения по видам обеспечения

· построили информационную модель

· определены используемые классификаторы и системы кодирования

· описана характеристики БД и программные модули

· обоснована экономическую эффективность проекта

Список используемой литературы

1. Автоматизированные информационные технологии управления. /Под ред. Чл. корр. международной академии информатизации проф. Г.А.Титоренко. - М.: ЮНИТИ, 2003.

2. Аляев Ю.А., Козлов О.А. "Алгоритмизация и языки программирования Pascal, C++, Visual Basic". Учебно-справочное пособие. - М.: Финансы и статистика, 2004

3. Аляев Ю.А.и др. "Практикум по алгоритмизации и программированию на языке Паскаль". Учеб. пособие. - М.: Финансы и статистика, 2004

4. Андрейчиков А.В., Андрейчикова О.Н. "Интеллектуальные информационные системы". Учебник. - М.: Финансы и статистика, 2004

5. Балдин К.В. Информационные системы в экономике. Учебник. - М.: Дашков и К, 2007.

6. Барановская Т.П. и др. "Архитектура компьютерных систем и сетей". Учеб. пособие. - М.: Финансы и статистика, 2003

7. Баронов В.В., Калянов Г.Н., Попов Ю.И., Титовский И.Н. Информационные технологии и управление предприятием.- М.: БизнесПРО, 2004.

8. «Бизнес-процессы, основные стандарты их описания», С.М. Ковалев, журнал «Справочник экономиста» №11'2006.

9. Брусакова И. А. Информационные системы и технологии в экономике. - М.: Финансы и статистика, 2005.

10. Вендров А.М. "Практикум по проектированию программного обеспечения экономических информационных систем". Учеб. пособие. - М.: Финансы и статистика, 2004

11. Гасликова И.Р., Гохберг Л.М. Информационные технологии в России. М.: ЦИСН, 2002.

12. Грабауров В.А. Информационные технологии для менеджеров. - М.: Финансы и статистика, 2002

13. Грабауров В.А. "Информационные технологии для менеджеров". -- 2-е изд., прераб. и доп. . - М.: Финансы и статистика, 2005

14. Дик В.В. "Методология формирования решений в экономических системах и инструментальные среды их поддержки".. - М.: Финансы и статистика, 2001

15. Емельянов А.А. и др. "Имитационное моделирование экономических процессов". Учеб. пособие. . - М.: Финансы и статистика, 2004

16. Иванов И.А.. Инновационный менеджмент. Изд-во Баро-Пресс, Р-н-Д, 2001.

17. Интернет-университет информационных технологий, курс «Проектирование информационных систем», http://www.intuit.ru

18. Информационные технологии управления: Учебно-практическое пособие /Под ред.Ю.М.Черкасова.-М:ИНФРА-М,2001.

19. Исаев Г.Н. Информационные системы в экономике. - М.: Омега-Л, 2006.

20. Калашян А.Н., Калянов Г.Н. "Структурные модели бизнеса: DFD-технологии". . - М.: Финансы и статистика, 2003

21. Калянов Г.Н. Моделирование, анализ, реорганизация и автоматизация бизнес-процессов. - М.: Финансы и статистика, 2007.

22. Калянов Г.Н. Моделирование, анализ, реорганизация и автоматизация бизнес-процессов. - М.: Финансы и статистика, 2007

23. Козырев А.А. Информационные технологии в экономике и управлении. - СПб.: Изд-во Михайлова В.А., 2003

24. Ларин М.В. Проблемы совершенствования автоматизации управления в современных условиях // Экономика и жизнь 2004. №8. С. 18.

25. Марков А.С., Лисовский К.Ю. "Базы данных. Введение в теорию и методологию". Учебник. . - М.: Финансы и статистика, 2004

26. Под ред. Н.Л. Прохорова "Управляющие вычислительные комплексы" Учеб. пособие. -- 3-е изд., перераб. и доп. - М.: Финансы и статистика, 2003

27. Смирнова Г.Н. и др. "Проектирование экономических информационных систем" Учебник. - М.: Финансы и статистика, 2003

28. Соколов А.П. "Системы программирования: теория, методы, алгоритмы". - М.: Финансы и статистика, 2004

29. Тельнов Ю.Ф. "Реинжиниринг бизнес-процессов". - М.: Финансы и статистика, 2004

30. Трофимов В.В. Информационные системы и технологии в экономике и управлении. - М.: Высшее образование, 2005

31. Уткин В.Б., Балдин К.В. Информационные системы и технологии в экономике. - М.: ЮНИТИ, 2003

32. Фаронов В.В. «Delphi 6» учебный курс - М; Издатель Молгачева С.В., 2003. - 672с., ил.

33. Хотинская Г.И. Информационные технологии управления. - М.: Дело и Сервис (ДИС), 2003.

34. Черемных С.В. и др. "Моделирование и анализ систем. IDEF-технологии: практикум". - М.: Финансы и статистика, 2005

35. Черемных С.В. и др. "Структурный анализ систем: IDEF-технологии". - М.: Финансы и статистика, 2003

Приложение 1.

Должностная инструкция менеджера по работе с клиентами

I. Общие положения

1. Менеджер по работе с клиентами относится к категории руководителей.

2. На должность менеджера по работе с клиентами назначается лицо, имеющее профессиональное (экономическое) образование, дополнительную подготовку по менеджменту, стаж работы в сфере предпринимательства не менее 3 лет.

3. Менеджер по работе с клиентами должен знать:

3.1. Законодательство, регламентирующее вопросы осуществления предпринимательской деятельности.

3.2. Рыночную экономику, предпринимательство и основы ведения бизнеса.

3.3. Основы маркетинга (концепцию маркетинга, основы управления маркетингом, способы и направления исследований рынка).

3.4. Теорию менеджмента, макро-- и микроэкономики, делового администрирования.

3.5. Ассортимент, классификацию, характеристику и назначение предлагаемых товаров (продукции).

3.6. Порядок разработки бизнес-планов и коммерческих условий соглашений, договоров.

3.7. Правила установления деловых контактов.

3.8. Правила официального этикета при проведении переговоров с клиентами.

3.9. Теорию межличностного общения.

3.10. Основы социологии и психологии.

3.11. Методы обработки информации с использованием современных технических средств коммуникации и связи, компьютера.

4. Назначение на должность менеджера по работе с клиентами и освобождение от должности производится приказом директора.

5. Менеджер по работе с клиентами подчиняется непосредственно директору предприятия.

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

II. Должностные обязанности

Менеджер по работе с клиентами:

1. Осуществляет анализ аудитории потенциальных клиентов, выявляет потребности клиентов, их уровень и направленность.

2. Разрабатывает методики поиска клиентов, планирует работу с клиентами, составляет схемы обращения к клиентам.

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

4. Прогнозирует деловую надежность потенциальных клиентов, их финансовую и материальную обеспеченность.

5. Организует и проводит предварительные переговоры с клиентами, заинтересовавшимися предложениями (принявшими оферту, пр.), уточняет потребности каждого конкретного клиента и подготавливает предложение, адресованное определенному клиенту.

6. Встречается с клиентами, убеждает клиентов в выгодности предложения, предлагает на обсуждение и согласование проекты договоров, принимает участие в работе над согласованием разногласий, заключает договоры от имени предприятия.

7. Предлагает клиентам пути решения не согласованных при переговорах вопросов и вопросов, возникших после совершения юридически значимых действий.

8. Поддерживает постоянный контакт с существующими клиентами, организует работу с ними по устоявшимся деловым схемам.

9. Разрабатывает схемы взаимоотношений с наиболее выгодными и перспективными клиентами (предложения особых условий договоров, систем скидок и индивидуального обслуживания, ускоренных сроков и особых условий исполнения договорных обязательств, пр.).

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

11. Обеспечивает соблюдение интересов клиентов при выполнении условий договоров подразделениями предприятия.

12. Налаживает обратную связь с клиентами (изучает их требования к продукции (товарам, услугам), устанавливает причины неудовлетворенности клиента совместной работой, анализирует претензии клиентов и принимает все меры по их решению и сохранению деловых связей).

13. Формирует банк данных о клиентах (клиентскую базу), своевременно вносит в нее изменения.

14. Изучает и анализирует политику конкурентов во взаимоотношениях с клиентами.

III. Права

Менеджер по работе с клиентами имеет право:

1. Самостоятельно определять формы работы с клиентами, способы установления деловых связей.

2. Распоряжаться вверенными ему финансовыми средствами (на представительские расходы).

3. Подписывать и визировать документы в пределах своей компетенции.

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

5. Запрашивать от руководства и специалистов подразделений предприятия информацию и документы, необходимые для выполнения его должностных обязанностей.

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

IV. Ответственность

Менеджер по работе с клиентами несет ответственность:

1. За ненадлежащее исполнение или неисполнение своих должностных обязанностей, предусмотренных настоящей должностной инструкцией, -- в пределах, установленных действующим трудовым законодательством Российской Федерации.

2. За правонарушения, совершенные в процессе своей деятельности, -- в пределах, установленных действующим административным, уголовным и гражданским законодательством Российской Федерации.

3. За причинение материального ущерба предприятию -- в пределах, установленных действующим трудовым и гражданским законодательством Российской Федерации.

Приложение 2. Исходящие документы и объекты отдела продаж

№	В рамках выполняемого процесса/процедуры	Документ/Объект	Кто передает	Передается в
				Подразделение	Исполнитель	Процесс/Внешняя среда
1.	A1.4 Разработка нормативно-методической документации	Методика планирования	Заместитель директора по продажам	Производственный отдел	Производственный отдел	A4.1 Планирование проектов
2.	A2.3 Заключение договора	Договор на реализацию проекта	Отдел продаж		Команда проекта	A4.1.1 Определение требований заказчика
			Отдел продаж	Бухгалтерия	Бухгалтерия	A7.2 Контроль доходов
			Отдел продаж	Бухгалтерия	Бухгалтерия	A7.4 Формирование платежного бюджета
3.	A2.4 Инициация проекта	Акт выполненных работ	Отдел продаж	Бухгалтерия	Бухгалтерия	A7.2 Контроль доходов
		Информация о проекте	Отдел продаж		Команда проекта	A4.1.1 Определение требований заказчика
			Отдел продаж	Производственный отдел	Ведущий инженер	A4.2.1.1 Предпроектное обследование

Приложение 3. Диаграмма процесса «Продвижение и продажи»

Приложение 4. Отчет по клиентам

Приложение 5. Сводный отчет

Приложение 6. Листинг программного кода

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {DataModule2: TDataModule},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit7 in 'Unit7.pas' {Form7},

Unit3 in 'Unit3.pas' {Form3},

Unit8 in 'Unit8.pas' {Form8},

Unit9 in 'Unit9.pas' {Form9},

Unit10 in 'Unit10.pas' {Form10};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TDataModule2, DataModule2);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm7, Form7);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm8, Form8);

Application.CreateForm(TForm9, Form9);

Application.CreateForm(TForm10, Form10);

Application.Run;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, DBCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

MonthCalendar1: TMonthCalendar;

Label1: TLabel;

Panel1: TPanel;

Panel2: TPanel;

Label2: TLabel;

Label3: TLabel;

N14: TMenuItem;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

N2: TMenuItem;

N4: TMenuItem;

procedure N1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure MonthCalendar1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit4, Unit5, Unit2, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form9.DateTimePicker1.Date:=Date();

Form9.DateTimePicker2.Date:=Date();

Form9.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

If Form1.Label1.Caption='3'

then DataModule2.DataSource_Customer.DataSet:=DataModule2.Table_Customer

else begin

DataModule2.Query_Customer.Active:=false;

DataModule2.Query_Customer.SQL.Clear;

DataModule2.Query_Customer.SQL.Add('SELECT Customer.*');

DataModule2.Query_Customer.SQL.Add('FROM Customer');

DataModule2.Query_Customer.SQL.Add('WHERE (((Customer.Id_manager)=' + Form1.Label1.Caption + '));');

DataModule2.Query_Customer.Active:=true;

DataModule2.DataSource_Customer.DataSet:=DataModule2.Query_Customer;

end;

Form6.ShowModal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

If Form1.Label1.Caption='3'

then DataModule2.DataSource_Customer.DataSet:=DataModule2.Table_Customer

else begin

DataModule2.Query_Customer.Active:=false;

DataModule2.Query_Customer.SQL.Clear;

DataModule2.Query_Customer.SQL.Add('SELECT Customer.*');

DataModule2.Query_Customer.SQL.Add('FROM Customer');

DataModule2.Query_Customer.SQL.Add('WHERE (((Customer.Id_manager)=' + Form1.Label1.Caption + '));');

DataModule2.Query_Customer.Active:=true;

DataModule2.DataSource_Customer.DataSet:=DataModule2.Query_Customer;

end;

Form3.DateTimePicker1.Date:=Date();

Form3.DateTimePicker2.Time:=Time();

Form3.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

If Form1.Label1.Caption='3'

then DataModule2.DataSource_Customer.DataSet:=DataModule2.Table_Customer

else begin

If DataModule2.Query_Customer.Active=true then DataModule2.Query_Customer.Active:=false;

DataModule2.Query_Customer.SQL.Clear;

DataModule2.Query_Customer.SQL.Add('SELECT Customer.*');

DataModule2.Query_Customer.SQL.Add('FROM Customer');

DataModule2.Query_Customer.SQL.Add('WHERE (((Customer.Id_manager)=' + Form1.Label1.Caption + '));');

DataModule2.Query_Customer.Active:=true;

DataModule2.DataSource_Customer.DataSet:=DataModule2.Query_Customer;

end;

Form7.DateTimePicker1.Date:=Date();

Form7.DateTimePicker2.Time:=Time();

Form7.ShowModal;

end;

procedure TForm1.MonthCalendar1Click(Sender: TObject);

begin

DataModule2.Query_Call_Current.Active:=false;

DataModule2.Query_Call_Current.Active:=true;

DataModule2.Query_Meet_Current.Active:=false;

DataModule2.Query_Meet_Current.Active:=true;

If Form1.Label1.Caption='3' then

begin

DataModule2.Query_Call_Current.Filtered:=true;

DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);

DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);

end

else begin

DataModule2.Query_Call_Current.Filtered:=true;

DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;

DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

DataModule2.Query_Rep1.Active:=false;

DataModule2.Query_Rep1.Active:=true;

If Form1.Label1.Caption='3' then

DataModule2.Query_Rep1.Filtered:=false else

begin

DataModule2.Query_Rep1.Filtered:=true;

DataModule2.Query_Rep1.Filter:='Customer.Id_manager=' +Form1.Label1.Caption;

end;

Form8.QuickRep1.PreviewModal;

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

Table_Manager: TADOTable;

DataSource_Manager: TDataSource;

Table_Customer: TADOTable;

DataSource_Customer: TDataSource;

Query_Customer: TADOQuery;

DataSource_Call: TDataSource;

Query_Call: TADOQuery;

Query_Meet: TADOQuery;

DataSource_Meet: TDataSource;

Query_Call_Current: TADOQuery;

Query_Meet_Current: TADOQuery;

DataSource_Call_Current: TDataSource;

DataSource_Meet_Current: TDataSource;

Query_Rep1: TADOQuery;

DataSource_Rep1: TDataSource;

Query_Rep2: TADOQuery;

DataSource_Rep2: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

CheckBox1: TCheckBox;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

DataModule2.Query_Call.Insert;

DataModule2.Query_Call.FieldByName('Time').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);

DataModule2.Query_Call.FieldByName('Date').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);

DataModule2.Query_Call.FieldByName('Comments').AsString:=Edit1.Text;

DataModule2.Query_Call.FieldByName('Id_customer').AsString:=DataModule2.Query_Customer.FieldByName('Id_customer').AsString;

DataModule2.Query_Call.FieldByName('Id_manager').AsString:=Form1.Label1.Caption;

DataModule2.Query_Call.FieldByName('First').AsBoolean:=CheckBox1.Checked;

DataModule2.Query_Call.Post;

Edit1.Text:='';

DateTimePicker1.Date:=Date();

DateTimePicker2.Time:=Time();

CheckBox1.Checked:=false;

end;

procedure TForm3.DBGrid1CellClick(Column: TColumn);

begin

If DataModule2.Query_Customer.RecordCount > 0 then

begin

If DataModule2.Query_Call.Active=true then DataModule2.Query_Call.Active:=false;

DataModule2.Query_Call.SQL.Clear;

DataModule2.Query_Call.SQL.Add('SELECT Call.*');

DataModule2.Query_Call.SQL.Add('FROM Call');

DataModule2.Query_Call.SQL.Add('WHERE (((Call.Id_manager)=' + Form1.Label1.Caption + ') AND ((Call.Id_customer) =' + DataModule2.Query_Customer.FieldByName('Id_customer').AsString +'));');

DataModule2.Query_Call.Active:=true;

end;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

DataModule2.Query_Call.Cancel;

Close;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Unit2, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Buttons;

type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

DataModule2.Table_Manager.Cancel;

Close;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DBCtrls, Unit2;

type

TForm5 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

If DataModule2.Table_Manager.FieldByName('Pass').AsString = Edit1.Text then

begin

Form1.MonthCalendar1.Date:=Date();

Form1.Caption:=Form1.Caption + ' ' + DataModule2.Table_Manager.FieldByName('FIO_manager').AsString;

Form1.Label1.Caption:=DataModule2.Table_Manager.FieldByName('Id_manager').AsString;

If Form1.Label1.Caption='3' then

begin

DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);

DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);

end

else begin

DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;

DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;

Form1.N3.Visible:=false;

end;

Close;

end

else ShowMessage(`Неправильный пароль');

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Unit2, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask,

Buttons;

type

TForm6 = class(TForm)

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label9: TLabel;

Label10: TLabel;

DBCheckBox1: TDBCheckBox;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

DataModule2.Query_Customer.Edit;

DataModule2.Query_Customer.FieldByName('Id_manager').AsString:=Form1.Label1.Caption;

DataModule2.Query_Customer.Post;

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

DataModule2.Query_Customer.Insert;

end;

procedure TForm6.BitBtn3Click(Sender: TObject);

begin

DataModule2.Query_Customer.Cancel;

Close;

end;

procedure TForm6.BitBtn4Click(Sender: TObject);

begin

DataModule2.Query_Customer.Edit;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, Unit2, ComCtrls, StdCtrls,

Buttons;

type

TForm7 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

DataModule2.Query_Meet.Cancel;

Close;

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

DataModule2.Query_Meet.Insert;

DataModule2.Query_Meet.FieldByName('Time').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);

DataModule2.Query_Meet.FieldByName('Date').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);

DataModule2.Query_Meet.FieldByName('Comments').AsString:=Edit1.Text;

DataModule2.Query_Meet.FieldByName('Id_customer').AsString:=DataModule2.Query_Customer.FieldByName('Id_customer').AsString;

DataModule2.Query_Meet.FieldByName('Id_manager').AsString:=Form1.Label1.Caption;

DataModule2.Query_Meet.FieldByName('Place').AsString:=Edit2.Text;

DataModule2.Query_Meet.Post;

Edit1.Text:='';

Edit2.Text:='';

DateTimePicker1.Date:=Date();

DateTimePicker2.Time:=Time();

end;

procedure TForm7.DBGrid1CellClick(Column: TColumn);

begin

If DataModule2.Query_Customer.RecordCount > 0 then

begin

If DataModule2.Query_Meet.Active=true then DataModule2.Query_Call.Active:=false;

DataModule2.Query_Meet.SQL.Clear;

DataModule2.Query_Meet.SQL.Add('SELECT Meeting.*');

DataModule2.Query_Meet.SQL.Add('FROM Meeting');

DataModule2.Query_Meet.SQL.Add('WHERE (((Meeting.Id_manager)=' + Form1.Label1.Caption + ') AND ((Meeting.Id_customer) =' + DataModule2.Query_Customer.FieldByName('Id_customer').AsString +'));');

DataModule2.Query_Meet.Active:=true;

end;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, QuickRpt, Unit2, QRCtrls;

type

TForm8 = class(TForm)

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

QRGroup1: TQRGroup;

QRDBText2: TQRDBText;

TitleBand1: TQRBand;

PageHeaderBand1: TQRBand;

PageFooterBand1: TQRBand;

QRExpr1: TQRExpr;

PageFooterBand2: TQRBand;

QRSysData1: TQRSysData;

QRSysData2: TQRSysData;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRDBText3: TQRDBText;

QRLabel4: TQRLabel;

QRDBText1: TQRDBText;

QRExpr2: TQRExpr;

QRExpr3: TQRExpr;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls;

type

TForm9 = class(TForm)

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit2, Unit1, Unit8, Unit10;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

DataModule2.Query_Rep1.Active:=false;

DataModule2.Query_Rep1.Active:=true;

If Form1.Label1.Caption='3' then

begin

DataModule2.Query_Rep1.Filtered:=true;

DataModule2.Query_Rep1.Filter:='Date>='+Chr(39)+DateToStr(DateTimePicker1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(DateTimePicker2.Date+1)+Chr(39);

end

else begin

DataModule2.Query_Rep1.Filtered:=true;

DataModule2.Query_Rep1.Filter:='Date>='+Chr(39)+DateToStr(DateTimePicker1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(DateTimePicker2.Date+1)+Chr(39)+' And Customer.Id_manager=' +Form1.Label1.Caption;

end;

Form10.QuickRep1.PreviewModal;

end;

end.

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm10 = class(TForm)

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

QRExpr1: TQRExpr;

QRDBText1: TQRDBText;

QRGroup1: TQRGroup;

TitleBand1: TQRBand;

QRLabel2: TQRLabel;

PageHeaderBand1: TQRBand;

PageFooterBand2: TQRBand;

QRSysData1: TQRSysData;

QRSysData2: TQRSysData;

QRLabel4: TQRLabel;

QRDBText4: TQRDBText;

Q3: TQRExpr;

QRLabel1: TQRLabel;

QRLabel3: TQRLabel;

QRExpr2: TQRExpr;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

end.