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

[yulia]

Подскажите, пожалуйста, как сделать так, чтобы данные брались из одной таблицы, над ними производились математические действия, результат сравнивался с данными из другой таблицы и в зависимости от результата сравнения в третью таблицу заносились определенные данные. Спасибо.

[Killer_djon]

какие данные из каких таблиц и какие операции, точнее пожалуйста если можно...

[yulia]

У меня база данных InterBase. В одной таблице находятся числа, их надо умножить на числа из другой таблицы, сложить и сравнить с числом из другой таблицы. Потом в зависимости от результата надо чтобы данные из одной таблицы автоматически заносились в другую таблицу на нужное место.

[Killer_djon]

т.е. если я вас правильно понял, то у вас есть 4 таблицы. Взять числа с первой таблицы перемножить их на числа со второй таблицы, сложить с числами из третьей таблицы, сравнить с числами из четвертой таблицы... а дальше с чем сравнивать и куда записывать какие результаты...

[yulia]

У меня есть таблицы CHILDREN, TEACHER, MARKS, COEF. Мне надо числа из таблицы MARKS умножить на числа из таблицы KOEF и то что получилось сложить. Потом результат сравнить с числом из таблицы TEACHER и если оно больше или равно, то соответствующего преподавателя занести в таблицу CHILDREN.

[Alex21]

Используйте 4 Table, 4 DataSet, 4 DBGrid.

Для выбора номера строки в таблице используйте:
Table_CHILDREN.RecNo:= i ;
Table_MARKS.Fields[N]) - значение N столбца, i строки.
//////////////////////////////////////
Для мат. операцийнапример)
var
K:integer;
..
begin
// Для расчетов выбираем первые строки БД
Table_CHILDREN.RecNo:=1;
Table_TEACHER.RecNo:=1;
Table_MARKS.RecNo:=1;
Table_COEF.RecNo:=1;
K:=strtoint(Table_MARKS.Fields[номер поля])*strtoint(Table_KOEF.Fields[номер поля]);
// сравниваем произведение на превышение
if К>strtoint(Table_TEACHER.Fields[нгомер поля]) then
begin
// если то записываем
Table_KOEF.Fields[нгомер поля]:=inttostr(k);
end;
end;

Пример показан для первой строки!!! Для всех записей добавить цикл for i и переводить RecNo:=i во всех таблицах.

[Alex21]

Сообщение от Alex21

Для выбора номера строки в таблице используйте:
Table_CHILDREN.RecNo:= i ;
Table_MARKS.Fields[N]) - значение N столбца, i строки.

Читать: Первая и Вторая таблы с одним именем!!!
Table_CHILDREN.RecNo:= i ;
Table_CHILDREN.Fields[N])

[yulia]

Спасибо большое!!! Буду пробовать... ))))

[yulia]

K:=strtoint(Table_MARKS.Fields[номер поля])*strtoint(Table_KOEF.Fields[номер поля]);

А что делать, если оно мне в этой строчке выдает:

Incompatible types: 'String' and 'TField'

????

[Shuraken]

K:=Table_MARKS.Fields[номер поля].AsInteger*Table_KOEF.Fields[номер поля].AsInteger;

Не проверял, но должно работать, НО только в том случае, если тип поля числовой.