Delphi 中SQL模糊查询和字段查询

最新推荐文章于 2023-06-07 15:54:03 发布

原创最新推荐文章于 2023-06-07 15:54:03 发布 · 842 阅读

2 ·

CC 4.0 BY-SA版权

【Delphi网格相关】专栏收录该内容

5 篇文章

订阅专栏

博客提到在Edit的change事件过程中编写特定代码。这涉及前端开发中对表单元素事件的处理，通过在该事件里写代码可实现特定功能，与信息技术领域的前端交互相关。

在Edit的change事件过程中写以下代码即可

procedure TFrmain.scGPEdit1Change(Sender: TObject);
var
  ASql, AKey: string;              //模糊查询和字段查询
const
  vsql1: string = 'select * from delphi where Title like ';
  vsql2: string = 'select * from delphi';
begin
  AKey := Trim(scGPEdit1.Text); //获取关键词
  if scGPEdit1.Text = '' then
    ASql := vsql2
  else
    ASql := vsql1 + QuotedStr('%' + AKey + '%');
  with dm.FDQuery1 do   //开始查询
  begin
    Close;
    SQL.Text := ASql;
    Open;
  end;
end;