Разработка экранных форм в FoxPro, страница 4

12. Сформируем необходимые кнопки для передвижения по таблице, для добавления записей и для выхода из экранной формы. Сначала создадим группу кнопок для листания таблицы. Выберите инструмент "Кнопка". После установки указателя на нужное место, щелкните правой кнопкой "мыши". Открылось окно диалога "Push Button". В области Type выберите опцию Normal. В окне ввода введите - На первую. При помощи клавиши перейдите на следующую строку и напечатайте - На предыдущую. Аналогично введите на следующих строках - На следующую и На последнюю. В области Options выберите опцию Horizontal для расположения группы кнопок горизонтально. В строке ввода около кнопки Variable введите имя переменной Move. Нажмите кнопку Valid и в окне диалога введите текст do Move.prg. Нажмите кнопку ОК. В окне "Push Button" нажмите кнопку ОК.

13. Напишем программу Move.prg для управления только что созданной группой кнопок. Выберите опцию New из меню команды File. В окне "New" выберите опцию Program и нажмите клавишу New. В открывшемся окне напечатайте следующую программу:

DO CASE

CASE nMove = 1 && переход на первую запись

GO TOP

CASE nMove = 2 && переход на предыдущую запись

SKIP-1

IF BOF()

GO TOP

ENDIF

CASE nMove = 3 && переход на следующую запись

SKIP

IF EOF()

GO BOTTOM

ENDIF

CASE nMove = 4 && переход на последнюю запись

GO BOTTOM

ENDCASE

SHOW GETS && перевыводим экран

Выберите опцию Save as из меню команды File и сохраните программу под именем Move.prg. Эту программу вы можете использовать при выполнении лабораторной работы.

14. Теперь создадим кнопку для добавления записей в таблицу. Выберите инструмент "Кнопка". Установите указатель на нужное место и щелчком правой кнопки "мыши" вызовите на экран окно диалога "Push Button". Выберите опцию Normal, напечатайте Добавить в окне ввода, в сроке ввода Variable введите nAppend. Нажмите кнопку Valid и в окне ввода напечатайте:

APPEND BLANK && добавить запись

SHOW GETS

и нажмите кнопку ОК. В окне "Push Button" нажмите кнопку ОК.

15. Аналогично создадим кнопку "Выход". Вызовите на экран окно "Push Button". В окне ввода введите \!\<Выход>, в строке Variable - nExit и установите флажок Terminate READ Selection (завершить по выбору). Нажмите кнопку ОК.

16. Разместите все поля в экранной форме соответствующим образом, выровняв их относительно друг друга.

17. Выделите прямоугольник на экране и выберите опцию Fill из меню команды Screen. Затем выберите опцию Send to Back из того же меню. Прямоугольник заполнился штриховкой.

18. Выберите опцию Layout из меню команды Screen. Открывается окно диалога "Screen Layout". В строке ввода Title введите Абитуриент. Нажмите кнопку Environment из области Options. Эта кнопку служит для сохранения только что созданной среды экранной формы. Нажмите кнопку Save. В окне "Screen Layout" нажмите кнопку ОК.

19. Выберите опцию Save as из меню команды File. Сохраните экран под именем std.scx, предварительно открыв нужный каталог.

20. Для просмотра только что созданной экранной формы ее необходимо сгенерировать. Выберите опцию Generate из меню команды Programm. Нажмите кнопку Generate. FoxPro сгенерировал ваш экран (сформирован программный файл std.spr).

21.  Для просмотра выберите опцию Do из меню команды Programm. Маркируйте файл std.spr и нажмите кнопку DO.

4.5. Порядок выполнения лабораторной работы.

1. Для каждой из баз данных, заданных в курсовой работе,  разработать произвольную  экранную форму.

2. Для каждой экранной формы сгенерировать программный файл *.spr.

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

4. Ввести 5  новых  записей в каждую базу, пользуясь разработанной   экранной формой.