Удаление записи
Удаление текущей записи в наборе данных реализуется методом Delete,
производиться: программно или автоматически, если это предусмотрено в том или ином компоненте. Так, в компоненте TDBGrid нажатие комбинации клавиш Ctrl + Del влечет за собой удаление записи, которое, в соответствии с опциями настройки TDBGrid, может выполняться как с запросом подтверждения, так и без него.
Пример: Осуществить работу в базе данных с помощью методов навигации и изменения (рисунок 58).
1. Разместить на форме компоненты: Table1, DBGrid1, DataSourse и подключить базу данных, а так же 9 компонент TButton (для навигации и изменения записей БД).
2. Для кнопок определить события OnClick:
// кнопка «На первую запись»
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.First;
end;
// кнопка «На последнюю запись»
procedure TForm1.Button5Click(Sender: TObject);
begin
Table1.Last;
end;
// кнопка «Редактирование»
procedure TForm1.Button3Click(Sender: TObject);
var a: byte;
begin
a:=MessageDlg('Редактировать данную запись',mtWarning,[mbYes,mbNo],0);
if a=1 then
Table1.Edit;
end;
// кнопка «Добавление записи»
procedure TForm1.Button8Click(Sender: TObject);
begin
Table1.Insert;
end;
// кнопка «Удаление записи»
procedure TForm1.Button9Click(Sender: TObject);
begin
Table1.Delete;
ShowMessage('Запись удалена !!');
end;
// кнопка «Отмена»
procedure TForm1.Button4Click(Sender: TObject);
var a: byte;
begin
a:=MessageDlg('Отменить действия',mtWarning,[mbYes,mbNo],0);
if a=1 then
Table1.Cancel
end;
// кнопка «Сохранить»
procedure TForm1.Button7Click(Sender: TObject);
var a: byte;
begin
a:=MessageDlg('Сохранить данные записи',mtWarning,[mbYes,mbNo],0);
if a=1 then
Table1.Post;
end;
// кнопка «На следующую запись»
procedure TForm1.Button2Click(Sender: TObject);
begin
if Table1.Eof then
ShowMessage('Конец базы данных')
else
Table1.Next;
end;
// кнопка «На предыдущую запись»
procedure TForm1.Button6Click(Sender: TObject);
begin
if Table1.bof then
ShowMessage('Начало базы данных')
else
Table1.Prior;
end;
Рис. 58 – Пример использования методов компоненты TTable