Разработка модуля расписания рабочих смен сотрудников управления по взысканию просроченной задолженности в ООО «Ренессанс Капитал»

Единственная форма которая проектируется специально для системного администратора — это форма «Администрирование», к которой сотрудник отдела кадров не будет иметь доступа. Таким образом, на системного администратора возложены функции по администрированию информационной системы, а на сотрудника отдела кадров все остальные функции.

2.

3.2. Характеристика базы данных Для описания данных и установления связей между ними для разрабатываемой ЭИС используется CASE — средство ERwin. ERwin удобное средство для автоматизированного проектирования баз данных. Как правило разработка модели базы данных состоит из двух этапов: составление логической модели и создание на ее основе физической модели. ERwin полностью поддерживает такой процесс, он имеет два представления модели: логическое (logical) и физическое (physical). Таким образом, разработчик может строить логическую модель базы данных, не задумываясь над деталями физической реализации, т. е. уделяя основное внимание требованиям к информации и бизнес-процессам, которые будет поддерживать будущая база данных.

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

Основные компоненты диаграммы Erwin — это сущности, атрибуты и связи.

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

Атрибут выражает определенное свойство объекта. С точки зрения БД (физическая модель) сущности соответствует таблица, экземпляру сущности — строка в таблице, а атрибуту — колонка таблицы.

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

Erwin имеет набор инструментов для создания логической модели — палитра и панель инструментов, диалоги редактирования связей, сущностей и атрибутов, инструмент создания независимых атрибутов, различные уровни представления модели, инструменты работы с большими моделями. Поддерживаются нотации IDEF1X и IE. [18]

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

диаграмма сущности — связь (Entity Relationship Diagram, ERD);

модель данных, основанная на ключах (Key Based model, KB);

полная атрибутивная модель (Fully Attributed model, FA).

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

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

На рисунке 2.

4. представлена созданная Er-диаграмма.

Рис. 2.

4. Er-диаграмма Опишем более подробно структуру каждой созданной таблицы.

В таблице 2.

2. представлена структура справочника «Должность».

Таблица 2.

2.

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

Код поля Тип данных Размер поля Ключ Код

Должности Числовой — Первичный Должность Текстовый 50 ;

В таблице 2.

3. представлена структура справочника «Права».

Таблица 2.

3.

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

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

В таблице 2.

4. структура таблицы «Сотрудники».

Таблица 2.

4.

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

Код поля Тип данных Размер поля Ключ Код сотрудника Числовой — Первичный ФИО Текстовый 50 — Код должности Числовой — Внешний Телефон Тестовый 14 — Адрес Тестовый 250 — Email Тестовый 50 ;

В таблице 2.

5. представлена структура таблицы «Пользователи».

Таблица 2.

5.

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

Код поля Тип данных Размер поля Ключ Код

Пользователя Числовой — Первичный ФИО Текстовый 50 — Логин Тестовый 50 — Пароль Тестовый 50 — E-mail Тестовый 50 — Телефон Тестовый 14 — Код прав Числовой — Внешний Код

Должности Числовой — Внешний В таблице 2.

6. представлена структура таблицы «Причины».

Таблица 2.

6.

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

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

В таблице 2.

7. представлена структура таблицы «Пропуски».

Таблица 2.

7.

Структура таблицы «Пропуски»

Код поля Тип данных Размер поля Ключ Код пропуска Числовой — Первичный Код причины Числовой — Внешний Дата начала Дата — - Дата окончания Дата — - Код сотрудника Числовой — Внешний В таблице 2.

8. представлена структура таблицы «Расписание».

Таблица 2.

8.

Структура таблицы «Расписание»

Код поля Тип данных Размер поля Ключ Дата Числовой — Первичный, составной Код сотрудника Числовой — Первичный, внешний составной Часы работы Числовой — ;

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

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

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

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

5.

Рис. 2.

5. Схема данных.

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

Создание схемы данных в СУБД Microsoft Access позволит связать таблицы, что позволит следить встроенными средствами СУБД за целостностью базы данных.

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

2.

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

Рис. 2.

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

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

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

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

9.

Таблица 2.

9.

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

№ Наименование Функция 1 Форма авторизации Требует от пользователя ввести логин и пароль. В случае правильного ввода, осуществляется переход на главную форму 2 Главная форма Содержит главное меню, а также отображаются данные относительно расписания 3 Форма «Справочники» Позволяет редактировать информацию содержащуюся в справочниках 4 Форма «Администрирование» Позволяет осуществить ввод или редактирование данных относительно пользователей программного продукта. 5 Форма «Права» Содержит полную информацию относительно прав пользователей 6 Форма «Сотрудники» Позволяет редактировать данные о всех сотрудниках, в том числе и информацию относительно пропусков 7 Модуль данных Содержит программные элементы необходимые для осуществления взаимодействия между базой данных и разработанным приложением пользователя Реализованный программный продукт должен быть компактен и не занимать много пространства на рабочем месте, поэтому необходимо максимально использовать отводимое под форму место, а также использовать множество вкладок на одной форме, что позволит не вызывать множество форм.

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

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

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

Использование СУБД Access для реализации базы данных, позволит автоматически настроить вывод предупредительных сообщений при удалении связанных записей или нарушении целостности базы данных. Это позволит создать дополнительные условия для контроля правильности заносимой информации.

2.

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

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

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

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

Хранение информации будет осуществляться в одном файле СУБД Access, что позволит в случае необходимости делать резервные копии или обновления, за счет замены файла СУБД. Это необходимо при работе на различных компьютерах с программным продуктом. Различная информация должна храниться в различных таблицах базы данных, что позволит свести к минимуму избыточность хранимой информации, снизить объем физической памяти, занимаемой базой данных, а также ускорит процесс работы программным продуктом.

Информация должна преимущественно выводиться на экран в удобном для пользователя виде.

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

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

На рисунке 2.

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

Рис. 2.

7. Алгоритм проверки возможности добавления сотрудника в расписание.

Объяснить представленный выше алгоритм можно так: при добавлении нового сотрудника в расписание, проверяется наличие у него причин пропуска, в случае если подобные причины для пропуска есть, то выдается сообщение о том, что «Этот сотрудник не может выйти в этот день» и изменения в базу данных не сохраняются.

2.

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

8. представлена форма авторизации.

Рис. 2.

8.Форма авторизации.

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

9. представлена главная форма программы.

Рис. 2.

9. Главная форма программы.

Из главной формы возможен переход на все формы программного продукта. На рисунке 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. Главная форма.

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

04. Для этого выберем этот день недели, представлено на рисунке 2.

17.

Рис. 2.

17. Главная форма. Дата 18.

04.

После этого добавим руководителя отдела и двух менеджеров. При добавлении менеджера «Иванов П.Н.» будет выдана ошибка, представленная на рисунке 2.

18.

Рис. 2.

18. Ошибка.

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

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

19.

Рис. 2.

19. Сотрудники. Отгул на 18.

04.

Именно из-за взятого отгула «Иванов П.Н.» не может выйти в этот день на работу.

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

20.

Рис. 2.

20. Ошибка повторного добавления сотрудника.

Итак, перейдем к процессу формирования отчетности. В результате функционирования информационной системы формируется всего один отчет — «Расписание», представлен на рисунке 2.

21.

Рис. 2.

21. Расписание.

На рисунке 2.22 представлен данный отчет в режиме предварительного просмотра.

Рис. 2.

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

На рисунке 2.

23. представлено расписание за март 2011 года.

Рис. 2.

23. Расписание за март.

На рисунке 2.24 представлен данный отчет в режиме предварительного просмотра.

Рис. 2.

24. Расписание за март в режиме предварительного просмотра

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

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

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

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

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

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

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

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

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

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

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

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

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

3.2 Расчёт показателей экономической эффективности проекта Для обоснования эффективности дипломного проекта произведем расчет показателей экономической эффективности и на их основе сделаем вывод о целесообразности проектирования информационной системы по автоматизации складского учета.

В таблице 3.

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

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

Таблица 3.

1.

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

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

Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций 1 2 3 4 5 6 7 8 9 10 11 1 Ведение данных по сотрудникам Вручную Док. 500 5 100 60 0 0 6000 2 Ведение данных по пропускам Вручную Док. 2000 5 400 60 0 0 24 000 3 Структурирование данных Вручную Док. 3000 5 600 60 0 0 36 000 4 Составление расписания Вручную Док. 500 2 250 60 0 2 15 500 5 Редактирование расписания Вручную Док.

1000 2 500 60 0 2 31 000 6 Оформление расписания Вручную Док. 1500 4 375 60 0 2 23 250 7 Формирование другой отчетности Вручную Док. 1000 4 250 60 0 0 15 000

Итого: 2475 6 150 750

Таблица 3.

2.

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

№ Наименование операций технологического процесса решения комплекса задач Оборудование Ед. Изм. Объем работы в год Норма выработки Трудоемкость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций 1 2 3 4 5 6 7 8 9 10 11 1 Ведение данных по сотрудникам Компьютер Док. 500 20 25 60 0 0 1500 2 Ведение данных по пропускам Компьютер Док.

2000 20 100 60 0 0 6000 3 Структурирование данных Компьютер Док. 3000 20 150 60 0 0 9000 4 Составление расписания Компьютер Док. 500 25 20 60 2 0 1240 5 Редактирование расписания Компьютер Док. 1000 25 40 60 2 0 2480 6 Оформление расписания Компьютер Док. 1500 25 60 60 2 0 3720 7 Формирование другой отчетности Компьютер Док. 1000 25 150 60 0 0 9000

Итого: 545 0 32 940

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

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

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

2.1)

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

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

(Т=2475−545=1930

На рисунке 3.

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

Рис. 3.

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

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

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

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

2.2)

(С=150 750−32 940 = 117 810

На рисунке 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)

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

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

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

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

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

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

При условии, что временные затраты на проектирование системы составляют 30% от общего времени работы 1 инженера (2 месяца, 48 рабочих дня, 384 часа), Тпр = 105,60 часов.

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

К1 = 105,6 * (90,91 + 2) = 17 987,20 руб.

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

К2 = 193,6 * (90,91 + 2) = 17 987,20 руб.

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

К3 = 193,6 * (90,91 +2) =17 987,20 руб.

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

К4 = 4 *3* (90,91 + 68,18 + 2) = 1 933,09 руб.

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

К5 = 52,8 * (90,91 + 68,18) + 1 * 42,24 * 2 = 8 484,48 руб.

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

2.3) составит 63 797,92 рублей.

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

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

2.5)

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

Ток = 63 797,92/117 810=0,54

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

Заключение

Тема дипломного проекта «Разработка модуля расписания рабочих смен сотрудников Ренессанс Капитал». Тема дипломного проекта является актуальной и своевременной. Целью дипломного проекта являлась разработка и реализация программного продукта позволяющего автоматизировать составления расписания рабочих для управления.

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

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

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

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

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

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

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

расчет экономической эффективности программного продукта;

анализ информационной безопасности внедрения программного продукта;

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

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

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

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

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

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

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

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

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

При эксплуатации наличие языка программирования требуется СУБД, а Microsoft Access поставляется вместе с интегрированным пакетом офисных приложений Microsoft Office, что позволяет не сильно увеличивать затраты на приобретение специального программного обеспечения.

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

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

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

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

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

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

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

Брауде Э.Дж. Технология разработки программного обеспечения: Пер. с англ. — СПб: Питер, 2004. — 523 с.

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

Гвоздева Т. В. Проектирование информационных систем. — Р на/Д: Феникс, 2009. — 512 с.

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

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

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

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

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

Грекул В. И. Проектирование информационных систем. — М.: Интуит, 2008. — 304 с.

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

Джексон Г. Проектирование реляционных баз данных для использования с микро-ЭВМ М.: Финансы и статистика, 1991.

Елиферов В.Г., Репин В. В. Бизнес-процессы. Регламентация и управление. — М.: Инфра-М, 2009. — 320 с.

Емельянова Н. З. Проектирование информационных систем. — М.: Форум, 2009. — 432 с.

Зеленков Ю.А.

Введение

в базы данных. Центр Интернет ЯрГУ, 1997.

Зелковиц М., Шоу А., Гэннон Дж. Принципы разработки программного обеспечения / Пер. с англ. — М.: Мир, 1982. — 386 с., ил.

Ивлиев М.К., Порошина Л. А. Автоматизация оперативного и бухгалтерского учета товаров, 1997.

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

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

Керри Н. Праг, Майкл Р. Ирвин, Access 2000 — Библия пользователя, Диалектика, 2000.

Козлов А. С. Проектирование и исследование бизнес-процессов. — М.: Флинта, 2006. — 272 с.

Крис Дейт.

Введение

в базы данных, 6-е изд. Киев, Диалектика, 1998.

Мещеряков С.В., Иванов В. М. Эффективные технологии создания информационных систем. — М.: Политехника, 2005. — 309 с.

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

Овчинников, В. Г. Методология проектирования автоматизированных информационных систем. Основы системного подхода. — М.: Компания Спутник+, 2005. — 286 с.

Репин В.В. Бизнес-процессы компании. Построение, анализ, регламентация. — М.: Стандарты и качество, 2007. — 240 с.

Рудаков А. В. Технология разработки программных продуктов. — М.: Академия, 2005. — 208 с.

Симионов Ю.Ф., Боромотов В. В. Информационный менеджмент. — Ростов н. Д: Феникс, 2006, 250с., ил.;

Титоренко Г. А. Автоматизированные информационные технологии в экономике: Учебник. — М.: ЮНИТИ, 2005. — 399 с.

Шандров Б.В., Чудаков А. Д. Технические средства автоматизации. -М.: Академия, 2007. — 368 с.

Шеер А. В. Моделирование бизнес-процессов. — М.: Весть-Мета

Технология, 2001. — 206 с.

Приложение 1

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

unit AutUnit;

interface

uses

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

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

type

TAutForm = class (TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

MaskEdit1: TMaskEdit;

Button1: TButton;

Button2: TButton;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AutForm: TAutForm;

implementation

uses DMUnit, MainUnit, RightsUnit, SotrUnit, SprUnit, UserUnit;

{$R *.dfm}

procedure TAutForm. Button2Click (Sender: TObject);

begin

AutForm.Close;

end;

procedure TAutForm. Button1Click (Sender: TObject);

begin

if (Dm.TUser.FieldByName ('Права').AsString='Администратор') or (Dm.TUser.RecordCount=0) then MainForm. N5.Visible:=true

else MainForm. N5.Visible:=false;

If (Dm.TUser.FieldByName ('Права').AsString='Гость') then

Begin

Dm.TUser.Active:=false;

Dm.TUser.ReadOnly:=true;

Dm.TUser.Active:=true;

Dm.TPost.Active:=false;

Dm.TPost.ReadOnly:=true;

Dm.TPost.Active:=true;

Dm.TAdmis.Active:=false;

Dm.TAdmis.ReadOnly:=true;

Dm.TAdmis.Active:=true;

Dm.Trota.Active:=false;

Dm.Trota.ReadOnly:=true;

Dm.Trota.Active:=true;

Dm.TRights.Active:=false;

Dm.TRights.ReadOnly:=true;

Dm.TRights.Active:=true;

Dm.TReasons.Active:=false;

Dm.TReasons.ReadOnly:=true;

Dm.TReasons.Active:=true;

Dm.TSotr.Active:=false;

Dm.TSotr.ReadOnly:=true;

Dm.TSotr.Active:=true;

End;

if (MaskEdit1.Text = Dm.TUser.FieldByName ('Пароль').AsString) or (Dm.TUser.RecordCount=0) then

Begin

MainForm.Show;

AutForm.Hide;

End;

end;

end.

unit DMUnit;

interface

uses

SysUtils, Classes, XPMan, DB, ADODB;

type

TDM = class (TDataModule)

XPManifest1: TXPManifest;

ADOConnection1: TADOConnection;

TUser: TADOTable;

TPost: TADOTable;

TRights: TADOTable;

TReasons: TADOTable;

TAdmis: TADOTable;

TRota: TADOTable;

TSotr: TADOTable;

DSTAdmis: TDataSource;

DSTPost: TDataSource;

DSTReasons: TDataSource;

DSTRights: TDataSource;

DSTRota: TDataSource;

DSTSotr: TDataSource;

DsTUser: TDataSource;

TPostDSDesigner: TAutoIncField;

TPostDSDesigner2: TWideStringField;

TUserDSDesigner: TAutoIncField;

TUserDSDesigner2: TWideStringField;

TUserDSDesigner3: TWideStringField;

TUserDSDesigner4: TWideStringField;

TUserEmail: TWideStringField;

TUserDSDesigner5: TWideStringField;

TUserDSDesigner6: TIntegerField;

TUserDSDesigner7: TIntegerField;

TUserField: TStringField;

TUserField2: TStringField;

TRightsDSDesigner: TAutoIncField;

TRightsDSDesigner2: TWideStringField;

TReasonsDSDesigner: TAutoIncField;

TReasonsDSDesigner2: TWideStringField;

TAdmisDSDesigner: TIntegerField;

TAdmisDSDesigner2: TAutoIncField;

TAdmisDSDesigner3: TDateTimeField;

TAdmisDSDesigner4: TDateTimeField;

TAdmisDSDesigner5: TIntegerField;

TAdmisField: TStringField;

TAdmisField2: TStringField;

TRotaDSDesigner: TDateTimeField;

TRotaDSDesigner2: TIntegerField;

TRotaDSDesigner3: TSmallintField;

TRotaField: TStringField;

TRotaField2: TStringField;

TSotrDSDesigner: TAutoIncField;

TSotrDSDesigner2: TWideStringField;

TSotrDSDesigner3: TIntegerField;

TSotrDSDesigner4: TWideStringField;

TSotrDSDesigner5: TWideStringField;

TSotrEmail: TWideStringField;

TSotrField: TStringField;

QRota: TADOQuery;

QRotaDSDesigner: TDateTimeField;

QRotaDSDesigner2: TSmallintField;

QRotaDSDesigner3: TWideStringField;

procedure TAdmisBeforePost (DataSet: TDataSet);

procedure TSotrAfterScroll (DataSet: TDataSet);

procedure TRotaBeforePost (DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses MainUnit;

{$R *.dfm}

procedure TDM. TAdmisBeforePost (DataSet: TDataSet);

begin

Dm.TAdmis.FieldByName ('Код Сотрудника').Value:=Dm.TSotr.FieldByName ('Код Сотрудника').Value;

end;

procedure TDM. TSotrAfterScroll (DataSet: TDataSet);

begin

try

Dm.TAdmis.Filter:='[Код Сотрудника]='+Dm.TSotr.FieldByName ('Код Сотрудника').AsString;

except

End;

end;

procedure TDM. TRotaBeforePost (DataSet: TDataSet);

begin

Dm.TRota.FieldByName ('Дата').AsDateTime:=MainForm.MonthCalendar1.Date;

end;

end.

unit MainUnit;

interface

uses

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

Dialogs, Menus, ComCtrls, StdCtrls, Grids, DBGrids, Mask, DBCtrls,

ExtCtrls, ComObj, ADODB, DateUtils;

type

TMainForm = class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

DBGrid1: TDBGrid;

MonthCalendar1: TMonthCalendar;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label2: TLabel;

DBEdit1: TDBEdit;

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

procedure N4Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure MonthCalendar1Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure DBLookupComboBox1CloseUp (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

uses AutUnit, DMUnit, SprUnit, RightsUnit, UserUnit, SotrUnit;

{$R *.dfm}

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

begin

AutForm.Close;

end;

procedure TMainForm. N4Click (Sender: TObject);

begin

MainForm.Close;

end;

procedure TMainForm. N7Click (Sender: TObject);

begin

SprForm.Show;

SprForm.TabSheet1.Show;

end;

procedure TMainForm. N8Click (Sender: TObject);

begin

SprForm.Show;

SprForm.TabSheet2.Show;

end;

procedure TMainForm. N10Click (Sender: TObject);

begin

RightsForm.Show;

end;

procedure TMainForm. N9Click (Sender: TObject);

begin

UserForm.Show;

end;

procedure TMainForm. N3Click (Sender: TObject);

begin

MainForm.Hide;

AutForm.Show;

end;

procedure TMainForm. N13Click (Sender: TObject);

begin

SotrForm.Show;

end;

procedure TMainForm. MonthCalendar1Click (Sender: TObject);

begin

try

Dm.TRota.Filter:='[Дата]='+DateToStr (MainForm.MonthCalendar1.Date);

except

End;

end;

procedure TMainForm. N11Click (Sender: TObject);

var ExcelApp: OleVariant;

i, j: integer;

Date:TDateTime;

begin

Dm.QRota.Active:=false;

dm.QRota.SQL.Clear;

Dm.QRota.SQL.Add ('SELECT Расписание. Дата, Расписание. Часы работы], Сотрудники. ФИО]');

Dm.QRota.SQL.Add ('FROM Расписание, Сотрудники');

Dm.QRota.SQL.Add ('WHERE (Сотрудники. Код сотрудника]=Расписание. Код сотрудника]) and (Month ([Дата])='+ IntTostr (MonthOfTheYear (MainForm.MonthCalendar1.Date)) +')');

Dm.QRota.Active:=true;

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:='Расписание на месяц';

ExcelApp.Range['A2', EmptyParam]. Formula:='Фамилия сотрудника';

ExcelApp.Range['B2', EmptyParam]. Formula:='Должность сотрудника';

Dm.TSotr.First;

j:=3;

While not (Dm.TSotr.Eof) Do

Begin

ExcelApp.Cells.Item [j, 1]: =Dm.TSotr.FieldByName ('ФИО').AsString;

ExcelApp.Cells.Item [j, 2]: =Dm.TSotr.FieldByName ('Должность').AsString;

j:=j+1;

dm.TSotr.Next;

End;

Dm.QRota.First;

Date:=01/01/1990;

i:=2;

While not (Dm.QRota.Eof) do

Begin

if Date<>Dm.QRota.FieldByName ('Дата').AsDateTime then

Begin

Date:=Dm.QRota.FieldByName ('Дата').AsDateTime;

i:=i+1;

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

End;

Dm.TSotr.First;

j:=3;

While not (Dm.TSotr.Eof) Do

Begin

if Dm.TSotr.FieldByName ('ФИО').Value=Dm.QRota.FieldByName ('ФИО').Value then

ExcelApp.Cells.Item [j, i]: =Dm.QRota.FieldByName ('Часы работы').AsString;

j:=j+1;

dm.TSotr.Next;

End;

Dm.QRota.Next;

End;

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

ExcelApp.Range['A1', ExcelApp.Cells.Item [1,i]]. 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 [Dm.TSotr.RecordCount+2,i]]. 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. DBLookupComboBox1CloseUp (Sender: TObject);

var b: boolean;

begin

b:=false;

Dm.TAdmis.First;

while Not (Dm.TAdmis.Eof) Do

Begin

if (MainForm.MonthCalendar1.Date>=Dm.TAdmis.FieldByName ('Дата начала').AsDateTime) and (MainForm.MonthCalendar1.Date<=Dm.TAdmis.FieldByName ('Дата Окончания').AsDateTime) then b:=true;

Dm.TAdmis.Next;

End;

if b then

Begin

ShowMessage ('Этот сотрудник не может выйти в этот день');

Dm.TRota.Cancel;

End;

end;

procedure TMainForm. FormShow (Sender: TObject);

begin

MainForm.MonthCalendar1Click (Self);

end;

end.

unit RightsUnit;

interface

uses

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

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

type

TRightsForm = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel1: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

RightsForm: TRightsForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

program Rota;

uses

Forms,

AutUnit in 'AutUnit.pas' {AutForm},

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

MainUnit in 'MainUnit.pas' {MainForm},

SprUnit in 'SprUnit.pas' {SprForm},

RightsUnit in 'RightsUnit.pas' {RightsForm},

UserUnit in 'UserUnit.pas' {UserForm},

SotrUnit in 'SotrUnit.pas' {SotrForm};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm (TAutForm, AutForm);

Application.CreateForm (TDM, DM);

Application.CreateForm (TMainForm, MainForm);

Application.CreateForm (TSprForm, SprForm);

Application.CreateForm (TRightsForm, RightsForm);

Application.CreateForm (TUserForm, UserForm);

Application.CreateForm (TSotrForm, SotrForm);

Application.Run;

end.

unit SotrUnit;

interface

uses

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

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

type

TSotrForm = class (TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel1: TPanel;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Panel2: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label3: TLabel;

DBEdit2: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

Label5: TLabel;

DBEdit4: TDBEdit;

Label6: TLabel;

Label7: TLabel;

DBEdit6: TDBEdit;

Label8: TLabel;

DBEdit7: TDBEdit;

DBLookupComboBox2: TDBLookupComboBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

SotrForm: TSotrForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit SprUnit;

interface

uses

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

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

type

TSprForm = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel1: TPanel;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Panel2: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

SprForm: TSprForm;

implementation

uses DMUnit;

{$R *.dfm}

end.

unit UserUnit;

interface

uses

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

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

type

TUserForm = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel1: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label3: TLabel;

DBEdit2: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

Label5: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label6: TLabel;

DBEdit4: TDBEdit;

Label7: TLabel;

DBEdit5: TDBEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

UserForm: TUserForm;

implementation

uses DMUnit;

{$R *.dfm}

end.