Вопрос 29. Delphi.Создание форм 1:М для просмотра связанных таблиц с помощью компонента Query, IBQuery.
Компонент IBQuery не визуальный, его содержимое можно отобразить в DBGrid
Основные свойства:
*DataBaseName – имя компонента, связанного с БД, например, IBDatabase1;
*SQL – тип string ,здесь хранится текст SQL-запроса;
*Active – принимает значения true (запрос открыт) или false (запрос закрыт);
Основные методы: Open, Close
Открытие:
1. Если компонент используется для выполнения оператора Select:
IBQuery1. Active:=true;
или
IBQuery1.Open;
2. Если с помощью компонента выполняются операторы insert, update, delete, то:
IBQuery1.ExecSQL;
Закрытие:
IBQuery1.Active:=false;
IBQuery1.Close;
Перенос значения текущей записи в поля ввода и списка.
Событие AfterScroll компонента IBQuery2, который для отображения данных.
Edit1.Text:=IBQuery2.FieldByName(‘kod’).AsString;
Edit2.Text:=IBQuery2.FieldByName(‘fio’).AsString;
DBLookUpCombobox1.KeyValue:=IBQuery2.FieldByName(‘kod_gr’).AsInteger;
Создание формы «1:М» на основе запроса
Свойство SQL:
Select * from student where kod_gr=:kod;
Компонент IBQuery не визуальный, его содержимое можно отобразить в DBGrid
Основные свойства:
*DataBaseName – имя компонента, связанного с БД, например, IBDatabase1;
*SQL – тип string ,здесь хранится текст SQL-запроса;
*Active – принимает значения true (запрос открыт) или false (запрос закрыт);
Основные методы: Open, Close
Открытие:
1. Если компонент используется для выполнения оператора Select:
IBQuery1. Active:=true;
или
IBQuery1.Open;
2. Если с помощью компонента выполняются операторы insert, update, delete, то:
IBQuery1.ExecSQL;
Закрытие:
IBQuery1.Active:=false;
IBQuery1.Close;
Перенос значения текущей записи в поля ввода и списка.
Событие AfterScroll компонента IBQuery2, который для отображения данных.
Edit1.Text:=IBQuery2.FieldByName(‘kod’).AsString;
Edit2.Text:=IBQuery2.FieldByName(‘fio’).AsString;
DBLookUpCombobox1.KeyValue:=IBQuery2.FieldByName(‘kod_gr’).AsInteger;
Создание формы «1:М» на основе запроса
Свойство SQL:
Select * from student where kod_gr=:kod;