Предыдущая страница реферата | 18  19  20  21  22  23  24  25  26  27  28 | Следующая страница реферата

 cdsInOut.Active := False;

 try

  with cdsInOut.FieldDefs do

  begin

   Clear;

   // Первые две колонки - поставщик

   with AddFieldDef do

   begin

    Name := 'SenderID';

    DataType := ftInteger;

    Required := True;

   end;

   with AddFieldDef do

   begin

    Name := 'SenderName';

    DataType := ftString;

    Size := 180;

   end;

   // Теперь набор полей - получатели

   ibqInOut.First;

   while not ibqInOut.EOF do

   begin

    ReceiverFieldName :=

     FieldPrefix + ibqInOut.FieldByName('TO_ID').AsString;

    if IndexOf(ReceiverFieldName) = -1 then

     with AddFieldDef do

     begin

      Name := ReceiverFieldName;

      DataType := ftCurrency;

     end;

    ibqInOut.Next;

   end;

  end;

  // Второй проход - заполнение суммами

  cdsInOut.IndexFieldNames := 'SenderID';

  cdsInOut.CreateDataSet;

  with cdsInOut do

  begin

   ibqInOut.First;

   while not ibqInOut.EOF do

   begin

    if FindKey([ibqInOut.FieldByName('FROM_ID').AsInteger]) then

     Edit

    else

     Insert;

    ReceiverFieldName :=

     FieldPrefix + ibqInOut.FieldByName('TO_ID').asString;

    if State = dsInsert then

     FieldByName('SenderID').AsInteger :=

      ibqInOut.FieldByName('FROM_ID').AsInteger;

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





Предыдущая страница реферата | 18  19  20  21  22  23  24  25  26  27  28 | Следующая страница реферата