access删除空字段记录

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

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