首先我们需要知道在Access中null和空字符串是不同的，因此如果处理不好该问题就会带来不少麻烦，特别是在混合查询中。

（推荐教程：access数据库学习）

解决方法如下：

var
 SQLStr:string;
begin
//
  SQLStr := 'select * from ordertb where 1>0';
  if Trim(Edit1.Text)'' then
  SQLStr := SQLStr +' and serialid like :a';
  if Trim(Edit2.Text)'' then
  SQLStr := SQLStr +' and pname like :b';
 
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(SQLStr);
    if Trim(Edit1.Text)'' then
    Parameters.ParamByName('a').Value := '%'+Trim(Edit1.Text)+'%';
    if Trim(Edit2.Text)''then
    Parameters.ParamByName('b').Value := '%'+Trim(Edit2.Text)+'%';
    Open;
  end;
end;

或者：

Web Accessibility (WCAG 2 AA))

将 WCAG 2 AA 无障碍标准应用于设计系统、UI 组件和网页——通过可运行的验证器进行对比度计算，采用设计 token 模式使颜色天生可访问，设定排版和焦点状态规则，并提供语义检查清单。适用于构建或审查 UI。

下载

begin  
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from ordertb where 1>0');
    if Trim(Edit1.Text)'' then
    SQL.Add(' and serialid like ''%'+Trim(Edit1.Text)+'%''');
    if Trim(Edit2.Text)''then
    SQL.Add(' and pname like ''%'+Trim(Edit2.Text)+'%''');
    Open;
  end;
end;

总结：

将条件为空的字段从查询语句中过滤掉。