这段代码什么意思啊?

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

谢谢..

--------------------------
新闻：微软触控平台Surface SP1发布
网站导航: 博客园首页  新闻  .NET频道  社区  博问  闪存  找找看