Базы данных (стр. 3 )

Партнерка на США и Канаду по недвижимости, выплаты в крипто

30% recurring commission
Выплаты в USDT
Вывод каждую неделю
Комиссия до 5 лет за каждого referral

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdtop. click

select заказ

IF NOT BOF()

GO TOP

ENDIF

_SCREEN. ACTIVEFORM. REFRESH()

THISfORM. REFRESH()

*THISfORM. PARENT. BUTTONREFRESH()

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdnext. click

select заказ

IF NOT EOF()

SKIP

IF EOF()

GO BOTTOM

ENDIF

THISFORM. REFRESH()

*THISFORM. PARENT. BUTTON. REFRESH

*_SCREEN. ACTIVEFORM. REFRESH()

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdprev. click

select заказ

IF NOT BOF()

SKIP-1

IF BOF()

GO TOP

ENDIF

*THISFORM. REFRESH()

*THISFORM. PARENT. BUTTON. REFRESH

_SCREEN. ACTIVEFORM. REFRESH()

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdend. click

select заказ

IF NOT EOF()

GO BOTTOM

ENDIF

*THISFORM. REFRESH()

*THISFORM. PARENT. BUTTO. REFRESH()

_SCREEN. ACTIVEFORM. REFRESH()

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdexit. click

THISFORM. RELEASE

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdadd. click

select заказ

append blank

thisform. refresh()

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdadd2.click

select заказ_блюда

append blank

replace кодзаказа with заказ. кодзаказа

thisform. refresh()

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdras. click

* browse

SELECT СКЛАД

set order to tag ингридиент

*browse

*clea

* ? recno(),КОЛИЧЕСТВО

LOCATE FOR СКЛАД. ИНГРИДИЕНТ==queryблюда. ингридиент

*? склад. ингридиент

НЕ нашли? Не то? Что вы ищете?

if. not. eof()

*? recno()

REPLACE КОЛИЧЕСТВО WITH количество-queryблюда. вес/1000*queryблюда. порции

*? количество

endif

select queryблюда

*CONTINUE

endscan

Коды, которые нужно записать для кнопки cmdTop:

Procedure cmdsena. click

SELECT DISTINCT Cтоимость. блюдо,;

sum(Cтоимость. sum_exp_2* Заказ_блюда. порции)as summa, Cтоимость. sum_exp_2,;

Заказ_блюда. порции;

FROM "ресторан! заказ блюда" Заказ_блюда,;

cтоимость INNER JOIN "ресторан! заказ блюда" Заказ_блюда ;

ON Cтоимость. блюдо == Заказ_блюда. блюдо;

WHERE Cтоимость. блюдо == Заказ_блюда. блюдо AND Заказ_блюда. кодзаказа = THISFORM. SPINNER1.VALUE;

GROUP BY Cтоимость. блюдо

THISFORM. TXTSUM. VALUE=summa

select заказ

go 1

Задания

Спроектировать формы для ввода элементов справочников и ввода оперативной информации для своего индивидуального варианта.

Порядок отчета практической работы

При отчете практической работы необходимо:

1) Продемонстрировать выполненные задания по индивидуальному варианту, прокомментировать порядок его выполнения и объяснить полученные результаты

2) Ответить на контрольные вопросы.

Контрольные вопросы

Что такое форма? Какие виды форм Вы знаете? Какие способы создания форм существуют в Visual FoxPro/

4. Практическая работа № 4

Тема: Проектирование форм для передачи параметров в

запросы, формы, отчеты.

Цель практической работы

Научиться проектировать и создавать формы для передачи параметров в запросы, отчеты при решении конкретной экономической задачи в соответствии с индивидуальным вариантом.

После выполнения практической работы студент должен:

Знать: назначение форм в проектировании БД, рассмотреть пример создания формы однотабличной для классификатора, многотабличной для ввода оперативной информации.

Уметь: создавать формы с помощью мастера, с помощью конструктора.

Время выполнения – 2 часа.

Пояснения к работе

Порядок выполнения практической работы:

1. Проработать все описанные упражнения самостоятельно, руководствуясь методическими указаниями,

2. Выполнить задание, создать формы передачи параметров для своего варианта.

3. Проверить свои знания по контрольным вопросам.

Предварительная подготовка

Рассмотрим создание модальной формы с передачей параметров в запрос. Создать запрос перечень заказов, выполненный сотрудником N за определенный период времени.

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

Рис. 14

В окне DATA ENVIRONMENT добавим таблицу персонал, на которую будем ссылаться в форме.

В окне Свойств зададим свойства элементов управления указанных на форме.

Рис. 15

Таблица 6

Элемент управления	Свойство	Значение	Примечания
Form	AutoCenter	.T.	Расположение по центру экрана
BorderStyle	2	Двойная рамка без возможности изменения размера
Caption	Передача параметров
ControlBox	.F.	Убираем значок системного меню
MaxButton	.F.	Убираем кнопку мах-ции окна
MinButton	.F.	Убираем кнопку мin- ции окна
WindowType	1	Тип формы модальный
ComboBox	Name	Combo1
RowSourceType	6-fields
RowSource	Персонал. фио
ControlSource	Персонал. фио
CommandButton	Name	cmdRun
Caption	Сформировать
Name	cmdExit
caption	Выход
TextBox	Name	Text1
ControlSource	Персонал. дата
Format	D	Ввод данных типа Дата
InputMask	99.99.9999	Формат ввода
TextBox	Name	Text2
ControlSource	Персонал. дата
Format	D	Ввод данных типа Дата
InputMask	99.99.9999	Формат ввода
Label	Caption	ФИО сотрудника:
Caption	С:
Caption	ПО:
Caption	Укажите интервал Дат

Зададим управляющий код для кнопок Выход и Сформировать.

PROCEDURE CMDEXIT. CLICK()

THISFORM. RELEASE() * Метод формы стирающий ее из памяти.

Рис. 16