delphi中图书删除功能添加

Question

    为什么我在图书信息管理界面内添加删除功能时，运行后的确能删除，可是删除的时候只能从最先录入的那本书（按照图书编号001、002……）开始删除，不能对选定的图书进行删除？
    代码如下：
procedure TbookInfoForm.SpeedButton5Click(Sender: TObject);
begin
  if recordmemory <> '' then
  if myshowmessage('您确定要删除本书的信息吗？') then
  begin
    with data.PublicQuery do
    begin
      close;
      sql.Clear;
      sql.Add('delete from bookinfo where bookid=:bookid');
      parameters.ParamByName('bookid').Value:=recordmemory;
      execsql;
    end;
    formshow(self);
  end;
end;

Answer 1

代码没问题啊，你的SQL语句在数据库里可以试一下

Answer 2

recordmemory没有获取到你的ID编号，你可以输出recordmemory看看！

Answer 3

   偶是delphi菜鸟，能不能说得详细点呢？   怎么输出recordmemory呢？

Answer 4

    
       高手赐招  recordmemory应该怎么赋值？

Answer 5

你的全部数据在哪显示的？如果是数据感应的DBGrid话选中之后，
可以直接.
recordmemory：=adoquery1.FieldByName('bookid').asstring;