删除数据行，是这样写吗

[海大富运动]

请问这样可以吗
procedure tform1.buttonclick(tsender:tobject)
begin
table1.deleterecord([数据行]);
end;
小子在这里先谢谢各了

[sailer_shi]

if Application.MessageBox('您确定要删除吗？','提示',MB_ICONWarning + MB_YesNo) = IDYes then
with Adoquery1 do
begin
Edit;
Delete;
end;

这样就可以了

[cocainy]

up！！！
或者：
if messagebox(Application.handle,'要删除 么？'， 'Conformation',MB_YesNo+MB_IconInformation)=IDYes then

with qury do begin
close;
sql.clear;
sql.add('delect from tableName where......')
try
execSql;
except
Messagebox(handle,'删除使出错！','Error',MB_Ok+Mb_IconError);
exit;
end;

[cow8063]

procedure tform1.buttonclick(tsender:tobject)
begin
table1.moveby(数据行);
table1.delete;
end;

[mengxiang5160]

with Adoquery1 do
begin
Edit;
Delete;
post;
end;
这样才可以的
你也可以在前面加上一个判断是否删除的语句

[guanjueweimiao]

if Application.MessageBox('你确实要删除此条记录吗？','提示',MB_ICONQUESTION + MB_OKCANCEL )=idok then
DBGridEh1.DataSource.DataSet.Delete ;

[Northwindrocker]

用最简单的建议用mengxiang5160(aaa)的！

[47522341]

比较简单点的一个完整程序是：
with adoquery1 do
begin
close;
sql.clear;
sql.text := 'select * from yourtable where fieldname = yourfield';
open;
if recordcount = 1 then
delete;
end;

[pchaos]

建议用adoquery

[rain152]

with Adoquery1 do
begin
Edit;
Delete;
updatebatch;
end;

[huojiehai]

procedure tform1.buttonclick(tsender:tobject)
begin
table1.delete;//用这一句就行了，删除当然记录
end;

[huojiehai]

//用这一句就行了，删除当前记录，你要删除哪一条用记录用鼠标移到就是了

[gwsr]

呵呵，把上面的都试试，自己就清楚了

[海大富运动]

我自己要有机子和开发环境，就不用问你们了~呵呵