Информатика / Реферат: MIDAS. Практическое применение

Реферат: MIDAS. Практическое применение

procedure DoOpen(DocID: integer);

Рассмотрим их по порядку.

procedure TrdmDoc.DoInactiveState;

begin

UnregisterDoc(FDocID);

FDocID := 0;

cdsTitle.Active := False;

cdsBody.Active := False;

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

К-во Просмотров: 837

Бесплатно скачать Реферат: MIDAS. Практическое применение

>>> Скачать <<<