Создание простого запроса

Begin

Создание программного модуля открытия и редактирования таблицы

Запустите Delphi. Создайте новый проект.

Расположите на форме следующие компоненты (страницы BDE, Data Access, Data Controls): Table1, DBGrid1, DataSource1, DBNavigator1 рис. 9.

Рис. 9.- Расположение компонентов на форме

1. Компоненту Table1 присвойте следующие свойства:

DatabaseName: DB_DNEVNIK {выбор псевдонима базы данных}

TableName: MainData.DB {название таблицы}

TableType: ttParadox {тип базы данных}

2. Компоненту DataSource1:

DataSet: Table1 {выбор источника данных для DataSource1}

3.Компоненту DBNavigator1:

DataSource: DataSource1 {связь DBNavigator1 с DataSource1}

4.Компоненту DBGrid1:

DataSource: DataSource1 {связь DBGrid1 с DataSource1}

Создайте обработчик события для Form1:

procedure TForm1.FormActivate(Sender: TObject);

Table1.Active:=True;

end;

Теперь при открытии формы будет автоматически открываться таблица MainData.DB.

Сохраните модуль и проект. Запустите программу (F9). Рабочее окно программы представлено на рис. 10.

Рис. 10.- Рабочее окно программы

Компонент DBNavigator служит для управления записями таблицы (перемещение, добавление, удаление). При этом все изменения сохраняются в таблице MainData.DB (свойству Store Defs присвойте значение True).

Создание программного модуля простого и параметризованного запросов на основе данных таблицы

Познакомьтесь с теоретическим материалом, касающимся использования объекта типа TQuery в программах для работы с базами данных (приложение П6).

Добавьте к прежней форме новый компонент Query1, DataSource2, DBGrid2, а также два компонента типа TLabel рис. 11.

Рис. 11.- Форма программы для создания простого запроса

1. Компоненту Query1 присвойте следующие свойства:

DatabaseName: DB_DNEVNIK;

DataSource: DataSource1. {связь Query1сDataSource1}

SQL: Select * from MainData where Comment ='Ivanov'

{выбрать из таблицы MainData.db все записи со значением ”Ivanov”поля Comment}

2. Компоненту DataSource2:

DataSet: Query1; {связь Query1сDataSource2}

3.Компоненту DBGrid2:

DataSource: DataSource2. {связь DBGrid2 сDataSource2}

4. Обработчик события активации формы Form1 перепишите следующим образом:

procedure TForm1.FormActivate(Sender: TObject);

Дата добавления: 2015-05-09