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

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

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
      

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

Marks. Codesubject = Subjects. Codesubject.

6. 
   Закройте окно конструктора и подтвердите сохранение изменений.
   
1. 
   Выберете свойство SQL компоненты Query1 и просмотрите текст SQL-
   

7. 
   Добавьте в модуль данных компонент DataSource3 (вкладка DataAccess) и свяжите его с установленным запросом.
   
8. 
   Добавьте на форму Form6 компоненты Label1, BDGrid1, BDNavigator1, BitBtn и настройте их в соответствии с рисунком:
   

9. 
   В модуле Unit3 формы Form3 в строку Uses Unit2, Unit4; добавьте имя модуля Unit6;
   
10. 
    Разместите на форме Form3 кнопку Button, дайте ей имя Оценки и напишите следующий обработчик на событие OnClick:
    

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;

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

end;

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