if edit26.Text='' then
begin
application.MessageBox('請輸入你要刪除的姓名！','信息',48);
edit26.SetFocus ;
end
else
begin
rs.Close ;
rs.commandtext:='select * from infor where 姓名='+chr(39)+edit26.Text +chr(39);
rs.Open ;
 if   Messagedlgpos('確認(rèn)要刪除嗎？',mtconfirmation,[mbyes,mbno],0,200,200)=mryes  then
 begin
rs.Delete  ;
edit26.Text :='';
edit26.SetFocus ;
   end;
   end;
end;