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 post数据与对应的接收方式

Delphi 字符串查找替换函数

dll 使用 pchar 参数的小例子

Delphi xe android 使用system.zip单元释放资源文件

Delphi 的运算符重载

Delphi 实现检测线程类tthread是否结束

Delphi 字符串中提取字母数字

Delphi http json 验证token

Delphi case选择语句练习代码简化

Delphi http协议验证访问datasnap rest 服务器

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...