[求助]treeview操作删除数据库记录的问题请教
数据库中的记录通过treeview进行显示，在treeview中选择一条记录，然后点击删除按钮，希望的效果是treeview和数据库中的数据同时删除。下面的代码为什么不能实现这个功能呢？请各位前辈给予指点一下，谢谢！！procedure Tyhglform.BitBtn2Click(Sender: TObject);
var
rt:integer;
tmpQuery:TQuery;
selected:string;
begin
selected:=treeview1.Items.Item[treeview1.selected.absoluteindex].Text;
if (selected=username) then
begin
Application.MessageBox('不能删除当前系统用户！','系统提醒',mb_ok);
exit;
end
else
begin
rt:=Messagedlg('你确定要删除用户'+selected+'?',mtwarning,[mbyes,mbno],0);
if rt=mrno then
exit
else
begin
tmpQuery:=TQuery.Create(self);
tmpquery.DatabaseName:='xxgl';
tmpQuery.SQL.Clear;
tmpQuery.SQL.Add('delete * from operator');
tmpQuery.SQL.Add('where name='''+TLabel(TreeView1.Selected.data).Caption+'''');
tmpQuery.ExecSQL;
TreeView1.Selected.Delete;
tmpQuery.Free;
end;
end;
end;
