Методическая разработка лекционного занятия по МДК 02.02 Технология разработки и защита баз данных
План-конспект
Тема урока: Трёхуровневые приложения. Принципы построения трёхуровневых приложений
Цели урока:
Образовательные цели:
сформировать понятие трехуровневой архитектуры;
изучить принципы построения трехуровневых приложений в Delphi;
привести примеры практического применения сервера приложений в БД;
углубить знания об особенностях проектирования с различными технологиями доступа БД.
Развивающие цели:
продолжить работу над развитием операционного стиля мышления через всестороннюю оценку ситуации, оптимальное планирование действий, поиск информации, необходимой для решения задачи – формировать компетентности в сфере познавательной деятельности;
работать над возможностью приобретения опыта создания и преобразования информационного объекта с помощью информационных технологий – формировать технологическую компетентность;
развивать внимание, творческие способности обучающихся.
Воспитательные цели:
воспитывать информационную культуру обучающихся, внимательность, аккуратность, дисциплинированность, усидчивость.
Тип урока: изучение нового материала.
Продолжительность урока: 2 урока по 45 мин.
Оборудование: ПК, ОС Windows 7, Delphi7, мультимедиа-проектор, презентация «Трёхуровневая архитектура».
Ход урока
I. Организационный момент (3 мин).
– приветствие,
– контроль присутствия студентов на занятии,
– создание деловой атмосферы на занятии,
Объявление темы и главной образовательной цели занятия, объяснение хода занятия.
II. Изучение нового материала (50 мин).
Объяснение нового материала преподавателем.
Развитие архитектуры "клиент-сервер" привело к появлению трехуровневой архитектуры, в которой кроме сервера и приложений-клиентов (клиентов) дополнительно присутствует еще сервер приложений. Сервер приложений является промежуточным уровнем, обеспечивающим организацию взаимодействия клиентов ("тонких" клиентов) и сервера, например, выполнение соединения с сервером, разграничение доступа к данным и реализацию бизнес-правил. Сервер приложений реализует работу с клиентами, расположенными на различных платформах, т. е. функционирующими па компьютерах различных типов и под управлением различных операционных систем. Сервер приложений также называют брокером данных (broker — посредник).
Основными достоинствами трехуровневой архитектуры "клиент-сервер" являются следующие:
снижение нагрузки на сервер;
упрощение клиентских приложений;
единое поведение всех клиентов;
упрощение настройки клиентов;
независимость от платформы.
Информационные системы, основанные на трехуровневой сетевой архитектуре, называют также распределенными.
Принципы построения трехуровневых приложений
В Delphi многоуровневые приложения разрабатываются на основе технологии MIDAS (Multi-tier distributed application services — служба многоуровневых распределенных приложений). Технология MIDAS включает в себя основные элементы:
удаленный брокер данных (Remote Data Broker) — обеспечивает интерфейс для обмена данными между сервером приложений и клиентом;
брокер бизнес-объектов (Business Objects Broker) — совместно с технологией Borland OLEnterprise позволяет размещать сервер приложений одновременно на нескольких компьютерах;
брокер ограничений (Constraints Broker) — обеспечивает распределение ограничений, применяемых к данным, между отдельными уровнями информационной системы.
MIDAS поддерживает создание многоуровневых приложений, основанных на перечисляемых ниже технологиях межпрограммного и межкомпьютерного взаимодействия.
DCOM (Distributed Component Object Model — модель распределенных компонентных объектов) позволяет использовать объекты, расположенные на другом компьютере.
MTS (Microsoft Transaction Server — сервер транзакций Microsoft) является дополнением к технологии СОМ, разработанной фирмой Microsoft, и служит для управления транзакциями.
Сокеты TCP/IP (Transport Control Protocol/Protocol Internet — транспортный протокол/протокол Интернет) используются для соединения компьютеров в различных сетях, в том числе в Интернете.
CORBA (Common Object Request Broker Architecture — общедоступная архитектура с брокером при запросе объекта) позволяет организовать взаимодействие между объектами, расположенными на различных платформах.
Borland OLEnterprise представляет собой дополнение к технологии СОМ, разработанное фирмой Borland, и предназначено для организации взаимодействия между объектами, которые созданы с помощью различных систем разработки.
При создании трехуровневого приложения разработка БД и использование сервера принципиально не отличаются от уже рассмотренного случая двухуровневых приложений. Главные особенности трехуровневого приложения связаны с созданием сервера приложений и клиентского приложения, а также с организацией взаимодействия между ними. Для разработки многоуровневых приложений, кроме рассмотренных ранее средств, используются удаленные модули данных и компоненты, размещенные на странице Midas Палитры компонентов.
В трехуровневой архитектуре программа BDE в обязательном порядке устанавливается совместно с сервером приложений, при этом на клиентском компьютере должна стоять только библиотека DBClient.dll относительно небольшого размера (210 Кбайт). Таким образом, на компьютере пользователя "тонким" является не только клиент, но и процессор баз данных. Схематично многоуровневая архитектура представлена на рис.1. В частном случае два или все три уровня могут располагаться на одном компьютере, что широко используется при отладке приложений.
Рис.1. Трехуровневая архитектура типа "клиент-сервер"
Взаимодействие между сервером приложений и клиентом организуется через интерфейс провайдера, называемый интерфейсом оператора или просто провайдером. Этот интерфейс обеспечивает передачу информации в виде пакетов данных. Физически пакеты данных представляют собой совокупности двоичных кодов, образующих блоки. Логически пакет данных является подмножеством набора данных, которое содержит данные записей, а также метаданные (информация об именах и типах полей) и ограничения. Провайдер обеспечивает разбиение данных на пакеты, а также кодирование пакетов в зависимости от используемого сетевого протокола.
Данные, отредактированные клиентом, пересылаются обратно в так называемых дельта-пакетах. В дельта-пакете содержится информация о старых и новых значениях записей. Перед внесением в записи БД требуемых изменений (т. е. перед пересылкой записей серверу БД) сервер приложений выполняет проверку корректности и допустимости изменений. Изменения могут быть отвергнуты, например, если запись уже была изменена другим пользователем. В этом случае сервер приложений генерирует событие OnReconcilError, которое используется для распознавания и обработки конфликтов между клиентами.
Сервер приложений
Сервер приложений создается на основе удаленного модуля данных, который служит для размещения компонентов, а также для обеспечения взаимодействия с сервером и клиентами. Для создания различных серверов приложений предназначены следующие разновидности удаленных модулей данных:
Remote Data Module— для серверов DCOM, TCP/IP и OLEnterprise;
MTS Data Module— для сервера MTS;
CORBA Data Module— для сервера CORBA.
В удаленном модуле данных размещаются те же компоненты, что и в простом модуле данных, например, Query, Database, Session, предназначенные для организации доступа к данным.
Рассмотрим создание простейшего сервера приложений — сервера DCOM, взаимодействие с которым основано на технологии DCOM. Для работы этого сервера необходимо, чтобы в системе была установлена программная поддержка функционирования распределенных СОМ-объектов, которая имеется в операционных системах Windows 98/NT/2000. Для Windows 95 ее нужно устанавливать отдельно. Поддержка распределенных СОМ-объектов устанавливается автоматически при инсталляции ряда программ Windows, кроме того, соответствующие средства можно загрузить из Интернета по адресу http://www.microsoft.com /com/dcom95/download-f.htm.
Добавление к проекту удаленного модуля данных выполняется выбором объекта Remote Data Module страницы Multitier Хранилища объектов. При добавлении модуля выводится диалоговое окно мастера Remote Data Module Wizard,в котором нужно задать параметры модуля (рис.2).
Рис.2. Добавление удаленного модуля данных
В поле редактирования CoClass Name вводится имя модуля данных.
В списке Instancing(Создание экземпляров) выбирается способ запуска модуля:
Internal— экземпляр модуля данных создается на сервере в случае, когда модуль данных является частью библиотеки DLL;
Single Instance— для каждого клиента в его адресном пространстве создаетсяодин экземпляр удаленного модуля данных, и каждое клиентское соединение запускает этот свой экземпляр;
Multiple Instance— один экземпляр приложения (процесс) представляет все удаленные модули данных, созданные для клиентов (по умолчанию); каждый удаленный модуль данных предназначен для одного клиентского соединения, но все они разделяют одно и то же адресное пространство.
В списке Threading Model (Потоковая модель) выбирается способ вызова интерфейса клиента, если модуль данных является частью библиотеки DLL:
Single— библиотека получает запросы клиента по одному;
Apartment— одновременно обрабатывается несколько запросов клиентов, для каждого из которых создан отдельный экземпляр модуля данных (по умолчанию);
Free— отдельный экземпляр модуля данных одновременно может отвечатьна несколько запросов клиентов;
Both— отдельный экземпляр модуля данных одновременно может отвечать на несколько запросов клиентов, результаты обработки также возвращаются одновременно.
После нажатия кнопки ОК модуль данных с установленными параметрами добавляется к проекту. В приведенном на рис.2 примере модулю присвоено имя serverDCOM, а два других параметра оставлены без изменений.
На этапе проектирования внешний вид удаленного модуля не отличается от вида простого модуля данных, рассмотренного в главе, посвященной технологии создания информационной системы. Как и в простом модуле, в удаленном модуле данных размещаются невизуальные компоненты, используемые для доступа к данным. Чаще всего этими компонентами являются рассмотренные ранее Query, Table, Database, Session, а также провайдер DataSetProvider. В самом простом случае достаточно разместить в модуле только набор данных. Например, разместим в удаленном модуле набор данных Query и зададим для него значения свойств DatаВаsеName и sql так, чтобы включить в набор все поля всех записей таблицы Personnel. Указанным свойствам присвоим значения:
DataBaseNaine — BDPlace;
SQL — SELECT * FROM Personnel.db.
На этом создание простейшего сервера DCOM закончено. Перечислим еще раз действия, которые были при этом выполнены:
к проекту добавлен удаленный модуль данных;
в модуле размещен компонент набора данных и присвоены значения его свойствам.
Созданное приложение сервера состоит из следующих частей:
проекта;
главной формы приложения;
удаленного модуля данных;
модуля библиотеки типов.
Разработка проекта и главной формы приложения не имеют принципиальных отличий от разработки обычного приложения Delphi. Отметим, что для сервера приложений основная функциональная нагрузка приходится на удаленный модуль данных. На главной форме можно разместить вспомогательные компоненты и выполнить некоторые сервисные действия, например, вести подсчет клиентов, подключенных к серверу, и выводить показания этого счетчика в надписи Label, размещенной на главной форме сервера.
Библиотека типов создается автоматически, а ее модуль сохраняется на диске при сохранении других файлов проекта. Библиотека занимает два файла: Project.tlb и Project_TLB.pas, где Project является именем проекта.
После создания сервера DCOM его нужно зарегистрировать как сервер автоматизации. Регистрация сервера выполняется Windows автоматически при запуске приложения сервера.
По умолчанию интерфейс провайдера обеспечивает набор данных, в нашем случае это Query. Кроме того, Delphi включает в свой состав компонент DataSetProvider, который предоставляет большие возможности по управлению интерфейсом провайдера, включая обмен XML-данными.
Простейший сервер DCOM представляет собой удаленный брокер данных, который обеспечивает соединение с сервером БД и передачу данных клиенту и обратно. Для расширения функциональности сервера приложений к нему добавляются бизнес-правила, предназначенные для поддержания БД в целостном состоянии и реализующие ограничения, применяемые к данным.
Поддержка механизма ограничений обеспечивается брокером ограничений. Для набора данных и его отдельных полей можно задавать ограничения на значения полей не только в приложении клиента, но и в сервере приложений (удаленном модуле данных). Ограничения, заданные в сервере приложений, пересылаются клиенту вместе с данными в пакете данных, и эти ограничения действуют наряду с ограничениями, заданными в приложении клиента.
Для реализации ограничений в сервере приложений можно использовать свойство Constraints типа TCheckConstraints наборов данных Table И Query. Тип TCheckConstraints представляет собой коллекцию (список, массив) отдельных ограничений типа TCheckConstraint, имеющих следующие свойства:
customConstraint типа string — код SQL, описывающий ограничение;
ErrorMessage типа string — текст, выдаваемый пользователю при нарушении данного ограничения;
FromDictionary типа Boolean — признак, значение True которого указывает, что ограничение выбирается из словаря данных; по умолчанию свойство имеет значение False, и словарь данных не используется;
importedConstraint типа string — код SQL, описывающий ограничение, которое импортировано из словаря данных.
Для задания ограничений нужно выделить набор данных и в Инспекторе объектов щелчком в области значения свойства Constraints вызвать окно, показанное на рис.3, справа. Центральную часть окна занимает список ограничений, применяемых к набору данных, имя которого выводится в заголовке окна (на рисунке — Query1). Добавление к списку нового ограничения выполняется командой Add контекстного меню, нажатием клавиши <Insert> или нажатием левой кнопки панели инструментов. Существующие ограничения можно удалять и перемещать в пределах списка, эти действия выполняются с помощью команд контекстного меню, нажатием клавиш или кнопок панели инструментов.
Сразу после добавления ограничение "пустое", и в списке выводится название его типа TCheckConstraint (на рис. 12.3 таким является третье ограничение). Для задания ограничения нужно его описать, например, присвоив значения свойствам CustomConstraint И ErrorMessage. После ТОГО как СВОЙСТВО CustomConstraint получит значение, оно будет выведено в списке ограничений. Свойства ограничения становятся доступными через Инспектор объектов после выбора ограничения в списке.
Рис.3. Определение ограничений для набора данных Queryl В приведенном на рис.3 примере для данных о сотрудниках организации (таблица Personnel) установлены ограничения на значения полей Name и salary: поле имени не может быть пустым, а значение оклада должно быть положительным. При нарушении этих ограничений пользователю выдаются соответствующие сообщения: например, если не задано значение поля Name, то выдается сообщение Не задана фамилия!.Как уже было сказано, ограничения сервера приложений действуют в дополнение к ограничениям, заданным в приложении клиента. Таким образом обеспечивается распределение ограничений, применяемых к данным, между отдельными уровнями информационной системы. Достоинством размещения бизнес-правил на сервере приложений является то, что они одинаковы для всех клиентов и что облегчается внесение изменений в информационную систему и ее настройка.
Свойства CustomConstraint, ConstraintErrorMessage и ImportedConstraint объектов типа TField позволяют задать ограничения для отдельных полей набора данных. Применение этих свойств аналогично свойствам CustomConstraint, ErrorMessage и ImportedConstraint объекта типа TCheckConstraints.
Приложение клиента
Приложение "тонкого" клиента отличается от ранее рассмотренного приложения "толстого" клиента в первую очередь тем, что для "тонкого" клиента нужно выполнить следующие действия:
организовать связь между приложением клиента и сервером приложений;
обеспечить обмен информацией между наборами данных клиента и сервера.
Для этого используются компоненты соединения и клиентский набор данных ClientDataset, размещаемые на форме клиента.
Выбор компонента, используемого для соединения с сервером приложений, зависит от типа сервера:
DCOMConnection — для соединения с серверами DCOM и MTS;
Socketconnection — для соединения с сервером через сокеты TCP/IP;
corbaConnection — для соединения с сервером CORBA.
Создадим приложение клиента, подключаемого к рассмотренному выше серверу DCOM, для чего разместим на главной форме компонент DCOMConnection, расположенный в Палитре компонентов на странице DataSnap. Основными свойствами этого компонента являются следующие:
ComputerName типа string — имя компьютера, на котором расположен серверприложений;
ServerName типа string — имя сервера приложений;
serverGuiD типа string — универсальный уникальный идентификатор GUID сервера приложений;
Connected типа Boolean — признак, управляющий активностью соединения.
Для указания компьютера, на котором расположен сервер приложений, удобно использовать окно Browse for Computer (рис.4), вызываемое через Инспектор объектов. После выбора сетевого компьютера и нажатия кнопки ОК имя выбранного компьютера присваивается в качестве значения свойству ComputerName.
Если сервер расположен на одном компьютере с приложением клиента (что удобно при отладке приложений), то свойству ComputerName значение не задается.
Рис.4. Выбор сетевого компьютера
После того как компьютер задан, названия доступных (зарегистрированных) серверов автоматизации можно выбирать с помощью Инспектора объектов в списке значений свойства ServerName. Имя сервера является составным и включает в себя имя проекта приложения сервера и имя модуля данных, задаваемое для удаленного модуля данных, например, Server.ServerDCOM.
Задание имени сервера приводит к автоматической установке идентификатора GUID выбранному серверу, который присваивается в качестве значения свойству ServerGUID (Globally Unique Identifier — универсальный уникальный идентификатор) представляет собой 128-битную константу, присваиваемую объектам СОМ для их однозначной идентификации. Значение GUID показывается в модуле библиотеки типов сервера приложений. Сервер можно также задать, установив значение свойству ServerGUID, в этом случае значение свойства serverName заполняется автоматически. Однако первый путь, связанный с выбором имени сервера, более удобен.
Чтобы протестировать соединение с сервером приложений, свойству connected устанавливается значение True. В этом случае сервер запускается автоматически, и с ним устанавливается соединение. В общем случае значение этого свойства можно не трогать, т. к. оно автоматически устанавливается в True при выборе провайдера для клиентского набора данных clientDataSet.
Клиентский набор данных clientDataSet предназначен для работы с записями, поступающими с сервера приложений. Перечислим следующие свойства этого компонента:
RemoteServer типа TCustomRemoteServer — соединение, используемое для связи с сервером;
ProviderName типа string — провайдер, обеспечивающий передачу данных;
Active типа Boolean — признак, указывающий, открыт или закрыт набор данных;
PacketRecords типа integer — размер пакета данных;
FileName типа string — имя файла для обмена данными с диском.
В качестве значения свойства RemoteServer можно указывать любой из компонентов, используемых для соединения с сервером: DCOMConnection, Socketconnection, corbaConnection, а также Webconnection. Нужное значение удобно выбирать из списка Инспектора объектов. Так как для соединения с сервером DCOM на форме размещен компонент DCOMConnection, то в списке нужно выбрать его имя DCOMConnection1, присвоенное компоненту по умолчанию.
После того как соединение выбрано, с помощью свойства ProviderName задается провайдер, обеспечивающий передачу данных клиенту. При раскрытии в Инспекторе объектов списка значений этого свойства автоматически запускается сервер приложений, если он еще не был запущен, обеспечивая выдачу клиенту списка доступных провайдеров (наборов данных). Выбор имени провайдера приводит к соединению клиентского набора данных clientDataSet с соответствующим набором данных сервера.
В удаленном модуле данных рассмотренного ранее сервера приложений расположен набор данных Query1, предоставляющий интерфейс iprovider, имя которого можно выбрать в качестве значения, присваиваемого свойству ProviderName.
Для работы с данными в приложении клиента размещаются визуальные компоненты и источник данных DataSource, которые связываются между собой, а также с клиентским набором данных аналогично тому, как это выполнялось для рассмотренных ранее локальных приложений и для приложений "толстого" клиента. В приведенном на рис.5 примере на форме приложения размещены компоненты DBGrid (сетка) и DataSource, свойство DataSet которого имеет зна-чение ciientDataSetl (имя компонента ClientDataSet по умолчанию). После установки свойству Active клиентского набора данных значения True в сетке отображаются записи набора данных Personnel, отбор которых обеспечивает оператор select набора данных Queryl сервера приложений.
Чтобы расширить функциональность рассмотренного простейшего "тонкого" клиента, к нему добавляют возможности, связанные с модификацией записей, передачей изменений на сервер приложений (записью их в БД), обработкой конфликтов между клиентами, а также выполнением ряда других действий.
При работе с данными клиент может сохранять их на своем компьютере, работая в автономном режиме и не загружая сеть передачей информации. Обновленные данные передаются на сервер, а с сервера новые данные загружаются по мере необходимости. Этот принцип работы напоминает работу с кэшированными изменениями и реализуется с помощью компонента ClientDataSet.
Рис.5. Форма приложения "тонкого" клиента на этапе разработки
Для просмотра состояния текущей записи клиентского набора данных используется метод updatestatus: TUpdateStatus, возвращающий следующие значения:
usUnmodified — запись не имеет изменений;
usModified — запись изменена (отредактирована);
usinserted — запись вставлена (является новой);
usDeleted — запись удалена.
Проанализировав состояние текущей записи, можно вывести соответствующее сообщение пользователю, например, в тексте надписи Label. Если код, выполняющий вызов метода и анализ его результата, расположить в обработчике события DataChange компонента DataSource, который связан с клиентским набором данных, то надпись будет автоматически отображать состояние текущей записи.
Получить доступ ко всем изменениям, которые сделаны в записях, но еще не отправлены на сервер, позволяют свойства Data и Delta типа oleVariant, первое из которых представляет собой данные клиентского набора данных, а второе — его измененные данные (Delta-данные). Для получения измененных записей на форме располагается еще один компонент ciientDataSet, который связывается с первым клиентским набором данных следующим образом:
ClientDataSet2.Data:=ClientDataSetl.Delta;
Оба свойства доступны во время выполнения, поэтому их значения можно использовать только программно. После приведенного выше присваивания второй клиентский набор данных будет содержать все неотправленные изменения.
Замечание
Если изменения в записях отсутствуют, то при попытке выполнить присваивание генерируется исключительная ситуация.
Свойство ChangeCount типа integer, доступное во время выполнения, содержит число измененных записей, которое нужно проверять на равенство 0 перед тем, как делать попытку получить эти записи. То есть, оператор присваивания должен иметь следующий вид:
if ClientDataSetl.ChangeCount > О then ClientDataSet2.Data:=ClientDataSetl.Delta;
На рис. 6 показана форма клиентского приложения во время его выполнения. В верхней сетке DBGridi отображаются записи клиентского набора данных ClientDataSetl, которые доступны для просмотра и изменения. В надписи Labeii, расположенной над сеткой, выводится состояние текущей записи. Во второй сетке DBGrid2 отображаются изменения, сделанные в записях клиентского набора данных. Эта сетка через источник данных Datasource2 связана со вторым клиентским набором данных ciientDataSet2. Надписи Label2 и Label3 отображают текст "Изменения в записях" и число измененных записей, соответственно.
Рис.6. Просмотр состояния текущей записи и изменений в записях
Соответствующий код содержится в обработчике события DataChange источника данных DataSourcel, который связан с клиентским набором данных ClientDataSetl:
procedure TForml.DataSourcelDataChange(Sender: TObject; Field: TField);
beginusUnModified: Label1.Caption:='Запись не изменялась';
usModified: Labell.Caption:='3anMCb изменена';
uslnserted: Labell.Caption:='Запись вставлена';
usDeleted: Labell.Caption:='Запись удалена';
end;
if ClientDataSetl.ChangeCount > 0
then ClientDataSet2.Data:=ClientDataSetl.Delta;
Labe12.Caption:='Изменения в записях — ' +IntToStr(ClientDataSetl.ChangeCount);
end;
На форме расположены также четыре кнопки:
Button1 — Отправить;
Button2 — Отменить;
Button3 — Сохранить;
Button4 — Считать.
Назначение кнопок и обработчики событий их нажатия будут рассмотрены ниже.
Сделанные изменения действуют только в приложении клиента и при завершении его работы теряются. Чтобы выполнить обновление данных, изменения нужно отправить на сервер приложений, для чего предназначается метод ApplyUpdates (MaxErrors: Integer) : Integer. Параметр MaxErrors определяет максимальное число ошибок, допустимое при выполнении метода; если для параметра указать значение —1, то на сервер приложений будут переданы все изменения. В качестве результата функция ApplyUpdates возвращает число ошибок. Ошибки передачи изменений чаще всего вызваны конфликтами, связанными с редактированием этих же записей другими клиентами.
Рассмотрим в качестве примера следующую процедуру:
procedure TForml.ButtonlClick(Sender: TObject);
Begin
Label4.Caption:=IntToStr(ClientDataSetl.ApplyUpdates(-1));
end;
При нажатии кнопки Button1 на сервер приложений пересылаются все изменения, сделанные в приложении клиента. Число ошибок, связанных с пересылкой записей, выводится в надписи Label4.
Пересылка записей и связанное с этим обновление БД может привести к конфликту записей. В этом случае в клиентском наборе данных для каждого такого конфликта генерируется событие OnReconcileError типа TReconcileErrorEvent. Тип события описан как:
type TReconcileErrorEvent = procedure(DataSet: TClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction) of object;
Параметр DataSet определяет клиентский набор данных, чье обновление записей привело к конфликту и вызвало исключительную ситуацию, объект которой содержит параметр е. Этот параметр указывает тип операции обновления данных:
usModified — редактирование;
usInserted — вставка;
usDeieted — удаление.
Параметр Action определяет действие, которое должно быть выполнено сервером приложений для устранения ошибки:
raSkip — запись остается в приложении клиента без изменений, т. е. остается в Delta-данных (по умолчанию);
raAbort — операция обновления данных прекращается;
rаMегgе — изменения этого клиента объединяются с изменениями других клиентов; принимаются изменения значений только тех полей, которые не были изменены другими клиентами;
raCorrect — данные, имеющиеся на сервере, заменяются данными этого клиента; данные, поступившие от других клиентов, будут изменены;
raCancel — операция обновления данных прекращается, все изменения удаляются и восстанавливаются первоначальные значения записей;
raRefresh — изменения, сделанные в приложении клиента, сбрасываются и заменяются значениями, имеющимися на сервере.
Для упрощения работы с возникающими ошибками обновления данных удобно использовать стандартный диалог, который добавляется к проекту выбором объекта Reconcile Error Dialog (Диалог устранения ошибок) на вкладке Dialogs Хранилища объектов.
Пользователю выводится информация о типе операции обновления данных, описание возникшей ошибки, данные конфликтной записи. Составом выводимых полей управляют два переключателя:
Show conflicting fields only— вывод только конфликтных полей;
Show changed fields only— вывод только измененных полей.
Пользователь определяет направленное на устранение ошибки действие с помощью группы зависимых переключателей Reconcile Action:
Skip— пропуск;
Cancel— отмена;
Correct— подтверждение;
Refresh— обновление;
Merge— объединение.
Выбор переключателя приводит к установке соответствующего значения параметра Action обработчика События OnReconcileError.
Рассмотрим следующий пример:
// Подключение модуля формы диалога Reconcile Error Dialoguses reUnit;
…
procedure TForml.ClientDataSetlReconcileError(DataSet: TClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction);
Action:=HandleReconcileError(DataSet, UpdateKind, E);
end;
При возникновении ошибки обновления данных вызывается обработчик события OnReconcileError. Для предоставления пользователю информации о возникшей ошибке и обеспечения возможности реагировать на нее в теле обработчика вызывается функция HandieReconciieError. Возвращаемый функцией результат зависит от действий пользователя и присваивается параметру Action обработчика события OnReconcileError. Чтобы реализовать вызов функции HandieReconciieError, ее модуль должен быть включен В список uses.
При возникновении конфликта, связанного с обновлением записи, диалог устранения ошибки имеет вид, показанный на рис.7.
При отладке приложения на локальном компьютере конфликт обновления можно вызвать, запустив две копии приложения клиента и выполнив попытку редактирования одной и той же записи.
При изменении записей клиентского набора данных имеется возможность отмены изменений без передачи их на сервер приложений.
Метод cancelupdates отменяет все изменения, не отправленные на сервер. Так, выполнение процедуры-обработчика
procedure TForml.Button2Click(Sender: TObject);
ClientDataSetl.CancelUpdates;
end;
приводит к тому, что при нажатии кнопки Button2 все изменения, сделанные в приложении клиента, отменяются.
Рис.7. Диалог устранения ошибок обновления данных
Метод UndoLastChange (FollowChange: Boolean): Boolean отменяет последнее изменение, независимо от вида изменения: редактирование, вставка или удаление записи. Параметр FollowChange управляет позиционированием указателя текущей записи после выполнения операции отмены. При значении True происходит позиционирование указателя текущей записи на восстановленную запись, а при значении False положение этого указателя не изменяется. В качестве результата функция UndoLastChange возвращает признак успешности выполнения операции отмены изменения: True — операция завершилась успешно, False — операция не выполнена.
При организации автономной работы клиента удобно использовать методы LoadFromFileиSaveToFile.
Метод LoadFromFile (const FileName: string = ‘ ‘) загружает в клиентский набор данных данные, ранее сохраненные в файле, имя которого указано параметром FileName.
Метод SaveToFile (const FileName: string = ''; Format TDataPacketFormat = dfBinary)
сохраняет данные в файле с именем FileName. Необязательный параметр Format указывает формат файла:
dfBinary — двоичный файл (по умолчанию);
dfXML — файл формата XML (escape-последовательность).
Если на диске нужно сохранить все записи набора данных, то с сервера должны быть получены все данные. С этой целью свойству PacketRecords клиентского набора данных следует установить значение -1.
Рассмотрим в качестве примера обмен данными с диском:
procedure TForml.Button3Click(Sender: TObject);
beginif SaveDialog1.Execute then ClientDataSet1.SaveToFile(SaveDialogl.FileName);
end;
procedure TForml.Button4Click(Sender: TObject);
beginif OpenDialog1.Execute then ClientDataSet1.LoadFromFile(OpenDialog1.FileName);
end;
При нажатии кнопки Buttons открывается диалог SaveDialog1 выбора файла для сохранения данных. Выбор файла и нажатие кнопки Сохранить приводят к записи данных на диск в указанном файле. По умолчанию файл имеет двоичный формат. Нажатие кнопки Button4 вызывает диалог OpenDialog1 выбора файла для чтения данных. Выбор файла и нажатие кнопки Открыть приводит к загрузке в клиентский набор ранее сохраненных данных.
Для указания имени файла можно использовать свойство FileName типа String. Если это свойство задано, то методы LoadFromFile и SaveToFile вызываются без параметров.
III. Первичное закрепление новых знаний (10 мин).
- Составить 5 вопросов по пройденной теме.
IV. Подведение итогов урока и задание на дом (2 мин.).
Конспект. Хомоненко А.Д. и др. Delphi 7. стр.950-965.
Список использованных источников:
Хомоненко А.Д. и др. Delphi 7. – СПб.: БХВ-Петербург, 2005. – 1216 с., стр.950-965.
http://3ys.ru/razrabotka-setevykh-prilozhenij-sredstvami-delphi/komponenty-adotable-adoquery-adostoredproc-adodataset-tadocommand.html