怎么样可以实现诸如:“正在查询。。。。”这样效果,提示用户系统正在检测数据?(50分)

  • 主题发起人 主题发起人 dgboy
  • 开始时间 开始时间
D

dgboy

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么样可以实现诸如:“正在查询。。。。”这样效果,提示用户系统正在检测数据?
 
statusbar1.simpletext := '正在查询。。。。';
screen.cursor := crHourGlass;
adoquery1....
adoquery1.open;
screen.cursor := crDefault;
statusbar1.simpletext := '';

这样应该可以了,状态栏信息也改了,鼠标光标也改了
 
SQL语句准备好后,显示你要显示的信息,然后等SQL执行完后显示SQL结果。应该可以了吧?
 
用个FormStyle:=fsStayOnTop的Form显示,在每次查询之前,先把它Show出来,查完后再
Close/Hide掉就可以了。
 
让我试一下,
 
用label显示就可以
查询开始label可见,form的enable为false,结束后label不可见,form的enable为true
 
放个进度条吧,我就是放个进度条
 
不过进度条怎么显示信息
 
后退
顶部