ADOTAble中进行查询删除操作

最新推荐文章于 2011-08-03 14:24:22 发布

seagull327

最新推荐文章于 2011-08-03 14:24:22 发布

阅读量3.3k

点赞数

分类专栏：数据库文章标签： string

本文链接：https://blog.csdn.net/haiou327/article/details/6656527

版权

数据库专栏收录该内容

4 篇文章 0 订阅

订阅专栏

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;