Наследование бизнес-классов (постановка) - История изменений

SYSDBA в 16:32, 23 мая 2015

2015-05-23T16:32:41Z

SYSDBA: /* Тестирование */

2015-05-13T18:17:51Z

‎Тестирование

SYSDBA: /* Тестирование */

2015-05-13T11:22:39Z

‎Тестирование

SYSDBA: /* Наследование экранных форм для бизнес-классов */

2015-05-11T16:30:05Z

‎Наследование экранных форм для бизнес-классов

SYSDBA: /* Наследование экранных форм для бизнес-классов */

2015-02-23T11:14:30Z

‎Наследование экранных форм для бизнес-классов

SYSDBA: /* Наследование экранных форм для наследованных бизнес-классов */

2014-06-18T17:39:59Z

‎Наследование экранных форм для наследованных бизнес-классов

SYSDBA: /* Порядок вызова перекрытых методов */

2014-06-18T10:47:12Z

‎Порядок вызова перекрытых методов

SYSDBA: /* Порядок вызова перекрытых методов */

2014-06-18T10:33:18Z

‎Порядок вызова перекрытых методов

SYSDBA: /* Порядок вызова перекрытых методов */

2014-06-18T10:01:51Z

‎Порядок вызова перекрытых методов

SYSDBA: /* Порядок вызова перекрытых методов */

2014-06-18T09:23:04Z

‎Порядок вызова перекрытых методов

@@ Строка 130: / Строка 130: @@
 Все созданные объекты включаем в ПИ и переносим на базу TEST_B.
-[[Category:Постановка]]
+[[Category:Постановка-Сделано]]
 [[Category:Бизнес-объект]]

@@ Строка 87: / Строка 87: @@
 # Для теста возьмем две базы с установленной Комплексной автоматизацией. Назовем их TEST_A и TEST_B. На базе TEST_A будем вести разработку. На базу TEST_B будем переносить созданные объекты с помощью ПИ. Дальнейшие действия выполняем на базе TEST_A.
 # Создадим таблицу с идентификатором и служебными полями с именем USR$PR_VEHICLE -- справочник моделей автотранспортных средств. Добавим в нее два поля (в скобках приведен тип): USR$MODEL (dtext20 NOT NULL) и USR$CONSUMATION (dpositive NOT NULL).
 # Для TgdcAttrUserDefined USR$PR_VEHICLE Перекроем метод DoBeforePost. Выведем на экран с помощью функции MsgBox сообщение "USR$PR_VEHICLE".
-# На диалоговом окне разместим кнопку Тест по которой будем выводить на экран сообщение "Тест USR$PR_VEHICLE".
+# На диалоговом окне для TgdcAttrUserDefined USR$PR_VEHICLE разместим кнопку Тест по которой будем выводить на экран сообщение "Тест USR$PR_VEHICLE".
-# Создадим наследованную от USR$PR_VEHICLE таблицу USR$PR_TRUCK с полем USR$CAPACITY (dpositive NOT NULL)
+# Создадим наследованную от USR$PR_VEHICLE таблицу USR$PR_TRUCK с полем USR$CAPACITY (dpositive NOT NULL).
 # Для TgdcAttrUserDefined USR$PR_TRUCK Перекроем метод DoBeforePost. Выведем на экран с помощью функции MsgBox сообщение "USR$PR_TRUCK".
-# На диалоговом окне перекроем событие кнопки Тест по которой будем выводить на экран сообщение "Тест USR$PR_TRUCK", после чего вызывать обработчик унаследованного события.
+# На диалоговом окне TgdcAttrUserDefined USR$PR_TRUCK перекроем событие кнопки Тест по которой будем выводить на экран сообщение "Тест USR$PR_TRUCK", после чего вызывать обработчик унаследованного события. Проверим правильный порядок отработки обработчиков события.
-# Создадим наследованную от USR$PR_VEHICLE таблицу USR$PR_BUS с полем USR$SEATS (dinteger_notnull)
+# Создадим наследованную от USR$PR_VEHICLE таблицу USR$PR_BUS с полем USR$SEATS (dinteger_notnull).
 # Проверим формы просмотра и диалоговое окна для каждого созданного класса. Проверим формирование запросов. Выполним операции создания/редактирования/удаления.
 [[Category:Постановка]]
 [[Category:Бизнес-объект]]

@@ Строка 90: / Строка 90: @@
 # Для TgdcAttrUserDefined USR$PR_VEHICLE Перекроем метод DoBeforePost. Выведем на экран с помощью функции MsgBox сообщение "USR$PR_VEHICLE".
 # На диалоговом окне разместим кнопку Тест по которой будем выводить на экран сообщение "Тест USR$PR_VEHICLE".
-# Создадим наследованную от USR$PR_VEHICLE таблицу USR$PR_TRUCK с полем
+# Создадим наследованную от USR$PR_VEHICLE таблицу USR$PR_TRUCK с полем USR$CAPACITY (dpositive NOT NULL)
 [[Category:Постановка]]
 [[Category:Бизнес-объект]]

@@ Строка 84: / Строка 84: @@
 ===Наследование экранных форм для бизнес-классов===
 [[Category:Постановка]]
 [[Category:Бизнес-объект]]

@@ Строка 83: / Строка 83: @@
 ===Наследование экранных форм для бизнес-классов===
 [[Category:Постановка]]
 [[Category:Бизнес-объект]]

@@ Строка 82: / Строка 82: @@
 {{:Порядок вызова перекрытых методов}}
-===Наследование экранных форм для наследованных бизнес-классов===
+===Наследование экранных форм для бизнес-классов===
 [[Category:Постановка]]

@@ Строка 80: / Строка 80: @@
 ===Порядок вызова перекрытых методов===
+{{:Порядок вызова перекрытых методов}}
-Порядок вызова перекрытых методов в случае множественного наследования рассмотрим на таком примере. Пусть в платформе определен '''ClassA''' -- пользовательский справочник. От него наследуется '''ClassB'''. Для этих классов перекрыт метод '''DoBeforeOpen''' c вызовом '''Inherited'''. У нас на руках экземпляр класса '''ClassB''', который мы пытаемся открыть ('''Open'''), в процессе чего происходит вызов метода '''DoBeforeOpen'''. Тогда последовательность выполнения программного кода будет выглядеть следующим образом:
-−
-−
-http://gsbelarus.com/gs/images/gs/2014/polymorphism.png
-−
-−
-'''1''' -- '''ClassA''' и '''ClassB''' -- это исключительно порождения платформы о которых Делфи ничего не известно. Для системы объект имеет тип '''TgdcAttrUserDefined'''.
-−
-'''2''' -- Поскольку для '''TgdcAttrUserDefined''' нет метода '''DoBeforeOpen''', через VMT попадаем на метод родителя -- '''TgdcBase.DoBeforeOpen'''.
-−
-'''3''' -- Тело метода начинается с кода, который отвечает за вызов перекрытых методов в платформе. На вставке ниже, строки, начинающиеся с комментария:
-−
-<syntaxhighlight lang="Delphi">
-procedure TgdcBase.DoBeforeOpen;
-  {@UNFOLD MACRO INH_ORIG_PARAMS(VAR)}
-  {M}VAR
-  {M}  Params, LResult: Variant;
-  {M}  tmpStrings: TStackStrings;
-  {END MACRO}
-begin
-  {@UNFOLD MACRO INH_ORIG_WITHOUTPARAM('TGDCBASE', 'DOBEFOREOPEN', KEYDOBEFOREOPEN)}
-  {M}  try
-  {M}    if (not FDataTransfer) and Assigned(gdcBaseMethodControl) then
-  {M}    begin
-  {M}      SetFirstMethodAssoc('TGDCBASE', KEYDOBEFOREOPEN);
-  {M}      tmpStrings := TStackStrings(ClassMethodAssoc.IntByKey[KEYDOBEFOREOPEN]);
-  {M}      if (tmpStrings = nil) or (tmpStrings.IndexOf('TGDCBASE') = -1) then
-  {M}      begin
-  {M}        Params := VarArrayOf([GetGdcInterface(Self)]);
-  {M}        if gdcBaseMethodControl.ExecuteMethodNew(ClassMethodAssoc, Self, 'TGDCBASE',
-  {M}          'DOBEFOREOPEN', KEYDOBEFOREOPEN, Params, LResult) then exit;
-  {M}      end else
-  {M}        if tmpStrings.LastClass.gdClassName <> 'TGDCBASE' then
-  {M}        begin
-  {M}          Inherited;
-  {M}          Exit;
-  {M}        end;
-  {M}    end;
-  {END MACRO}
-−
-  if (not CanView) and (not IBLogin.IsUserAdmin) then
-  begin
-    if SubType > '' then
-      raise EgdcUserHaventRights.CreateFmt(strHaventRights,
-        [strView, ClassName, SubType, GetDisplayName(SubType)])
-    else
-      raise EgdcUserHaventRights.CreateFmt(strHaventRightsShort,
-        [strView, ClassName])
-  end;
-−
-  if not FSQLInitialized then
-    InitSQL;
-−
-  if HasSubSet('ByID') and (FID > -1) then
-    ParamByName(GetKeyField(SubType)).AsInteger := FID
-  else if HasSubSet('ByName') and (FObjectName > '') then
-    ParamByName(GetListField(SubType)).AsString := FObjectName;
-−
-  inherited DoBeforeOpen;
-−
-  {@UNFOLD MACRO INH_ORIG_FINALLY('TGDCBASE', 'DOBEFOREOPEN', KEYDOBEFOREOPEN)}
-  {M}  finally
-  {M}    if (not FDataTransfer) and Assigned(gdcBaseMethodControl) then
-  {M}      ClearMacrosStack2('TGDCBASE', 'DOBEFOREOPEN', KEYDOBEFOREOPEN);
-  {M}  end;
-  {END MACRO}
-end;
-</syntaxhighlight>
-−
-Именно здесь вступает в силу '''Подтип''' нашего объекта и система начинает понимать, что мы имеем дело с экземпляром '''TgdcAttrUserDefined<span style="color: red;">ClassB</span>''', а не '''TgdcAttrUserDefined'''. В базе данных отыскивается скрипт-функция перекрытого метода, загружается в скрипт-контрол и запускается на выполнение.
-−
-'''4''' -- По магическому слову '''Inherited''' мы снова оказываемся в движке платформы. Для класса '''TgdcAttrUserDefinedClassB''' будет найден родитель -- '''TgdcAttrUserDefinedClassA'''. Для него загружена скрипт-функция перекрытого метода и запущена на выполнение.
-−
-'''5''' -- Снова вызов '''Inherited''' из скрипт-функции. На этот раз родитель -- делфовский класс '''TgdcAttrUserDefined'''. Для него нет метода '''DoBeforeOpen''' и мы возвращаемся в '''TgdcBase.DoBeforeOpen'''. Служебный код, отвечающий за связь Делфи с VBScript, закончился. Начинается логика метода '''DoBeforeOpen'''.
-−
-'''6, 7''' -- По вызову '''inherited''' перейдем на уровень родителя -- '''TCustomIBDataSet.DoBeforeOpen'''. По завершении -- вернемся обратно.
-−
-'''8''' -- Собственно, логика метода '''DoBeforeOpen''' закончилась. Снова служебный код, который сращивает статичный, однажды откомпилированный код Делфи и динамичный, интерпретируемый код из VBScript. Возращаемся в место вызова -- '''TgdcAttrUserDefinedClassA.DoBeforeOpen''', сразу после слова '''Inherited'''.
-−
-'''9''' -- Когда выполнение скрипт-функции перекрытого метода закончится, движок платформы вернет нас к прерванному '''TgdcAttrUserDefinedClassB.DoBeforeOpen'''.
-−
-'''A, B, C''' -- Скрипты закончились. Завершаем метод '''TgdcBase.DoBeforeOpen'''. Затем, минуя несуществующий '''TgdcAttrUserDefined.DoBeforeOpen''', возвращаемся к продолжению программы.
 ===Наследование экранных форм для наследованных бизнес-классов===

← Предыдущая		Версия 09:23, 18 июня 2014
Строка 80:		Строка 80:

	===Порядок вызова перекрытых методов===		===Порядок вызова перекрытых методов===
		+
		+	http://gsbelarus.com/gs/images/gs/2014/polymorphism.png

	===Наследование экранных форм для наследованных бизнес-классов===		===Наследование экранных форм для наследованных бизнес-классов===