Автоматизация обработки обращений пользователей в ЗАО «МАВС»

Таблица 2.

4.

Структура таблицы «Клиенты»

Имя поля Тип данных Размер поля Ключ Код клиента Счетчик — Первичный Фамилия Текстовый 50 — Имя Текстовый 50 — Отчество Текстовый 50 — Адрес Текстовый 255 — Дата рождения Дата — - Паспорт Текстовый 12 — Телефон Текстовый 14 — E-mail Текстовый 50 ;

В таблице 2.5 представлена структура реализуемой таблицы «Должности».

Таблица 2.

6.

Структура таблицы «Должности»

Имя поля Тип данных Размер поля Ключ Код должности Счетчик — Первичный Должность Текстовый 50 ;

В таблице 2.7 представлена структура реализуемой таблицы «Права».

Таблица 2.

7.

Структура таблицы «Права»

Имя поля Тип данных Размер поля Ключ Код права Счетчик — Первичный Название Текстовый 50 — Формирование Логический — - Утверждение Логический — - Исполнение Логический — ;

В таблице 2.8 представлена структура реализуемой таблицы «Курорты».

Таблица 2.

8.

Структура таблицы «Курорты»

Имя поля Тип данных Размер поля Ключ Код курорта Счетчик — Первичный Курорт Текстовый 50 — Стоимость билета Денежный — - Код страны Числовой — Внешний В таблице 2.9 представлена структура реализуемой таблицы «Пользователи».

Таблица 2.

9.

Структура таблицы «Пользователи»

Имя поля Тип данных Размер поля Ключ Код пользователя Счетчик — Первичный ФИО Текстовый 150 — Логин Текстовый 50 — Пароль Текстовый 50 — Код должности Числовой — Внешний Код отдела Числовой — Внешний Код права Числовой — Внешний В таблице 2.10 представлена структура реализуемой таблицы «Заявки».

Таблица 2.

10.

Структура таблицы «Заявки»

Имя поля Тип данных Размер поля Ключ Код заявки Счетчик — Первичный Гостиница Текстовый 150 — Количество людей Числовой 50 — Количество детей Числовой 50 — Дата заезда Дата — - Дата выезда Дата — - Код клиента Числовой — Внешний Код курорта Числовой — Внешний Сформировал Числовой — Внешний Утвердил Числовой — Внешний Исполнитель Числовой — Внешний Дата формирования Дата — - Дата утверждения Дата — - Дата исполнения Дата — ;

В таблице 2.11 представлена структура реализуемой таблицы «Отделы».

Таблица 2.

11.

Структура таблицы «Отделы»

Имя поля Тип данных Размер поля Ключ Код отдела Счетчик — Первичный Отдел Текстовый 50 ;

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

2.

3.3. Структурная схема пакета (дерево вызова программных модулей) На рисунке 2.7 представлена схема работы программного продукта

Рис. 2.7 — Схема работы программного продукта В таблице 2.12 представлено описание программных модулей.

Таблица 2.

12.

Описание модулей программного продукта

№ Наименование Функция 1 Главная форма Содержит главное меню, а также на данной форме осуществляется редактирование данных о заявках. 2 Клиенты Данная форма позволяет редактировать информацию о клиентах 3 Страны Данная форма позволяет редактировать информацию о странах 4 Курорты Данная форма позволяет редактировать информацию о курортах 5 Авторизация Необходима для осуществления входа только зарегистрированных пользователей 6 Модуль данных Содержит таблицы базы данных 7 Подробная информация Данная форма позволяет просматривать и редактировать полную информацию о заявках 8 Форма пользователей Данная форма позволяет редактировать информацию о пользователях 9 Форма прав Данная форма позволяет редактировать информацию о правах пользователей 10 Форма должностей Данная форма позволяет редактировать информацию о должностях 11 Форма отделов Данная форма позволяет редактировать информацию об отделах При запуске программного продукта должна открываться главная форма с помощью, которой возможно осуществление всех функций информационной системы. Для того чтобы пространство главной формы не было не задействованным в процессе работы программы, на ней необходимо осуществлять основные функции программного продукта.

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

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

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

2.

3.4. Описание программных модулей На рисунке 2.

8. представлена блок-схема входа пользователя в информационную систему.

Рис. 2.

8. Блок-схема авторизации.

2.

4. Контрольный пример реализации проекта и его описание При запуске программного продукта появиться окно входа в систему, представлено на рисунке 2.

9.

Рис. 2.

9. Окно входа в систему В нем необходимо ввести пользователю свой логин и пароль, после чего нажать кнопку «Войти». При вводе символов в поле «Пароль» символы автоматически заменяются на «*». В данном случае был введен логин «Smirnova» и пароль «111».

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

10.

Рис. 2.

10. Главная форма программного продукта.

Главная форма имеет три вкладки: оформленные заявки, утвержденные к исполнению заявки, исполненные заявки. На них отображаются соответственно только что сформированные, уже проверенные и исполненные документы. В строке статуса отображается ФИО пользователя, текущая дата и время. В случае необходимости панель статуса можно отключить, осуществляется это с помощью главного меню.

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

На рисунке 2.11 представлена вкладка «Утвержденные к исполнению заявки».

Рис. 2.

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

Рис. 2.

12. Главная форма. Исполненные заявки.

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

13.

Рис. 2.

13. Форма «Полная информация о документе»

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

Для того чтобы оформить нового клиента необходимо с помощью главного меню открыть форму «Клиенты» (меню «Справочники»).

На рисунке 2.14 представлена форма «Клиенты».

Рис. 2.14 — Форма «Клиенты».

На данной форме отображаются клиенты и полная информация по ним. Работа с данными осуществляется с помощью навигационного меню, представлено на рисунке 2.

15.

Рис. 2.

15. Навигационное меню.

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

На рисунке 2.16 представлена форма «Страны».

Рис. 2.

16. Форма «Страны».

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

На рисунке 2.17 представлена форма «Курорты».

Рис. 2.

17. Форма «Курорты».

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

Выход из программы можно осуществить следующими способами:

закрыть главную форму;

выбрать пункт в главном меню «Выход».

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

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

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

18.

Рис. 2.

18. Окно входа в систему В нем необходимо ввести пользователю свой логин и пароль, после чего нажать кнопку «Войти». При вводе символов в поле «Пароль» символы автоматически заменяются на «*». В данном случае был введен логин «Sidorov» и пароль «123».

Системный администратор имеет полные права, а также имеет исключительное право по редактированию доступа к системе другим пользователям, кроме обычных элементов меню у системного администратора есть пункт главного меню «Администрирование». На рисунке 2.19 представлена главная форма, в случае если вход осуществлен под администратором.

Рис. 2.

19. Главная форма.

Несмотря на дополнительное пункт меню, администратор не имеет права осуществлять исполнение или утверждение заявок, поэтому данные кнопки отсутствуют.

Системный администратор имеет несколько дополнительных таблиц, которые имеет право редактировать. На рисунке 2.20 представлен справочник «Пользователи».

Рис. 2.

20. Справочник «Пользователи».

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

На рисунке 2.21 представлена форма «Права»

Рис. 2.

21. Форма «Права»

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

На рисунке 2.22 представлена форма «Отделы»

Рис. 2.

22. Форма «Отделы»

Данный справочник содержит перечень всех отделов организации. Необходим при регистрации новых пользователей.

На рисунке 2.23 представлена форма «Должности»

Рис. 2.

23. Форма «Должности»

Данная форма содержит информацию о возможных должностях сотрудников и отделах.

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

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

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

24.

Рис. 2.

24. Окно входа в систему В нем необходимо ввести пользователю свой логин и пароль, после чего нажать кнопку «Войти». При вводе символов в поле «Пароль» символы автоматически заменяются на «*». В данном случае был введен логин «Ivanenko» и пароль «111».

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

Рис. 2.

25. Главная форма Как видно из представленного выше рисунка кнопка «Добавить» заблокирована, зато кнопка «Проверен» разблокирована.

На рисунке 2.26 представлена главная форма программного продукта на вкладке утвержденные к исполнению заявки

Рис. 2.

26. Главная форма. Утвержденные к исполнению заявки Как видно из рисунка бухгалтер не имеет права исполнять заявки.

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

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

Для начала нужно раскрыть понятие экономической эффективности проекта. Современный экономический словарь трактует данное понятие как результативность экономической деятельности, экономических программ и мероприятий, характеризуемая отношением полученного экономического эффекта, результата к затратам факторов, ресурсов, обусловившим получение этого результата. Или как достижение наибольшего объема производства с применением имеющегося ограниченного количества ресурсов, или обеспечение заданного выпуска при минимальных затратах. То есть экономическая эффективность показывает оценку результатов функционирования системы. То есть как бы ни был важен результат, необходимо ещё знать какой ценой, какими затратами он достигнут. Соизмеримость эффекта и затрат на его достижение — основа экономической эффективности.

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

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

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

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

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

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

Внедряемая информационная система должна удовлетворять ряду условий:

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

Эффективное выполнение своих функций. Система должна решать свои задачи рациональным способом.

Разрабатываемая система позволит свести до минимума ошибки, возникающие при ручном вводе информации.

3.2 Расчёт показателей экономической эффективности проекта В таблице 3.

1. представлена характеристика затрат на обработку информации по базовому варианту. В таблице 3.

2. представлена характеристика затрат на обработку информации по проектному варианту.

Таблица 3.

1.

Характеристика затрат на обработку информации по базовому варианту

№ п/п Наименование операций технологического процесса решения комплекса задач Оборудование Ед. Изм. Объем работы в год Норма выработки Трудоемкость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб.

за час) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций 1 2 3 4 5 6 7 8 9 10 11 1 Оформление клиента Вручную Док. 4000 4 1000 60 0 1 61 000 2 Оформление обращения Вручную Док. 2000 5 400 60 0 1 24 400 3 Оформление отчетности по одному обращению Вручную Док. 2000 5 400 60 0 1 24 400 4 Оформление отчетности по всем обращению Вручную Док. 3000 5 600 60 0 2 37 200 5 Поиск информации по обращениям Вручную Док. 3000 5 600 60 0 2 37 200 6 Поиск информации по клиентам Вручную Док.

2000 2 1000 60 0 2 62 000 7 Оформление других документов Вручную Док. 1500 3 500 60 0 1 30 500

Итого: 4500 10 276 700

Таблица 3.

2.

Характеристика затрат на обработку информации по проектному варианту

№ п/п Наименование операций технологического процесса решения комплекса задач Оборудование Ед. Изм. Объем работы в год Норма выработки / производительность устройств ЭВМ (опер/в час.) Трудоемкость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.

часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для операций, вып. на ЭВМ 1 2 3 4 5 6 7 8 9 10 11 1 Оформление клиента Компьютер Док. 4000 40 100 60 2 0 6200 2 Оформление обращения Компьютер Док.

2000 25 80 60 2 0 4960 3 Оформление отчетности по одному обращению Компьютер Док. 2000 25 80 60 2 0 4960 4 Оформление отчетности по всем обращению Компьютер Док. 3000 20 150 60 2 0 9300 5 Поиск информации по обращениям Компьютер Док. 3000 20 150 60 2 0,5 9375 6 Поиск информации по клиентам Компьютер Док. 2000 40 50 60 2 0,5 3125 7 Оформление других документов Компьютер Док. 1500 10 150 60 2 0 9300

Итого: 760 1 47 220

Исходя из показателей, полученных в таблице, можно рассчитать:

1. Абсолютное снижение трудовых затрат ((Т) в часах за год:

(Т = Т0 — Т1, (3.

2.1)

где Т0 — трудовые затраты в часах за год на обработку информации по базовому варианту;

Т1 — трудовые затраты в часах за год на обработку информации по предлагаемому варианту;

(Т=4500−760=3740

На рисунке 3.

1. представлено изменение трудовых затрат в графическом виде.

Рис. 3.

1. Изменение трудовых затрат

2. Абсолютное снижение стоимостных затрат (© в рублях за год.

К стоимостным показателям относятся: абсолютное снижение стоимостных затрат (© в рублях за год.

(С =С0 — С1, (3.

2.2)

(С=276 700−47 220=229480

На рисунке 3.

2. представлено изменение стоимостных затрат в графическом виде.

Рис. 3.

2. Изменение стоимостных затрат Капитальные вложения для реализации проекта автоматизации деятельности отдела по работе с клиентами включают:

затраты на проектирование ИС;

затраты на импортирование данных и создание БД;

затраты на разработку программного обеспечения;

затраты на обучение персонала;

затраты на опытную эксплуатацию (тестирование и отладка).

Программный продукт реализуется одним инженером.

Капитальные вложения рассчитываются по формуле (3.

2.3):

К = К1 + К2 + К3 + К4 + К5, (3.

2.3)

где К — общая сумма капитальных вложений, К1 — затраты на проектирование ИС;

К2 — затраты на разработку ПО;

К3 — затраты на импортирование данных и создание БД;

К4 — затраты на обучение персонала;

К5 — затраты на опытную эксплуатацию (тестирование и отладку).

Величина затрат на проектирование ИС рассчитывается по формуле (3.

2.4):

К1 = Тпр * ЗПпр + Тпр. оборуд * С, (3.

2.4)

где Тпр — время, затраченное проектировщиком на проектирование ИС;

ЗПпр — заработная плата проектировщика в единицу времени;

Тпр.оборуд — время проектирования на оборудовании;

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

Средняя зарплата инженера 20 000 рублей в месяц, а при 22 рабочих днях и 8-ми часовом рабочем дне час работы инженера стоит 113,64 руб.

Стоимость одного часа работы на компьютере составляет около 15 рублей (по данным бухгалтерии).

При условии, что временные затраты на проектирование системы составляют 15% от общего времени работы 1 инженера (3 месяца, 66 рабочих дня, 528 часа), Тпр = 158,4 часов.

На основании вышеприведенных данных можно рассчитать К1:

К1 = 158,4*113,64+110,88*158,4 = 35 563,39 рубля.

Рассчитаем затраты на разработку ПО. Разработка ПО (Тпр) по затратам времени составляет 290,4 часа, аналогично Тпр. оборуд = 290,4 часа. Разработкой программного обеспечения занимается один инженер, при этом используется один компьютер. Получим, что затраты на разработку ПО составят:

К2 = 290,4 * (113,64 + 15) =37 356 рублей.

Аналогично, рассчитаем затраты на затраты на импортирование данных и создание БД (К3). Процесс импортирования данных и создания БД занимает 290,4 часа, аналогично Тпр. оборуд = 290,4 часа. Разработкой программного обеспечения занимается один инженер, при этом используется один компьютер.

К3 = 290,4 * (113,64 + 15) =37 356 рублей.

К4 — затраты на обучение персонала — включают затраты на оплату труда инженера, проводящего обучение (113,64 рублей в час) и 3 человек работающих с информационной системой (по 68,18 рублей в час). Для обучения достаточно 4 часов на одного пользователя, итого: 12 часов.

К4 = 12* (113,64 + 68,18 + 15) = 2361,82 рублей.

Наконец, К5 — затраты на проведение тестирования и отладки ошибок — включают затраты на оплату труда инженера и кладовщика, проводящего тестирование. На этот этап работы отводится 15% общего времени на создание и внедрение проекта. Стоимость 1 часа работы на ПК составляет 15 рублей. Исходя из вышеуказанных среднедневных заработных плат специалистов и с учетом стоимости работы на одном компьютере, затраты на проведение тестирования и отладки ошибок составят:

К5 = 79,2 * (113,64 + 68,18) + 63,36*15*1 = 15 350,40 рублей.

Сумма всех капитальных вложений согласно формуле (3.

2.4) составит 127 987,61 рублей.

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

Ток = КП /(C, (3.

2.5)

где КП — затраты на создание проекта (проектирование и внедрение).

Ток = 127 987,61/229 480=0,55

Таким образом срок окупаемости затрат на разработку программного продукта примерно составит 6−7 месяцев, что является хорошим показателем.

Заключение

Темой дипломного проекта являлась «Автоматизация обработки обращений пользователей в ЗАО МАВС».

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

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

В процессе написания дипломного проекта было выполнено следующее:

анализ предметной области;

анализ деятельности предприятия;

анализ потоков информации на предприятии;

проектирование базы данных;

физическая реализация базы данных;

разработка приложения пользователя;

физическая реализация приложения пользователя.

Автоматизация деятельности туристической фирмы позволило достичь следующих целей:

снизить уровень загруженности агента туристической фирмы;

повысить уровень оперативности обслуживания клиентов;

сократить издержки связанные с оформлением документации;

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

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

повысить уровень конкурентоспособности фирмы.

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

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

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

Программный продукт был реализован с помощью системы управления базами данных Microsoft Access 2003, а также языка объектно-ориентированного программирования Borland Delphi 7.

0. Оформление отчета осуществлялось с помощью интегрированного пакета Microsoft Office 2003.

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

Список использованной литературы Бакаревич Ю. Б., Пушкина Н. В. Самоучитель Microsoft Access 2003. — СПб.: БХВ-Петербург, 2002 — 402 с.

Барановская Т. П. и др. Информационные системы и технологии в экономике: Учебник. — 2-е изд., доп. и перераб. — М.: Финансы и статистика, 2005 — 416 с.

Благодатских В. А. и др. Стандартизация разработки программных средств: Учеб. пособие. — М.: Финансы и статистика, 2005. — 288 с.

Бобровский С. Программирование в Delphi 7 — СПб.: Информ-Пресс, 2003. — 806 c.: ил.

Бойко В.В., Савинков В. М. Проектирование баз данных информационных систем. — М.: Финансы и статистика, 2004.

Бондарева Г. А., Сахарова Е. В., Королькова Л. Н., Информатика. Ставрополь, СТИС, 2006

Вендров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 2005. — 544 с.

Гетия И. Г. Безопасность при работе на ПЭВМ. — М.: НПЦ Профессионал-Ф, 2001. — 140 с.

Гончаров А. Ю. Access 2003

Самоучитель с примерами. — М.: Инфра-М, 2004 — 385 с.

Горев А. Эффективная работа с СУБД. — СПб.: Питер, 1997. — 704с.: ил.

Гофман В. Э., Хомоненко А. Д. и др. Delphi 7 — СПб.: BHV, 2004. — 1216 с.: ил.

Дарахвелидзе, П. Г. Программирование в Delphi 7. — СПб.: БХВ-Петербург, 2003. — 784 с.

Каймин В. А. Информатика: Учебник. — 5-ое издание — М.: ИНФРА-М, 2007 — 244 с.

Карпова Т. С. Базы данных: модели, разработка, реализация: учеб. пособие для вузов — СПб.: Питер, 2001. -304с.: ил.

Конеев И. Информационная безопасность предприятия. — СПб.: БХВ-Петербург, 2003. — 733 с.

Лугачев М. И. и др. Экономическая информатика: введение в экономический анализ. — М.: Инфра-М, 2005. —569 с.

Маклаков С. В. ВРWin и ERWin. САSЕ-средства разработки информационных систем — М.: Диалог-МИФИ, 1999 — 455 с.: ил.

Мельников В. В. Безопасность информации в автоматизированных системах. — М.: Финансы и статистика, 2003. — 368 с.

Мишенин А. И. Теория экономических информационных систем. — М.: Финансы и статистика, 2000. — 240 с.

Норенков И. П. Основы автоматизированного проектирования: Учебник для вузов. — М.: МГТУ им. Н. Э. Баумана, 2002. — 336 с.

Орлов С. Технологии разработки программного обеспечения. Учебное пособие. 2-е изд. — СПб.: Питер, 2003. — 480 с.

Партыка Т. Л. Информационная безопасность. — М. ИНФРА-М, 2002. — 367 с.

Петров, В. Н. Информационные системы: учеб. пособие для вузов — СПб.: Питер, 2002. — 688 с.

Савицкая Г. В. Анализ хозяйственной деятельности предприятия: Учебник. — М.: Инфра-М, 2003. — 400 с.

Савицкий Н. И. Экономическая информатика. — М.: Экономистъ, 2004. — 429 с.

Смирнова Г. Н. и др. Проектирование экономических информационных систем: Учебник / Под ред.

Ю. Ф. Тельнова. — М.: Финансы и статистика, 2002. — 512 с.

Фаронов И. В. Программирование баз данных в Delphi 7: учебный курс. — СПб.: Питер, 2005. — 295 с.: ил.

Чекалов А. Базы данных: от проектирования до разработки приложений. — СПб: BHV, 2003. — 384 c.

Шкарина Л. Язык SQL: учебный курс. — СПб.: Питер, 2001.

Приложение 1

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

unit LogUnit;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, jpeg;

type

TLogForm = class (TForm)

Panel1: TPanel;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

MaskEdit1: TMaskEdit;

Button1: TButton;

Edit1: TEdit;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

LogForm: TLogForm;

implementation

uses DMUnit, MainUnit;

{$R *.dfm}

procedure TLogForm. Button1Click (Sender: TObject);

Var Access: boolean;

a, b, Empt:string;

begin

a:=Edit1.Text;

b:=MaskEdit1.Text;

Access:=false;

if (Dm.User.RecordCount=0) or (not Dm. ADOConnection1.Connected) then

Begin

if (Edit1.Text='Admin') and (MaskEdit1.Text='111') then Access:=true

End

Else

Begin

Dm.User.First;

while not (Dm.User.Eof) do

Begin

if (a=Dm.User.FieldByName ('Логин').AsString) and (b=Dm.User.FieldByName ('Пароль').AsString) then Access:=true;

Dm.User.Next;

End;

End;

if Access then

Begin

try

Dm.User.Locate ('Логин', a,[]);

MainForm.StatusBar1.Panels[1]. Text:=Dm.User.FieldByName ('ФИО').AsString;

MainUnit.Filter:='';

Dm.Adm.Locate ('Код

Права', Dm.User.FieldByName ('Код

Права').AsInteger,[]);

if (Dm.Adm.FieldByName ('Название').AsString='Администратор') or (Edit1.Text='Admin') then MainForm. N4.Visible:=true

else MainForm. N4.Visible:=false;

MainUnit.Form:=Dm.Adm.FieldByName ('Формирование').AsBoolean;

MainUnit.Utv:=Dm.Adm.FieldByName ('Утверждение').AsBoolean;

MainUnit.Isp:=Dm.Adm.FieldByName ('Исполнение').AsBoolean;

MainUnit.UserIndex:=Dm.User.FieldByName ('Код

Пользователя').AsInteger;

except

end;

MainForm.TabSheet1.Show;

MainForm.Show;

LogForm.Visible:=False;

End;

end;

end.

unit MainUnit;

interface

uses

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

Dialogs, ComCtrls, Menus, ExtCtrls, Grids, DBGrids, StdCtrls, ADODB, ComObj;

type

TMainForm = class (TForm)

Panel1: TPanel;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

StatusBar1: TStatusBar;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

N5: TMenuItem;

N6: TMenuItem;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

Timer1: TTimer;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

procedure TabSheet1Show (Sender: TObject);

procedure TabSheet2Show (Sender: TObject);

procedure TabSheet3Show (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N6Click (Sender: TObject);

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

procedure FormShow (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N18Click (Sender: TObject);

procedure N17Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

Utv, Isp, Form: boolean;

UserIndex: integer;

Filter:string;

implementation

uses DMUnit, LogUnit, AdmUnit, ClientsUnit, CountryUnit, DepUnit, PostUnit,

ResUnit, RuleUnit, FIUnit;

{$R *.dfm}

procedure TMainForm. TabSheet1Show (Sender: TObject);

begin

Dm.Claim.Filter:='(([Сформировал]<>Null) and ([Утвердил]=Null) and ([Исполнитель]=Null))'+ Filter;

Button1.Visible:=true;

Button1.Caption:='Проверен';

Button2.Enabled:=Form;

Button1.Enabled:=Utv;

Button3.Visible:=true;

end;

procedure TMainForm. TabSheet2Show (Sender: TObject);

begin

Dm.Claim.Filter:='(([Сформировал]<>Null) and ([Утвердил]<>Null) and ([Исполнитель]=Null))'+Filter;

Button1.Visible:=true;

Button1.Caption:='Исполнен';

Button2.Enabled:=Form;

Button1.Enabled:=Isp;

Button3.Visible:=false;

end;

procedure TMainForm. TabSheet3Show (Sender: TObject);

begin

Dm.Claim.Filter:='(([Сформировал]<>Null) and ([Утвердил]<>Null) and ([Исполнитель]<>Null))'+ Filter;

Button1.Visible:=false;

Button2.Enabled:=Form;

Button3.Visible:=false;

end;

procedure TMainForm. N5Click (Sender: TObject);

begin

MainForm.Hide;

LogForm.Show;

LogForm.Edit1.Text:='';

LogForm.MaskEdit1.Text:='';

end;

procedure TMainForm. N6Click (Sender: TObject);

begin

MainForm.Close;

end;

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

begin

LogForm.Close;

end;

procedure TMainForm. FormShow (Sender: TObject);

begin

Dm.Claim.Filter:='([Сформировал]<>Null) and ([Утвердил]=Null) and ([Исполнитель]=Null)';

Button1.Visible:=true;

Button1.Caption:='Проверен';

Button2.Enabled:=Form;

Button1.Enabled:=Utv;

Button3.Visible:=true;

N7.Checked:=true;

end;

procedure TMainForm. N7Click (Sender: TObject);

begin

StatusBar1.Visible:=N7.Checked;

StatusBar1.Top:=583;

end;

procedure TMainForm. Timer1Timer (Sender: TObject);

begin

StatusBar1.Panels[3]. Text:=DateToStr (Now);

StatusBar1.Panels[5]. Text:=TimeToStr (Now);

end;

procedure TMainForm. N11Click (Sender: TObject);

begin

ClientForm.Show;

end;

procedure TMainForm. N10Click (Sender: TObject);

begin

CountryForm.Show;

end;

procedure TMainForm. N14Click (Sender: TObject);

begin

ResForm.Show;

end;

procedure TMainForm. N8Click (Sender: TObject);

begin

UserForm.Show;

end;

procedure TMainForm. N9Click (Sender: TObject);

begin

RuleForm.Show;

end;

procedure TMainForm. N12Click (Sender: TObject);

begin

PostForm.Show;

end;

procedure TMainForm. N13Click (Sender: TObject);

begin

OtdForm.Show;

end;

procedure TMainForm. Button4Click (Sender: TObject);

begin

FIForm.Show;

end;

procedure TMainForm. Button5Click (Sender: TObject);

begin

if dm.Claim.Modified then Dm.Claim.Post;

end;

procedure TMainForm. Button3Click (Sender: TObject);

begin

Dm.Claim.Delete;

end;

procedure TMainForm. Button2Click (Sender: TObject);

begin

Dm.Claim.Insert;

FIForm.Show;

end;

procedure TMainForm. Button1Click (Sender: TObject);

begin

case PageControl1. ActivePageIndex of

0: Begin

Dm.Claim.Edit;

Dm.Claim.FieldByName ('Утвердил').AsInteger:=MainUnit.UserIndex;

Dm.Claim.FieldByName ('Дата

Утверждения').AsDateTime:=Now;

Dm.Claim.Post;

End;

1: Begin

Dm.Claim.Edit;

Dm.Claim.FieldByName ('Исполнитель').AsInteger:=MainUnit.UserIndex;

Dm.Claim.FieldByName ('Дата

Исполнения').AsDateTime:=Now;

Dm.Claim.Post;

End;

End;

end;

//Процедура отправки данных в Excel

Procedure ExcExport (Tema:string; Query: TADOQuery);

var ExcelApp: OleVariant;

i, j: integer;

begin

try

ExcelApp := GetActiveOleObject ('Excel.Application');

except

on EOLESysError do

ExcelApp := CreateOleObject ('Excel.Application');

end;

ExcelApp.Visible := True;

ExcelApp.DisplayAlerts := False;

ExcelApp.WorkBooks.Add;

ExcelApp.WorkSheets[1]. Activate;

ExcelApp.Range['A1', EmptyParam]. Formula:=Tema;

ExcelApp.Range['A2', EmptyParam]. Formula:='№';

Query.First;

ExcelApp.Cells.Item [2,2]: =Query.FieldCount;

For j:=0 to Query. FieldCount-1 do

ExcelApp.Cells.Item [2,j+2]: =Query.Fields.Fields[j].DisplayName;

i:=3;

While not Query. Eof do

Begin

ExcelApp.Cells.Item [i, 1]: =i-2;

For j:=0 to Query. FieldCount-1 do

ExcelApp.Cells.Item [i, j+2]: =Query.Fields.Fields[j].Value;

Query.Next;

i:=i+1;

End;

//Выравнивание заголовка таблицы по центру и выделение жирным

ExcelApp.Range['A1', ExcelApp.Cells.Item [1,Query.FieldCount+1]]. Select;

ExcelApp.Selection.Merge;

ExcelApp.Rows.Rows[1]. HorizontalAlignment:=3;

ExcelApp.Rows.Rows[2]. HorizontalAlignment:=3;

ExcelApp.Rows.Rows[1]. Font. Bold:=true;

ExcelApp.Rows.Rows[2]. Font. Bold:=true;

//Автоподбор ширины столбцов

ExcelApp.Cells.Select;

ExcelApp.Selection.Columns.AutoFit;

//Прорисовка границ

ExcelApp.Range['A2', ExcelApp.Cells.Item [i-1,Query.FieldCount+1]]. Select;

ExcelApp.Selection.Borders[7]. LineStyle:=1;

ExcelApp.Selection.Borders[8]. LineStyle:=1;

ExcelApp.Selection.Borders[9]. LineStyle:=1;

ExcelApp.Selection.Borders[10]. LineStyle:=1;

ExcelApp.Selection.Borders[11]. LineStyle:=1;

ExcelApp.Selection.Borders[12]. LineStyle:=1;

//Снятие выделения

ExcelApp.Range['A2', EmptyParam]. Select;

End;

procedure TMainForm. N16Click (Sender: TObject);

begin

ExcExport ('Реестр исполненных заявок', Dm. QReestr);

end;

procedure TMainForm. N18Click (Sender: TObject);

begin

ExcExport ('Реестр заявок', Dm. QReestr2);

end;

procedure TMainForm. N17Click (Sender: TObject);

var ExcelApp: OleVariant;

i:integer;

begin

try

ExcelApp := GetActiveOleObject ('Excel.Application');

except

on EOLESysError do

ExcelApp := CreateOleObject ('Excel.Application');

end;

ExcelApp.Visible := True;

ExcelApp.DisplayAlerts := False;

ExcelApp.WorkBooks.Open (ExtractFilePath (Application.ExeName)+'Заявка.xlt');

ExcelApp.WorkSheets[1]. Activate;

ExcelApp.Range['A1', EmptyParam]. Formula:='Заявка № '+Dm.Claim.FieldByName ('Код

Заявки').AsString;

ExcelApp.Range['B3', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Страна').AsString;

ExcelApp.Range['B4', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Курорт').AsString;

ExcelApp.Range['B5', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Гостиница').AsString;

ExcelApp.Range['D4', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Стоимость билета').AsString;

ExcelApp.Range['B7', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Дата

Заезда').AsString;

ExcelApp.Range['D7', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Дата

Выезда').AsString;

ExcelApp.Range['B8', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Количество

Людей').AsString;

ExcelApp.Range['B9', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Количество

Детей').AsString;

ExcelApp.Range['B13', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Клиент').AsString;

ExcelApp.Range['B14', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Имя

Клиента').AsString;

ExcelApp.Range['B15', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Отч

Клиента').AsString;

ExcelApp.Range['B16', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Адрес').AsString;

ExcelApp.Range['D13', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Паспорт').AsString;

ExcelApp.Range['D14', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Дата

Рождения').AsString;

ExcelApp.Range['D15', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Телефон').AsString;

ExcelApp.Range['D16', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Email').AsString;

ExcelApp.Range['B20', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Составитель').AsString;

ExcelApp.Range['D20', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Дата

Формирования').AsString;

ExcelApp.Range['B21', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Исполнитель2').AsString;

ExcelApp.Range['D21', EmptyParam]. Formula:=Dm.Claim.FieldByName ('Дата

Исполнения').AsString;

end;

end.

unit PostUnit;

interface

uses

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

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

type

TPostForm = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

PostForm: TPostForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit ResUnit;

interface

uses

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

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

type

TResForm = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

ResForm: TResForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit RuleUnit;

interface

uses

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

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

type

TRuleForm = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

RuleForm: TRuleForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

program SED;

uses

Forms,

LogUnit in 'LogUnit.pas' {LogForm},

DMUnit in 'DMUnit.pas' {DM: TDataModule},

MainUnit in 'MainUnit.pas' {MainForm},

CountryUnit in 'CountryUnit.pas' {CountryForm},

ResUnit in 'ResUnit.pas' {ResForm},

ClientsUnit in 'ClientsUnit.pas' {ClientForm},

AdmUnit in 'AdmUnit.pas' {UserForm},

RuleUnit in 'RuleUnit.pas' {RuleForm},

PostUnit in 'PostUnit.pas' {PostForm},

DepUnit in 'DepUnit.pas' {OtdForm},

FIUnit in 'FIUnit.pas' {FIForm};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm (TLogForm, LogForm);

Application.CreateForm (TDM, DM);

Application.CreateForm (TMainForm, MainForm);

Application.CreateForm (TCountryForm, CountryForm);

Application.CreateForm (TResForm, ResForm);

Application.CreateForm (TClientForm, ClientForm);

Application.CreateForm (TUserForm, UserForm);

Application.CreateForm (TRuleForm, RuleForm);

Application.CreateForm (TPostForm, PostForm);

Application.CreateForm (TOtdForm, OtdForm);

Application.CreateForm (TFIForm, FIForm);

Application.Run;

end.

unit ClientsUnit;

interface

uses

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

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

type

TClientForm = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

ClientForm: TClientForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit CountryUnit;

interface

uses

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

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

type

TCountryForm = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

CountryForm: TCountryForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit DepUnit;

interface

uses

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

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

type

TOtdForm = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

OtdForm: TOtdForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit DMUnit;

interface

uses

SysUtils, Classes, DB, ADODB, XPMan;

type

TDM = class (TDataModule)

ADOConnection1: TADOConnection;

Country: TADOTable;

XPManifest1: TXPManifest;

Clients: TADOTable;

Post: TADOTable;

Claim: TADOTable;

Depart: TADOTable;

Resort: TADOTable;

User: TADOTable;

Adm: TADOTable;

CountryDSDesigner: TAutoIncField;

CountryDSDesigner2: TWideStringField;

AdmDSDesigner: TAutoIncField;

AdmDSDesigner2: TWideStringField;

AdmDSDesigner3: TBooleanField;

AdmDSDesigner4: TBooleanField;

AdmDSDesigner5: TBooleanField;

UserDSDesigner: TAutoIncField;

UserDSDesigner2: TWideStringField;

UserDSDesigner3: TWideStringField;

UserDSDesigner4: TWideStringField;

UserDSDesigner5: TIntegerField;

UserDSDesigner6: TIntegerField;

UserDSDesigner7: TIntegerField;

DepartDSDesigner: TAutoIncField;

DepartDSDesigner2: TWideStringField;

ResortDSDesigner2: TWideStringField;

ResortDSDesigner3: TWideStringField;

ResortDSDesigner4: TIntegerField;

ResortField: TStringField;

ClientsDSDesigner: TAutoIncField;

ClientsDSDesigner2: TWideStringField;

ClientsDSDesigner3: TWideStringField;

ClientsDSDesigner4: TWideStringField;

ClientsDSDesigner5: TWideStringField;

ClientsDSDesigner6: TDateTimeField;

ClientsDSDesigner7: TWideStringField;

ClientsDSDesigner8: TWideStringField;

ClientsEmail: TWideStringField;

ClaimDSDesigner: TAutoIncField;

ClaimDSDesigner2: TWideStringField;

ClaimDSDesigner3: TSmallintField;

ClaimDSDesigner4: TSmallintField;

ClaimDSDesigner5: TDateTimeField;

ClaimDSDesigner6: TDateTimeField;

ClaimDSDesigner7: TIntegerField;

ClaimDSDesigner10: TIntegerField;

ClaimDSDesigner11: TIntegerField;

ClaimDSDesigner12: TIntegerField;

ClaimDSDesigner13: TDateTimeField;

ClaimDSDesigner14: TDateTimeField;

ClaimDSDesigner15: TDateTimeField;

PostDSDesigner: TAutoIncField;

PostDSDesigner2: TWideStringField;

UserField: TStringField;

UserField2: TStringField;

UserField3: TStringField;

ClaimStringField: TStringField;

ClaimField: TStringField;

ClaimField2: TStringField;

ClaimIntegerField2: TStringField;

DSAdm: TDataSource;

DSClaim: TDataSource;

DSClients: TDataSource;

DSCountry: TDataSource;

DSDepart: TDataSource;

DSPost: TDataSource;

DSResort: TDataSource;

DSUser: TDataSource;

ResortDSDesigner: TAutoIncField;

ClaimDSDesigner8: TIntegerField;

ClaimField3: TStringField;

QReestr: TADOQuery;

QReestrDSDesigner: TWideStringField;

QReestrDSDesigner2: TWideStringField;

QReestrDSDesigner3: TWideStringField;

QReestrDSDesigner4: TDateTimeField;

QReestrDSDesigner5: TDateTimeField;

QReestrUsers1: TWideStringField;

QReestrDSDesigner6: TDateTimeField;

QReestrUsers2: TWideStringField;

QReestrDSDesigner7: TDateTimeField;

QReestr2: TADOQuery;

QReestr2DSDesigner: TWideStringField;

QReestr2DSDesigner2: TWideStringField;

QReestr2DSDesigner3: TWideStringField;

QReestr2DSDesigner4: TDateTimeField;

QReestr2DSDesigner5: TDateTimeField;

QReestr2DSDesigner6: TWideStringField;

QReestr2DSDesigner7: TDateTimeField;

QReestr2DSDesigner8: TDateTimeField;

ClaimField4: TStringField;

ClaimField5: TStringField;

ClaimField6: TStringField;

ClaimField7: TStringField;

ClaimField8: TStringField;

ClaimStringField2: TStringField;

ClaimField9: TStringField;

ClaimField10: TStringField;

ClaimEmail: TStringField;

procedure ClaimAfterInsert (DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses MainUnit;

{$R *.dfm}

procedure TDM. ClaimAfterInsert (DataSet: TDataSet);

begin

Dm.Claim.FieldByName ('Сформировал').AsInteger:=MainUnit.UserIndex;

Dm.Claim.FieldByName ('Дата

Формирования').AsDateTime:=Now;

end;

end.

unit FIUnit;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls;

type

TFIForm = class (TForm)

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label2: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label3: TLabel;

DBEdit1: TDBEdit;

Label4: TLabel;

DBEdit2: TDBEdit;

Label5: TLabel;

DBEdit3: TDBEdit;

Label6: TLabel;

DBEdit4: TDBEdit;

Label7: TLabel;

DBEdit5: TDBEdit;

GroupBox1: TGroupBox;

Label8: TLabel;

Label9: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

DBEdit6: TDBEdit;

GroupBox2: TGroupBox;

Label10: TLabel;

Label11: TLabel;

DBLookupComboBox4: TDBLookupComboBox;

DBEdit7: TDBEdit;

GroupBox3: TGroupBox;

Label12: TLabel;

Label13: TLabel;

DBLookupComboBox5: TDBLookupComboBox;

DBEdit8: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FIForm: TFIForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit AdmUnit;

interface

uses

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

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

type

TUserForm = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label5: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label6: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

UserForm: TUserForm;

implementation

uses DMUnit;

{$R *.dfm}

end.