Высокоуровневые методы информатики и программирования

Автор: Пользователь скрыл имя, 01 Декабря 2011 в 14:04, курсовая работа

Краткое описание

Курсовая работа по дисциплине «Высокоуровневые методы информатики и программирования» выполняется с целью проверки того, насколько «мы –студенты», прослушавшие курс, владеем теоретическими знаниями в области методологии проектирования баз данных, обладаем знаниями и навыками, достаточными для самостоятельного решения небольшой по объему содержательной задачи.
Курсовая работа выполняется на заключительной стадии изучения дисциплины. К этому времени мы должны иметь представление о технологии баз данных в целом, о системе базы данных, о её архитектуре и жизненном цикле; знакомы с основными понятиями теории баз данных такими, как: модели базы данных, структуры данных того или иного типа, операции над данными.
База данных спроектирована в СУБД Microsoft Access. Для разработки самой системы, был использован объектно- ориентированный язык программирования Borland Delphi.

Оглавление

Введение 3
1) Цель курсовой работы. 4
2) задание на выполнение КР по разработке данных со сведениями о художественной литературе. 5
3) состав и назначения системы со сведениями о художественной литературе. 5
4) процесс разработки интерфейса проекта интерактивной системы процесса обработки данных со сведениями о художественной литературе. 5
4.1 основные этапы процесса разработки проекта. 5
4.2 разработка структуры записи таблицы базы данных. 6
5) подключение базы данных в Delphi 9
5.1 методы для поиска даннных 9
5.2 методы для оформления заказа 10
5.3 методы для добавления и удаления данных 10
6) приложения 13
6.1 Приложение 1. Листинг программы. 13

Скачать в ZIP (290.54 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Копия РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ.doc

— 484.00 Кб (Скачать)

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton15Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Н%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton16Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "О%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton17Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "П%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton18Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Р%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton19Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "С%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton20Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Т%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton21Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "У%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton22Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Ф%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton23Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Х%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton24Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Ц%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton25Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Ч%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton26Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Ш%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton27Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Щ%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton28Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Э%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton29Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Ю%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.SpeedButton30Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет WHERE Книга.Название LIKE "Я%"' );

adoquery3.Active:=true; 

end; 

procedure TForm1.Button2Click(Sender: TObject);

begin

adoquery3.Active:=false;

adoquery3.SQL.Clear;

adoquery3.SQL.Add('SELECT Книга.Название, Книга.Автор, Книга.Год_издания, Книга.Цена, Жанр.Жанр, Магазин.Название, Переплет.Переплет');

adoquery3.SQL.Add('FROM Переплет INNER JOIN (Магазин INNER JOIN ((Жанр INNER JOIN Книга ON Жанр.ID_жанр = Книга.ID_жанр) INNER JOIN книга_магазин ON Книга.ID_книга = книга_магазин.ID_книга)');

adoquery3.SQL.Add('ON Магазин.ID_магазин = книга_магазин.ID_магазин) ON Переплет.ID_переплет = Книга.ID_переплет');

adoquery3.Active:=true; 

end; 

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

dbedit1.DataField:='Книга.Название';

dbedit2.DataField:='Цена';

dbedit5.DataField:='Автор';

dbedit4.DataField:='Переплет';

dbedit3.DataField:='Магазин.Название';

end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

   adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+application.GetNamePath+'Books.mdb;'+

   'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'+

   'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;';

   adoconnection1.Connected:=true;

   adoquery1.Active:=true; 

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.visible:=true;

end; 

procedure TForm1.N1Click(Sender: TObject);

Информация о работе Высокоуровневые методы информатики и программирования