Секретные материалы

Claw.ru | Рефераты по информатике, программированию | MIDAS. Практическое применение

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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: курсовая работа по менеджменту, доклад по обж
| Добавил(а) на сайт: Roman.

Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата

end;

with cdsBody do

begin

params.paramByName('DocID').AsInteger := FDocID;

Active := True;

end;

ibtDoc.Commit;

FState := osInsert;

except

DoInactiveState;

raise;

end;

Процедура DoCreateNew предназначена для создания нового документа. Она практически аналогична предыдущей, за исключением того, что идентификатор документа получается от сервера БД с помощью процедуры NewID, которая обращается к хранимой процедуре на сервере. Реализация процедуры DoCreateNew очень похожа на аналогичную реализацию в rdmCommon.

Для того, чтобы вставка новой записи в документ происходила верно, достаточно написать обработчик cdsTitle.OnNewRecord, задающий начальное значение полей записи, и практически такой же обработчик для cdsBody:

procedure TrdmDoc.cdsTitleNewRecord(DataSet: TDataSet);

var

Day, Month, Year: Word;

begin

DecodeDate(Date, Year, Month, Day);

with cdsTitle do

begin

FieldByName('DOC_ID').AsInteger := FDocID;

FieldByName('DOC_NUM').AsString := IntToStr(FDocID)

+ '/' + IntToStr(Year);

Рекомендуем скачать другие рефераты по теме: зимнее сочинение, шпаргалки по уголовному.

Claw.ru | Рефераты по информатике, программированию | MIDAS. Практическое применение

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

Категории:

Поделитесь этой записью или добавьте в закладки

Рефераты от А до Я

Полезные заметки