Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

EndCase

Case L1=3

Do Case

Case L2=1 && Выбран пункт 'Выход в Fox'

Return

Case L2=2 && Выбран пункт 'Выход из Fox'

Quit

EndCase

EndCase

EndDo
EndDo

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

* Командный файл 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

Рекомендуем скачать другие рефераты по теме: инновационный менеджмент, курсовая работа.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата