Курсовая работа: База данных "Чемпионат авто"

qrymaster.Parameters.ParamByName('Stoimmast').Value:=edtstoimmast.Te

xt;

qrymaster.Parameters.ParamByName('Datemast').Value:=edtdatemast.Text;

qrymaster.Parameters.ParamByName('Boxmast').Value:=edtboxmast.Text;

qrymaster.Parameters.ParamByName('Fammast').Value:=edtfammaster.Text

;

qrymaster.ExecSQL;

ShowMessage('Добавлено!');

except

ShowMessage('Ошибка!');

end;

end;

Событие для кнопки «Удалить»:

procedure Tmasterform.btndellmastClick(Sender: TObject);

begin

dbnvgrmaster.BtnClick(nbDelete);

end;

Событиедлякнопки «Выделить»:

procedure Tmasterform.btnpastemastClick(Sender: TObject);

begin

masterform.edtidmast.Text:=dbgrdmaster.Fields[0].AsString;

masterform.edtavtomast.Text:=dbgrdmaster.Fields[1].AsString;

masterform.edtstoimmast.Text:=dbgrdmaster.Fields[2].AsString;

masterform.edtdatemast.Text:=dbgrdmaster.Fields[3].AsString;

masterform.edtboxmast.Text:=dbgrdmaster.Fields[4].AsString;

masterform.edtfammaster.Text:=dbgrdmaster.Fields[5].AsString;

end;

Событие для кнопки «Изменить»:

procedure Tmasterform.btneditmastClick(Sender: TObject);