ADOTAble中进行查询删除操作

 

procedure TForm1.Button1Click(Sender: TObject);   
var   
  newstring:string;   
begin   
  inputQuery('输入查询条件','姓名为',newstring);   
  ADOTable1.Locate('Sname',newstring,[loCaseInsensitive]) //精确查询   
end;   
  
procedure TForm1.Button2Click(Sender: TObject);   
var   
  newstring:string;   
begin   
  inputQuery('输入查询条件','姓名为',newstring);   
  ADOTable1.Locate('Sname',newstring,[loPartialKey]) //模糊查询   
end;   
  
procedure TForm1.Button3Click(Sender: TObject);   
var   
 newstring:string;   
begin   
  inputQuery('输入查询条件','姓名为',newstring);   
  ADOTable1.Filter:='Sname='+''''+newstring+'''';   
  ADOTable1.Filtered:=true;   
end;   
  
procedure TForm1.Button4Click(Sender: TObject);   
var   
  newstring:string;   
begin   
  inputQuery('输入查询条件','姓名为',newstring);   
  ADOTable1.Filter:='Sname like ' + ''''+'%'+newstring+'%'+'''';   
  ADOTable1.Filtered:=true;   
end;   
  
procedure TForm1.Button5Click(Sender: TObject);   
begin   
  ADOTable1.DisableControls;   
  if  messageDlg('确实要删除这条记录吗？',mtinformation,[mbok,mbcancel],0)=mrOk   then   
   ADOTable1.Delete;   
   ADOTable1.EnableControls;   
end;