這段代碼大概是用來演示鼠標的用法的。具體解釋如下：
 
使鼠標指針為沙漏狀。（以表示程序正忙）
screen.Cursor:=crhourglass;
 
把（打開的）數據庫關閉。
adoQuery.close;（個人以為改成這樣更好：if adoQuery.Active then adoAuery.close;）
 
打開數據庫。
 adoquery.Open;
 
把鼠標指針恢復成缺省狀態。
 screen.Cursor:=crdefault;
 
如果在你程序中使用，建議用以下代碼：
 
screen.Cursor:=crhourglass;
 
if adoQuery.Active then 
  adoAuery.close;
 

 
try 
  adoquery.Open;
finally 
  screen.Cursor:=crdefault;
end;

DELPHI中 screen.Cursor:=crhourglass; adoQuery.close; adoquery.Open; screen.Cursor:=crdefault;啥意思