Delphi 用TDBNavigator组件删除数据显示自定义信息.rar

Delphi 用TDBNavigator组件删除数据显示自定义信息，实现这一功能的关键代码，参考如下： 　　procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); 　　begin 　　 if button = nbdelete then 　　 if Application.MessageBox('确定要删除此行数据吗？','提示',MB_YESNO) = ID_NO then 　　 begin 　　 ADOQuery1.CancelBatch(); 　　 end 　　 else 　　 ADOQuery1.UpdateBatch(); 　　end; 　　 　　procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 Str : String; 　　begin 　　 Str := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' ExtractFilePath(Application.ExeName) 'database\db1.mdb' ';Persist Security Info=False'; 　　 ADOConnection1.ConnectionString := Str; 　　 ADOConnection1.Connected := True; 　　 ADOQuery1.Active := True; 　　end;