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

form13.edit4.clear;form13.edit5.clear;form13.edit6.clear;

form13.edit7.clear;

form13.edit10.clear;form13.edit11.clear;form13.edit12.clear;

form13.edit13.clear;form13.edit14.clear;form13.edit15.clear;

??????? ??? ?????

Процедура кнопки найти:

with Form5.table1 do

if (Locate('Kod_Modeli',Edit1.text,[])=true) then

begin

SpeedButton3.Enabled:=true;

Form13.Edit2.text:=Form5.table1Name_Modeli.AsString;

Form13.Edit3.text:=Form5.table1Color.AsString;

Form13.Edit4.text:=Form5.table1Predlag_Zena.AsString;

Form13.Edit5.text:=Form5.table1Kol_vo_Door.AsString;

Form13.Edit6.text:=Form5.table1Engine_Power.AsString;

Form13.Edit7.text:=Form5.table1Type_Salon.AsString;

Form13.Label11.Visible:=true;

Form13.Label12.Visible:=false;

end

else

begin

Form13.Label12.Visible:=true;

SpeedButton3.Enabled:=false;

Form13.Label11.Visible:=false;

Form13.Edit2.Clear;

Form13.Edit3.Clear;

Form13.Edit4.Clear;

Form13.Edit5.Clear;

Form13.Edit6.Clear;

Form13.Edit7.Clear;