[AntiMag]

Короче сделал)))))) не честно там всё норм просто это дипломная программа )))))
Воот код который работает с 3бя таблицами и они связаты как и говарилось выше.....
Надеюсь кому нить поможет))))

PHP код:

procedure TForm14.tovarobshie;
var
i,a:integer;
begin
a:=0;
i:=0;
ListBox1.Clear;
ListBox2.Clear;
if Tovari12.Active=false then Tovari12.Active := true;
if ADOTable12.Active = false then ADOTable12.Active := true;
begin
  Tovari12.First;
  While not Tovari12.Eof do
    begin
    ListBox1.Items.Add((Tovari12.fieldByName('Kod_tovara').Value));
    Tovari12.Next;
    end;
  end;
////////////////////////////////////////////////////////////////////////////////
  for i:=0 to listbox1.Items.Count -1 do
  begin
  ADOTable12.First;
  While not ADOTable12.Eof do
    begin
  if (ListBox1.Items[i]=(ADOTable12.fieldByName('kod_tov').Value)) then
  a:=a+((ADOTable12.fieldByName('kol_vo').Value));
    ADOTable12.Next;
    end;
  ListBox2.Items.Add(inttostr(a));
  a:=0;
  end;
////////////////////////////////////////////////////////////////////////////////
begin
  Tovari12.First;
  i:=0;
  While not Tovari12.Eof do
    begin
      if i<=listbox1.Items.Count-1 then
      begin
        if ((ListBox1.Items[i])=(Tovari12.fieldByName('Kod_tovara').Value)) then
        begin
        Tovari12.Edit;
        Tovari12['Sum_kol_tov']:=(strtoint(ListBox2.Items[i]));
        Tovari12.post;
        Tovari12.Active:=false;
        Tovari12.Active:=true;
        i:=i+1;
        end;
       Tovari12.Next;
      end
  else
  Tovari12.Next;
  end;
end;
end;

procedure TForm14.tiptavodshie;
var
i,a:integer;
begin
a:=0;
ListBox1.Clear;
ListBox2.Clear;
if Tovari12.Active=false then Tovari12.Active := true;
if ADOTable1.Active = false then ADOTable1.Active := true;
begin
  ADOTable1.First;
  While not ADOTable1.Eof do
    begin
    ListBox1.Items.Add((ADOTable1.fieldByName('Kod_tip').Value));
    ADOTable1.Next;
    end;
  end;
////////////////////////////////////////////////////////////////////////////////
begin
  for i:=0 to listbox1.Items.Count -1 do
  begin
  Tovari12.First;
  While not Tovari12.Eof do
    begin
  if (ListBox1.Items[i]=(Tovari12.fieldByName('Kod_tip').Value)) then
  a:=a+((Tovari12.fieldByName('Sum_kol_tov').Value));
    Tovari12.Next;
    end;
  ListBox2.Items.Add(inttostr(a));
  a:=0;
  end;
end;
////////////////////////////////////////////////////////////////////////////////
begin
  ADOTable1.First;
  i:=0;
  While not ADOTable1.Eof do
    begin
      if i<=listbox1.Items.Count-1 then
      begin
        if ((ListBox1.Items[i])=(ADOTable1.fieldByName('Kod_tip').Value)) then
        begin
          ADOTable1.Edit;
          ADOTable1['Sum_kol_tip']:=(strtoint(ListBox2.Items[i]));
          ADOTable1.post;
          ADOTable1.Active:=false;
          ADOTable1.Active:=true;
          i:=i+1;
        end;
        ADOTable1.Next;
      end
  else
  ADOTable1.Next;
  end;
end;
end; 


Форма 14 она не видна не кому и используется как буферный ресурс для всяких расчётов ))))