Бизнес-объект. Object Relational Mapping

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

Версия 16:55, 24 октября 2011

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

Database.Ref.gd_company.png

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

  1. Старт транзакции
  2. Добавление записи в GD_CONTACT
  3. Добавление записи в GD_COMPANY
  4. Добавление записи в GD_COMPANYCODE
  5. Комит транзакции

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

Функция AddCompanyФункция AddCompany2
Option Explicit
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
 
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

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

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

Если вы захотите поэксперементировать с этими функциями на своей базе данных, то в вызове: 

  gdcBaseManager.GetIDByRUIDString("147002208_31587988")

следует прописать RUID некоторой папки из вашего справочника клиентов. Создаваемые функциями компании будут размещены в этой папке.

См. также

Источник — «https://gsbelarus.com/gs/wiki/index.php?title=%D0%91%D0%B8%D0%B7%D0%BD%D0%B5%D1%81-%D0%BE%D0%B1%D1%8A%D0%B5%D0%BA%D1%82._Object_Relational_Mapping&oldid=4856»
Персональные инструменты
Пространства имён

Варианты
Действия
Навигация
Инструменты