MIDAS. Практическое применение
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: курсовая работа по менеджменту, доклад по обж
| Добавил(а) на сайт: Roman.
Предыдущая страница реферата | 19 20 21 22 23 24 25 26 27 28 29 | Следующая страница реферата
|
procedure TDMDoc.SetSenderName(Value: integer); begin with cdsTitle do begin if not (State in [dsEdit, dsInsert]) then Edit; if Value <> 0 then FieldByName('FROM_ID').AsInteger := Value else FieldByName('FROM_ID').Clear; FieldByName('FromName').AsString := DMCommon.ClientName[FieldByName('FROM_ID').AsInteger]; //и оставляем в режиме редактирования end; end; |
Поле, содержащее имя поставщика (FromName), также вычисляемое (InternalCalc). В поле FROM_ID содержится ID поставщика, а в поле FromName – его полное наименование. Аналогичная процедура заполняет поля для Получателя.
После редактирования документа изменения должны отсылаться на сервер для сохранения в базе данных:
|
function TDMDoc.ApplyDoc: boolean; var AServer: IrdmDocDisp; ErrorLog: string; begin with cdsTitle do begin if State in [dsEdit, dsInsert] then Post; if ChangeCount > 0 then ApplyUpdates(0); end; with cdsBody do begin if State in [dsEdit, dsInsert] then Post; if ChangeCount > 0 then ApplyUpdates(-1); end; AServer := IrdmDocDisp(scDoc.GetServer); ErrorLog := AServer.ApplyChanges; if ErrorLog <> '' then begin MessageDlg('Произошли следующие ошибки:'#13#10 + ErrorLog, mtError, [mbOK], 0); //обновляем cdsBody.Active := False; cdsTitle.Active := False; cdsTitle.Active := True; cdsBody.Active := True; end; Result := ErrorLog = ''; end; Рекомендуем скачать другие рефераты по теме: зимнее сочинение, шпаргалки по уголовному. Категории:Предыдущая страница реферата | 19 20 21 22 23 24 25 26 27 28 29 | Следующая страница реферата Поделитесь этой записью или добавьте в закладки |
|
Главная