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

鼠标忙
这段代码大概是用来演示鼠标的用法的。具体解释如下:

使鼠标指针为沙漏状。(以表示程序正忙)
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;啥意思

上一篇:csv解析框架Windmill的一个demo


下一篇:API访问控制设计