ivmregV
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, такой вопрос:
Юзаю Quantum TreeList v4 под Delphi7
Что есть:
1. Oracle БД с ридонли вьюхами и встроенными процедурами для изменения данных в БД.
Тобишь напрямую с таблицами я работать не могу.
2. MDI приложение, в дочернем окне которого есть элемент cxDBTreeList1 (в data-aware mode), привязанный к DataSource, который в свою очередь привязан к OracleDataSet (DOA)
Что нужно:
Организовать драг-н-дроп так, что бы в эвенте OnDragDrop компонента cxDBTreeList1 я мог самостоятельно обрабатывать "последствия" драг-н-дропа, т.е. вызывать процедуру Oracle с необходимыми параметрами, обновлять дата сет и компонент.
Сейчас же после моих изменений компонент сам пытается что-то там записать в базу, из-за чего вылетает ошибка.
В общем, нужно что бы он не дергался после драг-н-дропа, ничего не менял в своих структурах, а я потом бы просто рефрешил датасет и сам компонент.
Вот код на драг-н-дроп:
Код:
procedure TMDIChild.cxDBTreeList1DragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
with MoveNode do
try
SetVariable('NID_NODE',TcxDBTreeList(Source).FocusedNode.Values[0]);
SetVariable('NID_NODE_MARKER',TcxDBTreeList(Sender).HitTest.HitNode.Values[0]);
SetVariable('NM_MODE',1);
Execute;
RefreshTree;
if not (Source = Sender) then
TMDIChild(TcxDBTreeList(Source).Parent.Parent).RefreshTree;
except
end;
end;
procedure TMDIChild.RefreshTree;
begin
DSE.Refresh;
cxDBTreeList1.Refresh;
end;
|
|
Всего записей: 21 | Зарегистр. 08-06-2007 | Отправлено: 00:53 19-01-2008 | Исправлено: ivmregV, 00:55 19-01-2008 |
|
