4. Формализация задачи

В среде СУБД типа Fox каждая подзадача может оформляться в виде отдельного командного файла с расширением .prg и заканчиваться оператором возврата в вызывающий командный файл.

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

CreateFd.prg	– создание файла данных;
ReadFd.prg	– чтение созданного файла данных;
AddFd.prg	– добавление данных в созданный файл данных;
Zad1.prg	– выдача сведений о количестве работников каждого из пяти цехов заданного разряда;
Zad2.prg	– подсчет и выдача на печать сведений о количестве работников каждой профессии по заданному разряду заданного цеха;
Zad3.prg	– выдача на печать упорядоченных по алфавиту списков работников каждой профессии.

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

5. Алгоритмы

   1. Создание двухуровневого светового меню

2. Создание файла данных

3. Чтение файла данных

4. Добавление данных в файл данных

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

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

1. 5.7. Выдача упорядоченного по алфавиту списка работников каждой профессии.

1. Программы

   1. Создание двухуровневого светового меню

* Командный файл иерархического меню MainMenu

set Talk off

set Color to n/W*

Clear

Declare GenMenu(3,2), menuFile(3), menuZad(3), menuExit(2)

GenMenu(1,1)=" Файл данных "

GenMenu(1,2)="Работа с файлом данных"

GenMenu(2,1)=" Задание "

GenMenu(2,2)="Задания на курсовой проект"

GenMenu(3,1)=" Выход "

GenMenu(3,2)="Выход из программы"

menuFile(1)="Создание"

menuFile(2)="Чтение"

menuFile(3)="Добавление"

menuZad(1)="Задание №1"

menuZad(2)="Задание №2"

menuZad(3)="Задание №3"

menuExit(1)="Выход в Fox"

menuExit(2)="Выход из Fox"

Do While .T.

set Color to gr+/g, gr+/b

Menu Bar GenMenu, 3

Read Menu Bar to L1, L2

Do While L1 > 0

set Color to gr+/g, gr+/b

Menu 1, menuFile, 3,3

Menu 2, menuZad, 3,3

Menu 3, menuExit, 2,2

Read Menu Bar to L1, L2

set Color to n/W*

Do Case

Case L1=0

Exit

Case L1=1

Do Case

Case L2=1

Do CreateFd

Case L2=2

Do ReadFd

Case L2=3

Do AddFd

EndCase

Case L1=2

Do Case

Case L2=1

Do Zad1

Case L2=2

Do Zad2

Case L2=3

Do Zad3

EndCase

Case L1=3

Do Case

Case L2=1

Return

Case L2=2

Quit

EndCase

EndCase

EndDo

EndDo