Рефераты | Рефераты по информатике, программированию | MIDAS. Практическое применение
MIDAS. Практическое применениеКатегория реферата: Рефераты по информатике, программированию Теги реферата: курсовая работа по менеджменту, доклад по обж Добавил(а) на сайт: Roman. Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата ibtDoc.Active := False; FState := osInactive; end; |
Процедура DoInactiveState удаляет документ из списка редактируемых, закрывает все клиентские наборы данных, а также производит откат транзакции (если она была активна).
|
procedure TrdmDoc.DoOpen(DocID: Integer); begin if DocID = 0 then Exit; try if not RegisterDoc(DocID) then raise Exception.Create('Документ редактируется'); FDocID := DocID; // и только здесь, иначе DoInactiveState удалит документ ibdDocs.Connected := True; ibtDoc.StartTransaction; with cdsTitle do begin params.paramByName('DocID').AsInteger := FDocID; Active := True; if BOF and EOF then raise Exception.Create('Документ не найден'); end; with cdsBody do begin params.paramByName('DocID').AsInteger := FDocID; Active := True; end; Рекомендуем скачать другие рефераты по теме: зимнее сочинение, шпаргалки по уголовному. Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата Поделитесь этой записью или добавьте в закладкиКатегории: |