Редактирование данных через компоненты

Для реализации редактирования текущей записи через отдельные компоненты необходимо в форму добавить кнопки Редактировать и Сохранить изменения (рис. 2.10).

Рис. 2.10. Вид формы с кнопками для редактирования

С кнопкой Редактировать связана следующая процедура:

Var

i: integer;

begin

{Перезапись в компоненты полей текущей записи}

Edit1.text:= имя_модуля_данных.ADOTable1['Sh_gr'];

ComboBox1.Text:= имя_модуля_данных.ADOTable1 ['Facul'];

ComboBox2.Text:= имя_модуля_данных.ADOTable1 ['Spec'];

for i:=0 to ComboBox1.Items.Count-1 do

if ComboBox1.Items[i]=IntToStr(имя_модуля_данных.ADOTable1['Kurs'])

then

begin

ComboBox1.ItemIndex:=i;

break;

end;

Edit2.text:= имя_модуля_данных.ADOTable1 ['Star'];

DateTimePicker1.Date:= имя_модуля_данных.ADOTable1 ['Dat_zach'];

End;

С кнопкой Сохранить изменения связана следующая процедура:

{Перевод текущей записи в состояние редактирования с помощью метода Edit}

имя_модуля_данных.ADOTable1.Edit;

{Присвоение полям текущей записи значений компонентов}

имя_модуля_данных.ADOTable1 ['Sh_gr']:=Edit1.text;

имя_модуля_данных.ADOTable1 ['Facul']:=ComboBox1.Text;

имя_модуля_данных.ADOTable1 ['Spec']:=ComboBox2.Text;

имя_модуля_данных.ADOTable1['Kurs']:= StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);

имя_модуля_данных.ADOTable1 ['Star']:=Edit2.text;

имя_модуля_данных.ADOTable1 ['Dat_zach']:=DateTimePicker1.Date;

{Сохранение сделанных изменений в текущей записи с помощью метода Post}

имя_модуля_данных.ADOTable1.Post;

Дата добавления: 2015-05-09