with DataModule1.DataSource1.DataSet do
          begin
               if(Active=true)and(Not IsEmpty)then
                  begin
                       Filtered := False;
                       Filter := 'NAME=' + Trim(Edit1.Text);
                       Filtered := True;
                       if IsEmpty then ShowMessage('没有找到数据')
                        else
                            begin
                                 ShowMessage('找到数据');
                            end;
                  end;
          end;只能输入数字,不能输入字母,我用的是ORACLE9,字母就出错
QQ120547173