确认删除的方法-以后用到再修改，偶尔发现

 

procedure Txinxishow.bsSkinButton2Click(Sender: TObject);
begin
if messagebox(0,'确认要删除？','信息提示！',mb_yesno+mb_iconinformation+mb_taskmodal)=idyes then
adoquery1.Delete;
end;
procedure Txinxishow.bsSkinButton4Click(Sender: TObject);
begin

adoquery1.Close;
adoquery1.Active:=false;
adoquery1.Open;
adoquery1.Active:=true;
end;

偶尔发现的，以后用到再修改下，看下贴子，现在没有时间 完善