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

Form4.ShowModal;

end;

//Кнопка "Поисктовара"

procedure TForm1.cmdFindClick(Sender: TObject);

var s:String;

f:Boolean;

begin

if InputQuery('Найти','', s) then

begin

f:=tTable1.Locate('Nazvanie',s,[loPartialKey,loCaseInsensitive]);

if f=False then Application.MessageBox('Значениененайдено',

'Результат поиска',MB_ICONWARNING+MB_OK);

end

else tTable1.Cancel;

end;

//Кнопка "Отчет"

procedure TForm1.cmdReportClick(Sender: TObject);

var bm: TBookmark;

begin

bm:=tTable1.GetBookmark;

Form5.QuickRep1.Preview;

tTable1.GotoBookmark(bm);

end;

//Работасменю

procedure TForm1.N6Click(Sender: TObject);

begin

cmdNew.Click;

end;

procedure TForm1.N7Click(Sender: TObject);