Иллюстрированный самоучитель по Visual FoxPro 7

Создание формы с использованием таймера

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

1. В Проекте Sales, используя таблицы Goods, Ordsaled и Ordsalem, создайте представление данных, содержащее наименование товара, суммарное количество проданного товара и суммы продаж по данному товару.
2. Сгруппируйте данные по коду товара.
3. Сохраните созданное представление данных.
4. Откройте новое окно конструктора форм.
5. Откройте окно среды окружения формы и добавьте в него созданное представление.
6. Создайте в форме объект Grid (Таблица), разместив в нем все поля представления данных.
7. Для отображения текущей даты и времени расположите два поля ввода curdate и curtime. Скорректируйте для данных объектов свойство Readonly (Только чтение), установив значение True (Истина).
8. Для создания объекта-таймера нажмите кнопку Timer (Таймер) на панели инструментов Form Controls (Элементы управления формы) и расположите его в форме.
9. Откройте окно процедур для метода Timer (Таймер).
10. Для присвоения значений созданным полям curdate и curtime, а также для обновления данных о продаже товаров через заданный интервал времени введите в окне процедур следующие значения:

    This.Parent.CurDate.Value = DATE()
    This. Parent.CurTime.Value = TIME()
    This.Parent.CurDate.Refresh()
    This.Parent.CurTime.Refresh()
    ThisForm.Gridl.Refresh()
    

11. Определите интервал времени, через который необходимо производить обновление данных в таблице. Для этого воспользуйтесь свойством interval (Промежуток времени), значение которого задается в миллисекундах. Для обновления данных каждые 10 мин введите значение 600 000.
12. Форма готова. Сохраните ее и запустите на выполнение.

Рис. 15.24. Использование таймера в форме

Рис. 15.25. Просмотр итоговых продаж через заданный промежуток времени

При работе в сети каждый час на экране будет обновляться информация об итоговом количестве продаж товаров и их стоимости. На рис. 15.24 показан вид созданной формы, а на рис. 15.25 – просмотр данных с помощью этой формы.