Бизнес-объект. Object Relational Mapping - История изменений

SYSDBA в 16:01, 10 января 2015

2015-01-10T16:01:48Z

SYSDBA в 09:10, 16 июня 2014

2014-06-16T09:10:19Z

SYSDBA в 09:09, 16 июня 2014

2014-06-16T09:09:29Z

SYSDBA: /* См. также */

2014-06-16T09:08:41Z

‎См. также

SYSDBA в 16:56, 24 октября 2011

2011-10-24T16:56:56Z

SYSDBA в 16:55, 24 октября 2011

2011-10-24T16:55:48Z

SYSDBA: /* Важное замечание! */

2011-10-22T17:46:06Z

‎Важное замечание!

SYSDBA в 18:06, 19 февраля 2010

2010-02-19T18:06:09Z

SYSDBA: Создана новая страница размером Рассмотрим такой пример. В базе данных Гедымина информация о компании (юрид...

2010-01-10T16:57:23Z

Создана новая страница размером Рассмотрим такой пример. В базе данных Гедымина информация о компании (юрид...

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

Рассмотрим такой пример. В базе данных Гедымина информация о компании (юридическом лице) хранится в виде связанных 1-к-1 записей минимум в двух таблицах: [[GD_CONTACT]] и [[GD_COMPANY]]. Третья таблица — [[GD_COMPANYCODE]] — опциональная.

http://gsbelarus.com/gs/images/gs/2009/book/Database.Ref.gd_company.png

Таким образом, операция добавления новой компании с заданным именем и УНП (TaxID) потребует выполнения последовательности следующих действий:

# Старт транзакции
# Добавление записи в GD_CONTACT
# Добавление записи в GD_COMPANY
# Добавление записи в GD_COMPANYCODE
# Комит транзакции

Ниже представлены две функции. Первая — '''AddCompany''' — добавляет компанию "реляционным" способом, выполняя последовательно три операции INSERT в разные таблицы. Функция '''AddCompany2''' использует бизнес-объект типа [[TgdcCompany]] для достижения такого же результата.

==== Функция AddCompany ====

<source lang="vbnet">
Function AddCompany(CompanyName, TaxID)

Dim q, Tr, Creator, ID
Set Creator = New TCreator
Set q = Creator.GetObject(Application, "TIBSQL", "")
Set Tr = Creator.GetObject(Application, "TIBTransaction", "")
ID = gdcBaseManager.GetNextID

Tr.DefaultDatabase = gdcBaseManager.Database
Tr.StartTransaction

q.Transaction = Tr
q.SQL.Text = "INSERT INTO gd_contact (id, parent, contacttype, name) " &_
"VALUES (:id, :parent, :contacttype, :name) "
q.ParamByName("id").AsInteger = ID
q.ParamByName("parent").AsInteger = gdcBaseManager.GetIDByRUIDString("147002208_31587988")
q.ParamByName("contacttype").AsInteger = 3
q.ParamByName("name").AsString = CompanyName
q.ExecQuery

q.SQL.Text = "INSERT INTO gd_company (contactkey, fullname) VALUES (:contactkey, :fullname)"
q.ParamByName("contactkey").AsInteger = ID
q.ParamByName("fullname").AsString = CompanyName
q.ExecQuery

q.SQL.Text = "INSERT INTO gd_companycode (companykey, taxid) VALUES (:companykey, :taxid) "
q.ParamByName("companykey").AsInteger = ID
q.ParamByName("taxid").AsString = TaxID
q.ExecQuery

Tr.Commit
AddCompany = ID

End Function
</source>

==== Функция AddCompany2 ====

<source lang="vbnet">
Option Explicit
Function AddCompany2(CompanyName, TaxID)

Dim Creator, Obj
Set Creator = New TCreator
Set Obj = Creator.GetObject(Application, "TgdcCompany", "")

Obj.Open
Obj.Insert
Obj.FieldByName("parent").AsInteger = gdcBaseManager.GetIDByRUIDString("147002208_31587988")
Obj.FieldByName("name").AsString = CompanyName
Obj.FieldByName("taxid").AsString = TaxID
Obj.Post

AddCompany2 = Obj.ID

End Function
</source>

Очевидно, что второй вариант требует меньших усилий со стороны программиста. Код получается короче и легче в понимании.

===== Важное замечание! =====

Если вы захотите поэксперементировать с этими функциями на своей базе данных, то в вызове:
<source lang="vbnet">
gdcBaseManager.GetIDByRUIDString("147002208_31587988")
</source>
следует прописать RUID некоторой папки из вашего справочника клиентов. Создаваемые функциями компании будут размещены в этой папке.

[[Category:Учебный курс]]
[[Category:Бизнес-объект]]

← Предыдущая		Версия 16:01, 10 января 2015
Строка 1:		Строка 1:
		+	Программисты, знакомые с Delphi, знают, что для работы с выборкой из базы данных используется один из наследников компонента TDataSet. С его помощью достаточно легко организовать редактирование, вставку и удаление записей, если они извлекаются из одной таблицы. Но, что, если данные объекта хранятся в нескольких таблицах? Вставку, удаление, либо изменение придется организовывать вручную. Работа эта достаточно кропотливая и неблагодарная, так как в случае изменения структуры базы данных придется вносить коррективы в ранее написанный код. По иному обстоит дело при использовании бизнес-объекта. Все сложности процесса добавления, изменения или удаления записей из нескольких таблиц скрыты от разработчика, «зашиты» в код бизнес-объекта.
		+
	Рассмотрим такой пример. В базе данных информация о компании (юридическом лице) хранится в виде связанных 1-к-1 записей в двух таблицах: [[GD_CONTACT]] и [[GD_COMPANY]]. Третья таблица — [[GD_COMPANYCODE]] — опциональная.		Рассмотрим такой пример. В базе данных информация о компании (юридическом лице) хранится в виде связанных 1-к-1 записей в двух таблицах: [[GD_CONTACT]] и [[GD_COMPANY]]. Третья таблица — [[GD_COMPANYCODE]] — опциональная.

@@ Строка 11: / Строка 11: @@
 # Комит транзакции
-Ниже представлены две функции. Первая &mdash; '''AddCompany''' &mdash; добавляет компанию "реляционным" способом, выполняя последовательно три операции INSERT в разные таблицы. Функция '''AddCompany2''' использует бизнес-объект типа [[gdcAddressBook.TgdcCompany|TgdcCompany]] для достижения такого же результата.
+Ниже представлены две функции. Первая &mdash; '''AddCompany''' &mdash; добавляет компанию "реляционным" способом, выполняя последовательно три операции INSERT в разные таблицы. Функция '''AddCompany2''' использует бизнес-объект типа [[gdcContacts.TgdcCompany|TgdcCompany]] для достижения такого же результата.
 <table>

@@ Строка 11: / Строка 11: @@
 # Комит транзакции
-Ниже представлены две функции. Первая &mdash; '''AddCompany''' &mdash; добавляет компанию "реляционным" способом, выполняя последовательно три операции INSERT в разные таблицы. Функция '''AddCompany2''' использует бизнес-объект типа [[TgdcCompany]] для достижения такого же результата.
+Ниже представлены две функции. Первая &mdash; '''AddCompany''' &mdash; добавляет компанию "реляционным" способом, выполняя последовательно три операции INSERT в разные таблицы. Функция '''AddCompany2''' использует бизнес-объект типа [[gdcAddressBook.TgdcCompany|TgdcCompany]] для достижения такого же результата.
 <table>

← Предыдущая		Версия 09:08, 16 июня 2014
Строка 99:		Строка 99:
	[[Category:Учебный курс]]		[[Category:Учебный курс]]
	[[Category:Бизнес-объект]]		[[Category:Бизнес-объект]]
		+	[[Category:База данных]]

← Предыдущая		Версия 18:06, 19 февраля 2010
Строка 1:		Строка 1:
−	Рассмотрим такой пример. В базе данных ~~Гедымина~~ информация о компании (юридическом лице) хранится в виде связанных 1-к-1 записей ~~минимум~~ в двух таблицах: [[GD_CONTACT]] и [[GD_COMPANY]]. Третья таблица — [[GD_COMPANYCODE]] — опциональная.	+	Рассмотрим такой пример. В базе данных информация о компании (юридическом лице) хранится в виде связанных 1-к-1 записей в двух таблицах: [[GD_CONTACT]] и [[GD_COMPANY]]. Третья таблица — [[GD_COMPANYCODE]] — опциональная.

	http://gsbelarus.com/gs/images/gs/2009/book/Database.Ref.gd_company.png		http://gsbelarus.com/gs/images/gs/2009/book/Database.Ref.gd_company.png

@@ Строка 6: / Строка 6: @@
 # Старт транзакции
-# Добавление записи в GD_CONTACT
+# Добавление записи в [[GD_CONTACT]]
-# Добавление записи в GD_COMPANY
+# Добавление записи в [[GD_COMPANY]]
-# Добавление записи в GD_COMPANYCODE
+# Добавление записи в [[GD_COMPANYCODE]]
 # Комит транзакции

@@ Строка 13: / Строка 13: @@
 Ниже представлены две функции. Первая &mdash; '''AddCompany''' &mdash; добавляет компанию "реляционным" способом, выполняя последовательно три операции INSERT в разные таблицы. Функция '''AddCompany2''' использует бизнес-объект типа [[TgdcCompany]] для достижения такого же результата.
-==== Функция AddCompany ====
+<table>
+<tr><td><b>Функция AddCompany</b></td><td><b>Функция AddCompany2</b></td></tr>
 <source lang="vbnet">
 Function AddCompany(CompanyName, TaxID)
@@ Строка 31: / Строка 34: @@
      "VALUES (:id, :parent, :contacttype, :name) "
    q.ParamByName("id").AsInteger = ID
-   q.ParamByName("parent").AsInteger = gdcBaseManager.GetIDByRUIDString("147002208_31587988")
+   q.ParamByName("parent").AsInteger = _
    q.ParamByName("contacttype").AsInteger = 3
    q.ParamByName("name").AsString = CompanyName
    q.ExecQuery
-   q.SQL.Text = "INSERT INTO gd_company (contactkey, fullname) VALUES (:contactkey, :fullname)"
+   q.SQL.Text = _
    q.ParamByName("contactkey").AsInteger = ID
    q.ParamByName("fullname").AsString = CompanyName
    q.ExecQuery
-   q.SQL.Text = "INSERT INTO gd_companycode (companykey, taxid) VALUES (:companykey, :taxid) "
+   q.SQL.Text = _
    q.ParamByName("companykey").AsInteger = ID
    q.ParamByName("taxid").AsString = TaxID
@@ Строка 51: / Строка 57: @@
 End Function
 </source>
+</td>
-==== Функция AddCompany2 ====
+<td>
-−
 <source lang="vbnet">
 Option Explicit
@@ Строка 64: / Строка 69: @@
    Obj.Open
    Obj.Insert
-   Obj.FieldByName("parent").AsInteger = gdcBaseManager.GetIDByRUIDString("147002208_31587988")
+   Obj.FieldByName("parent").AsInteger = _
    Obj.FieldByName("name").AsString = CompanyName
    Obj.FieldByName("taxid").AsString = TaxID
@@ Строка 73: / Строка 79: @@
 End Function
 </source>
 Очевидно, что второй вариант требует меньших усилий со стороны программиста. Код получается короче и легче в понимании.

@@ Строка 83: / Строка 83: @@
 </source>
 следует прописать RUID некоторой папки из вашего справочника клиентов. Создаваемые функциями компании будут размещены в этой папке.
 [[Category:Учебный курс]]
 [[Category:Бизнес-объект]]