Курсовая работа: Разработка интерактивной системы обработки базы данных ведомости работы расчетно-кассового узла универсама

cmdDel.Click;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

cmdChart.Click;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

cmdReport.Click;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

cmdFind.Click;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Application.HelpFile := 'kp.hlp';

Application.HelpCommand(HELP_CONTENTS, 0);

end;

//Выводподсказкивстрокусостояния

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnHint := DisplayHint;

end;

//Выходизпрограммы

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if Application.MessageBox('Выуверены?',

'Подтверждениевыхода',mb_yesno+mb_iconquestion)=idyes then CanClose:=True