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

Зарегистрируйтесь, чтобы просмотреть полный документ!

РЕГИСТРАЦИЯ

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

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

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

Запросы в Microsoft Access SQL (Structured Query Language — «язык структурированных запросов» ) — универсальный компьютерный язык, применяемый для создания, модификации и управления данными в реляционных базах данных. Выбрать все поля из таблицы Сотрудники SELECT * FROM Сотрудники; Выбрать всех сотрудников в алфавитном порядке SELECT DISTINCT [Фамилия] FROM Сотрудники; ОАи. П 2 курс 2 семестр 2/17/2018 4

Запросы в Microsoft Access Выбрать всех сотрудников, которые едят траву SELECT * FROM Сотрудники WHERE Еда='Трава‘; Выбрать всех сотрудников, проживающих в берлоге или поедающих траву SELECT * FROM Сотрудники WHERE Еда='Трава' OR Адрес='Берлога'; ОАи. П 2 курс 2 семестр 2/17/2018 5

Подключение БД с помощью ADO Технология Microsoft Active. X Data Objects (ADO) представляет собой универсальный механизм доступа к различным источникам данных из приложений баз данных. ADOConnection – ADO-соединение, используется для установки соединения с источником данных. ADOTable – таблица ADO, обеспечивает доступ к одной таблице ADO-источника данных и позволяет другим компонентам управлять этими данными. ОАи. П 2 курс 2 семестр 2/17/2018 6

Установка соединения с помощью ADOConnection ОАи. П 2 курс 2 семестр 2/17/2018 7

Выбор провайдера ОАи. П 2 курс 2 семестр 2/17/2018 8

Проверка соединения и настройка ОАи. П 2 курс 2 семестр 2/17/2018 9

Добавляем элементы на форму DBGrid и DBNavigator (страница Data Controls) – для отображения таблицы (ADOTable) и управления записями в таблице. Data. Source (страница Data Access) – источник данных для связи всех компонент между собой. ОАи. П 2 курс 2 семестр 2/17/2018 10

Отменяем запрос пароля и подключаем таблицу ОАи. П 2 курс 2 семестр 2/17/2018 11

Объединяем все остальные компоненты с помощью Data. Source ОАи. П 2 курс 2 семестр 2/17/2018 12

Подключенная таблица отображается на форме. Все компоненты связаны. ОАи. П 2 курс 2 семестр 2/17/2018 13

Программа База данных (ADO)

Основная форма ОАи. П 2 курс 2 семестр 2/17/2018 15

Выборка всей таблицы с помощью ADOQuery procedure show. All; begin form 1. Ado. Query 1. Active: =false; form 1. Ado. Query 1. sql. Clear; form 1. Ado. Query 1. SQL. Add('select * from [Учащиеся]'); form 1. Ado. Query 1. Active: =true; end; ОАи. П 2 курс 2 семестр 2/17/2018 16

При создании формы и при нажатии на кнопу All отображаем всю таблицу procedure TForm 1. Form. Create(Sender: TObject); begin show. All; end; procedure TForm 1. Button 2 Click(Sender: TObject); begin showall; end; ОАи. П 2 курс 2 семестр 2/17/2018 17

При нажатии на кнопку OK выбираем только те записи, которые совпадают по выбранному в Combo. Box полю с введенным в Edit значением procedure TForm 1. Button 1 Click(Sender: TObject); begin form 1. Ado. Query 1. Active: =false; form 1. Ado. Query 1. sql. Clear; form 1. Ado. Query 1. SQL. Add('select * from [Учащиеся]'); case combobox 1. Item. Index of 0: form 1. Ado. Query 1. SQL. Add('where [Код]='+Edit 1. text+''); 1: form 1. Ado. Query 1. SQL. Add('where [ФИО]=''' +Edit 1. text+''''); ОАи. П 2 курс 2 семестр 2/17/2018 18

2: form 1. Ado. Query 1. SQL. Add('where [оценка 1]='+ Edit 1. text+''); 3: form 1. Ado. Query 1. SQL. Add('where [оценка 2]=' +Edit 1. text+''); 4: form 1. Ado. Query 1. SQL. Add('where [пол]=''' +Edit 1. text+''''); end; form 1. Ado. Query 1. Active: =true; end; ОАи. П 2 курс 2 семестр 2/17/2018 19

При нажатии на Radio. Group сортируем записи таблицы по выбранному в Combo. Box procedure TForm 1. Radio. Group 1 Click(Sender: TObject); begin form 1. Ado. Query 1. Active: =false; form 1. Ado. Query 1. sql. Clear; form 1. Ado. Query 1. SQL. Add('select * from [Учащиеся] '); case combobox 1. Item. Index of 0: form 1. Ado. Query 1. SQL. Add('order by [Код]'); 1: form 1. Ado. Query 1. SQL. Add('order by [ФИО]'); 2: form 1. Ado. Query 1. SQL. Add('order by [оценка 1]'); 3: form 1. Ado. Query 1. SQL. Add('order by [оценка 2]'); 4: form 1. Ado. Query 1. SQL. Add('order by [пол]'); end; ОАи. П 2 курс 2 семестр 2/17/2018 20

if radiogroup 1. Item. Index=1 then form 1. Ado. Query 1. SQL. Add('DESC'); form 1. Ado. Query 1. Active: =true; end; ОАи. П 2 курс 2 семестр 2/17/2018 21

Всё!

Скачать презентацию Система визуального объектноориентированного программирования Delphi Технология ADO

Лекция 38.ppt

Количество слайдов: 22