删除.txt

来自「同学通讯录」· 文本 代码 · 共 18 行

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('确认要删除吗？',mtconfirmation,[mbyes,mbno],0,200,200)=mryes  then
 begin
rs.Delete  ;
edit26.Text :='';
edit26.SetFocus ;
   end;
   end;
end;