Курсовая работа: Автоматизация работы фирмы по продаже автомобилей

goto s;

END;

with Form24.table1 do

begin

locate('Name_Modeli',edit1.text,[]);

locate('Predlag_Zena',edit2.text,[]);

locate('Color',edit3.text,[]);

if (locate('Name_Modeli',edit1.text,[])=false) and

(locate('Predlag_Zena',edit2.text,[])=false) and

(locate('Color',edit3.text,[])=false)

then

begin

Showmessage('Такого автомобиля нет!');

Form24.Edit1.clear;

Form24.table1.first;

s: Form24.DBGrid3.Visible:=false;

end

else

d: Form24.DBGrid3.Visible:=True;

end;

Form24.Table1.Refresh;

Form24.Query1.active:=true;

end;

Пример поиска автомобиля:

Такой автомобиль программа не нашла, но после поиска было задано условие, найти по цвету. Также можно задать еще два других условия, или все сразу, поставив галочку в соответствующем окошке.

Следующий компонент меню – это поиск и замена данных об автомобиле.

Организация формы поиска:

form13.visible:=true;