Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Доступ к полям | Практическая работа | Практическая работа | Редактор полей | Практическая работа №7 | Глава III. Индексирование баз данных | Практическая работа | Фильтрация по выражению | Практическая работа | Практическая работа |


Читайте также:
  1. I I. Практическая часть - задача
  2. I. Работа над диссертацией
  3. I. Работа со справочной литературой.
  4. I. Учебная работа
  5. II ПРАКТИЧЕСКАЯ ЧАСТЬ
  6. II. Научно-исследовательская работа и практика
  7. III. Работа с претензиями клиентов

Пользователь может осуществлять поиск по полям 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 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Фильтрация по диапазону| Редактирование записей

mybiblioteka.su - 2015-2024 год. (0.005 сек.)