Бизнес-объект
SYSDBA (обсуждение | вклад) (→Object Relational Mapping) |
SYSDBA (обсуждение | вклад) (→Object Relational Mapping) |
||
| Строка 20: | Строка 20: | ||
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 | ||
| + | |||
| + | Таким образом, операция добавления новой компании в базу данных потребует выполнения последовательности следующих действий: | ||
| + | |||
| + | # Старт транзакции | ||
| + | # Добавление записи в GD_CONTACT | ||
| + | # Добавление записи в GD_COMPANY | ||
| + | # Добавление записи в GD_COMPANYCODE | ||
| + | # Комит транзакции | ||
| + | |||
| + | <source lang="VB.NET"> | ||
| + | Option Explicit | ||
| + | Function AddCompany(CompanyName, TaxID) | ||
| + | |||
| + | Dim q, Tr, Creator | ||
| + | Set Creator = New TCreator | ||
| + | Set q = Creator.GetObject(Application, "TIBSQL", "") | ||
| + | Set Tr = Creator.GetObject(Application, _ | ||
| + | "TIBTransaction", "") | ||
| + | AddCompany = 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 = AddCompany | ||
| + | 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 = AddCompany | ||
| + | q.ParamByName("fullname").AsString = CompanyName | ||
| + | q.ExecQuery | ||
| + | |||
| + | q.SQL.Text = "INSERT INTO gd_companycode " &_ | ||
| + | "(companykey, taxid) VALUES (:companykey, :taxid) " | ||
| + | q.ParamByName("companykey").AsInteger = AddCompany | ||
| + | q.ParamByName("taxid").AsString = TaxID | ||
| + | q.ExecQuery | ||
| + | |||
| + | Tr.Commit | ||
| + | |||
| + | End Function | ||
| + | </source> | ||
[[Category:Учебный курс]] | [[Category:Учебный курс]] | ||
Версия 21:24, 9 января 2010
Если попытаться выразить сущность платформы Гедымин в одном словосочетании, то этим словосочетанием будет бизнес-объект. Именно бизнес-объекты отвечают за слово "быстрый" в слогане "средство быстрой разработки экономического программного обеспечения".
Бизнес-объектом мы называем экземпляр одного из наследников абстрактного базового класса TgdcBase. В свою очередь TgdcBase, как это следует из представленной диаграммы, является наследником класса TIBCustomDataSet.
Использование набора данных (TDataSet), как одного из прародителей бизнес-классов позволяет стандартным образом, посредством компонента TDataSource подключаться к визуальным компонентам для отображения и редактирования данных.
Уникальным и незаменимым бизнес-объект делают следующие функции:
- Представление реляционных данных в объектном виде (OMR — Object Relational Mapping)
- Контроль за разграничением прав доступа
- Сериализация данных
- Организация пользовательского интерфейса
- Реализация логики бухгалтерского и складского движения
Object Relational Mapping
В базе данных Гедымина информация о компании (юридическом лице) хранится в виде связанных 1-к-1 записей минимум в двух таблицах: GD_CONTACT и GD_COMPANY. Третья таблица — GD_COMPANYCODE — опциональная.
Таким образом, операция добавления новой компании в базу данных потребует выполнения последовательности следующих действий:
- Старт транзакции
- Добавление записи в GD_CONTACT
- Добавление записи в GD_COMPANY
- Добавление записи в GD_COMPANYCODE
- Комит транзакции
Указан неподдерживаемый язык.
Вы должны указать язык следующим образом: <source lang="html4strict">...</source>
Поддерживаемые языки:
4cs, 6502acme, 6502kickass, 6502tasm, 68000devpac, abap, actionscript, actionscript3, ada, algol68, apache, applescript, apt_sources, arm, asm, asp, asymptote, autoconf, autohotkey, autoit, avisynth, awk, bascomavr, bash, basic4gl, bf, bibtex, blitzbasic, bnf, boo, c, c_loadrunner, c_mac, caddcl, cadlisp, cfdg, cfm, chaiscript, cil, clojure, cmake, cobol, coffeescript, cpp, cpp-qt, csharp, css, cuesheet, d, dcl, dcpu16, dcs, delphi, diff, div, dos, dot, e, ecmascript, eiffel, email, epc, erlang, euphoria, f1, falcon, fo, fortran, freebasic, freeswitch, fsharp, gambas, gdb, genero, genie, gettext, glsl, gml, gnuplot, go, groovy, gwbasic, haskell, haxe, hicest, hq9plus, html4strict, html5, icon, idl, ini, inno, intercal, io, j, java, java5, javascript, jquery, kixtart, klonec, klonecpp, latex, lb, ldif, lisp, llvm, locobasic, logtalk, lolcode, lotusformulas, lotusscript, lscript, lsl2, lua, m68k, magiksf, make, mapbasic, matlab, mirc, mmix, modula2, modula3, mpasm, mxml, mysql, nagios, netrexx, newlisp, nsis, oberon2, objc, objeck, ocaml, ocaml-brief, octave, oobas, oorexx, oracle11, oracle8, oxygene, oz, parasail, parigp, pascal, pcre, per, perl, perl6, pf, php, php-brief, pic16, pike, pixelbender, pli, plsql, postgresql, povray, powerbuilder, powershell, proftpd, progress, prolog, properties, providex, purebasic, pycon, pys60, python, q, qbasic, rails, rebol, reg, rexx, robots, rpmspec, rsplus, ruby, sas, scala, scheme, scilab, sdlbasic, smalltalk, smarty, spark, sparql, sql, stonescript, systemverilog, tcl, teraterm, text, thinbasic, tsql, typoscript, unicon, upc, urbi, uscript, vala, vb, vbnet, vedit, verilog, vhdl, vim, visualfoxpro, visualprolog, whitespace, whois, winbatch, xbasic, xml, xorg_conf, xpp, yaml, z80, zxbasic
Option Explicit
Function AddCompany(CompanyName, TaxID)
Dim q, Tr, Creator
Set Creator = New TCreator
Set q = Creator.GetObject(Application, "TIBSQL", "")
Set Tr = Creator.GetObject(Application, _
"TIBTransaction", "")
AddCompany = 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 = AddCompany
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 = AddCompany
q.ParamByName("fullname").AsString = CompanyName
q.ExecQuery
q.SQL.Text = "INSERT INTO gd_companycode " &_
"(companykey, taxid) VALUES (:companykey, :taxid) "
q.ParamByName("companykey").AsInteger = AddCompany
q.ParamByName("taxid").AsString = TaxID
q.ExecQuery
Tr.Commit
End Function
