|
Читайте также: |
Пользователь может осуществлять поиск по полям 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;
Дата добавления: 2015-07-19; просмотров: 40 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Фильтрация по диапазону | | | Редактирование записей |