第13章 数据库编程(19)

delphi数据库编程

end;

end;

8. 删除记录

调用数据集的Delete方法删除当前记录。例如：

ADOTable1.Delete;

注意：

为了避免误删记录，应在数据集的BeforeDelete事件过程中询问用户。例如： procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet); begin

if Application.MessageBox('是否删除此记录？', '确认',

MB_YESNO + MB_ICONQUESTION) = IDNO then

Abort; //调用全局过程Abort取消操作

end;

如果采用数据导航组件TDBNavigator删除记录，系统会自动弹出确认对话框，但该对话框显示的是英文界面。将TDBNavigator组件的ConfirmDelete属性设置为False，然后为该组件的BeforeAction事件编写代码，可以显示中文对话框。例如： procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);

begin

if Button = nbDelete then

if Application.MessageBox('是否删除此记录？', '确认',

MB_YESNO + MB_ICONQUESTION) = IDNO then

Abort; //调用全局过程Abort取消操作

end;

除了一般数据集的Delete方法以外，ADO数据集还具有DeleteRecords方法，可一次删除多条记录。调用格式如下：

ADO数据集.DeleteRecords(受影响的记录)

“受影响的记录”可取以下值：

arCurrent：仅删除当前记录。

arFiltered：删除满足当前Filter属性设置的记录。

arAll：删除所有记录。