- •Консультации к госэкзаменам
- •4. Команды установки параметров
- •11. Модификация таблицы
- •11, 13. Добавление и удаление записей командами sql. Модификация таблицы
- •19. Поиск данных в неиндексированной таблице
- •20. Фильтрация данных в неиндексированной таблице
- •23. Сортировка данных в таблице
- •24. Создание базы данных
- •26. Создание и использование переменных
- •28. Функции работы с датой и временем
- •29. Функции для работы с таблицей
- •30. Функции для преобразования типов данных
- •31. Создание программных файлов
- •32. Создание и работа с меню
- •36. Понятие события и метода
- •39. Целостность, достоверность и непротиворечивость данных
- •40. Контроль достоверности данных на уровне таблицы
- •42. Отчёт. Создание отчета средствами мастера
- •44. Формирование запросов средствами команд языка sql
- •Практические задания
- •8. Создание кнопок.
- •12. Программа для вычисления
- •13. Работа с функциями времени
Практические задания
8. Создание кнопок.
Создайте кнопку «Выход» (из формы). Нажмите кнопку Command Button (Командная кнопка) на панели инструментов Form Controls (Элементы управления формы) и щелкните мышью в нужном месте формы.
Откройте окно Properties.
Для создания надписи на кнопке, используйте свойство Caption (Надпись). Введите «Выход» (без кавычек).
Определите реакцию кнопки на Click (Щелчок мышью). Для этого в окне Properties (Свойства) выберите вкладку Methods (Методы).
Установите курсор на метод Click (Нажатие) и щелкните мышью. На экране откроется окно процедур.
Создайте процедуру, используемую для выхода из формы.
* Запрос перед выходом из формы
IF MESSAGEBOX ("Выходить из формы?", 4+32+256, "Выход")=6
_screen.ActiveForm.Release()
ELSE
_screen.ActiveForm.Refresh()
ENDIF
Закройте окно процедур. Кнопка создана.
10. Решение квадратного уравнения ax2 + bx + c = 0
Корни уравнения находят по формулам:
,
input 'Input A' to A
input 'Input B' to B
input 'Input C' to C
D1=-B + SQRT( B^2-4*A*C)
D2=-B - SQRT( B^2-4*A*C)
X1=D1/4
X2=D2/4
?’Корень Х1= ’, X1
? ’Корень Х2= ’, X2
12. Программа для вычисления
x=3
Y=(1.4*x^2+x)/sqrt(exp(x)-log(x))
?Y
13. Работа с функциями времени
выведите на экран сообщение вида: «Датой, отстоящей от сегодняшнего дня на 100 дней, будет ………….»
?’Датой будет ' , (DATE() +100)
? 'Днем недели будет '+CDOW(DATE() +100)
?’Месяцем будет’, cmonth(DATE()+100)
используя функции VFP, выведите на экран сообщение: «Сегодня исполнилось…. дней с момента моего рождения»
? "Сегодня исполнилось" + STR(DATE()-{^1987.11.20}) + "дней с момента моего рождения"
или просто:
? "Сегодня исполнилось", DATE()-{^1987.11.20}, ‘с моего рождения’
установите день недели для дня выпускного вечера.
? 'Выпускной вечер приходится на' + CDOW({^2007.06.28})