Курсовая работа на тему: Визуальный построитель запросов извлечение

Введение

В современном мире базы данных применяются повсеместно. Совершенно очевидна необходимость развития технологий хранения и доступа к данным. Создание стандарта SQL было большим прорывом в этом направлении. Но, несмотря на первоначальное желание разработчиков сделать этот язык запросов максимально приближенным к естественному (английскому), это получилось с определенными оговорками.

Непосвященному человеку все равно сложно составить запрос. Но если есть общие знания в области баз данных, то знать структуру SQL-запросов не обязательно. Для их составления можно использовать визуальные построители.

Целью данной работы является создание такого визуального построителя запросов на извлечение данных (с помощью оператора SELECT).

Оглавление

- Введение

- Постановка задачи

- Язык запросов SQL

- Общие сведения о SQL

- Оператор SELECT

- Раздел FROM

- Раздел WHERE

- Раздел GROUP ВY

- Раздел HAVING

- Агрегатные функции и результаты запросов

- Программная реализация

- Алгоритм работы приложения

- Интерфейс приложения Заключение

- Список использованной литературы

- Приложение А обязательное Листинг программы

Список литературы

1. Кузнецов, С.Д. Основы современных баз данных [Текст]: учебное пособие. - М.: Интернет-университет информационных технологий, 2007. - 720 с.

. Свободная энциклопедия [Электронный ресурс]. - SQL - Википедия. - Режим доступа: http://ru.wikipedia.org/wiki/SQL.

Приложение А (обязательное)

Листинг программы

TForm1.UpdateSelectedGroups;i, count: Byte;:= '';:= 0;CheckListBox_GroupBy.Items.Count > 0 then begini := 0 tо CheckListBox_GroupBy.Items.Count-1 dо beginCheckListBox_GroupBy.Checked[i] then begin(count = 0) then begin:= #13#10' GROUP ВY ' + CheckListBox_GroupBy.Items[i]else begin:= SelectedGroups + ', ' + CheckListBox_GroupBy.Items[i];;(count);;;;;

TForm1.UpdateOrder;i, count: Byte;:= '';:= 0;(CheckListBox_OrderBy.Items.Count > 0) then begini := 0 tо CheckListBox_OrderBy.Items.Count-1 dо beginCheckListBox_OrderBy.Checked[i] then begin(count = 0) then begin:= #13#10' ORDER ВY ' + CheckListBox_GroupBy.Items[i]else begin:= OrderBy + ', ' + CheckListBox_GroupBy.Items[i];;(count);;;(count > 0) then beginRadioGroup_OrderBy.ItemIndex оf

(ListBox_Where.ItemIndex <> ListBox_Where.Items.Count-1) then begin_Logics.Items[ListBox_Where.ItemIndex] := 'ИЛИ';;;;TForm1.SpeedButton_AggClick(Sender: TObject);ComboBox_Agg.ItemIndex <> -1 then begin_Having.Text := Memo_Having.Text + ComboBox_Agg.Text;;;