AmberitOld Nick,
авторОно и понятно. Это ведь из-за недостатка опыта.
Если возможно, объясните пожалуйста неопытному, что имеется в виду под "ООП в базе".
Я возьму на себя смелость пройтись по Вашим постам:
авторИ есть другой подход - использовать наработки, дописывая только то что нужно для новой прикладной логики. Согласен, но где здесь ООП?
авторЯ использую объектно-ориентированный подход с проектированию БД. Естественно есть базовые классы, базовая логика. В полной мере используется наследование, которое сводится к простому добавлению новых классов. Классы справочников, причем типовые справочники уже есть. Классы новых документов, типовые тоже уже есть. Классы бизнес-процессов.
Какие классы имеются в виду? Большинство данных в БД хранится в таблицах. Классы можно использовать для обработки этих данных. И как при добавлении нового справочника обойтись только добавлением класса? Или Вы хотите сказать, что все данные всех справочников хранятся в одной мега-таблице? Или Вы хотите сказать, что ограничения/триггера Вы не используете, а всю проверку при вставке/обновлении/удалении делаете через классы, а то и вообще вне БД (интересно, как!)?
Я искренне не понимаю, и если бы Вы объяснили Ваш подход именно с позиции разработчика БД, возможно, на одного программиста с недостаточным опытом стало бы меньше...
авторЯ не говорил, что ООП надо везде использовать. Сначала новички не знают что такое ООП, потом начинаю использовать везде, и только когда появляется опыт, то используют только там где это нужно.
Так вот меня и терзают смутные сомнения, нужно ли ООП на уровне БД? Покажите пример реализации чего-нибудь с помощью ООП в БД, если Вас не затруднит...
А, например, вот здесь
класс Document
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
include=System\Object.sql
include=System\Module.sql
include=System\Application.sql
include=Subjects\Person.sql
go
exec Folder 'Root.Docs', 'Документы'
go
exec Class 'Document', 'Object', 'Абстрактный документ', 0
exec Field 'Number', 'String', 'Номер', 'null'
exec Field 'Date', 'Date', 'Дата', 'null'
exec Field 'Manager', 'Person', 'Менеджер', 'null^Folder=Root.Refs.Subjects.Persons'
exec Field 'BaseDoc', 'Document', 'Документ-основание', 'null^Folder=Root.Docs'
exec Action 'Print', 'Распечатать'
--exec Event 'Register', 'Регистрация документа'
exec Compile
go
create procedure Document_GetDefaultRegistrator
as
set nocount on
select distinct
a.DocRegisterOID,
a.DocRegisterName,
a.DocRegisterClass
from VModule_Users u
join
VApplication a
on a.OID = u.OID
where u.UserOID = dbo.CurrentUser()
go
create procedure Document_GetChildDocs
@OID OID
as
set nocount on
select t.*
from VTree t
join
VClassTree ct
on ct.BaseClass = t.Class
and ct.Class = 'Document'
where t.ParentOID = @OID
and t.HierarchyOID = (select OID from VHierarchy where Ext = 'Documents')
go
create procedure Document_Register
@OID OID
as
set nocount on
declare @EventOID OID
select @EventOID = OID from VEvent where Ext = 'Register'
exec Event_Throw @EventOID, @OID
go
Операционный документ
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
include=Docs\Document.sql
include=Refs\Currency.sql
include=Things\Thing.sql
go
exec Class 'OperDoc', 'Document', 'Операционный документ', 0
exec Field 'Agent', 'Subject', 'Юридическое лицо', 'Folder=Root.Refs.Subjects'
exec Field 'Counter', 'Subject', 'Контрагент', 'null^Folder=Root.Refs.Subjects'
exec Field 'Currency', 'Currency', 'Валюта', 'null^Folder=Root.Refs.Currencies'
exec Field 'Summa', 'Money', 'Сумма', 'null'
exec Field 'SummStr', 'String', 'Сумма Прописью', 'null'
exec Field 'Comments', 'MaxString', 'Комментарий', 'null'
exec SubTable 'Things' , 'Товары и услуги'
exec Field 'RowID', 'Integer', '', 'Identity(1, 1) Key'
exec Field 'Thing', 'Thing', 'Объект учета', 'Key^Folder=Root.Refs.Things'
exec Field 'Agent', 'Subject', 'Субагент', 'null^Folder=Root.Refs.Subjects'
exec Field 'Counter', 'Subject', 'Субконтрагент', 'null^Folder=Root.Refs.Subjects'
exec SubTable 'Measures', 'Измерения'
exec Field 'RowID', 'Integer', '', 'Key'
exec Field 'Measure', 'Measure', 'Измерение', 'Key^Folder=Root.Refs.Measures'
exec Field 'Unit', 'Unit', 'Ед. изм.', 'Folder=Root.Refs.Units'
exec Field 'Quantity', 'Money', 'Количество'
exec SubTable 'Operations', 'Операции'
exec Field 'Operation', 'Operation', '', 'Key^Folder=Root.System.Operations'
exec Compile
go
create procedure OperDoc_Transact
@OID OID
as
set nocount on
declare @TransactionOID OID,
@Err int
declare Walker cursor local fast_forward for
select TransactionOID
from TOperDoc_Transactions
where OID = @OID
open Walker
fetch next from Walker into @TransactionOID
while @@fetch_status = 0
begin
exec @Err = Transaction_Execute @TransactionOID, @OID
if @Err <> 0 return 1
fetch next from Walker into @TransactionOID
end
close Walker
deallocate Walker
go
create procedure OperDoc_Transact
@OID OID,
@RegisterOID OID
as
set nocount on
declare @Date datetime,
@AgentOID OID,
@CounterOID OID,
@TranID int,
@MeasureOID OID,
@UnitOID OID,
@ThingOID OID,
@Err int,
@Quantity int,
@DebitOID OID,
@CreditOID OID,
@RowID int
select @Date = dbo.Date(Date),
@AgentOID = AgentOID,
@CounterOID = CounterOID
from VOperDoc
where OID = @OID
declare Things cursor local fast_forward for
select t.RowID, t.ThingOID, isnull(t.AgentOID, @AgentOID), isnull(t.CounterOID, @CounterOID)
from TOperDoc_Things t
where t.OID = @OID
open Things
fetch next from Things into @RowID, @ThingOID, @AgentOID, @CounterOID
while @@fetch_status = 0
begin
exec @Err = Register_AddTran @RegisterOID, @OID, @Date, @AgentOID, @CounterOID, @ThingOID, @TranID output
if @Err <> 0 return 1
declare Measures cursor local fast_forward for
select m.MeasureOID, m.UnitOID, m.Quantity
from TOperDoc_Measures m
where m.OID = @OID
and m.RowID = @RowID
open Measures
fetch next from Measures into @MeasureOID, @UnitOID, @Quantity
while @@fetch_status = 0
begin
exec @Err = Register_AddMeasure @RegisterOID, @TranID, @MeasureOID, @UnitOID, @Quantity
if @Err <> 0 return 1
fetch next from Measures into @MeasureOID, @UnitOID, @Quantity
end
close Measures
deallocate Measures
declare Accounts cursor local fast_forward for
select a.DebitOID, a.CreditOID
from TOperDoc_Accounts a
where a.OID = @OID
and a.RowID = @RowID
open Accounts
fetch next from Accounts into @DebitOID, @CreditOID
while @@fetch_status = 0
begin
exec @Err = Register_AddCorresponse @RegisterOID, @TranID, @DebitOID, @CreditOID
if @Err <> 0 return 1
fetch next from Accounts into @DebitOID, @CreditOID
end
close Accounts
deallocate Accounts
fetch next from Things into @RowID, @ThingOID, @AgentOID, @CounterOID
end
close Things
deallocate Things
go
|
