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);
begin
btndellmast.Click;
btnaddmast.Click;
end;
Примечание: прежде чем нажимать кнопку «Изменить» нужно сначала выделить значения в поля для редактирования и изменить необходимые значения.
Для замены в DBGrid уникальных номеров мастеров на фамилии используется следующее:
procedure Tmasterform.FormCreate(Sender: TObject);
begin
qrymaster.SQL.add('SELECT
IDмастера,РаботникиМастерской.[Фамилия] AS ФИО FROM
РаботникиМастерской ORDERBY РаботникиМастерской.Фамилия');
dbgrdmaster.Columns[5].PickList.Add('ФИО');
end;
Результат работы базы данных «Чемпионат авто»
Мы реализовали базу данных всех чемпионатов отдельного города. В базе данных храниться полный перечень всех проводимых чемпионатов. Также в базе данных «Чемпионат авто» ведется учет о сотрудниках мастерской, гонщиках и автомобилях. Существует возможность редактирования содержащейся информации. К данным возможностям относятся добавление, удаление и изменение записей.
Кроме того, посредством простого интерфейса база данных всегда может предоставить любую интересующую информацию, вплоть до даты окончания ремонта автомобиля в мастерской. Также в базе хранятся и легко редактируются данные о спонсорах, местах проведения заездов и соответственно результаты всех участников.
База данных «Чемпионат авто» полностью закончена и работоспособна