MIDAS. Практическое применение
Категория реферата: Рефераты по информатике, программированию
Теги реферата: курсовая работа по менеджменту, доклад по обж
Добавил(а) на сайт: Roman.
Предыдущая страница реферата | 19 20 21 22 23 24 25 26 27 28 29 | Следующая страница реферата
FieldByName('SenderName').AsString :=
ibqInOut.FieldByName('FROM_NAME').AsString;
with (FieldByName(ReceiverFieldName) as TFloatField) do
begin
asCurrency :=
ibqInOut.FieldByName('FULL_SUM').AsCurrency;
// пока свойства заголовка не установлены
if DisplayFormat = '' then
// установим их
begin
DisplayLabel :=
ibqInOut.FieldByName('TO_NAME').AsString;
DisplayWidth := 10;
Currency := False;
DisplayFormat := '# ##0.00';
end;
end;
Post;
ibqInOut.Next;
end;
// название первой колонки
with FieldByName('SenderName') do
begin
DisplayLabel := 'Поставщики';
DisplayWidth := 30;
end;
FieldByName('SenderID').Visible := false;
end;
// Пусть провайдер позаботится о формировании пакета.
ProvOptions := [grMetadata, grReset];
Result := dspInOut.GetRecords(-1,RecsOut,Byte(ProvOptions));
finally
cdsInOut.Active := False;
end;
end;