Дополнительно к основному модулю данных создадим дочерний модуль данных
secondary. Для того чтобы связать главный модуль данных с дочерним, необходимо добавить к интерфейсу
isimpleRDM метод, возвращающий ссылку на интерфейс дочернего модуля данных. В нашем примере это метод
Get_Secondary.
Для его создания воспользуемся библиотекой типов сервера (рис. 21.3).
Рис. 21.3. Библиотека
типов сервера приложения SimpleAppSrvr
В дереве в левой части окна выберем интерфейс
isimpleRDM и создадим для него новое свойство
только для чтения, переименуем его в secondary.
Одновременно со свойством будет создан метод, обеспечивающий чтение свойства.
Переименуем его в Get_secondary. Метод
должен возвращать тип secondary. Для его
установки воспользуемся списком Туре на странице Attributes в
правой части панели окна библиотеки типов (см. рис. 21.3).
После обновления исходного кода библиотеки типов
(кнопка Refresh Implementation) описание нового свойства и метода интерфейса
isimpleRDM появится в файле SimpleAppSrvr_TLB.pas.
Теперь объявление интерфейса isimpieRDM выглядит так:
ISimpleRDM
= interface(lAppServer)
['{Е2СВЕВСВ-1950-4054-В823-62906306Е840}']
function
Get_Secondary: Secondary; safecall;
property
Secondary: Secondary read Get_Secondary;
end;
Одновременно в объявлении удаленного модуля
данных simpleRDM в файле
uSimpleRDM появится метод Get_secondary.
Его исходный код должен выглядеть следующим образом:
function TSimpleRDM.Get_Secondary:
Secondary;
begin
Result := FSecondaryFactory.CreateCOMObject(nil)
as ISecondary;
end;
Теперь модуль данных
secondary стал дочерним для модуля simpleRDM.
Модуль secondary
содержит компоненты для доступа к локальному серверу InterBase. База данных
mastsql.gdb, используемая в этом примере, поставляется вместе с Delphi. Соединение
обеспечивается компонентом TiBDatabase,
который настроен на базу данных при помощи свойства DatabaseName.
Перед компиляцией проекта необходимо правильно
настроить свойство DatabaseName, если местоположение
файла mastsql.gdb отличается от обычного.
Два табличных компонента TTBTаblе
инкапсулируют таблицы Vendors и
Parts из базы данных mastsql.gdb. Дополнительно между этими двумя компонентами
установлено отношение "один-ко-многим". Свойство
MasterSource компонента tbiParts
указывает на компонент dsvendors (класс
TDataSource), связанный с компонентомtblVendors.СвойстваMasterFields
и indexFieidNames компонента
tbiParts содержат имя общего для двух таблиц поля
vendorNo (подробнее о создании отношения "один-ко-многим" см.
гл. 14).
Отношение "один-ко-многим", созданное
для двух таблиц, позволит продемонстрировать в примере клиентского приложения
использование вложенных наборов данных (см. гл. 22).
Знаете ли Вы, почему "черные дыры" - фикция? Согласно релятивистской мифологии, "чёрная дыра - это область в пространстве-времени, гравитационное притяжение которой настолько велико, что покинуть её не могут даже объекты, движущиеся со скоростью света (в том числе и кванты самого света). Граница этой области называется горизонтом событий, а её характерный размер - гравитационным радиусом. В простейшем случае сферически симметричной чёрной дыры он равен радиусу Шварцшильда". На самом деле миф о черных дырах есть порождение мифа о фотоне - пушечном ядре. Этот миф родился еще в античные времена. Математическое развитие он получил в трудах Исаака Ньютона в виде корпускулярной теории света. Корпускуле света приписывалась масса. Из этого следовало, что при высоких ускорениях свободного падения возможен поворот траектории луча света вспять, по параболе, как это происходит с пушечным ядром в гравитационном поле Земли. Отсюда родились сказки о "радиусе Шварцшильда", "черных дырах Хокинга" и прочих безудержных фантазиях пропагандистов релятивизма. Впрочем, эти сказки несколько древнее. В 1795 году математик Пьер Симон Лаплас писал: "Если бы диаметр светящейся звезды с той же плотностью, что и Земля, в 250 раз превосходил бы диаметр Солнца, то вследствие притяжения звезды ни один из испущенных ею лучей не смог бы дойти до нас; следовательно, не исключено, что самые большие из светящихся тел по этой причине являются невидимыми." [цитата по Брагинский В.Б., Полнарёв А. Г. Удивительная гравитация. - М., Наука, 1985] Однако, как выяснилось в 20-м веке, фотон не обладает массой и не может взаимодействовать с гравитационным полем как весомое вещество. Фотон - это квантованная электромагнитная волна, то есть даже не объект, а процесс. А процессы не могут иметь веса, так как они не являются вещественными объектами. Это всего-лишь движение некоторой среды. (сравните с аналогами: движение воды, движение воздуха, колебания почвы). Подробнее читайте в FAQ по эфирной физике.
