Тема Технология ADO в Delphi Вопросы 1 Характеристика

Тема: Технология ADO в Delphi Вопросы: 1. Характеристика технологии ADO 2. Пример приложения ADO Delphi

Характеристика технологии ADO Рис. 18. 1. Схема доступа к данным по технологии ADO

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

Пример приложения ADO Рис. Вид формы приложения ADO

Пример приложения ADO Компонентами приложения, используемыми для соединения с БД и отображения данных, являются: • ADOConnection 1, • ADOData. Set 1, • Data. Source 1, • DBGrid 1. Имеется ряд вспомогательных компонентов, служащих для управления работой приложения. Соединение с хранилищем данных компонента ADOData. Set 1 выполнено через его свойство Connection, указывающее на имя ADOConnection 1 компонента соединения.

Пример приложения ADO Для компонента ADOConnection 1 с помощью его свойства Connection. String установлено соединение с хранилищем данных. При этом использован файл связи с данными. Для наглядности в процедуре обработки события создания формы приведен оператор задания нужного значения свойству Connection. String компонента ADOConnection 1. Для компонента Data. Source 1 его свойству Data. Set установлено значение ADOData. Set 1. Для компонента DBGrid 1, используемого для отображения набора данных, его свойству Data. Source установлено значение Data. Source 1.

Пример приложения ADO unit ADOData. Set; interface uses Windows, Messages, Sys. Utils, Classes, Graphics, Controls, Forms, Dialogs, Std. Ctrls, DB, ADODB, Grids, DBGrids, Ext. Ctrls;

Пример приложения ADO type TForm 1 = class(TForm) ADOData. Set 1: TADOData. Set; Data. Source 1: TData. Source; DBGrid 1: TDBGrid; ADOConnection 1: TADOConnection; Panel 1: TPanel; Update. Button: TButton; Get. Table. Button: TButton; Button 1: TButton; Edit 1: TEdit;

Пример приложения ADO procedure Form 1 Create(Sender: TObject); procedure Form 1 Close. Query(Sender: TObject; var Can. Close: Boolean); procedure Update. Button. Click(Sender: TObject); procedure Get. Table. Button. Click(Sender: TObject); procedure Button 1 Click(Sender: TObject); private public procedure Update. Data; end;

Пример приложения ADO var Form 1: TForm 1; implementation {$R *. dfm} const Base. File. Name = 'EMPLOYEE. ADTG'; procedure TForm 1. Update. Data; begin { Обновление данных на сервере } ADOData. Set 1. Update. Batch; end;

Пример приложения ADO • procedure TForm 1 Create(Sender: TObject); • begin • ADOConnection 1. Connection. String : = 'FILE NAME=' + Data. Link. Dir + 'DBDEMOS. UDL'; • ADOData. Set 1. Open; • end; • procedure TForm 1. Update. Button. Click(Sender: TObject); • begin • Update. Data; • end;

Пример приложения ADO procedure TForm 1 Close. Query(Sender: TObject; var Can. Close: Boolean); begin if ADOData. Set 1. Active then try { Обновление данных на сервере при закрытии формы } Update. Data except on E: Exception do begin Application. Handle. Exception(Self); Can. Close : = Message. Dlg('Данные не сохранены/обновлены, выйти? ', mt. Confirmation, mb. Yes. No. Cancel, 0) = mr. Yes; end;

Пример приложения ADO procedure TForm 1. Get. Table. Button. Click(Sender: TObject); begin { Повторное открытие табличного набора данных 'Country'} ADOData. Set 1. Close; ADOData. Set 1. Command. Type : = cmd. Table; ADOData. Set 1. Command. Text : = 'Country'; ADOData. Set 1. Open; end;

Пример приложения ADO procedure TForm 1. Button 1 Click(Sender: TObject); begin ADOData. Set 1. Close; ADOData. Set 1. Command. Type : = cmd. Table; ADOData. Set 1. Command. Text : = Edit 1. Text; try ADOData. Set 1. Open;

Пример приложения ADO except on E: Exception do begin Message. Dlg('Исправьте имя таблицы', mt. Error, [mb. OK], 0); ADOData. Set 1. Close; end; end.

Пример приложения ADO Первоначально при запуске приложения автоматически открывается таблица с именем 'Country'. При необходимости открыть другую таблицу для просмотра и редактирования ее имя следует ввести в однострочном редакторе (компонент Edit 1) и затем нажать кнопку с заголовком Открыть таблицу с именем. Обновление внесенных в открытую таблицу изменений происходит при нажатии на кнопку с заголовком Сохранить на сервере или автоматически при закрытии формы приложения.