Система визуального объектно-ориентированного программирования Delphi

Содержание

1. Система визуального объектно-ориентированного программирования Delphi
2. Технология ADO для работы с базами данных в Delphi
3. ОАиП 2 курс 2 семестр Создание БД в Microsoft Access
4. ОАиП 2 курс 2 семестр Запросы в
5. ОАиП 2 курс 2 семестр Запросы в
6. ОАиП 2 курс 2 семестр Подключение БД
7. ОАиП 2 курс 2 семестр Установка соединения с помощью ADOConnection
8. ОАиП 2 курс 2 семестр Выбор провайдера
9. ОАиП 2 курс 2 семестр Проверка соединения и настройка
10. ОАиП 2 курс 2 семестр Добавляем элементы
11. ОАиП 2 курс 2 семестр Отменяем запрос пароля и подключаем таблицу
12. ОАиП 2 курс 2 семестр Объединяем все остальные компоненты с помощью DataSource
13. ОАиП 2 курс 2 семестр Подключенная таблица отображается на форме. Все компоненты связаны.
14. Программа База данных (ADO)
15. ОАиП 2 курс 2 семестр Основная форма
16. procedure showAll;begin form1.AdoQuery1.Active:=false; form1.AdoQuery1.sql.Clear; form1.AdoQuery1.SQL.Add('select * from
17. procedure TForm1.FormCreate(Sender: TObject);beginshowAll;end;procedure TForm1.Button2Click(Sender: TObject);beginshowall;end;При создании формы
18. procedure TForm1.Button1Click(Sender: TObject);begin form1.AdoQuery1.Active:=false; form1.AdoQuery1.sql.Clear;
19. 2: form1.AdoQuery1.SQL.Add('where [оценка1]='+ Edit1.text+'');3: form1.AdoQuery1.SQL.Add('where [оценка2]=' +Edit1.text+'');4: form1.AdoQuery1.SQL.Add('where [пол]=''' +Edit1.text+'''');end;form1.AdoQuery1.Active:=true;end;ОАиП 2 курс 2 семестр
20. procedure TForm1.RadioGroup1Click(Sender: TObject);begin form1.AdoQuery1.Active:=false;form1.AdoQuery1.sql.Clear;form1.AdoQuery1.SQL.Add('select * from [Учащиеся]
21. if radiogroup1.ItemIndex=1 then form1.AdoQuery1.SQL.Add('DESC');form1.AdoQuery1.Active:=true;end;ОАиП 2 курс 2 семестр
22. Всё!
23. Скачать презентанцию

Технология ADO для работы с базами данных в Delphi

Главная
Разное
Система визуального объектно-ориентированного программирования Delphi

Слайды и текст этой презентации

Слайд 1Система визуального объектно-ориентированного программирования Delphi

Слайд 2 Технология ADO для работы с базами данных в Delphi

Слайд 3ОАиП 2 курс 2 семестр
Создание БД в Microsoft Access

Слайд 4ОАиП 2 курс 2 семестр
Запросы в Microsoft Access
SQL (Structured

Query Language — «язык структурированных запросов») — универсальный компьютерный язык,

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

Выбрать все поля из таблицы Сотрудники
SELECT *
FROM Сотрудники;

Выбрать всех сотрудников в алфавитном порядке
SELECT DISTINCT [Фамилия]
FROM Сотрудники;

ОАиП 2 курс 2 семестр Запросы в Microsoft AccessSQL (Structured Query Language — «язык структурированных запросов») —

Слайд 5ОАиП 2 курс 2 семестр
Запросы в Microsoft Access
Выбрать всех

сотрудников, которые едят траву
SELECT *
FROM Сотрудники
WHERE Еда='Трава‘;

Выбрать всех сотрудников,
проживающих

в берлоге или поедающих траву
SELECT *
FROM Сотрудники
WHERE Еда='Трава' OR Адрес='Берлога';

ОАиП 2 курс 2 семестр Запросы в Microsoft AccessВыбрать всех сотрудников, которые едят травуSELECT *FROM СотрудникиWHERE Еда='Трава‘;Выбрать

Слайд 6ОАиП 2 курс 2 семестр
Подключение БД с помощью ADO
Технология

Microsoft ActiveX Data Objects (ADO) представляет собой универсальный механизм доступа

к различным источникам данных из приложений баз данных.

ADOConnection – ADO-соединение, используется для установки соединения с источником данных.

ADOTable – таблица ADO, обеспечивает доступ к одной таблице ADO-источника данных и позволяет другим компонентам управлять этими данными.

ОАиП 2 курс 2 семестр Подключение БД с помощью ADOТехнология Microsoft ActiveX Data Objects (ADO) представляет собой

Слайд 7ОАиП 2 курс 2 семестр
Установка соединения с помощью ADOConnection

Слайд 8ОАиП 2 курс 2 семестр
Выбор провайдера

Слайд 9ОАиП 2 курс 2 семестр
Проверка соединения и настройка

Слайд 10ОАиП 2 курс 2 семестр
Добавляем элементы на форму
DBGrid и

DBNavigator (страница Data Controls) – для отображения таблицы (ADOTable) и

управления записями в таблице.

DataSource (страница Data Access) – источник данных
для связи всех компонент между собой.

ОАиП 2 курс 2 семестр Добавляем элементы на формуDBGrid и DBNavigator (страница Data Controls) – для отображения

Слайд 11ОАиП 2 курс 2 семестр
Отменяем запрос пароля и подключаем

таблицу

Слайд 12ОАиП 2 курс 2 семестр
Объединяем все остальные компоненты с

помощью DataSource

Слайд 13ОАиП 2 курс 2 семестр
Подключенная таблица отображается на форме.

Все компоненты связаны.

Слайд 14Программа База данных (ADO)

Слайд 15ОАиП 2 курс 2 семестр
Основная форма

Слайд 16procedure showAll;
begin
form1.AdoQuery1.Active:=false;
form1.AdoQuery1.sql.Clear;
form1.AdoQuery1.SQL.Add('select * from [Учащиеся]');

form1.AdoQuery1.Active:=true;
end;
Выборка всей таблицы с помощью ADOQuery
ОАиП 2 курс 2 семестр

procedure showAll;begin form1.AdoQuery1.Active:=false; form1.AdoQuery1.sql.Clear; form1.AdoQuery1.SQL.Add('select * from [Учащиеся]'); form1.AdoQuery1.Active:=true;end;Выборка всей таблицы с помощью ADOQueryОАиП 2

Слайд 17procedure TForm1.FormCreate(Sender: TObject);
begin
showAll;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showall;
end;
При создании формы и при нажатии

на кнопу All отображаем всю таблицу
ОАиП 2 курс 2 семестр

procedure TForm1.FormCreate(Sender: TObject);beginshowAll;end;procedure TForm1.Button2Click(Sender: TObject);beginshowall;end;При создании формы и при нажатии на кнопу All отображаем всю таблицуОАиП 2

Слайд 18procedure TForm1.Button1Click(Sender: TObject);
begin
form1.AdoQuery1.Active:=false;
form1.AdoQuery1.sql.Clear;
form1.AdoQuery1.SQL.Add('select *

from [Учащиеся]');
case combobox1.ItemIndex of
0: form1.AdoQuery1.SQL.Add('where [Код]='+Edit1.text+'');
1: form1.AdoQuery1.SQL.Add('where [ФИО]=''' +Edit1.text+'''');
При нажатии

на кнопку OK выбираем только те записи, которые совпадают по выбранному в ComboBox полю с введенным в Edit значением

ОАиП 2 курс 2 семестр

procedure TForm1.Button1Click(Sender: TObject);begin form1.AdoQuery1.Active:=false; form1.AdoQuery1.sql.Clear; form1.AdoQuery1.SQL.Add('select * from [Учащиеся]');case combobox1.ItemIndex of0: form1.AdoQuery1.SQL.Add('where [Код]='+Edit1.text+'');1: form1.AdoQuery1.SQL.Add('where

Слайд 192: form1.AdoQuery1.SQL.Add('where [оценка1]='+ Edit1.text+'');
3: form1.AdoQuery1.SQL.Add('where [оценка2]=' +Edit1.text+'');
4: form1.AdoQuery1.SQL.Add('where [пол]=''' +Edit1.text+'''');
end;
form1.AdoQuery1.Active:=true;
end;
ОАиП

2 курс 2 семестр

2: form1.AdoQuery1.SQL.Add('where [оценка1]='+ Edit1.text+'');3: form1.AdoQuery1.SQL.Add('where [оценка2]=' +Edit1.text+'');4: form1.AdoQuery1.SQL.Add('where [пол]=''' +Edit1.text+'''');end;form1.AdoQuery1.Active:=true;end;ОАиП 2 курс 2 семестр

Слайд 20procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
form1.AdoQuery1.Active:=false;
form1.AdoQuery1.sql.Clear;
form1.AdoQuery1.SQL.Add('select * from [Учащиеся] ');
case combobox1.ItemIndex of
0:

form1.AdoQuery1.SQL.Add('order by [Код]');
1: form1.AdoQuery1.SQL.Add('order by [ФИО]');
2: form1.AdoQuery1.SQL.Add('order by [оценка1]');
3: form1.AdoQuery1.SQL.Add('order

by [оценка2]');
4: form1.AdoQuery1.SQL.Add('order by [пол]');
end;

При нажатии на RadioGroup сортируем записи таблицы по выбранному в ComboBox