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

form11.Edit5.clear;

form11.Edit6.clear;

form11.Edit7.clear;

Внешний вид этой формы:

Марка автомобиля и цена добавляются автоматически.

Процедура кнопки добавить:

form5.Table1.insert;

form5.Table1.edit;

form5.Table1Color.Asstring:=edit4.text;

form5.Table1Kol_vo_door.Asstring:=edit5.text;

form5.Table1Engine_power.Asstring:=edit6.text;

form5.Table1Type_Salon.Asstring:=edit7.text;

form5.table1.post;

Form5.Table1.FlushBuffers;

form11.visible:=false;

Организация формы поиска осуществляется следующим образом:

Form5.Table1.FlushBuffers;

Form5.Visible:=false;

Form24.visible:=true;

Form24.Table1.Refresh;

Form24.DBGrid3.Visible:=false;

????? ?????? ???????? ???:

Процедура кнопки “Поиск”:

procedure TForm24.Button1Click(Sender: TObject);

Label s,d;

begin

if (Form24.Edit1.text='')or (Form24.Edit2.text='') or (Form24.Edit3.text='')

then

BEGIN