Проектирование реализации операций бизнес-процесса «Расчет заработной платы».

Содержание:

Введение

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

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

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

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

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

Разработанная программа позволит автоматизировать направление «расчет заработной платы».

Для достижения данной цели необходимо решение следующих задач:

• Выполнить характеристику задач, которые необходимо автоматизировать;
• Описать программное и техническое обеспечение;
• Описать БД и процесс разработки программы;
• Протестировать полученное приложение.

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

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

1 ГЛАВА. АНАЛИТИЧЕСКАЯ ЧАСТЬ

1.1. Характеристика комплекса задач

1.1.1. Выбор комплекса задач автоматизации

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

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

Разработка программы для бухгалтера для расчета заработной платы дешевле, чем покупка, готового программного продукта, например «1-С Бухгалтерия».

В данной работе при расчетах оплаты будут учитывать особенности оплаты учителей, в зависимости

• от категории;
• от отработанных часов.

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

1.1.2. Характеристика и существующих бизнес –процессов

Бизнес-процессы, которые имеют место в процессе расчета оплата труда учителей представлены на рисунке 1.

Рисунок 1 – Бизнес-процессы

1.1.3. Характеристика документооборота, возникающего при решении задачи

Документооборот, который происходит в школе схематично показан на рисунке 2.

Рисунок 2 – Схема документооборота

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

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

Такой ручной режим работы, очень не удобный, так как:

Имеет место большое число ошибок;

Нужен 1 работник, который будет заниматься только заработной платой, а это дополнительные ежемесячные расходы;

Большой объем информации (в случае большого учебного заведения);

Сложно делать отчеты.

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

1.2. Обоснование проектных решений

1.2.1. Обоснование проектных решений по информационному обеспечению

Программа для расчета оплаты труда была создана с помощью модели «RAD Model» (rapid application development model или быстрая разработка приложений).

Модель RAD представляет собой один из видов инкрементной модели.

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

· Инструментарий должен быть нацелен на минимизацию времени разработки.

· Создание прототипа для уточнения требований заказчика.

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

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

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

· Управление проектом должно минимизировать длительность цикла разработки^[1].

Для разработки БД была выбрана реляционная модель баз данных. Итак, реляционная модель данных это модель данных, основанная на представлении данных в виде набора отношений, каждое из которых является подмножеством декартова произведения определённых множеств^[2].

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

Преимущества

 простота и доступность для понимания пользователем. Единственной используемой информационной конструкцией является "таблица";

 строгие правила проектирования, базирующиеся на математическом аппарате;

 полная независимость данных. Изменения в прикладной программе при изменении реляционной БД минимальны;

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

Недостатки

 далеко не всегда предметная область может быть представлена в виде "таблиц";

 в результате логического проектирования появляется множество "таблиц". Это приводит к трудности понимания структуры данных;

 БД занимает относительно много внешней памяти;

 относительно низкая скорость доступа к данным^[3].

Все данные БД находятся в таблицах, и каждая таблица обладает уникальным кодом.

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

rabotnik:

• rey;
• FIO;
• Data_rozhden;
• Address;
• Phone;
• Kategory;
• num_kategory;

tarif:

• key;
• sub_key
• data
• tarif_hour
• tarif_rub
• rabots_hours
• summ.

1.2.2. Обоснование проектных решений по программному обеспечению

Таблицы БД созданы в СУБД Microsoft Office Access.

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

СУБД Access предоставляет возможность динамического обмена данными (DDE - Dynamic Data Exchange) между Access и другими приложениями поддерживающими эту технологию. В Access также включена поддержка ActiveX, которая дает возможность разработчику включать в программный продукт объекты других приложений (Excel, Word и др.).

В Access реализована возможность импорта/экспорта данных из других СУБД (Paradox, FoxPro), что очень удобно при переносе данных. К преимуществам Access можно так же отнести возможность обработки данных, как в локальной сети организации, так и в Интернете, в режиме «клиент-сервер». Еще один важный момент, Access позволяет легко создавать БД, даже не имея профессиональных навыков программиста. Инструменты среды разработки интуитивно просты и понятны в освоении. Конечно, для создания серьезных проектов все ж придется накопить знаний, без этого никак^[4].

Была выбрана эта СУБД, не только потому, что она входит в пакет Microsoft Office, но и по другим причинам. А именно:

• Более быстрое и простое начало работы
• Создание централизованной панели для данных
• Доступ к приложениям, данным и формам практически из любого места
• Профессиональное оформление компонентов баз данных Access
• Добавление возможности навигации по базе данных с помощью метода перетаскивания
• Более быстрое и простое выполнение задач
• Простое построение выражений с помощью IntelliSense
• Быстрое создание макросов
• Преобразование частей баз данных в многократно используемые шаблоны
• Интеграция данных Access с веб-контентом^[5].

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

Эта среда была создана компанией Borland с использованием языка Object Pascal. Сейчас развитие Delphi осуществляется компанией Embarcadero, а сама среда поддерживает несколько языков: Delphi, C, C++, С#. Среда Delphi позволяет компилировать одни и те же коды программы для Windows, Mac OS, iPhone, Android и др^[6].

Delphi — это среда разработки программ, ориентированных на работу в Windows. В качестве языка программирования в Delphi используется объектно-ориентированный язык Object Pascal, который можно рассматривать как дальнейшее развитие Turbo Pascal 7.0.

В основе идеологии Delphi лежат технологии визуального проектирования и событийного программирования, применение которых позволяет существенно сократить время разработки и облегчить процесс создания приложений — программ, работающих в среде Windows^[7].

Среда программирования Borland Delphi 7 - это одна из стабильных и проверенных временем версий языка программирования Delphi. До сих пор в ней ведутся разработки, как крупных проектов, так и мелких. И по сей день она успешно справляется с задачами. Многие программы, разработанные в Borland Delphi 7, благополучно работают и на операционных системах Windows 7 (x84, x64). Есть небольшая проблема в новых версиях ОС Windows с отображением справки Delphi, но пара манипуляций позволяет это исправить. Кстати, по поводу справки Delphi, она очень подробная и понятная (как правило, это редкость в языках программирования), хотя и англоязычная.

Так же, IDE среда разработки Borland Delphi 7, на мой взгляд, для начинающих (да и вообще для разработчиков) интуитивно более понятна и проста в освоении, чем более младшие версии языка (в последующих версиях очень запутали и усложнили интерфейс). Но, есть один приятный момент, большинство приложений написанных в Delphi 7, легко открываются и компилируются в более поздних версиях языка (только с используемыми сторонними компонентами могут возникнуть некоторые проблемы).

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

2 ГЛАВА. ПРОЕКТНАЯ ЧАСТЬ

2.1. Информационное обеспечение задачи

2.1.1. Информационная модель и её описание

Проектируемая БД состоит из двух таблиц. А именно:

1. В таблице «rabotnik» содержится вся информация о работниках учебного заведения;
2. И таблица «tarif» содержится вся информация об начислении заработной платы, исходя из отработанных часов и тарифной часовой ставки.

Таблица «rabotnik» будет центральной. Она иметь уникальное поле, которое будет однозначно определять каждую запись. И этим полем является поле «key». Информационная модель БД показана на рисунке 3.

Рисунок 3. Модель базы данных.

2.1.2. Характеристика нормативно-справочной, входной и оперативной информации

Нормативно-справочная информация – это регламенты, нормы и правила которые действуют в учебном заведении. А именно:

1. Должностная инструкция

2. Правила трудового распорядка

3. Законодательные акты.

Входная информация – это информация, которая записывается в таблицы БД. В данном случае входной информацией является:

• Данные о работнике: ФИО, дата рождения, адрес проживания, телефон, категория;
• Данные о тарифе: дата, количество часов – ставка, количество часов отработанных, оплата за 1 ставку, категория.

Входная информация вводится в следующие формы, макеты которые представлены ниже.

Рисунок 4. Макет формы для ввода информации о работнике

Рисунок 5. Макет формы «Добавление тарифа»

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

На основании нормативно-справочной и оперативной получается результирующая информация, то есть сумма к оплате.

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

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

Отчет формируется в формате «имя».pdf. Сформированный документ можно сохранить, распечатать.

Пример отчета показан на рисунке ниже.

Рисунок 6. Отчет

2.2. Программное обеспечение задачи

2.2.1. Общие положения (дерево функций и сценарий диалога)

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

На рисунке 7 показано меню программы.

Рисунок 7. Меню программы

2.2.2. Характеристика базы данных

БД программы состоит из 2 таблиц – справочник «rabotnik» и справочник «tarif». Рассмотрим их более подробно.

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

Таблица 1- Таблица rabotnik

Имя поля	Тип поля	Описание
Key	счетчик
FIO	Текстовое	Личные данные
Data_rozhden	Дата/Время	Дата рождения
Address	Текстовый	Адрес проживания
Phone	Текстовый	Телефон
Kategory	Текстовый	Категория
num_kategory	Числовой

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

Таблица 2 – Таблица Klient

Имя поля	Тип поля	Описание
key	счетчик
sub_key	Числовой
Data	Дата/Время	Дата начисления
tarif_hour	Числовой
tarif_rub	Числовой
rabots_hours	Числовой
summ	Числовой

Таким образом, схема данных программы следующая (См. Рисунок 8).

Рисунок 8. Схема данных

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

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

Рисунок 9. Структурная схема

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

Проект состоит из следующих форм:

• UnitTafir – основная форма приложения. Доступ ко всем остальным формам выполняется по средствам меню, которое находится данной форме.
• UnitDataModule – в данной форме имеет место подключение к таблиц БД;
• UnitAddTarif – форма добавления тарифа;
• UnitAdd_Edit – форма ввода данных о «новом» учителе, то есть добавление новой записи в БД. Так же можно ввести изменения о сотрудниках. Для этого необходимо выбрать нужную запись, в меню выбрать пункт «Запись», затем подпункт «Изменить запись». В открывшейся форме следует внести корректировки.
• UnitZar – форма, которая отражает все начисления для конкретной фамилии, то есть отражается дата начисления, число отработанных часов и сумма к оплате;
• UnitSort- форма, которая позволяет выполнить сортировку – по двум критериям. Первый критерия – по возрастанию или убыванию. Второй критерий – по ФИО, дате рождения, адресу проживания, телефон или категории работника.
• UnitReport – форма отчет по произведенным начислениям. Сформированный отчет можно либо сохранить либо распечатать.

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

2.3. Контрольный пример реализации проекта и его описание

  Запустим приложение. Затем откроется главное окно программы показано на рисунке 10. 

Рисунок 10. Главное окно программы.

 Окно программы, как видно из выше представленного рисунка состоит из главного меню, кнопок и таблицы – где выводится основная информация о сотрудниках.

 Меню программы состоит из следующих элементов:

Меню  «Тарификация» - используется для открытия окна, в котором вводятся тарифы. 

Меню «Запись» содержит подменю из следующих компонентов:

- «Добавить запись» - используется для создания новой записи;

- «Изменить запись» - предназначено для внесения изменений в текущей записи;

- «Удалить запись» - предназначено для удаления текущей записи;

 Меню «Навигация» содержит подменю из следующих компонентов:

         - «Перейти в начало» - используется для перехода в начало данных;

         - «Предыдущая запись» - переход на одну запись назад;

         - «Следующая запись» - переход на одну запись вперед;

         - «Перейти в конец» - переход в конец записей.

Меню «Операции» содержит следующие элементы:

         - «Создать отчет» - используется для генерации отчета по данным;

         - «Сортировка» - применяется для сортировки главной таблицы.

Меню «Помощь» содержит следующие элементы:

         - «О программе…» - показ информации о программе;

Элементам меню «Запись» соответствуют кнопки: «Добавить запись», «Изменить запись» и «Удалить запись» соответственно.

А элементам меню «Навигация» соответствуют кнопки: «В начало таблицы», «Предыдущая запись», «Следующая запись» и «В конец таблицы» соответственно.

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

Рисунок 11. Окно добавления или изменения данных.

 

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

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

 

Рисунок 12. Окно настройки сортировки.

 

В выше представленном окне можно выполнить сортировку данных, по двум критериям. А именно по возрастанию и убыванию, а так же по полю: ФИО сотрудника, дата рождения, адрес проживания, телефон и категория. После сделанных изменений необходимо нажать на кнопку «ОК».

 Окно тарификаций представлено на рисунке 13.

 

Рисунок 13. Окно списка тарифов.

 

Как видно из рисунка 13, окно состоит из кнопки и главного меню, кроме меню «Тарификация», и «Операции», соответствуют окну показанное на рисунке 10.

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

 

Рисунок 14– Окно ввода тарифов.

  

Из данных выше представленного рисунка видно, что надо заполнить все текстовые поля и только потом следует нажать на кнопку «ОК», а для отмены добавления просто нажать на кнопку «Отмена».

Были: рассмотрены все вкладки меню.

Заключение

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

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

Во второй главе, обоснован выбор СУБД и среда для разработки программы. А именно была выбрана СУБД Access и среда программирования Delphi. Основая причина выбор – это то, что Delphi предназначен не только для программистов-профессионалов, но и для студентов, которые обучаются основам программирования.

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

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

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

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

Библиография

1. Карпова И. П. Базы данных: Учебное пособие. — СПб.: Питер, 2013. — 240 с.
2. Кузнецов, С.Д. Основы современных баз данных [текст]: учебник / С.Д. Кузнецов.- СПб.: Бином, 2007. – 488с. - ISBN 978-5-94774-736-2.
3. Программирование в среде Delphi: учеб.-метод. Пособие для бакалавров инженерных и физических специальностей / сост. В. К. Толстых. – Донецк: ДонНУ, 2010. – 128 с
4. Визуальное программирование задач пользователя в среде Delphi: Методические указания к практическим занятиям по курсу "Объектно-ориентированные системы" / Воронеж. гос. технол. акад.; Сост. И.О. Павлов, О.А.Гордиенко, С.В. Кулакова. Воронеж, 2001. 32 с.
5. Прогностические модели процесса разработки: каскадная, RAD, спиральная [онлайн] - URL: http://fkn.ktu10.com/?q=node/746 (дата обращения 27.09.2016)
6. Что такое Access? Знакомство со структурой Access 2010 [онлайн]- URL: http://www.programm-school.ru/znakomstvo_s_access.html (дата обращения 14.10.2016)
7. Access 2010 [онлайн]-URL:http://www.mssoft.ru/Makers/Microsoft/Access_2010/ (дата обращения 14.10.2016)

Приложение А

Листинг программы

unit UnitTarif;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, XPMan, Menus,

StdCtrls, Buttons;

type

TFormTarif = class(TForm)

XPManifest: TXPManifest;

DBGridTarif: TDBGrid;

DBNavigatorTarif: TDBNavigator;

MainMenu: TMainMenu;

mnuHelp: TMenuItem;

mnuProgInfo: TMenuItem;

mnuUserManual: TMenuItem;

tmrController: TTimer;

BitBtnEdit: TBitBtn;

BitBtnDel: TBitBtn;

BitBtnAdd: TBitBtn;

BitBtnBegin: TBitBtn;

BitBtnPrev: TBitBtn;

BitBtnNext: TBitBtn;

BitBtnEnd: TBitBtn;

mnuTable: TMenuItem;

mnuNavigate: TMenuItem;

mnuNavBegin: TMenuItem;

mnuNavPrev: TMenuItem;

mnuNavNext: TMenuItem;

mnuNavEnding: TMenuItem;

mnuRecord: TMenuItem;

mnuRecAdd: TMenuItem;

mnuRecDel: TMenuItem;

mnuRecEdit: TMenuItem;

mnuCreateReport: TMenuItem;

N1: TMenuItem;

mnuSorting: TMenuItem;

tmrUpdate: TTimer;

procedure mnuProgInfoClick(Sender: TObject);

procedure tmrControllerTimer(Sender: TObject);

procedure mnuTableClick(Sender: TObject);

procedure BitBtnAddClick(Sender: TObject);

procedure BitBtnDelClick(Sender: TObject);

procedure BitBtnEditClick(Sender: TObject);

procedure BitBtnBeginClick(Sender: TObject);

procedure BitBtnPrevClick(Sender: TObject);

procedure BitBtnNextClick(Sender: TObject);

procedure BitBtnEndClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure mnuCreateReportClick(Sender: TObject);

procedure mnuUserManualClick(Sender: TObject);

procedure mnuRecAddClick(Sender: TObject);

procedure mnuRecDelClick(Sender: TObject);

procedure mnuRecEditClick(Sender: TObject);

procedure mnuNavBeginClick(Sender: TObject);

procedure mnuNavPrevClick(Sender: TObject);

procedure mnuNavNextClick(Sender: TObject);

procedure mnuNavEndingClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure mnuSortingClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

procedure MySort();

end;

var

FormTarif: TFormTarif;

Procedure ModeSort();

implementation

uses UnitDataModule, UnitZar, funct, UnitReport, UnitSort,

UnitAdd_Edit;

{$R *.dfm}

procedure TFormTarif.mnuProgInfoClick(Sender: TObject);

begin

MessageBoxA

(

Handle,

'Программа расчета тарификации учителей СШ №10 v1.0' + #10#13,

'О программе...',

0 + 64

);

end;

procedure TFormTarif.tmrControllerTimer(Sender: TObject);

var

Count:integer;

Current:integer;

begin

mnuTable.Enabled := not DataModuleTarif.ADOTableRabotnik.IsEmpty;

Current := DataModuleTarif.ADOTableRabotnik.RecNo; // текущая запись

Count := DataModuleTarif.ADOTableRabotnik.RecordCount;

// состояния кнпок "В начало" и "Пред. запись"

if Current > 1 then

begin

BitBtnBegin.Enabled := True;

BitBtnPrev.Enabled := True;

mnuNavBegin.Enabled := True;

mnuNavPrev.Enabled := True;

end

else

begin

BitBtnBegin.Enabled := False;

BitBtnPrev.Enabled := False;

mnuNavBegin.Enabled := False;

mnuNavPrev.Enabled := False

end;

// состояния кнпок "След. запись" и "В конец"

if Current < Count then

begin

BitBtnNext.Enabled := True;

BitBtnEnd.Enabled := True;

mnuNavNext.Enabled := True;

mnuNavEnding.Enabled := True

end

else

begin

BitBtnNext.Enabled := False;

BitBtnEnd.Enabled := False;

mnuNavNext.Enabled := False;

mnuNavEnding.Enabled := False

end;

// состояние кнопки "Удалить"

if DBNavigatorTarif.Controls[Ord(nbDelete)].Enabled then

begin

BitBtnDel.Enabled := True;

mnuRecDel.Enabled := True

end

else

begin

BitBtnDel.Enabled := False;

mnuRecDel.Enabled := False

end;

// состояние кнопки "Добавить"

if DBNavigatorTarif.Controls[Ord(nbInsert)].Enabled then

begin

BitBtnAdd.Enabled := True;

mnuRecAdd.Enabled := True;

end

else

begin

BitBtnAdd.Enabled := False;

mnuRecAdd.Enabled := False;

end;

// состояние кнопки "Изменить"

if DBNavigatorTarif.Controls[Ord(nbEdit)].Enabled then

begin

BitBtnEdit.Enabled := True;

mnuRecEdit.Enabled := True

end

else

begin

BitBtnEdit.Enabled := False;

mnuRecEdit.Enabled := False

end;

end;

procedure TFormTarif.mnuTableClick(Sender: TObject);

begin

Application.CreateForm(TFormTar, FormTar);

FormTar.ShowModal;

FormTar.Free;

end;

procedure TFormTarif.BitBtnAddClick(Sender: TObject);

begin

DataModuleTarif.ADOTableRabotnik.Insert;

Application.CreateForm(TFormData, FormData);

FormData.Caption := 'Добавление данных нового сотрудника';

FormData.CBKategory.ItemIndex := 0;

FormData.ShowModal;

FormData.Free;

FormTarif.SetFocus;

DBGridTarif.SetFocus;

end;

procedure TFormTarif.BitBtnDelClick(Sender: TObject);

begin

if Application.MessageBox

(

PChar('Вы действительно хотите удалить запись ' + chr(39) +

DataModuleTarif.ADOTableRabotnikFIO.AsString + Chr(39)),

'Удаление',

MB_YESNO + 32) = ID_YES then

DataModuleTarif.ADOTableRabotnik.Delete;

DBGridTarif.SetFocus;

end;

procedure TFormTarif.BitBtnEditClick(Sender: TObject);

begin

DataModuleTarif.ADOTableRabotnik.Edit;

Application.CreateForm(TFormData, FormData);

FormData.Caption := 'Изменение данных сотрудника';

FormData.LblName.Text := DataModuleTarif.ADOTableRabotnikFIO.AsString;

FormData.MaskEditData.Text :=

DateTimeToStr(DataModuleTarif.ADOTableRabotnikData_rozhden.AsDateTime);

FormData.LblAddrr.Text := DataModuleTarif.ADOTableRabotnikAddress.AsString;

FormData.LblTel.Text := DataModuleTarif.ADOTableRabotnikPhone.AsString;

FormData.CBKategory.ItemIndex :=

DataModuleTarif.ADOTableRabotniknum_kategory.AsInteger;

FormData.ShowModal;

FormData.Free;

FormTarif.SetFocus;

DBGridTarif.SetFocus;

end;

procedure TFormTarif.BitBtnBeginClick(Sender: TObject);

begin

DataModuleTarif.ADOTableRabotnik.First;

DBGridTarif.SetFocus;

end;

procedure TFormTarif.BitBtnPrevClick(Sender: TObject);

begin

DataModuleTarif.ADOTableRabotnik.Prior;

DBGridTarif.SetFocus;

end;

procedure TFormTarif.BitBtnNextClick(Sender: TObject);

begin

DataModuleTarif.ADOTableRabotnik.Next;

DBGridTarif.SetFocus;

end;

procedure TFormTarif.BitBtnEndClick(Sender: TObject);

begin

DataModuleTarif.ADOTableRabotnik.Last;

DBGridTarif.SetFocus;

end;

procedure TFormTarif.FormCreate(Sender: TObject);

begin

CurrentOption := LoadRegistry();

end;

procedure TFormTarif.mnuCreateReportClick(Sender: TObject);

begin

Application.CreateForm(TFormReport, FormReport);

FormReport.QuickRepSotr.Preview;

FormReport.Free;

end;

procedure TFormTarif.mnuUserManualClick(Sender: TObject);

begin

{call} StartApplication('HELP\index.htm');

end;

procedure TFormTarif.mnuRecAddClick(Sender: TObject);

begin

{call} BitBtnAddClick(Sender);

end;

procedure TFormTarif.mnuRecDelClick(Sender: TObject);

begin

{call} BitBtnDelClick(Sender);

end;

procedure TFormTarif.mnuRecEditClick(Sender: TObject);

begin

{call} BitBtnEditClick(Sender);

end;

procedure TFormTarif.mnuNavBeginClick(Sender: TObject);

begin

{call} BitBtnBeginClick(Sender);

end;

procedure TFormTarif.mnuNavPrevClick(Sender: TObject);

begin

{call} BitBtnPrevClick(Sender);

end;

procedure TFormTarif.mnuNavNextClick(Sender: TObject);

begin

{call} BitBtnNextClick(Sender);

end;

procedure TFormTarif.mnuNavEndingClick(Sender: TObject);

begin

{call} BitBtnEndClick(Sender);

end;

procedure TFormTarif.FormShow(Sender: TObject);

begin

{call} ModeSort;

if CurrentOption.onSort then

{call} MySort();

end;

Procedure ModeSort();

begin

end;

procedure TFormTarif.MySort;

Const

OPERATOR_ASC:String = 'ASC';

OPERATOR_DESC:STRING = 'DESC';

var

Operation:String;

begin

if CurrentOption.SortNumField = 0 then

Operation := OPERATOR_ASC

else

Operation := OPERATOR_DESC;

case CurrentOption.FilterNumField of

0: DataModuleTarif.ADOTableRabotnik.Sort :=

'FIO ' + Operation;

1: DataModuleTarif.ADOTableRabotnik.Sort :=

'Data_rozhden ' + Operation;

2: DataModuleTarif.ADOTableRabotnik.Sort :=

'Address ' + Operation;

3: DataModuleTarif.ADOTableRabotnik.Sort :=

'Phone ' + Operation;

4: DataModuleTarif.ADOTableRabotnik.Sort :=

'Kategory ' + Operation;

end;

end;

procedure TFormTarif.mnuSortingClick(Sender: TObject);

begin

Application.CreateForm(TFormSort, FormSort);

FormSort.ShowModal;

FormSort.Free;

end;

end.

1. Прогностические модели процесса разработки: каскадная, RAD, спиральная [онлайн] - URL: http://fkn.ktu10.com/?q=node/746 (дата обращения 27.09.2016) ↑

2. Карпова И. П. Базы данных: Учебное пособие. — СПб.: Питер, 2013. — с. 43 ↑

3. Кузнецов, С.Д. Основы современных баз данных [текст]: учебник / С.Д. Кузнецов.- СПб.: Бином, 2007. – 488с. - ISBN 978-5-94774-736-2. ↑

4. Что такое Access? Знакомство со структурой Access 2010 [онлайн]- URL: http://www.programm-school.ru/znakomstvo_s_access.html (дата обращения 14.10.2016) ↑

5. Access 2010 [онлайн]-URL:http://www.mssoft.ru/Makers/Microsoft/Access_2010/ (дата обращения 14.10.2016) ↑

6. Программирование в среде Delphi: учеб.-метод. Пособие для бакалавров инженерных и физических специальностей / сост. В. К. Толстых. – Донецк: ДонНУ, 2010. – с. 6 ↑

7. Визуальное программирование задач пользователя в среде Delphi: Методические указания к практическим занятиям по курсу "Объектно-ориентированные системы" / Воронеж. гос. технол. акад.; Сост. И.О. Павлов, О.А.Гордиенко, С.В. Кулакова. Воронеж, 2001. – с. 5 ↑