Создание приложений для работы с базами данных в среде визуального программирования Delphi

Пензенская государственная  технологическая академия

Факультет «Институт  промышленных технологий»

Кафедра «Вычислительные машины и системы»

 

 

 

 

 

 

Лабораторная работа №1

по дисциплине «Системы визуального программирования»

на тему «Создание приложений для работы с базами данных в среде визуального программирования Delphi»

 

 

 

 

 

 

Выполнил: студент гр. 09В1зи

Сироткин М.В.

Принял: Андреева Т.В.

 

 

 

Пенза 2011

 

ЗАДАНИЕ К ЛАБОРАТОРНОЙ РАБОТЕ:

1. Спроектировать структуру БД в соответствии с индивидуальной предметной областью (не менее 2-х взаимосвязанных таблиц).
2. Реализовать полученную структуру в формате СУБД Paradox.
3. Спроектировать многооконное приложение для работы с полученной БД в среде визуального программирования Delphi. Приложение должно содержать:
• Окно для вывода информации о назначении программы и ее разработчике;
• Окно для совместного отображения, ввода и редактирования записей из взаимосвязанных таблиц БД;
• Окно для отображения результатов выполнения запросов к БД.
4. Сформировать не менее 6 SQL-запросов на выборку информации из полученной БД. С помощью запросов должны осуществляться следующие основные операции над данными: сортировка, фильтрация и поиск данных по заданным критериям. Критерии отбора указаны в индивидуальном варианте задания. Критерии сортировки должны устанавливаться пользователем.

Вариант 37

Предметная  область: “ Одежда ”

Универсальное отношение

№пп

Название

Фирма-изготовитель

Цвет

Размер

Цена

 

Критерии  отбора данных:

• выбрать в списке все данные о мужской одежде;
• все данные о куртках или плащах;
• информацию об одежде определенной фирмы;
• одежду определенного вида и размера;
• одежду, цена которой не превышает 3 000 рублей.

 

Структура таблиц БД для предметной области «Одежда»:

Таблица 1. «Одежда»

*

№пп

Коллекция

Материал

   1

Таблицы 2. «Коллекция»

*                     ∞

№пп

Название

Фирма-изготовитель

Цвет

Размер

Цена

Коллекция

Пол

 

Исходный код процедуры запросов:

{ выбрать в списке  все данные о мужской одежде;

 все данные о куртках или плащах;

 информацию об одежде  определенной фирмы;

 одежду определенного вида и размера;

 одежду, цена которой  не превышает 3 000 рублей}

procedure TForm2.Button2Click(Sender: TObject);

begin

  Query1.Close;

  Query1.SQL.Clear;

  if RadioButton1.Checked then Query1.SQL.Add ('SELECT * FROM Odegda WHERE Pol = "муж"');

  if RadioButton2.Checked then Query1.SQL.Add ('SELECT * FROM Odegda WHERE Nazvanie = "Плащ" OR Nazvanie = "Куртка"');

  if RadioButton3.Checked then begin Query1.SQL.Add ('SELECT * FROM Odegda WHERE FirmaIzgot=:PFirm');

    Query1.ParamByName('PFirm').AsString:=Edit1.Text;

    end;

  if RadioButton4.Checked then begin Query1.SQL.Add ('SELECT * FROM Odegda WHERE Nazvanie=:PNazv AND Razmer=:PSize');

    Query1.ParamByName('PNazv').AsString:=Edit2.Text;

    Query1.ParamByName('PSize').AsString:=Edit3.Text;

    end;

  if RadioButton5.Checked then Query1.SQL.Add ('SELECT * FROM Odegda WHERE Price < "3000"');

  Query1.Open;

end;

 

Работа программы: