delphi怎样实现access数据库中表中字段所含任意一个字符的查询

Question

比如sxgl.mdb(学生管理）数据库中有studen表，表中有xm（姓名）字段，怎样做到在查询框中输入改名中的任意一个字，即显示出所有姓名中包含该字的所有记录。如：输入“剑”马上显示名字中含有剑字的所有记录，接着输入“锋”，就显示所有名字为“剑锋”的所有记录。

Answer 1

SQLStr := 'select * from studen where xm like ''%剑%''';

Answer 2

SQLStr := 'select * from studen where xm like ''%剑%''';
if SQLStr.count >0 then
FOR I := 0 to SQLStr.count -1 do
  memo1.line.asdd(AQLStr.fieldbyname('xm').asstring);

Answer 3

在edit1控件的onchange事件里面
写如下代码String  Str := 'select * from studen where xm like  %'+Edit1.Text+'% ';
query.sql.sqlStr= Str;
query.open;
memo1.clear;
FOR I := 0 to query.count -1 do 
  memo1.line.asdd(query.fieldbyname('xm').asstring);