Цикл для обновления данных в БД

[SlimFIT]

Добрый день. В таблице есть поле "raiting" который необходимо подсчитать по нажатию кнопки. Алгоритм подсчтета прост: сначала считаем общую сумму заказов, затем сумму заказов каждого магазина в отдельности и делим на общую сумму. Для данной операции использовал цикл while.

DataModule1->ADOTable1->First();
float b=0;
DataModule1->forchart->Close();
DataModule1->forchart->SQL->Clear();
DataModule1->forchart->SQL->Text="select SUM(price) as B from Orders";
DataModule1->forchart->Open();
b=DataModule1->forchart->FieldByName("B")->AsFloat;
FormatFloat("0.00",b);
int t=0;
bool stop=false;

DataModule1->ADOQuery8->Close();
DataModule1->ADOQuery8->SQL->Clear();
DataModule1->ADOQuery8->SQL->Text="select o.id_shop from Orders o, Shop sh where sh.id_shop=o.id_shop group by o.id_shop";
DataModule1->ADOQuery8->Open();

while (!DataModule1->ADOTable1->Eof)
{
float a=0.00;
        if (DataModule1->ADOQuery8->RecordCount!=0)
        {
                if (!stop)
                {
                        t=DataModule1->ADOQuery8->FieldByName("id_shop")->AsInteger;
                        DataModule1->forchart->Close();
                        DataModule1->forchart->SQL->Clear();
                        DataModule1->forchart->SQL->Text="select SUM(price) as A from Orders where id_shop=" + IntToStr(t);
                        DataModule1->forchart->Open();
                        a=DataModule1->forchart->FieldByName("A")->AsFloat;
                        FormatFloat("0.00",a);
                }
                else {a=0.00;
                        //FormatFloat("0.00",a);
                     }
        }
        else {a=0.00; //FormatFloat("0.00",a);
              }
DataModule1->forchart->Close();
DataModule1->forchart->SQL->Clear();
DataModule1->forchart->SQL->Text="update Shop set raiting='"+FormatFloat("0.00",a/b)+"' where id_shop=" + DataModule1->ADOTable1->FieldByName("id_shop")->AsInteger;
DataModule1->forchart->ExecSQL();

DataModule1->ADOTable1->Next();
DataModule1->ADOQuery8->Next();

        if (DataModule1->ADOQuery8->Eof) stop = true;
}
DataModule1->ADOTable1->Active=false;
DataModule1->ADOTable1->Active=true;

Во время тестирования обнаружил, что считает рейтинг правильно, но значение присваивает не корректно. Поясню на примере.
У магазинов 1,2,3,4 ... рейтинг 0.5, 0.5, 0, 0 ... соответственно. Добавляю заказ для 4 магазина, жму пересчет. По логике рейтинг поменяется у всех кроме 3 (у него нет заказов). Программа считает, и рейтинг присваивает первым 3 магазинам. Получется что рейтинг, который должен быть присвоен магазину 4, по факту присваивается магазину 3.
Может цикл написан не так? Где ошибка?

[SlimFIT]

Нашел ошибки. Исправил, все работает.

DataModule1->ADOTable1->First();
float b=0;
DataModule1->forchart->Close();
DataModule1->forchart->SQL->Clear();
DataModule1->forchart->SQL->Text="select SUM(price) as B from Orders";
DataModule1->forchart->Open();
b=DataModule1->forchart->FieldByName("B")->AsFloat;
FormatFloat("0.00",b);

int t=0;
bool stop=false;

DataModule1->ADOQuery8->Close();
DataModule1->ADOQuery8->SQL->Clear();
DataModule1->ADOQuery8->SQL->Text="select o.id_shop from Orders o, Shop sh where sh.id_shop=o.id_shop group by o.id_shop";
DataModule1->ADOQuery8->Open();

while (!DataModule1->ADOTable1->Eof)
{
float a=0.00;
        if (DataModule1->ADOQuery8->RecordCount!=0)
        {
                if (!stop)
                {
                        t=DataModule1->ADOQuery8->FieldByName("id_shop")->AsInteger;
                        DataModule1->forchart->Close();
                        DataModule1->forchart->SQL->Clear();
                        DataModule1->forchart->SQL->Text="select SUM(price) as A from Orders where id_shop=" + IntToStr(t);
                        DataModule1->forchart->Open();
                        a=DataModule1->forchart->FieldByName("A")->AsFloat;
                        FormatFloat("0.00",a);
                }
                else {a=0.00;
                        FormatFloat("0.00",a);
                     }
        }
        else {a=0.00; FormatFloat("0.00",a);
              }
DataModule1->forchart->Close();
DataModule1->forchart->SQL->Clear();
DataModule1->forchart->SQL->Text="update Shop set raiting='"+FormatFloat("0.00",a/b)+"' where id_shop="+IntToStr(t);
DataModule1->forchart->ExecSQL();

DataModule1->ADOTable1->Next();
DataModule1->ADOQuery8->Next();

}
DataModule1->ADOTable1->Active=false;
DataModule1->ADOTable1->Active=true;