📄 删除.txt
字号:
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -