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

Автор: Пользователь скрыл имя, 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 Кб (Скачать)

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton9Click(Sender: TObject);

    procedure SpeedButton10Click(Sender: TObject);

    procedure SpeedButton11Click(Sender: TObject);

    procedure SpeedButton12Click(Sender: TObject);

    procedure SpeedButton13Click(Sender: TObject);

    procedure SpeedButton15Click(Sender: TObject);

    procedure SpeedButton16Click(Sender: TObject);

    procedure SpeedButton17Click(Sender: TObject);

    procedure SpeedButton18Click(Sender: TObject);

    procedure SpeedButton19Click(Sender: TObject);

    procedure SpeedButton20Click(Sender: TObject);

    procedure SpeedButton21Click(Sender: TObject);

    procedure SpeedButton22Click(Sender: TObject);

    procedure SpeedButton23Click(Sender: TObject);

    procedure SpeedButton24Click(Sender: TObject);

    procedure SpeedButton25Click(Sender: TObject);

    procedure SpeedButton26Click(Sender: TObject);

    procedure SpeedButton27Click(Sender: TObject);

    procedure SpeedButton28Click(Sender: TObject);

    procedure SpeedButton29Click(Sender: TObject);

    procedure SpeedButton30Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure DBGrid1CellClick(Column: TColumn);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

uses Unit2, Unit3, Unit4, Unit5; 

{$R *.dfm} 
 

procedure TForm1.N3Click(Sender: TObject);

begin

label2.Visible:=true;

DBLookupComboBox1.Visible:=true;

end; 

procedure TForm1.N2Click(Sender: TObject);

begin

//label2.Visible:=false;

//DBLookupComboBox1.Visible:=false;

  form4.Show;

end; 

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);

begin

   if dblookupcombobox1.text<> '' then

   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 Книга.ID_книга='+inttostr(dblookupcombobox1.KeyValue));

adoquery3.Active:=true;

end; 
 

  end; 
 

procedure TForm1.SpeedButton14Click(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.SpeedButton1Click(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.SpeedButton2Click(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.SpeedButton3Click(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.SpeedButton4Click(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.SpeedButton5Click(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.SpeedButton6Click(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.SpeedButton7Click(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.SpeedButton8Click(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.SpeedButton9Click(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.SpeedButton10Click(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.SpeedButton11Click(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.SpeedButton12Click(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.SpeedButton13Click(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 "Л%"' );

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