DELPHI中 screen.Cursor:=crhourglass; adoQuery.close; adoquery.Open; screen.Cursor:=crdefault;啥意思(示例代码

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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;啥意思(示例代码的主要内容,如果未能解决你的问题,请参考以下文章

RichEdit 2.0 使用单个 CR 字符作为换行符会引发 SelStart 计算(Delphi XE2)

如何在 Windows 中隐藏光标? (德尔福)

Delphi控件继承类

delphi常用函数大全(转)

Delphi 各版本新特性功能网址收集

Delphi-idHttp-Post JSON用法 good