3.3 Формирование отчётов средствами sql запросов
procedure TForm14.Button1Click(Sender: TObject);
begin
//1.Определить кол-во произведений на на указанном аукционе
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT M_ID,W_ID,W_Type,W_Name');
Query1.SQL.Add('FROM WORKS,exhibitions,w_e');
Query1.SQL.Add('WHERE w_e.E_ID=exhibitions.E_ID');
Query1.SQL.Add('AND ( WORKS.W_ID=W_E.W_ID)');
Query1.Open;
end;
procedure TForm14.Button2Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
//2.Определить кол-во произведений на указанной выставке
Query1.SQL.Add('SELECT COUNT(E_ID)');
Query1.SQL.Add('FROM "w_e.DB" B, "exhibitions.DB" C');
Query1.SQL.Add('WHERE (B.E_ID=C.E_ID)');
Query1.SQL.Add('AND(C.E_ID='''+Edit2.Text+''')');
Query1.Open;
end;
procedure TForm14.Button3Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
//3.Вывести произведения, созданные худ-ми, работающими в указанном жанре
Query1.SQL.Add('SELECT W_Name');
Query1.SQL.Add('FROM "works.DB" B');
Query1.SQL.Add('WHERE '''+ComboBox1.Text+''' IN (SELECT Genre FROM "masters.DB" WHERE M_ID=B.M_ID)');
Query1.Open;
end;
procedure TForm14.Button4Click(Sender: TObject);
begin
{Query1.Close;
Query1.SQL.Clear;
//4.Вывести названия картин, выставл-х на указанном аукционе
Query1.SQL.Add('SELECT W_Name');
Query1.SQL.Add('FROM "works.DB" A');
Query1.SQL.Add('WHERE Sold IN (SELECT MAX(Sold) FROM "w_a.DB" B WHERE A.W_ID=B.W_ID AND (A_Name='''+Edit3.Text+'''))');
Query1.Open;}
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT W_Name');
Query1.SQL.Add('FROM "works.DB" A');
Query1.SQL.Add('WHERE EXISTS (SELECT * FROM "auctions.DB" B, "w_a.DB" C WHERE (A.W_ID=C.W_ID) AND (B.A_ID=C.A_ID) AND (B.A_Name='''+Edit3.Text+'''))');
Query1.Open;
end;
procedure TForm14.Button5Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
//5.Вывести названия картин, выставленных в указ-м зале и указанной выставке
Query1.SQL.Add('SELECT W_Name');
Query1.SQL.Add('FROM "works.DB" A');
Query1.SQL.Add('WHERE EXISTS (SELECT * FROM "exhibitions.DB" B, "w_e.DB" C WHERE (A.W_ID=C.W_ID) AND (B.E_ID=C.E_ID) AND (C.Hall='''+Edit4.Text+''') AND (B.E_ID='''+Edit5.Text+'''))');
Query1.Open;
end;
4.Руководство пользователя
Главное меню программы
Картины – содержит информацию о картинах
Художники – содержит информацию о художниках и их произведениях
Аукционы - содержит информацию о аукционах и произведениях на них
Выставки - содержит информацию о выставках и произведениях на них
Поиск – поиск по всем таблицам
Отчеты – просмотр отчетотв
Запросы – SQL-запросы
Картины
Добавить – добавление нового произведения
Изменить – изменение существующей записи
Удалить – удаление
Выход – выход из программы
Выставки
Добавить – добавление новой записи
Изменить – изменение существующей записи
Удалить – удаление
Выход – выход из программы
Добавление новой записи
В окнах предлагается ввести информацию о новом произведении
Для типа произведения и техники выполнения предусмотрены всплывающие списки
Запросы
Поиск
В меню поиска пользователю предлагается выбрать из всплывающего списка таблицу для поиска , поле для поиска и ввести значение .После нажатия кнопки найти выводится искомая информация по всем таблицам . Кнопка Reset для сброса всех связей.
Меню отчетов
Отчет №2
