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

StringGrid1.ColWidths[0]:=200;

Panel1.Caption:=FormatDateTime('dd.mm.yyyy',now());

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

try

Table2.Edit;

Table2.Post;

except

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

Table2.Cancel;

end;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

If RadioGroup1.ItemIndex=0 then Table1.Filtered:=false else

begin

Case RadioGroup1.ItemIndex of

1: Table1.Filter:='Klass = '+edit4.Text;

2: Table1.Filter:='Nom_kom = '+edit4.Text;

3: Table1.Filter:='Kol-vo_mest = '+edit4.Text;

4: Table1.Filter:='Stoimost = '+edit4.Text;

end;

Table1.Filtered:=true;

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Case RadioGroup4.ItemIndex of