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

1: Table1.Locate('Klass',Edit5.Text,[]);

2: Table1.Locate('Kol-vo_mest',strtoint(Edit5.Text),[]);

end;

end;

procedure TForm1.Button18Click(Sender: TObject);

Var i:integer;

begin

Table2.First;

StringGrid1.RowCount:=2;

While not Table2.Eof do

begin

i:=StringGrid1.RowCount;

If Table2Data_vus.AsString=Edit6.Text then

begin

StringGrid1.Cells[0,i-1]:=Table2Nom_kom.AsString;

StringGrid1.RowCount:=i+1;

end;

Table2.Next;

end;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Table3.Insert;

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

try

Table3.Edit;

table3.Post;