Практическая работа. Пользователь может осуществлять поиск по полям Tovar (Название товара) и Cena (Цена товара), которые выбираются в компонентах CheckBox.

Пользователь может осуществлять поиск по полям Tovar (Название товара) и Cena (Цена товара), которые выбираются в компонентах CheckBox.

procedure TForm1.BitBtn1Click(Sender: TObject);

var keyfields:string; keyvalues:variant; options:tlocateoptions;

Begin

if not(checkbox1.Checked or checkbox2.Checked) then

Begin

messagedlg('не заданы условия поиска',mtinformation,[mbok],0);

exit;

end;

if checkbox1.Checked and checkbox2.Checked then

Begin

keyfields:='tovar;cena';

keyvalues:=vararrayof([edit1.Text,edit2.Text]);

End

Else

Begin

if checkbox1.Checked then

Begin

keyfields:='tovar';

keyvalues:=edit1.Text;

end;

if checkbox2.Checked then

Begin

keyfields:='cena';

keyvalues:=edit2.Text;

end;

end;

options:=[locaseinsensitive,lopartialkey];

table1.Locate(keyfields,keyvalues,options);

if not table1.Locate(keyfields,keyvalues,options) then

begin

Beep;

messagedlg('Запись не найдена!',mtinformation,[mbok],0);

exit;

end;

end;