这段代码什么意思啊?

这段代码什么意思啊? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061217214802252.html
procedure   TForm3.RadioButton3Click(Sender:   TObject);  
  begin  
  ADOTable1.refresh;  
  with   ADOTable1   do  
  try  
      disablecontrols;  
      filtered:=false;  
      memo1.Text:=memo1.Text+''''+edit1.Text+'''';  
      filter:=memo1.text;  
      filtered:=true;  
  finally  
      enablecontrols;  
  if   ADOTable1.recordcount=0   then   begin  
  messagebeep(1);  
  showmessage('没有符合的,请确认条件或放弃查询!');  
  if   messageDlg('是否继续查询？只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno   then   begin  
      filtered:=false;  
  ADOTable1.close;  
    ADOTable1.open;  
  end;  
  end   else   begin  
    if   messageDlg('是否继续查询？,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno   then   begin  
      filtered:=false;  
  ADOTable1.close;  
  ADOTable1.open;  
  end;  
  end;  
  end  
   
  是个查询按扭的操作,用ADO连接的ACESS数据库.可是能不能具体的说一下每句的意思啊.挺多看不懂的..  
  谢谢..

这个就是通过选择条件让ADOTable用过滤器来查找数据的

filter:=''是过滤条件  
  filtered是过滤的方法，用法类似locate

谢谢..

转载于:https://www.cnblogs.com/delphi2007/archive/2009/05/12/1454941.html