Курсовая работа: Разработка информационной системы Отель

Edit1.Text:=inttostr(cen*Table4Srok_proj.AsInteger);

Table2.Locate('K_post',Table3K_post.AsInteger,[]);

Table6.First;

While not Table6.Eof do

begin

If Table6Nom_kom.AsString=Table2Nom_kom.asstring then

begin

Table5.Locate('K_ysl',Table6K_ysl.AsInteger,[]);

cen:=Table5Cena.AsInteger;

st:=st+cen;

end;

Table6.Next;

end;

Edit2.Text:=inttostr(st);

Edit3.Text:=inttostr(strtoint(edit1.Text)+st);

Table6.First;

While not Table6.Eof do

begin