Дочернийудаленный модуль данных

Дополнительно к основному модулю данных создадим дочерний модуль данных Secondary. Для того чтобы связать главный модуль данных с дочерним, необходимо добавить к интерфейсу isimpieRDM метод, возвращающий ссылку на интерфейс дочернего модуля данных. В нашем примере это метод Get_Secondary.

Для его создания воспользуемся библиотекой типов сервера (рис. 21.3).

Программирование в Delphi 7

Рис. 21.3. Библиотека типов сервера приложения SimpleAppSrvr

В дереве в левой части окна выберем интерфейс isimpieRDM и создадим для него новое свойство только для чтения, переименуем его в secondary. Одновременно со свойством будет создан метод, обеспечивающий чтение свойства. Переименуем его в Getsecondary. Метод должен возвращать тип Secondary. Для его установки воспользуемся списком Туре на странице Attributes в правой части панели окна библиотеки типов (см. рис. 21.3).

После обновления исходного кода библиотеки типов (кнопка Refresh Implementation) описание нового свойства и метода интерфейса isimpieRDM появится в файле SirnpleAppSrvr_TLB.pas. Теперь объявление интерфейса isimpieRDM выглядит так:

ISimpleRDM = interface(IAppServer)

t'{E2CBEBCB-1950-4054-B823-62906306E840} ' ] function Get_Secondary : Sœondary;
safecall;
property Sœondary: Sœondary read Get_Sœondary;
end;

Одновременно в объявлении удаленного модуля данных simpleRDM в файле uSimpleRDM появится метод Get_secondary. Его исходный код должен выглядеть следующим образом:

function TSimpleRDM.Get_Secondary: Secondary;
begin
Resuit := FSecondaryFactory.CreateCOMObject(nil) as ISecondary;
end;

Теперь ШЩЛЬ ДаННЬГХ Secondary стал ДОЧерНИМ ДЛЯ МЩЖ SimpieRDM.

Модуль secondary содержит компоненты для доступа к локальному серверу InterBase. База данных mastsql.gdb, используемая в этом примере, поставляется ВМеСТе С Delphi. Соединение обеСПеЧИВаеТСЯ КОМПОНеНТОМ TIBDatabase, КОТОРЫЙ Настроен На базу ДаННЫХ При ПОМОЩИ СВОЙСТВа DatabaseName.

Перед компиляцией проекта необходимо правильно настроить свойство DatabaseName, если местоположение файла mastsql.gdb отличается от обычного.

Два табличных компонента TiBTable инкапсулируют таблицы Vendors и Parts из базы данных mastsql.gdb. Дополнительно между этими двумя компонентами установлено отношение "один-ко-многим". Свойство MasterSource компонента tblParts указывает на компонент dsvendors (класс TDataSource), связанный с компонентом tblVendors. Свойства MasterFields и indexFieidNames компонента tbiParts содержат имя общего для двух таблиц поля vendorNo (подробнее о создании отношения "один-ко-многим"см. гл. 14).

Отношение "один-ко-многим", созданное для двух таблиц, позволит продемонстрировать в примере клиентского приложения использование вложенных наборов данных (см. гл. 22).

Регистрация сервера приложения

Теперь, когда сервер приложения готов, остался последний этап - регистрация сервера. Для этого достаточно запустить исполняемый файл проекта на компьютере, который будет использоваться для работы сервера приложения. Но обратите внимание, что в этом случае настройки доступа к используемым в примере базам данных должны быть скорректированы с учетом переноса на другой компьютер. И естественно, на нем должны быть установлен BDE и клиент InterBase.


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Июнь
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс