Язык SQL (Structured Query Language - структурированный язык запросов) представляет собой стандартный высокоуровневый язык описания данных и манипулирования ими в системах управления базами данных (СУБД), построенных на основе реляционной модели данных.

Язык SQL был разработан фирмой IBM в конце 70-х годов. Первый международный стандарт языка был принят международной стандартизирующей организацией ISO в 1989 г., а новый (более полный) - в 1992 г. В настоящее время все производители реляционных СУБД поддерживают с различной степенью соответствия стандарт SQL92.

Единственной структурой представления данных (как прикладных, так и системных) в реляционной базе данных (БД) является двумерная таблица. Любая таблица может рассматриваться как одна из форм представления теоретико-множественного понятия отношение (relation), отсюда название модели данных - реляционная.

В реляционной модели данных таблица обладает следующими основными свойствами:

1. идентифицируется уникальным именем;

2. имеет конечное (как правило, постоянное) ненулевое количество столбцов;

3. имеет конечное (возможно, нулевое) число строк;

4. столбцы таблицы идентифицируются своими уникальными именами и номерами;

5. содержимое всех ячеек столбца принадлежит одному типу данных (т.е. столбцы однородны), содержимым ячейки столбца не может быть таблица;

6. строки таблицы не имеют какой-либо упорядоченности и идентифицируются только своим содержимым (т.е. понятие? номер строки? не определено);

7. в общем случае ячейки таблицы могут оставаться? пустыми? (т.е. не содержать какого-либо значения), такое их состояние обозначается как NULL.

Основными операциями над таблицами являются следующие.

1. Проекция - построение новой таблицы из исходной путем включения в нее избранных столбцов исходной таблицы.

2. Ограничение - построение новой таблицы из исходной путем включения в нее тех строк исходной таблицы, которые отвечают некоторому критерию в виде логического условия (ограничения).

3. Объединение - построение новой таблицы из 2-ух или более исходных путем включения в нее всех строк исходных таблиц (при условии, конечно, что они подобны).

4. Декартово произведение - построение новой таблицы из 2-ух или более исходных путем включения в нее строк, образованных всеми возможными вариантами конкатенации (слияния) строк исходных таблиц. Количество строк новой таблицы определяется как произведение количеств строк всех исходных таблиц.

Эскизный проект

Назначение: отображение интерфейса.

Входные данные: -

Выходные данные: интерфейс

Вверху на главном окне необходимо расположить 7 кнопок:

1) кнопка вызова текста задания;

2) кнопка вызова таблиц. При вызове этой функции будет предложен выбор таблицы к отображению. После выбора одной из таблиц происходит её отображение в отдельном окне;

3) кнопка вызова запросов. При вызове этой функции предоставляется возможность выбрать один из 7 запросов. В зависимости от того, какой запрос был вызван, вызовется соответствующая функция выполнения запроса в отдельном окне;

4) кнопка вызова текста справки

5) кнопка вызова текста информации о программе;

6) кнопка вызова отчёта. При вызове этой функции предоставляется возможность выбрать один из 2 отчётов. В зависимости от того, какой отчёт выбрал пользователь, выполняется отображение соответствующего окна с отчётом;

7) кнопка функции выхода из программы.

Управление таблицей.

Техническое задание

Функция удаления записи

Функция добавления записи

Главная форма

Поиск количества читателей пользующихся библиотекой

Руководство пользователя

Требуется создать программную систему, предназначенную для работников библиотеки.

Для того чтобы начать работу с программой требуется запустить файл, если имеется подключение с бд Открывается главная форма

Где:

1) вкладки, при помощи которых можно выбрать таблицу

2) вкладки, при помощи которых можно выбрать запрос

3) вкладки, при помощи которых можно выбрать отчет

4) кнопка просмотра задания

5) кнопка просмотра справки

6) кнопка выхода

// ---------------------------------------------------------------------------

// Подключение форм

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit4. h"

#include "Unit5. h"

#include "Unit6. h"

#include "Unit7. h"

#include "Unit8. h"

#include "Unit9. h"

#include "Unit10. h"

#include "Unit11. h"

#include "Unit12. h"

#include "Unit13. h"

#include "Unit14. h"

#include "Unit15. h"

#include "Unit16. h"

#include "Unit17. h"

#include "Unit18. h"

#include "Unit20. h"

#include "Unit21. h"

#include "Unit22. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm1 *Form1;

// ---------------------------------------------------------------------------

__fastcall TForm1:: TForm1 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N5Click (TObject *Sender)

{

// Вызов функций

Form1->Close ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N1Click (TObject *Sender)

{

Form2 - > Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N4Click (TObject *Sender)

{

Form3 - > Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N6Click (TObject *Sender)

{

Form4-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N7Click (TObject *Sender)

{

Form5-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N8Click (TObject *Sender)

{

Form6-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N9Click (TObject *Sender)

{

Form7-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N10Click (TObject *Sender)

{

Form8->Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N18Click (TObject *Sender)

{

Form9->Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N11Click (TObject *Sender)

{

Form10->Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N12Click (TObject *Sender)

{

Form11->Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N13Click (TObject *Sender)

{

Form12-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N14Click (TObject *Sender)

{

Form13-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N15Click (TObject *Sender)

{

Form14-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N16Click (TObject *Sender)

{

Form15-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N201Click (TObject *Sender)

{

Form16-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N17Click (TObject *Sender)

{

Form17-> Show ();

}

void __fastcall TForm1:: N19Click (TObject *Sender)

{

Form18-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N21Click (TObject *Sender)

{

Form20-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N22Click (TObject *Sender)

{

Form21-> Show ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm1:: N23Click (TObject *Sender)

{

Form22->Show ();

}

// ---------------------------------------------------------------------------

При выборе пункта меню "Задание" открывается текстовая форма с заданием

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit4. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm4 *Form4;

// ---------------------------------------------------------------------------

__fastcall TForm4:: TForm4 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm4:: Button1Click (TObject *Sender)

{

Form4->Close ();

}

// ---------------------------------------------------------------------------

Справка. При выборе пункта справки открывается Текстовая форма со справкой

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit2. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm2 *Form2;

// ---------------------------------------------------------------------------

__fastcall TForm2:: TForm2 (TComponent* Owner)

: TForm (Owner)

{

// ---------------------------------------------------------------------------

void __fastcall TForm2:: Button1Click (TObject *Sender)

{

Form2->Close ();

}

// ---------------------------------------------------------------------------

Текстовая форма "О программе"

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit3. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm3 *Form3;

// ---------------------------------------------------------------------------

__fastcall TForm3:: TForm3 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm3:: Button1Click (TObject *Sender)

{

Form3->Close ();

}

// ---------------------------------------------------------------------------

Просмотр таблиц

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

Описание вкладок:

1) "Залы" - таблица содержит данные о залах библиотеки

2) "Издания" - содержит данные об издательствах;

3) "Книги" - содержит данные о книгах, хранящихся в библиотеке;

4) "Сотрудники" - содержит данные о сотрудниках

5) "Читатели" - содержит сведения читателях

При выборе таблицы зал, открывается таблица с информацией о залах в библиотеке, в таблице мы можем добавить, удалить, произвести поиск по залу

// ---------------------------------------------------------------------------

#include <vcl. h>

#include "Unit5. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm5 *Form5;

// ---------------------------------------------------------------------------

__fastcall TForm5:: TForm5 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm5:: Button1Click (TObject *Sender)

{

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий добавление записи

ADOQuery1->SQL->Add ("Insert into зал ([шифр зала], [название зала], [количество мест]) Values ('"+ComboBox1->Text+"','"+Edit1->Text+"','"+Edit2->Text+"')");

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

ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select *from зал ");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm5:: Button2Click (TObject *Sender)

{

Form5->Close ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm5:: Button3Click (TObject *Sender)

{

// закрываем активное соединение

Form5->ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

Form5->ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий удаление записи

Form5->ADOQuery1->SQL->Add ("Delete from зал where [шифр зала] = '"+ComboBox1->Text+"' and [название зала] ='"+Edit1->Text+"' and [количество мест] = '"+Edit2->Text+"'");

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

Form5->ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

Form5->ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

Form5->ADOQuery1->SQL->Add ("Select *from зал ");

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

Form5->ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm5:: Button4Click (TObject *Sender)

{

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

ADOQuery1->SQL->Add (" SELECT * FROM зал WHERE [шифр зала] = '"+ComboBox1->Text+"' and [название зала] ='"+Edit1->Text+"' and [количество мест] = '"+Edit2->Text+"'");

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

ADOQuery1->ExecSQL ();

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

ADOQuery1->Open ();

ADOQuery1->First ();

Memo1->Lines->Add ("шифр зала: ");

Memo1->Lines->Add (ADOQuery1->FieldValues ["шифр зала"]);

Memo1->Lines->Add ("название: ");

Memo1->Lines->Add (ADOQuery1->FieldValues ["название зала"]);

Memo1->Lines->Add ("количество мест: ");

Memo1->Lines->Add (ADOQuery1->FieldValues ["количество мест"]);

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

Таблица "Издания" содержит информацию об издательствах.

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit6. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm6 *Form6;

// ---------------------------------------------------------------------------

__fastcall TForm6:: TForm6 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm6:: Button1Click (TObject *Sender)

{

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий добавление записи

ADOQuery1->SQL->Add ("Insert into издания ([шифр издания], [наименование организации], [адрес]) Values ('"+ComboBox1->Text+"','"+Edit1->Text+"','"+Edit2->Text+"')");

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

ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select *from издания ");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm6:: Button2Click (TObject *Sender)

{

Form6->Close ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm6:: Button3Click (TObject *Sender)

{

// закрываем активное соединение

Form6->ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

Form6->ADOQuery1->SQL->Clear ();

// запрос на удаление

ADOQuery1->SQL->Add ("Delete from издания where [шифр издания] ='"+ComboBox1->Text+"'and [наименование организации] ='"+Edit1->Text+"' and [адрес] ='"+Edit2->Text+"'");

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

Form6->ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

Form6->ADOQuery1->SQL->Clear ();

// запрос всех полей таблицы постояльцы

Form6->ADOQuery1->SQL->Add (" Select * from издания ");

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

Form6->ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

Таблица "Сотрудники"Содержит информацию о работниках библиотеки

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit7. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm7 *Form7;

// ---------------------------------------------------------------------------

__fastcall TForm7:: TForm7 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm7:: Button1Click (TObject *Sender)

{

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий добавление записи

ADOQuery1->SQL->Add ("Insert into сотрудники ([шифр сотрудника], ФИО, должность, [дата приема на работу]) Values ('"+ComboBox1->Text+"','"+Edit1->Text+"','"+Edit2->Text+"','"+Edit3->Text+"')");

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

ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select *from сотрудники ");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm7:: Button2Click (TObject *Sender)

{

Form7->Close ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm7:: Button3Click (TObject *Sender)

{

// закрываем активное соединение

Form7->ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

Form7->ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий удаление записи

Form7->ADOQuery1->SQL->Add ("Delete from сотрудники where [шифр сотрудника] = '"+ComboBox1->Text+"' and ФИО='"+Edit1->Text+"' and должность = '"+Edit2->Text+"' and [дата приема на работу] = '"+Edit3->Text+"'");

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

Form7->ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

Form7->ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

Form7->ADOQuery1->SQL->Add ("Select *from сотрудники ");

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

Form7->ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

Таблица "Читатели" Содержит информацию о читателях

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit8. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm8 *Form8;

// ---------------------------------------------------------------------------

__fastcall TForm8:: TForm8 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm8:: Button1Click (TObject *Sender)

{

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий добавление записи

ADOQuery1->SQL->Add ("Insert into читатели ([шифр читателя], ФИО, [номер паспорта], [дата рождения], Adres, образование, [наличие ученой степени], [шифр книги], [шифр зала], [дата регистрации], [взял книгу], [вернул книгу]) Values ('"+ComboBox1->Text+"','"+Edit1->Text+"','"+Edit2->Text+"','"+Edit3->Text+"','"+Edit4->Text+"','"+Edit5->Text+"','"+Edit6->Text+"','"+Edit7->Text+"','"+Edit8->Text+"','"+Edit9->Text+"','"+Edit10->Text+"','"+Edit11->Text+"')");

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

ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select *from читатели ");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm8:: Button2Click (TObject *Sender)

{

Form8->Close ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm8:: Button3Click (TObject *Sender)

{

// закрываем активное соединение

Form8->ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

Form8->ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий удаление записи

Form8->ADOQuery1->SQL->Add ("Delete from читатели where [шифр читателя] = '"+ComboBox1->Text+"' and ФИО='"+Edit1->Text+"' and [номер паспорта] = '"+Edit2->Text+"' and [дата рождения] = '"+Edit3->Text+"' and Adres = '"+Edit4->Text+"' and образование = '"+Edit5->Text+"' and [наличие ученой степени] = '"+Edit6->Text+"' and [шифр книги] = '"+Edit7->Text+"' and [шифр зала] = '"+Edit8->Text+"'and [дата регистрации] = '"+Edit9->Text+"'and [взял книгу] = '"+Edit10->Text+"'and [вернул книгу] = '"+Edit11->Text+"'");

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

Form8->ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

Form8->ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

Form8->ADOQuery1->SQL->Add ("Select *from читатели ");

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

Form8->ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm8:: Button4Click (TObject *Sender)

{

// Изменяем читателя

Form8->ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

Form8->ADOQuery1->SQL->Clear ();

Запрос на перерегистрацию

Form8->ADOQuery1->SQL->Add ("Update Читатели set [шифр читателя] = '"+ComboBox1->Text+"', ФИО='"+Edit1->Text+"', [номер паспорта] = '"+Edit2->Text+"', [дата рождения] = '"+Edit3->Text+"', Adres = '"+Edit4->Text+"', образование = '"+Edit5->Text+"', [наличие ученой степени] = '"+Edit6->Text+"', [шифр книги] = '"+Edit7->Text+"', [шифр зала] = '"+Edit8->Text+"', [дата регистрации] = '"+Edit9->Text+"', [взял книгу] = '"+Edit10->Text+"', [вернул книгу] = '"+Edit11->Text+"' where [шифр читателя] = '"+ComboBox2->Text+"'");

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

Form8->ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

Form8->ADOQuery1->SQL->Clear ();

// запрос на все поля таблицы комнаты

Form8->ADOQuery1->SQL->Add (" Select * from читатели ");

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

Form8->ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

Таблица "Книги"Содержит информацию о книгах

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit9. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "Word_2K_SRVR"

#pragma resource "*. dfm"

TForm9 *Form9;

// ---------------------------------------------------------------------------

__fastcall TForm9:: TForm9 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm9:: Button1Click (TObject *Sender)

{

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий добавление записи

ADOQuery1->SQL->Add ("Insert into книги ([шифр книги], [наименование книги], автор, [дата издания], [число экземпляров], жанр, [дней с момента выдачи], [отметка о списании], [шифр издания], [шифр зала], [шифр читателя]) Values ('"+ComboBox1->Text+"','"+Edit1->Text+"','"+Edit2->Text+"','"+Edit3->Text+"','"+Edit4->Text+"','"+Edit5->Text+"','"+Edit6->Text+"','"+Edit7->Text+"','"+ComboBox2->Text+"','"+ComboBox3->Text+"','"+ComboBox4->Text+"')");

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

ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select *from книги ");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm9:: Button2Click (TObject *Sender)

{

Form9->Close ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm9:: Button3Click (TObject *Sender)

{

// закрываем активное соединение

Form9->ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

Form9->ADOQuery1->SQL->Clear ();

// добавляем запрос, выполняющий удаление записи

Form9->ADOQuery1->SQL->Add ("Delete from книги where [шифр книги] = '"+ComboBox1->Text+"' and [наименование книги] ='"+Edit1->Text+"' and автор = '"+Edit2->Text+"' and [дата издания] = '"+Edit3->Text+"' and [число экземпляров] = '"+Edit4->Text+"' and жанр = '"+Edit5->Text+"' and [дней с момента выдачи] = '"+Edit6->Text+"' and [отметка о списании] = '"+Edit7->Text+"' and [шифр издания] = '"+ComboBox2->Text+"'and [шифр зала] = '"+ComboBox3->Text+"' and [шифр читателя] = '"+ComboBox4->Text+"'");

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

Form9->ADOQuery1->ExecSQL ();

// очищаем строки ввода SQL-запроса

Form9->ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

Form9->ADOQuery1->SQL->Add ("Select *from книги ");

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

Form9->ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

Запрос "закрепленные книги"

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit10. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm10 *Form10;

// ---------------------------------------------------------------------------

__fastcall TForm10:: TForm10 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button1Click (TObject *Sender)

{

// Рыжикова

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from Рыж");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button3Click (TObject *Sender)

{

// Андросов

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from Алекс");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button4Click (TObject *Sender)

{

// Андросов

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from Андр");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button5Click (TObject *Sender)

{

// Вершинина

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from Вер");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button6Click (TObject *Sender)

{

// зубрекова

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from Зуб");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button7Click (TObject *Sender)

{

// Козлов

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from коз");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button8Click (TObject *Sender)

{

// копейко

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from коп");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button9Click (TObject *Sender)

{

// крот

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from кр");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button10Click (TObject *Sender)

{

// кудасова

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from ку");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button11Click (TObject *Sender)

{

// петров

// закрываем активное соединение

ADOQuery1->Close ();

// очищаем строки ввода SQL-запроса

ADOQuery1->SQL->Clear ();

// добавим запрос, выбирающий все записи из таблицы

ADOQuery1->SQL->Add ("Select * from п");

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

ADOQuery1->Open ();

}

// ---------------------------------------------------------------------------

void __fastcall TForm10:: Button2Click (TObject *Sender)

{

Form10->Close ();

}

// ---------------------------------------------------------------------------

SQL таблицы

1. Создание базы данных

create database bibliot

2. Создание таблиц

2.1 Создание таблицы зал

3. use bibliot

4. create table зал

5. (

6. [шифр_зала] INT,

7. [название_зала] char (60) NOT NULL,

8. [кол-во_мест] int NOT NULL

9. )

10. select *from зал

Заполнение таблицы зал

use bibliot

insert into зал values (1, 'Детский', 40);

insert into зал values (2, 'Школьный', 25);

insert into зал values (3, 'Взрослый',10);

insert into зал values (4, 'Общий', 60);

select *from зал

2.2 Создание таблицы Издание

create table издания

(

[шифр_издания] INT,

[наименование_организации] char (60) NOT NULL,

адрес char (30) NOT NULL

)

select *from издания

Заполнение таблицы издания

insert into издания values (1, 'Параграф','фрунзе 115');

insert into издания values (2, 'АСМО','Котовского 6');

insert into издания values (3, 'Берлиоз','Ленина 120');

insert into издания values (4, 'ВаСТиКо','Гоголя 15');

select *from издания

2.3 Создание таблиц сотрудники

create table сотрудники

(

[шифр_сотрудника] int,

ФИО char (60) not null,

должность char (60) not null,

[дата_приема_на_работу] date

)

select *from сотрудники

Заполнение таблицы

insert into сотрудники values (1, 'Иванов А.О. ','библиотекарь', '19.10.2015');

insert into сотрудники values (2, 'Петров А.С. ','уборщик', '19.10.1989');

insert into сотрудники values (3, 'Котов Б.А. ','библиотекарь', '01.01.2001');

insert into сотрудники values (4, 'Поздняков П.А. ','библиотекарь', '12.07.2003');

insert into сотрудники values (5, 'Мерзлякова А.Е. ','бухгалтер', '04.12.2014');

insert into сотрудники values (6, 'Поляков А.Е. ','сторож', '04.11.2013');

insert into сотрудники values (7, 'Гуреева Т.Н. ','заведующий', '03.12.2015');

insert into сотрудники values (8, 'Обузов А.И. ','библиограф', '06.02.2014');

select *from сотрудники

2.4 Создание таблицы книги

create table книги

(

[шифр книги] int,

[наименование книги] char (60) not null,

автор char (60) not null,

[дата издания] date,

[число экземпляров] int not null,

жанр char (25) not null,

[дней с момента выдачи] int,

[отметка о списании] char (2) not null,

[шифр издания] int,

[шифр зала] int,

[шифр читателя] int

)

Заполнение таблицы книги

insert into книги values (1, 'Собрание стихов','Пушкин А.С. ','01.01.1900',1,'стихи',45,'-',1,1,1);

insert into книги values (2, 'Мастер и Маргарита','Булгаков М. ','10.01.1991',4,'Роман',25,'-',2,1,2);

insert into книги values (3, 'Собрание стихов','Пушкин А.С. ','01.01.1900',6,'стихи',45,'-',1,1,3);

insert into книги values (4, 'Собрание стихов','Пушкин А.С. ','01.01.1900',4,'стихи',45,'-',3,2,4);

insert into книги values (5, 'Мастер и Маргарита','Булгаков М. ','10.01.1991',4,'роман',25,'-',2,1,2);

insert into книги values (6, 'Преступление и наказание','Достоевский Ф.М. ','10.01.2000',4,'Роман',75,'-',2,2,6);

insert into книги values (7, 'Герой нашего времени','Лермонтов М.Ю. ','10.01.1923',4,'Роман',55,'-',1,3,7);

insert into книги values (8, 'Обломов','Гончаров И. ','10.01.1933',10,'Роман',12,'-',2,3,8);

insert into книги values (9, 'Анна Каренина','Толстой Л. ','10.01.1980',8,'Роман',2,'-',2,1,9);

insert into книги values (10, 'Горе от ума','Грибоедов А. ','10.01.1934',6,'драма',5,'-',2,2,10);

select *from книги

2.5 Создание таблицы читатели

create table читатели

(

[шифр читателя] int,

ФИО char (60) not null,

[номер паспорта] int,

[дата рождения] date,

Adres char (40) not null,

образование char (40) not null,

[наличие ученой степени] char (2) not null,

[шифр книги] int,

[шифр зала] int,

[дата регистрации] date,

[взял книгу] date,

[вернул книгу] char (40)

)

Заполнение таблицы

insert into читатели values (1, 'Рыжикова Е.И. ', 258504, '24.05.1994', 'котовского 6','среднее','-',1,1, '22.02.2015', '22.02.2015','23.02.2015');

insert into читатели values (2, 'Вершинина Е.А. ', 174562, '24.05.1995', 'котовского 6','среднее', '-',2,2, '23.02.2015', '24.02.2015','');

insert into читатели values (3, 'Зубрекова О.А. ', 445687, '10.03.1996', 'котовского 6','начальное','-',3,3, '24.02.2015', '25.02.2015','23.02.2015');

insert into читатели values (4, 'Петров О.П. ', 895426, '24.04.1995', 'котовского 6','среднее', '-',4,4, '22.02.2015', '22.02.2015','');

insert into читатели values (5, 'Иванов А.А. ', 954604, '25.05.1996', 'котовского 6','начальное', '-',5,1, '26.02.2015', '26.02.2015','28.02.2015');

insert into читатели values (6, 'Козлов П.А. ', 456845, '26.06.1997', 'котовского 6','среднее', '-',6,2, '26.03.2015', '27.04.2015','23.05.2015');

insert into читатели values (7, 'Кудасова А.П. ', 897546, '27.07.1998', 'котовского 6','среднее', '-',7,3, '22.02.2015', '22.02.2015','');

insert into читатели values (8, 'Александров П.Н. ', 986545, '28.08.1995', 'котовского 6','начальное','-',8,4, '23.02.2015', '23.02.2015','23.02.2015');

insert into читатели values (9, 'Андросов А.П. ', 547698, '29.09.1990', 'котовского 6','среднее', '-',9,1, '27.05.2015', '27.06.2015','');

insert into читатели values (10, 'Крот И.А. ', 456856, '30.10.1991', 'котовского 6','высшее', '-',10,2, '22.02.2015', '22.02.2015','23.02.2015');

select *from читатели

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

1) какие книги закреплены за определнным читателем

create view [Закреплёные книги] as

select distinct читатели. ФИО, книги. [наименование книги] from читатели, книги

where читатели. [шифр читателя] =книги. [шифр читателя]

2) Как называется книга с заданным шифром?

create view [наименование книг с шифром] as

select distinct [шифр книги], [наименование книги] from книги

3) Какой шифр у книги с заданным названием?

create view [шифр с наименование книг] as

select distinct [наименование книги], [шифр книги] from книги

4) Кто из читателей взял книгу более месяца тому назад?

create view [Кто из читателей взял книгу более месяца тому назад] as

select distinct читатели. ФИО, книги. [дней с момента выдачи] from читатели, книги

where читатели. [шифр читателя] =книги. [шифр читателя] and книги. [дней с момента выдачи] >31

5) За кем из читателей закреплены книги, количество экземпляров которых в библиотеке не превышает 2?

create view [Взяты редкие] as

select distinct читатели. ФИО, книги. [наименование книги] from читатели, книги

where читатели. [шифр читателя] =книги. [шифр читателя] and книги. [число экземпляров] <3

6) Какое число читателей пользуется библиотекой?

create view [Количество читателей] as

select COUNT ([шифр читателя]) as [Количество читателей] from читатели

7) Сколько в библиотеке читателей младше 20 лет?

create view [младше20] as

select читатели. ФИО from читатели

where читатели. [дата рождения] < '1995'

8) Сколько читателей в процентном отношении имеют начальное образование, среднее, высшее, ученую степень?

create procedure [Образование читателей] as

declare @a float declare @b float declare @c float declare @d float declare @e float

set @a = (select COUNT (образование) from читатели)

set @b = (select COUNT (образование) from читатели

where образование='начальное')

set @c = (select COUNT (образование) from читатели

where образование='среднее')

set @d = (select COUNT (образование) from читатели

where образование='высшее')

set @e = (select COUNT ([наличие ученой степени]) from читатели

where образование='+')

select @a*@b/100 as начальное;

select @a*@c/100 as среднее;

select @a*@d/100 as высшее;

select @a*@e/100 as [наличие ученой степени];

Когда книга была закреплена за читателем

create view [книга закреплена] as

select distinct читатели. ФИО, книги. [наименование книги], читатели. [взял книгу] from читатели, книги

where читатели. [шифр читателя] =книги. [шифр читателя]

На основе наших запросов создаем фильтры

По книгам закрепленным за каждым читателем

create view Рыж as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Рыжикова Е.И. '

create view Алекс as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Александров П.Н. '

create view Андр as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Андросов А.П. '

create view Вер as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Вершинина Е.А. '

create view Зуб as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Зубрекова О.А. '

create view коз as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Козлов П. А.

create view коп as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Копейко А.И. '

create view кр as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Крот И.А. '

create view ку as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Кудасова А.П. '

create view п as

select distinct ФИО, [Закреплёные книги]. [наименование книги] from [Закреплёные книги]

where ФИО='Петров О.П. '

Фильтр по наименованию книг с заданным шифром

create view a as

select distinct [шифр книги], [наименование книг с шифром]. [наименование книги] from [наименование книг с шифром]

where [шифр книги] ='1'

create view b as

select distinct [шифр книги], [наименование книг с шифром]. [наименование книги] from [наименование книг с шифром]