Реферат: Алгоритмизация и программирование процессов на Fox

ABC=Chr(Asc(ABC)-32) && Смена регистра

EndIf

If ABC='Н' Or ABC='Д'

Exit

EndIf

EndDo

* Создание ФД

If ABC='Д' && Автоматическое создание ФД

Create Table &NameFd ;

(KodOrg N(3,0), VidProd C(20), Volum N(4,0), Price N(6,2))

@ 8,0

set Talk on

Display Structure && Вывод созданной структуры

set Talk off

Else && Создание ФД с возможностью заполнения полей

Create &NameFd

EndIf

EndIf

* Конец работы

@ 24,0

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

@ 24,0 Clear

Return

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

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

set Talk off

set Status off

set Escape off

Clear

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