Создание динамических запросов



Дата06.01.2022
өлшемі27,65 Kb.
#110288
Байланысты:
Создание динамических запросов


Лабораторная работа 7

Создание динамических запросов.



Цель: Изучение возможности использования компонента TQuery и конструктора запросов SQL Builder.

Задание: Создать динамический запрос, позволяющий получить сведения об успеваемости конкретного студента.


  1. Откройте приложение для работы с базой данных Деканат.

  2. Добавьте в проект новую форму Form6 (FileNewForm).

  3. Дайте новой форме название оценки.

  4. Разместите в модуле данных компонент Query1 (страница BDE) и свяжите его с базой данных: в свойстве DatabaseName укажите созданный вами псевдоним.

  5. Выделите компонент Query1 и запустите конструктор (выберите в контекстном меню пункт SQL Builder). Произведите следующие настройки:

    1. Выберите в выпадающем списке Database базу данных Деканат, в списке table последовательно имена таблиц Marks и Subjects.

    2. В появившейся в рабочем поле таблицs Marks выделите поля Indnumber, Codesubject, Mark. В таблице Subjects выберите поля Codesubject, Namesubject, Semester.

    3. На вкладке Criteria укажите критерий отбора: Marks. Indnumber = 1;

    4. Для упорядочивания записей по семестрам на вкладке Sorting

выберите поле Semester и нажмите кнопку Add.

    1. Для установления соответствия между таблицами на вкладке Joins

установите связь:

Marks. Codesubject = Subjects. Codesubject.



    1. Закройте окно конструктора и подтвердите сохранение изменений.

  1. Выберете свойство SQL компоненты Query1 и просмотрите текст SQL-

запроса.

  1. Добавьте в модуль данных компонент DataSource3 (вкладка DataAccess) и свяжите его с установленным запросом.

  2. Добавьте на форму Form6 компоненты Label1, BDGrid1, BDNavigator1, BitBtn и настройте их в соответствии с рисунком:




  1. В модуле Unit3 формы Form3 в строку Uses Unit2, Unit4; добавьте имя модуля Unit6;

  2. Разместите на форме Form3 кнопку Button, дайте ей имя Оценки и напишите следующий обработчик на событие OnClick:

procedure TForm3.Button1Click(Sender: TObject); var

s1, s2:string; begin

s1:= DataModule2.Table1.Fields[0].AsString; form6.Show;

DataModule2.Query1.SQL[4]:= 'WHERE Marks. Indnumber = '+ s1; datamodule2.Query1.Active:=true;

s2:= DataModule2.Table1.Fields[1].AsString +' '+ DataModule2.Table1.Fields[2].AsString+

' '+DataModule2.Table1.Fields[3].AsString; form6.Label1.Caption:=s2;

end;


  1. Для кнопки BitBtn формы Form6 введите следующий обработчик : procedure TForm6.BitBtn1Click(Sender: TObject);

begin

DataModule2.Query1.Active:=false; Form6.Close;

end;


  1. Запустите приложение и проверьте выполнения запроса. 17.Сохраните проект.


Достарыңызбен бөлісу:




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет