这段代码大概是用来演示鼠标的用法的。具体解释如下： 使为沙漏状。（以表示程序正忙） 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;