MIDAS. Практическое применение
Категория реферата: Рефераты по информатике, программированию
Теги реферата: курсовая работа по менеджменту, доклад по обж
Добавил(а) на сайт: Roman.
Предыдущая страница реферата | 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 | Следующая страница реферата