4. Создание формы Form2 для просмотра данных запроса, созданного в программе ms Access.

   1. В меню DataBase выберите FormWizard.

   2. Следуя по шагам мастера, создайте форму на основании запроса Chahge.

   3. Расположите поля формы произвольным образом, измените шрифт, начертание и цвет по своему усмотрению.

5. Создание sql запросов.

   1. Создайте форму Form3

   2. Для создания запроса добавьте на форму Form3 следующие компоненты классов TQuery, TDataSource, TDBGrid.

   3. На форму добавьте две метки ("Текст запроса", "Результат запроса").

   4. Добавьте на форму Form3 компонент Memo1. Измените свойство Lines добавленного компонента Memo1 на пустое значение.

   5. В контекстном меню компонента Query1 выберите команду EditSQL. В появившемся окне напишите текст запроса на выборку данных с использованием оператора Where.

   6. Добавьте на форму ещё два компонента Button1 и DBGrid1 (для просмотра результата запроса).

   7. Организуйте работу следующим образом: при нажатии на кнопку Button1 в компоненте DBGrid1 отображается результат запроса.

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

Управление динамическим запросом. Синтаксическая конструкция динамического запроса такая же, как и у статистических, за исключением того, что в строке условие отбора записи вместо значения записывается ":параметр", где параметр - имя параметра, вместо которого при выполнении программы будет подставляться значение.

9. Поместите на форму Form1 метку Label4 и измените свойство Caption на "Значение параметра".

10. Рядом с меткой поместите строку ввода Edit1 и удалите слово Text. В поле ввода будет определяться значение параметра, используемого в запросе.

11. Поместите на форму ещё одну кнопку Button2. На событие нажатия кнопки Button2 (переименуйте её на START) создайте процедуру. В процедуре измените инструкцию SQL на аналогичную выборку данных, только на основе своих таблиц. В качестве параметра выберите любое поле.

procedure TForm1.Button2Click(Sender: TObject);

begin

with DataModule2.IBQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('Select Vladelets.Familia');

SQL.Add('From Vladelets Inner Join Avto');

SQL.Add('Vladelets on avto.kod_vl= Vladelets.kod_vl ');

SQL.Add('Where avto.Marka= :pChislo');

ParamByName('pChislo').Value := StrToInt(Edit1.Text);

Open;

end;

end;

Контрольные вопросы.

1. Связывание таблиц по полям связи.

2. Организация сохранения и открытия запросов.

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

4. Создание псевдонима базы данных средствами BDE Administrator

23. Проектирование интерфейса приложения для работы с базой данных

Цель занятия: Спроектировать приложение для работы с базой данных MS Access.

Для выполнения задания необходимо: Поместить следующие компоненты на форму:

• Компонент CoolBar и 2 компонента ToolBar. Поменять свойства компонентов ToolBar: Dock Site:=true; Drang Kind:=dk Dock; Drag Mode:= dmAutomatic;

• Щёлкнуть 2 раза на CoolBar и выбрать 2 CoolBand. На CoolBand1 измените свойство Control на ToolBar1, для На CoolBand2 измените свойство Control на ToolBar2.

• Измените свойства для компонента CoolBar: Dock Site:= True; Drag King:= dkDock.

• Добавьте компонент для создания меню. Создайте пункт меню View, содержащий две команды: ToolBar1 и ToolBar2. Измените свойство Checked:=true для созданных команд меню.

Напишите программу для выбора команды ToolBar1 меню:

procedure TForm1.ToolBar11Click(Sender: TObject);

begin

ToolBar11.Checked:=not (ToolBar11.Checked);

if ToolBar11.Checked=true

then ToolBar1.Visible:=true

else ToolBar1.Visible:=false;

end;

Аналогично напишите программу для выбора команды ToolBar2 меню.

Добавьте на панель инструментов с именем ToolBar1 три кнопки класса TBitButton, для закрытия формы, вызова справки и Helpа.

Примечание: Требуется изменить свойство Kind добавленных кнопок.

Для созданных панелей инструментов измените названия, и внесите изменения в проект, в связи с изменениями.

Создание приложения DataGrid.

Добавьте на форму следующие компоненты:

• Query1 для создания запросов в режиме SQL; измените свойство DataBaseName, а также свойство SQL добавленного компонента на: select * from имя_вашей_БД Дважды нажмите кнопку мыши на окне свойства Active компонента Query1 и установите его True. Это активизирует запрос.

• DataSource1, измените свойство DataSet на Query1.

• DBGrid1, измените свойства: DataSource на DataSource1, Align на alClient;

• В область компонента ToolBar2 добавьте DBNavigator1.

Дополните написанный проект следующими возможностями:

Добавление в меню команд: File, Help, Edit. Продублируйте команды на панелях инструментов в меню. Создание SQL запросов и другие возможности.

ВОПРОСЫ:

1. Свойства и методы компонентов CoolBar и ToolBar

2. Свойства компонента DataGrid