Создание Master-Detail формы - История изменений

SYSDBA в 15:28, 1 июля 2016

2016-07-01T15:28:23Z

SYSDBA в 10:23, 19 августа 2011

2011-08-19T10:23:51Z

SYSDBA: /* Создание экранной формы */

2011-08-19T10:18:22Z

‎Создание экранной формы

SYSDBA: /* Создание экранной формы */

2011-08-19T10:16:21Z

‎Создание экранной формы

SYSDBA: /* Создание экранной формы */

2011-08-19T10:00:13Z

‎Создание экранной формы

Alex в 10:27, 10 августа 2007

2007-08-10T10:27:39Z

SYSDBA в 11:51, 3 августа 2007

2007-08-03T11:51:33Z

Kaa в 03:46, 3 августа 2007

2007-08-03T03:46:03Z

Новая страница

Рассмотрим процесс создания Master-Detail формы.

Есть две пользовательские таблицы, поле USR$MASTER_KEY таблицы USR$DETAIL

ссылка на уникальный ID таблицы USR$MASTER.

SELECT
Z.ID,
Z.USR$NAME
FROM
USR$MASTER Z

SELECT
Z.ID,
Z.USR$NAME,
Z.USR$MASTER_KEY,
Z_USR$MASTER_KEY.USR$NAME AS Z_USR$MASTER_KEY_USR$NAME
FROM
USR$DETAIL Z
LEFT JOIN
USR$MASTER Z_USR$MASTER_KEY
ON
Z_USR$MASTER_KEY.ID = Z.USR$MASTER_KEY

Создаем Master-Detail форму: Меню "Сервис" - "Редактор форм":

1. Тип формы: "Наследуемая форма";

2. Имя формы: usrf_MASTER_DETAIL;

3. Родительский класс формы: "Master-detail форма (гориз.)(Tgdc_frmMDH);

4. Класс объекта формы: TgdcAttrUserDefined;

5. Подтип класса: MASTER (пользовательская таблица USR$MASTER).

Делаем вызов формы в "Исследователе":

1. Исследователь - "Добавить";

2. Наименование: "Master-Detail форма", Форма: usrf_MASTER_DETAIL.

Вызываем форму, входим в режим редактирования: Ctrl+Alt+E.

Палитра компонентов, закладка "GDC", добавляем на форму:

1. usrg_gdcAttrUserDefined1: TgdcAttrUserDefined

(для dsMain: TDataSource - указываем его как DataSet);

2. usrg_gdcAttrUserDefined2: TgdcAttrUserDefined

(для dsDetail: TDataSource - указывем его как DataSet);

В свойстве SubType первого компонента указываем USR$MASTER,

второго USR$DETAIL соответственно.

На верхнюю и нижнюю панель добавляем 2 компонента TgsIBGrid,

закладка "БД компоненты", связываем их свойства DataSource

c dsMain и dsDetail соответственно.

В компоненте usrg_gdcAttrUserDefined2: TgdcAttrUserDefined указываем свойства:

MasterSource: dsMain;

MasterField: ID;

DetailField: MASTER_KEY;

В событии OnCreate нашей формы (usrf_MASTER_DETAIL: Tgdc_frmMDH)

пишем следующий обработчик:

option explicit
sub usrf_MASTER_DETAILOnCreate(ByVal Sender)
Sender.gdcDetailObject = _
Sender.GetComponent("usrg_gdcAttrUserDefined2")
Sender.gdcDetailObject.ExtraConditions.Add(_
"z.USR$MASTER_KEY = :MASTER_KEY")
Sender.gdcObject = _
Sender.GetComponent("usrg_gdcAttrUserDefined1")
'*** Данный код необходим для вызова встроенного обработчика ***
'*** В случае его удаления возможно нарушение работы системы ***
call Inherited(Sender, "OnCreate", Array(Sender))
'*** конец кода поддержки встроенного обработчика ***
Sender.gdcObject.Open
Sender.gdcDetailObject.Open
end sub

Сохраняем и выходим из редактирования формы (F2).

Открываем нашу "Master-Detail форма" в "Исследователе",

видим Master-Detail связку таблиц.

@@ Строка 1: / Строка 1: @@
 Рассмотрим процесс создания Master-Detail формы.
-Есть две пользовательские таблицы: USR$MASTER и USR$DETAIL. Поле USR$MASTER_KEY таблицы USR$DETAIL является ссылкой на уникальный ID таблицы USR$MASTER. Ниже приведены два запроса для извлечения данных из указанных таблиц:
+Есть две пользовательские таблицы: USR$MASTER и USR$DETAIL. Поле USR$MASTER_KEY таблицы USR$DETAIL является ссылкой (внешним ключем) на уникальный ID таблицы USR$MASTER. Ниже приведены два запроса, автоматически формируемых Гедымином, для извлечения данных из указанных таблиц:
+<syntaxhighlight lang="SQL">
    SELECT
      Z.ID,
@@ Строка 20: / Строка 20: @@
        ON
          Z_USR$MASTER_KEY.ID  =  Z.USR$MASTER_KEY
 === Создание экранной формы ===

@@ Строка 45: / Строка 45: @@
 ## MasterSource = dsMain;
 ## MasterField = ID;
-## DetailField = USR$MASTER_KEY;
+## DetailField = MASTER_KEY;
 # В событии OnCreate нашей формы пишем следующий обработчик:
 <syntaxhighlight lang="vbnet">

@@ Строка 47: / Строка 47: @@
 ## DetailField = USR$MASTER_KEY;
 # В событии OnCreate нашей формы пишем следующий обработчик:
+<syntaxhighlight lang="vbnet">
    option explicit
    sub usrf_MASTER_DETAILOnCreate(ByVal Sender)
@@ Строка 65: / Строка 65: @@
      Sender.gdcDetailObject.Open
    end sub
+</syntaxhighlight>
-Сохраняем и выходим из режима редактирования формы (F2).
 Открываем нашу "Master-Detail форма" в "Исследователе". Видим Master-Detail связку таблиц.

← Предыдущая		Версия 10:00, 19 августа 2011
Строка 69:		Строка 69:

	Открываем нашу "Master-Detail форма" в "Исследователе". Видим Master-Detail связку таблиц.		Открываем нашу "Master-Detail форма" в "Исследователе". Видим Master-Detail связку таблиц.
		+
		+	[[Category:Учебный курс]]
		+	[[Category:Документация]]

@@ Строка 45: / Строка 45: @@
 ## MasterSource = dsMain;
 ## MasterField = ID;
-## DetailField = MASTER_KEY;
+## DetailField = USR$MASTER_KEY;
 # В событии OnCreate нашей формы пишем следующий обработчик:

@@ Строка 62: / Строка 62: @@
      call   Inherited(Sender, "OnCreate", Array(Sender))
      '*** конец кода поддержки встроенного обработчика            ***
    end sub
 </syntaxhighlight>

@@ Строка 1: / Строка 1: @@
 Рассмотрим процесс создания Master-Detail формы.
-Есть две пользовательские таблицы, поле USR$MASTER_KEY таблицы USR$DETAIL
+Есть две пользовательские таблицы: USR$MASTER и USR$DETAIL. Поле USR$MASTER_KEY таблицы USR$DETAIL является ссылкой на уникальный ID таблицы USR$MASTER. Ниже приведены два запроса для извлечения данных из указанных таблиц:
-−
-ссылка на уникальный ID таблицы USR$MASTER.
    SELECT
@@ Строка 23: / Строка 21: @@
          Z_USR$MASTER_KEY.ID  =  Z.USR$MASTER_KEY
-Создаем Master-Detail форму: Меню "Сервис" - "Редактор форм":
+Создаем Master-Detail форму. Для этого зайдем в меню "Сервис" и вызовем команду "Редактор форм". Далее укажем следующие параметры:
-. Тип формы: "Наследуемая форма";
+# Тип формы: "Наследуемая форма";
-. Имя формы: usrf_MASTER_DETAIL;
+Добавляем в "Исследователь" команду вызова формы:
-. Родительский класс формы: "Master-detail форма (гориз.)(Tgdc_frmMDH);
+# Исследователь - "Добавить";
-. Класс объекта формы: TgdcAttrUserDefined;
+Вызываем форму и входим в режим редактирования (Ctrl+Alt+E). На палитре компонентов выбираем вкладку "GDC" и добавляем на форму следующие компоненты:
-. Подтип класса: MASTER (пользовательская таблица USR$MASTER).
+# usrg_gdcAttrUserDefined1: [[TgdcAttrUserDefined]]. Для источника данных ([[TDataSource]]) dsMain указываем его как DataSet.
+# usrg_gdcAttrUserDefined2: TgdcAttrUserDefined. Для источника данных ([[TDataSource]]) dsDetail указывем его как DataSet.
+# В свойстве SubType первого компонента прописываем USR$MASTER, второго -- USR$DETAIL, соответственно.
-Делаем вызов формы в "Исследователе":
+# На верхнюю и нижнюю панель добавляем по компоненту типа [[TgsIBGrid]], находятся на вкладке "БД компоненты", связываем их свойства DataSource c источниками dsMain и dsDetail соответственно.
+# В компоненте usrg_gdcAttrUserDefined2 указываем свойства:
-. Исследователь - "Добавить";
+## MasterSource = dsMain;
+## MasterField = ID;
-. Наименование: "Master-Detail форма", Форма: usrf_MASTER_DETAIL.
+## DetailField = MASTER_KEY;
+# В событии OnCreate нашей формы пишем следующий обработчик:
-−
-Вызываем форму, входим в режим редактирования: Ctrl+Alt+E.
-−
-Палитра компонентов, закладка "GDC", добавляем на форму:
-−
-. usrg_gdcAttrUserDefined1: TgdcAttrUserDefined
-−
-(для dsMain: TDataSource - указываем его как DataSet);
-−
-. usrg_gdcAttrUserDefined2: TgdcAttrUserDefined
-−
-(для dsDetail: TDataSource - указывем его как DataSet);
-−
-В свойстве SubType первого компонента указываем USR$MASTER,
-−
-второго USR$DETAIL соответственно.
-−
-−
-На верхнюю и нижнюю панель добавляем 2 компонента TgsIBGrid,
-−
-закладка "БД компоненты", связываем их свойства DataSource
-−
 c dsMain и dsDetail соответственно.
-−
-−
-В компоненте usrg_gdcAttrUserDefined2: TgdcAttrUserDefined указываем свойства:
-−
-MasterSource: dsMain;
-−
-MasterField: ID;
-−
-DetailField: MASTER_KEY;
-−
-−
-В событии OnCreate нашей формы (usrf_MASTER_DETAIL: Tgdc_frmMDH)
-−
 пишем следующий обработчик:
    option explicit
@@ Строка 89: / Строка 56: @@
      Sender.gdcObject = _
        Sender.GetComponent("usrg_gdcAttrUserDefined1")
-  '*** Данный код необходим для вызова встроенного обработчика ***
-  '*** В случае его удаления возможно нарушение работы системы ***
+    '*** Данный код необходим для вызова встроенного обработчика ***
      call   Inherited(Sender, "OnCreate", Array(Sender))
-  '*** конец кода поддержки встроенного обработчика            ***
+    '*** конец кода поддержки встроенного обработчика            ***
      Sender.gdcObject.Open
      Sender.gdcDetailObject.Open
    end sub
-Сохраняем и выходим из редактирования формы (F2).
+Сохраняем и выходим из режима редактирования формы (F2).
-−
-Открываем нашу "Master-Detail форма" в "Исследователе",
-видим Master-Detail связку таблиц.
+Открываем нашу "Master-Detail форма" в "Исследователе". Видим Master-Detail связку таблиц.