Самостоятельная работа

Запрос 7_1: выполнить запрос 7 с переоформлением заголовка и переименованием полей в результатной таблице с помощью опций команды BROWSE. Результат сохранить в Курсоре с произвольным именем.

Название нового заголовка:

"Ctrl+N - вставка Ctrl+W - Выход Ctrl+T - удаление"

Названия полям присвоить самостоятельно.

Запрос 7_2: выполнить запрос 7 с переименованием полей в результатной таблице с помощью опций команды BROWSE. Результат сохранить в Курсоре с произвольным именем.

Названия заголовку и полям присвоить самостоятельно.

7.2.1.2. Многотабличные запросы

query10.qpr:

Выдать номера поставщиков, их ФИО, номера и наименование деталей, номера разработчиков, количество и даты поставок при условии:

1. nomd <= "Д3";

2. диапазон дат от 09/12/01 до 09/20/01;

3. порядок выдачи результата: nomp, nomd, nomr;

4. результат сохранить в файле mnt_pr;

5. вывести результат из файла на экран.

SELECT Poshk.nomp, Poshk.famp, Detl.nomd, Detl.naim, Poski.nomr, Poski.kolw,;

Poski.data;

FROM ;

data1!poshk ;

INNER JOIN data1!poski ;

ON Poshk.nomp = Poski.nomp ;

INNER JOIN data1!detl ;

ON Poski.nomd = Detl.nomd;

WHERE Detl.nomd <= ( "Д3" );

AND Poski.data BETWEEN CTOD("09/12/01") AND CTOD("09/20/01");

ORDER BY Poshk.nomp, Detl.nomd, Poski.nomr;

INTO TABLE mnt_pr.dbf

USE mnt_pr

BROWSE

query11.qpr:

Продолжение многотабличных запросов mnt_pr, proek, выдать то же + наименование проекта.

SELECT Mnt_pr.nomp, Mnt_pr.famp, Mnt_pr.nomd, Mnt_pr.naim, Mnt_pr.nomr,;

Proek.npro, Mnt_pr.kolw, Mnt_pr.data;

FROM ;

data1!mnt_pr ;

INNER JOIN data1!proek ;

ON Mnt_pr.nomr = Proek.nomr;

ORDER BY Mnt_pr.nomp, Mnt_pr.nomd, Mnt_pr.nomr;

INTO CURSOR Ask

BROWSE

query12.qpr:

Выбранные записи упорядочить по фамилии и имени разработчика. Информацию сохранить в области ОП "Z11".

SELECT Poshk.famp, Poski.nomp, SUM(Poski.kolw), COUNT(*) AS p1;

FROM ;

data1!poshk ;

INNER JOIN data1!poski ;

ON Poshk.nomp = Poski.nomp;

GROUP BY Poshk.famp, Poski.nomp;

INTO CURSOR Z11

BROWSE

Сложные запросы.

mnt.prg:

SELECT Poshk.nomp, Poshk.famp, Detl.nomd, Detl.naim, Poski.nomr, Poski.kolw,;

Poski.data;

FROM ;

data1!poshk ;

INNER JOIN data1!poski ;

ON Poshk.nomp = Poski.nomp ;

INNER JOIN data1!detl ;

ON Poski.nomd = Detl.nomd;

WHERE Detl.nomd <= ( "Д3" );

AND Poski.data BETWEEN CTOD("09/12/01") AND CTOD("09/20/01");

ORDER BY Poshk.nomp, Detl.nomd, Poski.nomr;

INTO TABLE mnt_pr.dbf

USE mnt_pr

BROWSE

SELECT Mnt_pr.nomp, Mnt_pr.famp, Mnt_pr.nomd, Mnt_pr.naim, Mnt_pr.nomr,;

Proek.npro, Mnt_pr.kolw, Mnt_pr.data;

FROM ;

data1!mnt_pr ;

INNER JOIN data1!proek ;

ON Mnt_pr.nomr = Proek.nomr;

ORDER BY Mnt_pr.nomp, Mnt_pr.nomd, Mnt_pr.nomr;

INTO CURSOR Ask

BROWSE

nomr_nomd.prg:

Оформление заголовков в шапке запроса

SELECT Poski.nomr, Poski.nomd;

FROM data1!poski;

ORDER BY Poski.nomr, Poski.nomd;

INTO CURSOR Nomrd

BROWSE;

title "Ctrl+N - вставка Ctrl+W - Выход Ctrl+T - удаление";

fields Nomr: H = "Номер разработчика": 27,;

Nomd: H = "Номер детали": 20

zap_k_vosm1.prg:

SELECT *;

FROM vozm;

WHERE vozm.nomp = "П5";

ORDER BY vozm.nomd

zap_k_vosm2.prg:

SELECT *;

FROM vozm;

WHERE vozm.nomd = "Д6";

ORDER BY vozm.nomp