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

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

1. Обоснование темы

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



2. Описание массивов и счетчиков

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

SP - Счетчик количества специальностей

FM - Счетчик количества фамилий

DN - Счетчик количества данных

DIM Spez$(20) - Массив специальностей

DIM Fam$(100, 2) - Массив фамилий с номером специальности сотрудника

DIM Dann(100, 3) - Массив данных по трудозатратам

DIM Sort(100, 3) - Массив для сортировки

Summa - Количество трудозатрат

Sz - Hомер специальности

Fa - Hомер фамилии

Tr - Используется при вводе, чтобы сравнить его с сутками, а счетчик DN не увеличивать


3. Код программы

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

3.1. Подпрограмма описания массивов, подпрограмм и переменных

DECLARE SUB MainMenu ()
DECLARE SUB MenuOperation ()
DECLARE SUB SpravMenu ()
DECLARE SUB DelMenu ()
DECLARE SUB AddSpez ()
DECLARE SUB AddFam ()
DECLARE SUB Enter ()
DECLARE SUB Del ()
DECLARE SUB Redact ()
DECLARE SUB Sprav1 ()
DECLARE SUB Sprav2 ()
DECLARE SUB Sprav3 ()
DECLARE SUB Sprav4 ()
DECLARE SUB FindSpez ()
DECLARE SUB FindFam ()
DECLARE SUB FindDann ()

SP = 0
FM = 0
DN = 0
DIM Spez$(20)
DIM Fam$(100, 2)
DIM Dann(100, 3)
DIM Sort(100, 3)