Delphi通过查找字符定位TADOQuery数据的位置

Posted 2021-02-13 jijm123

     通过TADOQuery的方法Locate，输入字符，查找到定位到对应的数据位置，优点快速定位，缺点是只匹配查找到的和第一个位置，无法连续定位下一个！

//定位
qrymembertype.Locate(‘Cname‘, Cname, [loCaseInsensitive]);

‘Cname‘列名
Cname 所匹配的值
loCaseInsensitive, loPartialKey] 不区分大小写，部分匹配
[loCaseInsensitive] 不区分大小写
[loPartialKey] 部分匹配
[] 完全相同

同进匹配多个属性：
if edtsearch.Text <> ‘‘ then
  begin
    if not qry1.Locate(‘Cid‘, edtsearch.Text, [loPartialKey]) then
    begin
      if not qry1.Locate(‘cname‘, edtsearch.Text, [loPartialKey]) then
      begin
        qry1.Locate(‘cago‘, edtsearch.Text, [loPartialKey]);
      end;
    end;
  end;