Формирование отчётов средствами sql запросов

//Товары заказанные представительствами

SQL:

select b.N_p,a.Date_z,a.kol,c.Naim,c.Vid_t

from "Заказ.db" as a, "Товар.db" as c,"Представительство.db" as b

where (a.n_t=c.n_t) and (b.N_p=a.N_pred)

//Количество товара заказанного представительствами

SQL:

select b.N_pred,Sum(b.kol) as l

from "Заказ.db" as b

Group By b.N_pred

ORDER BY l desc

//Количество проданного товара производителями

SQL:

select Pr,Sum(kol) as l

from "поставка.db"

Group By Pr

ORDER BY l desc

//С группировкой

select a.Pr, a.N_d,a.n_t, a.kol

from "Поставка.db" as a

ORDER BY a.pr

Вывод статистики

//количество товара заказанного представительствами

SQL:

select b.N_pred,Sum(b.kol) as l

from "Заказ.db" as b

Group By b.N_pred

ORDER BY l desc

//10 товаров пользующиеся наибольшим спросом

SQL1:

select b.N_t,Sum(b.kol) as l

from "Заказ.db" as b

Group By b.n_t

ORDER BY l desc

procedure TForm9.FormActivate(Sender: TObject);

var

mas,n_t,n_p:array [1..10] of integer;//хранят промежуточную информацию

naim:array [1..10] of string ; //массив для хранения наименования

i:integer;

s1,s2:string; // хранят фрагменты запроса

begin

//1 диаграмма

for i:=1 to 10 do

begin

s1:='select a.n_t, b.naim from "Зака.db" as a,"Товар.db" as b where a.n_t=b.n_t and a.n_t=';

mas[i]:=query1['l'];//записываем количество

n_t[i]:=query1['N_t'];//записываем № товара

s2:=inttostr(n_t[i]);//

s1:=s1+s2;//формируем запрос

//Выполняем запрос

with query2 do

begin

close;

sql.Clear;

sql.Add(s1);

Open;

end;

naim[i]:=vartostr(query2['naim']);//преобразование типов

query2.Close;

query1.Next;

end;

//Заполнение диаграммы

series1.AddXY(1,mas[1]);

series1.Title:=naim[1];

series2.AddXY(1,mas[2]);

series2.Title:=naim[2];

series3.AddXY(1,mas[3]);

series3.Title:=naim[3] ;

series4.AddXY(1,mas[4]);

series4.Title:=naim[4];

series5.AddXY(1,mas[5]);

series5.Title:=naim[5];

…………………..

end;

Заключение

На этапе проектирования реляционной базы данных, я закрепил материал по основным требованиям к базам данных, а также основные шаги по проектированию баз данных. Кроме того, рассмотрел очень важный для проектирования баз данных вопрос нормализации таблиц и проблемы, связанные с этим процессом.

Используемая литература

1. С. Бобровский “Delphi 6 и Kylix : библиотека программиста”, СПб.:Питер, 2002.-560 с.

2. Б. Карпов “Delphi: специальный справочник”, СПб.:Питер, 2001.-688 с.

3. А.М. Епашников “Delphi. Проектирование СУБД”, М.: Диалог-МИФИ, 2001.-528 с.