Алгоритмизация и программирование процессов обработки данных в среде СУБД типа FoxPro

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование

каждой профессии.

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

Алгоритмы
Создание двухуровневого светового меню

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

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

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

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

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

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

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

* Командный файл иерархического меню 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

EndDo

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

* Командный файл CreateFd - создание нового файла данных

set Talk off

set Status off

set Escape off

Clear

Zag=Процесс создания нового файла данных

@ 4,22 to 4,58 Color u/w*

@ 3,22 Say Zag Color u/w*

@ 12,0

Accept Укажите имя создаваемого файла данных: to NameFd

If Len(NameFd) > 0

Zag=Zag + : + NameFd + .dbf

LenZag=Int(Len(Zag))

@ 4,Int((80-lenZag)/2) to 4,Int((80-lenZag)/2)+LenZag Color u/w*

@ 3,Int((80-LenZag)/2) Say Zag Color u/w*

@ 14,0

Text

Вы хотите автоматически создать пустую структуру

с указанным именем, по заданию курсового проекта (Д/Н)?

EndText

Do While .T.

@ 16,57

Wait to ABC

If ABC=н Or ABC=д

ABC=Chr(Asc(ABC)-32)

EndIf

If ABC=Н Or ABC=Д

Exit

EndIf

EndDo

If ABC=Д

Create Table &NameFd ;

(NomCex N(1,0), TabNom N(4,0), Fam C(20), Prof C(20), Razr N(1,0))

@ 8,0

set Talk on

Display Structure

set Talk off

Else

Create &NameFd

EndIf

@ 24,0

Wait Для возврата в меню нажмите любую клавишу ...

@ 24,0 Clear

Return

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

* Командный файл ReadFd - чтение файла данных

set Talk off

set Status off

set Escape off

Clear

@ 4,27 to 4,54 Color u/w*

@ 3,27 Say Процесс чтения файла данных Color u/w*

@ 12,0

Accept Введите имя считываемого файла данных: to NameFd

If Len(NameFd) >0

@ 3,0 Clear to 5,79

Zag=Содержимое файла данных: + NameFd + .dbf

LenZag=Int(Len(Zag))

@ 4,Int((80-lenZag)/2) to 4,Int((80-lenZag)/2)+LenZag Color u/w*

@ 3,Int((80-LenZag)/2) Say Zag Color u/w*

Use &NameFd

Do While .Not.EOF()

@ 7,0

Display Next 15

If EOF()=.F.

Skip

@ 24,0<

Blog

Алгоритмизация и программирование процессов обработки данных в среде СУБД типа FoxPro

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование