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

MessageDlg(‘Введенынекорректныеданные', mtError,[mbOK],0);

table3.Cancel;

end;

end;

procedure TForm1.Button20Click(Sender: TObject);

Var cen,st:integer;

begin

st:=0;

Table4.Insert;

Table4K_post.AsString:=Table3K_post.AsString;

Table4Fam.AsString:=Table3Fam.AsString;

Table4Im.AsString:=Table3Im.AsString;

Table4Otch.AsString:=Table3Otch.AsString;

Table4Nom_ydost.AsString:=Table3Nom_ydost.AsString;

Table2.First;

While not Table2.Eof do

begin

If Table2K_post.AsString=Table3K_post.AsString then

Table4Nom_kom.AsString:=Table2Nom_kom.AsString;

table2.Next;

end;

Table4Srok_proj.AsString:=edit8.Text;

Table4.Post;

Table1.First;

While not table1.Eof do

begin

If Table1Nom_kom.AsString=Table4Nom_kom.AsString then

cen:=Table1Stoimost.AsInteger;

Table1.Next;