Question

delphi7的ButtonClick 删除示例

我用delphi7来连接SQL2000中的一个数据库，用到的有ADOConnection1，ADOTable1，DataSource1，DBGrid1，ADOQuery1。这个是显示数据库上面的一个表，这个表上有四个数据类型，所以插入数据的按钮为
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.active:=false;
with ADOQuery1 do
begin
close;
sql.text:='select * from bus where Bid is NULL';
prepared:=true;
open;
end;
ADOQuery1.Append;
ADOQuery1.FieldByName('Bid').value:=a.text;
ADOQuery1.FieldByName('Bman').value:=StrToInt(b.text);
ADOQuery1.FieldByName('Btype').value:=c.text;
ADOQuery1.FieldByName('Bremark').value:=d.text;
ADOQuery1.Post;

ADOTable1.Active:=true;

end;
谁能教我怎么样用另一个按钮来实现一打入四个数据（a.text,b.text,c.text,d.text），一按这个按钮，便会删除这一组数据的呢，会请帮忙，谢谢

Answer 1

我建议楼主，用具有唯一性标识id来进行删除操作，不是更简单吗？不知道是不是你设计上的特殊原因。

给你两段代码

1：根据id删除
procedure TForm1.Button2Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.clear;
sql.text:='delete from bus where id='''+id+'''';
try
ExecSQL;
showmessage('删除成功！');
except
showmessage('删除失败！');
end;
end;

2:根据你说的删除

procedure TForm1.Button2Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.clear;
sql.text:='delete from bus where a='''+a.text+''' and b='''+b.text+''' and c='''+c.text+''' and d='''+d.text+'''';
try
ExecSQL;
showmessage('删除成功！');
except
showmessage('删除失败！');
end;
end;