Этап отображения и редактирования данных

4. Отображаем данные в таблицах, использовав компонент DBGrid, свойство DataSource - DataModule4.DataSourceKnigi и DataModule4.DataSourceAvtori соответственно. Предварительно прописав в разделе implementation «Uses Unit5» (на Unit4 располагается DataModule).

5. На форме Заказы вставляем объекты DBEdit и DBLookUpComboBox (вкладка Data Controls).

Настроиваем DBEdit:

· Edit1: Свойство DataSource–DataModule5.DataSource_Zakazi

· Свойство Data field – Data

Настроиваем DBLookUpCombo Box (позволяет выйти на подстановочную таблицу, взять из нее данные; также может использоваться для организации списка из полей таблицы).

· DataSource – DataModule5.DataSource_Zakazi

· Свойство Datafield – Id_usluga

· ListField – Name_uslugi

· ListSource – DataModule5.DataSource_Uslugi

· Key Field – Id_uslugi

Рис.7. Объекты DBEdit и DBLookUpComboBox

Этап фильтрации и сортировки данных

1. На форме Заказы добавляем фильтрацию по клиентам и услугам. Для этого вставляем компонент CroupBox (Standart), создаем два компонента RadioButton, 2 компонента DBLookUpComboBox, вспомогательный компонент Edit1, кнопку Фильтр.

Запрограммируем кнопку Фильтр:

procedure TForm4.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked=True then

begin

Edit1.Text: = DBLookUpComboBox2.Text;

DataModule5.Zakazi.Filter: ='Name_uslugi ='+Edit1.Text;

end;

if RadioButton2.Checked=True then

begin

Edit1.Text: = DBLookUpComboBox3.Text;

DataModule5.Zakazi.Filter: ='FIO ='+Edit1.Text;

end;

end;

Рис.8. Фильтрация

2. На форму Услуги добавиляем объект CroupBox с радиокнопками «По наименованию» и «По стоимости»:

Запрограммируем радиокнопку «По наименованию»:

procedure TForm2.RadioButton1Click(Sender: TObject);

begin

DataModule5.Uslugi.IndexFieldNames: ='Name_uslugi';

end;

Запрограммируем радиокнопку «По стоимости»:

procedure TForm2.RadioButton1Click(Sender: TObject);

begin

DataModule5.Uslugi.IndexFieldNames: ='Stoimost';

end;

Проверяем работоспособность (Рис.9, Рис.10).

Рис.9. Сортировка по наименованию

Рис.9. Сортировка по стоимости

Этап работы с SQL-запросами

1. Построить SQL-запросы:

· На выборку:

SELECT Id_uslugi, Name_uslugi, Stoimost

FROM Uslugi

WHERE (((Uslugi.Stoimost)> 100))

ORDER BY Name_uslugi;

SELECT Id_zakaz, Id_klienta, Id_usluga, Data, Okazanie_uslugi

FROM Zakazi

WHERE (((Zakazi.Id_zakaz)> 2))

ORDER BY Id_zakaz;

· На обновление:

UPDATE Услуги SET Name_Uslugi = " Стельки"

WHERE Id_uslugi=19;

UPDATE Klienti SET FIO = " Аношкина Александра Владимировна"

WHERE Id_klienta=1;

· На добавление:

INSERT INTO Услуги ( Name_uslugi, Stoimost )

VALUES (" Шнурки", 200);

INSERT INTO Klienti ( FIO, Adres, Telefon )

VALUES (" Потапова Антонина Сергеевна", " Ленинский 12-96", 347091);

· На удаление:

DELETE *

FROM Uslugi

WHERE Id_Uslugi=18;

 

DELETE *

FROM Klienti

WHERE Id_klienta=7.

Построить запрос по трем таблицам с использованием связи между таблицами и сортировки:

SELECT Zakazi.Id_zakaz, Klienti.FIO, Uslugi.Name_uslugi, Zakazi.Okazanie_uslugi

FROM Uslugi INNER JOIN (Klienti INNER JOIN Zakazi ON Klienti.Id_klienta = Zakazi.Id_klienta) ON Uslugi.Id_uslugi = Zakazi.Id_usluga

ORDER BY Klienti.FIO.

Скопировать текст SQL-запроса в буфер обмена для дальнейшей вставки в Delphi. Зайти в Delphi и настроить компонент ADOQuery. В

ыбрать на DataModule5 компонент AdoQuery1.

Настроить свойства:

· свойство Connection = AdoConnection1 (было настроено раньше),

· свойство SQL – в редакторе SQL текста вставила текст SQL-запроса из буфера обмена,

· свойство Active –True.

На главную форму вставить DBGrid. Свойство DataSource настроить на компонент DataSource Query.

Запустить программу и проверить ее работоспособность (Рис.10).

Рис.10. SQL-запрос

Создать подключение базы данных из текущей папки приложения. Для этого:

1. Отключить свойство Connected компонента AdoConnection.

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

3. При настройке компонента AdoConnection:

· свойство ConnectionString – открывается окно строки соединения, в нем по нажатию кнопки Build выбираем Microsoft Jet 4.0v OLE DB Provider, потом по кнопке Next – выбираем нашу БД и вместо полного пути с указанием диска и каталогов оставляем только название файла с базой данных.

 

2. Практические задания

Порядок выполнения работы

1) создать БД согласно индивидуального задания в среде MSAccess

2) с использованием ADO компонентов подключить БД в среде Delphi

3) создать полнофункциональное приложение с использованием ADO компонентов

 

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

1) Какие компоненты ADO используются для подключения БД

2) Как осуществляется настройка соединения база данных с ADO.

 

ЛАБОРАТОРНАЯ РАБОТА № 7

⇐ Предыдущая1234567Следующая ⇒

Поделиться: