Операции над данными

[yulia]

Работает, спасибо )))

[yulia]

begin
k:=0;
DShkola.Children.RecNo:=1;
for j:=1 to 6 do begin
DShkola.Teacher.RecNo:=j;
for i:=3 to 6 do begin
k:=k+(DShkola.Children.Fields[i+2].AsInteger*DShkola.teacher.Fields[i].AsInteger);
if (k>=DShkola.Teacher.Fields[7].AsInteger) then begin
DShkola.Children.Append;
DShkola.Children.Fields[9]:=DShkola.Teacher.Fields[0];
exit;
end;

вот какая процедура у меня в итоге получилась. Она работает, но записывает, то что мне надо в таблицу CHILDREN, добавляя новую строку. А как сделать, чтобы записывалось в туже строку из которой брались данные для подсчета, т.е. вот в эту DShkola.Children.RecNo:=1;

[Alex21]

Table1.RecNo:= //Перевести указатель
Table1.Delete;//Стереть строку
Table1.InsertRecord([Form2.edit1.Text,Form2.Edit2.Text.. .Все поля через ЗПТ]);//Вставить новую

P.S.:Должен быть способ и попроще.

[yulia]

begin
k:=0;
DShkola.Children.RecNo:=1;
for j:=1 to 6 do begin
DShkola.Teacher.RecNo:=j;
for i:=3 to 6 do begin
k:=k+(DShkola.Children.Fields[i+2].AsInteger*DShkola.teacher.Fields[i].AsInteger);
if (k>=DShkola.Teacher.Fields[7].AsInteger) then begin
DShkola.Children.Append;
DShkola.Children.Fields[9]:=DShkola.Teacher.Fields[0];
exit;
end;


Если в этой процедуре заменить строчку DShkola.Children.Append;
на строчку DShkola.Children.Edit , тогда оно у меня строку не добавляет, но записывает результат в выделенную строку, а как сделать чтобы оно записывало во все строки подряд, т.е начинало и с первой и автоматически после каждой записи переводило курсор?

[Alex21]

Чем неподходит то-что выше?

После Edit надо вобще-то ApplyRange;

[Alex21]

Странный у Вас алгоритм!
Append - добавляет запись в конец(!)

DShkola.Children.RecNo:=i; // переход на нужную строку
DShkola.Teacher.RecNo:=j; // переход на нужную строку
DShkola.Children.Delete; // удаляем эту строку со старыми записями
DShkola.Children.InsertRecord([DShkola.Teacher.Fields[0].text,DShkola.Teacher.Fields[1].text,DShkola.Teacher.Fields[2].text.......]); // вставляем новую

Не проверял, но в [ ] должен быть тип String

[yulia]

То что віше не подходит, т.к. у меня неоткуда потом заново данніе в єту строку записывать. Это надо ставить дополнительные компоненты и бросать все туда-сюда. Я потом это пробую, если больше ничего не придумаю )))

А что делает ApplyRange?

[yulia]

В том-то и дело, что мне не надо всю строку менять, а просто дописать значение в одно поле.

А алгоритм у меня странный, потому что я абсолютно ничего в этом не смыслю и с БД первый раз пришлось дело иметь. )))))

[yulia]

Я уже тут такого намутила и такими способами, что кошмар!!! Оно уже почти делает то что надо, ну конечно не до конца еще....

[yulia]

begin
for s:=1 to DShkola.Children.RecordCount do begin
DShkola.Teacher.RecNo:=1;
DShkola.Children.RecNo:=1;
k:=0;
for j:=1 to 6 do begin
k:=0;
for i:=3 to 6 do
k:=k+(DShkola.Children.Fields[i+2].AsInteger*DShkola.teacher.Fields[i].AsInteger);
//ShowMessage(inttostr(k));
if (k>=DShkola.Teacher.Fields[7].AsInteger) then begin
DShkola.Children.Edit;
DShkola.Children.Fields[9]:=DShkola.Teacher.Fields[0]; end else
DShkola.Teacher.Next;
end;
DShkola.Children.Next;
DShkola.Teacher.RecNo:=1;
end;

теперь оно у меня вот так выглядит