Claw.ru | Рефераты по информатике, программированию | MIDAS. Практическое применение MIDAS. Практическое применение | Категория реферата: Рефераты по информатике, программированию | Теги реферата: курсовая работа по менеджменту, доклад по обж | Добавил(а) на сайт: Roman. Предыдущая страница реферата | 19  20  21  22  23  24  25  26  27  28  29 | Следующая страница реферата begin  with cdsDocList do  begin   Delete;   ApplyUpdates(0);  end; end; function TDMDoc.ProcessDoc(DocID: Integer; NewDoc: Boolean): boolean; var  AServer: IrdmDocDisp; begin  AServer := IrdmDocDisp(scDoc.GetServer); // scDoc: TSocketConnection  if NewDoc then   AServer.CreateNewDoc  else   AServer.DocID := DocID;  try   cdsTitle.Active := True;   cdsBody.Active := True;   RecalcDocSum;   Result := ShowEditForm;   cdsTitle.Active := false;   cdsBody.Active := false;  finally   AServer.DocID := 0; // Отмена регистрации документа  end; end;

Как уже говорилось, если DocID становится равным 0, сервер закрывает документ.

Сумма документа запрашивается с сервера:

Поле Summa в клиентском наборе данных – вычисляемое, при этом его тип (свойство FieldKind) установлен в fkInternalCalc, что позволяет работать с этим полем, как с обычным полем данных, используя методы Edit и Post. Значение для него создается не в обработчике OnCalcFields, как требуется для типа fkCalculated, а непосредственно при редактировании записи. Хотя такой способ хорошим не назовешь, руководство VCL рекомендует использовать OnCalcFields, принципиальных различий нет, internalCalc-поля вычисляются только при вызове Post, однократно. Второй способ создания поля - сделать calculated Fields на сервере, и установить у них ProviderFlags = []; в этом случае поля на клиенте будут иметь тип fkData (данные записи), и с ними также можно работать, как с обычными полями данных.

Для показа значения поля "Поставщик" удобно воспользоваться процедурой из модуля DMCommon: