16,747
社区成员




//模糊查询 “like”
procedure Tmenumanage.Edit1Change(Sender: TObject);
var
zjm:string;
begin
zjm:=Edit1.Text;
adoq_dblist.SQL.Clear;
adoq_dblist.SQL.Add('select * from Menu where comments like ''%'+zjm+'%''');
adoq_dblist.Open;
end;