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

 

 

 

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

 

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

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

       EndCase

EndDo

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

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

Wait 'Нажмите любую клавишу для просмотра следующих 15 записей...'

       EndIf

EndDo

Close DataBases

EndIf

 

@ 24,0

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

@ 24,0 Clear

Return