delphi 模糊查询和字段查询

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;

来源 https://www.cnblogs.com/windson/p/12639462.html

推荐分享