Программа и материалы элективного курса для учащихся 10-11 классов «Delphi: работа с базами данных в примерах» (стр. 4 )

Свойство	Значение
Name	Query1
DatabaseName	School
SQL	Активизировать кнопку с тремя точками в открывшемся окне String list editor сформировать текст запроса: Select SYNAME, NAME From pupil Where Class = ‘9’ Order by SYNAME Активизировать кнопку ОК
Active	True

Создание запросов на выборку с помощью языка SQL

1. Добавить новую форму (NewForm – Form3)

2. На вкладке Databases выбрать псевдоним School/ Tables/pupil. db

3. Активизировать вкладку Enter SQL и записать текст запроса в открывшейся области: (Данный запрос обеспечивает выбор информации об учениках, фамилии которых начинаются на букву Б)

Select Syname, Name, Class

From pupil

Where (Syname>’Б’) and (Syname<’В’)

Order by Syname, Name

4. Активизировать кнопку для выполнения запроса, который отобразится ниже в виде таблицы.

Создание связей между таблицами

Чаще всего база данных состоит не из одной, а из нескольких связанных между собой таблиц. Рассмотрим пример установления связи между двумя таблицами. Для создания связи необходимо выполнить следующие действия.

· Запустить программу Пуск/ Программы/ Borland Delphi6/ Delphi6 (если она не запущена).

· В главном меню выбрать File/New, в открывшемся окне выбрать компонент Data Module. Активизировать кнопку OK.

· В окне Data Module поместить два компонента Table, два компонента Data Source, располагающихся на вкладке Data Access.

· Изменить значение свойств (Properties в Инспекторе объектов) двух компонентов Table и Data Source.

· В окне Data Module выделить первую таблицу. Активизировать правую кнопку мыши, вызвав контекстное меню, в котором выбрать компонент Add Fields (выбор полей из таблицы).

Значения свойств компонентов

Table 1 DataSource1

Свойство	Значение	Свойство	Значение
Name	Table1	Name	DataSource1
Database Name	(Название созданного псевдонима)	Dataset	Table1
Table Name	(Название первой таблицы)
Active	True

Значения свойств компонентов

Table 2 DataSource2

Свойство	Значение	Свойство	Значение
Name	Table1	Name	DataSource1
Database Name	(Название созданного псевдонима)	Dataset	Table1
Table Name	(Название первой таблицы)
Active	True

Не закрывая окно Data Module, перейти в основную форму Form1 и на вкладке Standard выбрать компонент Panel1, разместив его на форме. В меню File/Use Unit выбрать в открывшемся диалоговом окне Unit 2, активизировать кнопку OK. C Data Module перенести поля с помощью мыши на Panel1, располагающийся на форме. Поместить DBNavigator1 на форму из вкладки DataControls и поменять свойство Data Source на Data Source1. Поместить DBGrid1 на форму из вкладки DataControls и поменять свойство Data Source на Data Source2. В окне Data Module выделить Table2 и изменить значения свойств (Properties в Инспекторе объектов):

Значения свойств компонента Table2

Свойство	Значение
Name	Table2
Master Source	Data Source1
Master Field	(Название поля связи)
IndexName	(Название Secondary Indexes во второй таблице)
Active	True

Откомпилировать, запустить программу и сохранить (File/Save all). Запуск программы: в главном меню выбрать Run.

Не забывайте сохранять проект БД!