Тема: delphi: создание динамических запросов

Цель: получить навык создания динамических SQL – запросов.

ТО и ПО: ПК AMD E1-1500 APU with Radeon(tm) HD Graphics 1.48 GHz, 2.00 ГБ, ОС Windows 8.1, Delphi 2010, методические указания.

Задание:

Постановка задачи 1: На форме приложения, предназначенной для отображения успеваемости учеников музыкальной школы написать для кнопки обработчик формирования динамического SQL – запроса, позволяющего получать выборку информации об успеваемости учеников (фамилия, имя, название предмета, номер четверти, оценка за четверть).

Постановка задачи 2: Создать динамический SQL – запрос с параметром, предназначенный для отображения сведений об успеваемости для конкретного ученика.

Постановка задачи 3: Создать динамический SQL запрос, предназначенный для отображения сведений об поступлении для конкретного ученика.

Описание хода выполнения работы:

Запустила Delphi.

Разместила компоненты: TQuery,TDataSourse, TDBGrid, TButton.

Настроила соединение TQuery с TDatabase, TDataSourse с TQuery и TDBGrid.

Для кнопки Button написала обработчик события Click.

Код обработчика события для кнопки:

query2.SQL.Clear;

query2.SQL.Add('select Fam, Name, Name_pr, Chetvert, Ocenka');

query2.SQL.Add('from"uchenick.DB" Uchenick, "predmet.db" Predmet, "prom_usp.db" Prom_usp');

query2.SQL.Add('WHERE (Uchenick.Cod_uch=Prom_usp.Cod_uch) AND (Predmet.Kod_predmets =Prom_usp. Cod_predmets);');

query2.Open;

Присвоила название кнопке «Общая успеваемость».

Выполнила тестирование работы кнопки. Результат запроса показан на рисунке 14.1.

Рисунок 14.1

Разместила компоненты: TQuery,TDataSourse, TDBGrid, TEdit.

Настроила соединение TQueryс TDatabase, TDataSourse с TQuery и TDBGrid.

Для события OnChange компонентаTEdit написала обработчик.

Код для события OnChange компонентаTEdit:

query1.SQL.Clear;

query1.SQL.Add('select Fam, Name, Name_pr, Chetvert, Ocenka');

query1.SQL.Add('from"uchenick.DB" Uchenick, "predmet.db" Predmet, "prom_usp.db" Prom_usp');

query1.SQL.Add('WHERE (Uchenick.Cod_uch=Prom_usp.Cod_uch) AND (Predmet.Kod_predmets =Prom_usp. Cod_predmets) and (Uchenick.Fam LIKE'''+edit1.Text+''');');

query1.Open;

Выполнила тестирование работы программы. Результат запроса показан на рисунке 14.2

Рисунок 14.2

Разместила компоненты: TQuery,TDataSourse, TDBGrid.

Настроила соединение TQueryс TDatabase, TDataSourse с TQuery и TDBGrid.

Для события формы OnShow написала обработчик.

Код для события формы OnShow:

query1.SQL.Clear;

query1.SQL.Add('select Fam, Name, Otch, Data_postupleniya');

query1.SQL.Add('from "uchenick.DB" Uchenick, "postuplenie.db" Postuplenie');

query1.SQL.Add('where (Uchenick.Cod_uch=Postuplenie.Cod_uch);');

query1.open;

Выполнила тестирование работы. Результат запроса показан на рисунке 14.3:

Рисунок 14.3

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

Дата добавления: 2015-08-09