ADO的鼠标指针问题

Question

用BDE联接数据库时，进行数据库操作（Query或存储过程），鼠标指针会显示一个小沙漏，边上还有SQL的字样，相信有写过BDE的人都知道。改用ADO后，鼠标指针就没有任何变化了，还是死板板的一个箭头在那里。有什么办法让ADO在进行数据库操作时也显示小沙漏？在线等待。

Answer 1

Cursor :=  crHourGlass;
AdoQuery.Close;
AdoQuery.SQL.Text := '...';
AdoQuery.Open;
While not AdoQuery.eof do begin
  ...
end;
AdoQuery.Close;
Cursor := crArrow;

Answer 2

ADO没办法通过设置来实现吗？必须一个一个控件写代码实现吗？

Answer 3

谢谢kiboisme(还是铁棒.....针)提供的方法，我知道怎么做了。
还有没有其它方法呢？

Answer 4

kiboisme(还是铁棒.....针)，我试了一下，不行啊。
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Cursor :=  crSQLWait;
  qry.Close;
  qry.Open;
  Form1.Cursor := crArrow;
end;
没有效果啊

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor:= crSQLWait;
  ADOQuery1.Close;
  ADOQuery1.Open;
  Screen.Cursor:= crArrow;
  showmessage('ok');
end;

Answer 6

你自己不能动态修改cursor属性吗

Answer 7

呵呵，我认为ADO的这种做法可能还是更科学一点的吧，因为在ADO查询可以自己动态设置的了，不像BDE,好象是死板了一点