请教一个简单问题！！！但小弟我弄了很久没有成功。

Question

就是做一个查询，点击BitBtn1就能在DBtext和DBmemo中显示满足条件的一条数据库记录，当点击窗口中第一条，上一条，下一条，最后一条等按钮时也能指定指针显示记录，并且点击上一条和下一条时是以当前查询结果记录为基准上移和下移的，
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
 Content : string;
begin
Content:='Select * from winapi where 函数名='''+edit1.Text+'''';
AdoQuery1.Active:=True;
ADOquery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(Content);
ADOQuery1.Prepared;
AdoQuery1.open;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.First;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
ADoQuery1.Prior;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
ADOQuery1.Next;
end;procedure TForm1.Button5Click(Sender: TObject);
begin
ADOQuery1.Last;
end;end.上诉运行以后就只能执行其中一个，要么能用Button1Click查询，要么能用
Button2，3，4，5查询。
我知道是数据集没有设置好，但我不知道怎么设成都能用，我在FROM1.create中设置Active:=true就要提示我出错？？？
我该怎么设置？？？？

Answer 1

Content:='Select * from winapi where 函数名='''+edit1.Text+'''';
////////AdoQuery1.Active:=True;      //把这句话去掉
ADOquery1.Close;
ADOQuery1.SQL.Clear;

Answer 2

在写select语句的时候加上具体的列名，最好不要用*，然后DBtext和DBmemo的数据源设置成adoquery1，然后指定相应的列名就OK了

Answer 3

不行呀~~~还是有问题！！！你仔细想：
当点击执行Button1以后ADOQuery1的SQL查询语句就变成了Select * from winapi where 函数名='''+edit1.Text+'''；就不能执行了~~~~~~~~

Answer 4

DBtext和DBmemo的数据源无法设置成adoquery1，提示我：invalid property value!!!!

Answer 5

数据源是设置的datasource的 怎么可以是adoquery呢再加上一个datasource就可以了
既然你说Button2，3，4，5查询可以单独的先执行的 也就是说你的adoquery中是有语句的
那么你是不是可以这样的呢？
begin
if adoquery1.active then
ADOQuery1.Last;(或者其他的事件)
else 
begin
adoquer1.active:=true;
ADOQuery1.Last;(或者其他的事件)
end;
end;

Answer 6

当然了，数据源只能是DataSource.你可以设置成TADOQuery.DataSource.

Answer 7

还是不行~~~当执行Button1以后就不能执行Button2,3,4,5了！！！

Answer 8

我认为这个程序的逻辑就是应该button1点完了之后才可以点button2等。否则没有数据怎么下一条？
你首先要确定你得sql有没有搜出数据。

Answer 9

加一个判定试试if not(AdoQuery1.IsEmpty) then
beign
....
end;

Answer 10

明白！
解决这个问题是不是可以不用ADOQuery.用ADOTable可以实现上述查询吗？？？就是让table中的指针移动是不是简单多了？？

Answer 11

大富翁的人帮我解决了~~~不过我还想问一个问题！：
ADoTable可不可以实现上述查询功能？？？很笨的问题！！！