Delphi 从ListView组件中的选定行在数据库中删除

本文整理自网络，侵删。

 
var
  FDQ: TFDQuery;
begin
  FDQ := TFDQuery.Create(Nil);
  ListViewHavuz.BeginUpdate;
  try
    if ListViewHavuz.Selected = Nil then // www.delphitop.com
      Exit;
    for I := Pred(ListViewHavuz.ItemCount) downto 0 do
    begin
      if ListViewHavuz.Items[I].Data['Select'].AsInteger = 2 then
      begin
        FDQ.Connection := FDConnection;
        FDQ.Active := False;
        FDQ.Close;
        FDQ.SQL.Clear;
        FDQ.SQL.Add('Delete From HAVUZ Where ID=:ID');
        FDQ.ParamByName('ID').AsInteger := ListViewHavuz.Items[I].Data['Id'].AsInteger;
        FDQ.ExecSQL;
        ListViewHavuz.Items.Delete(ListViewHavuz.Items[I].Index);
      end;
    end;
  finally
    ListViewHavuz.EndUpdate;
    FDQ.Free;
  end;
end;
 

相关阅读 >>

Delphi 动态修改exe文件的图标

windows 消息

Delphi createdir 建立文件夹路径

Delphi常用日期函数

Delphi编程用流来读取txt文件中的数据

Delphi xe7写的一个http post的小测试程序

Delphi mscomm控件串口收发程序

Delphi 取到系统临时文件夹路径

Delphi字符串、数组操作函数

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 从ListView组件中的选定行在数据库中删除