Claw.ru | Рефераты по информатике, программированию | MIDAS. Практическое применение 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;

Хотя эта функция выглядит длинной и сложной, делается очень немного: организуется два прохода по ibqInOut, который к этому времени должен содержать результат выполнения хранимой процедуры. Предварительно создается два обязательных поля - SenderID и SenderName (ID и наименование поставщика). Во время первого прохода у cdsInOut создается список колонок (в FieldDefs) с именами вида 'Receiver_NN'. Затем создается набор данных командой CreateDataSet и организуется второй проход, в котором ячейки заполняются значениями сумм. При этом производится поиск поставщика по SenderID (с использованием индекса), если такого поставщика еще нет – добавляется запись. Затем ячейке таблицы (с соответствующим Receiver_ID) присваивается сумма, полученная из хранимой процедуры. Попутно устанавливаются визуальные свойства полей. После прохода по результату запросу выставляются визуальные свойства первых двух колонок. Наконец, функция dspInOut.GetRecords возвращает ClientDataSet (вместе со свойствами полей), содержащий готовыйй отчет. Провайдер dspInOut нужен только чтобы в пакет были включены визуальные свойства полей. Для этого используется флаг grMetadata, а данные получаются прямым вызовом метода GetRecords. После получения пакета клиентский набор данных можно благополучно закрыть, что, собственно, и делается.

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

Этот метод принимает параметры отчета, и выдает весь отчет, запакованный в OleVariant: