Refresh / Updating a form screen in Oracle D2k Forms 6i

最新推荐文章于 2025-09-10 22:21:01 发布

weixin_30716141

最新推荐文章于 2025-09-10 22:21:01 发布

阅读量84

点赞数

CC 4.0 BY-SA版权

文章标签：数据库

原文链接：http://www.cnblogs.com/quanweiru/p/6220034.html

本文介绍如何在 Oracle D2k Forms6i 中通过过程显示记录处理进度或进度条，并确保屏幕更新平滑进行。文章提供了一个示例代码，展示了如何使用同步命令来更新屏幕，并在 when-new-form-instance 触发器中设置 :system.message_level 参数以避免进程被中断。

Refresh / Updating a form screen in Oracle D2k Forms 6i

Problem

You want to show number of records processed progress or a progress bar on form through a procedure.

Solution

Declare
nTotalRec Number := 10000;
nCurrRec Number := 1;
Begin
   For i in 1..nTotalRec Loop
       :ablock.aitem := nCurrRec;
       Synchronize; -- this will update the screen
       --- do something here
       nCurrRec := nCurrRec + 1;
   End Loop;
End;

This will do the needfull. But during this process if anybody click on the form then it will not show the progress but processing will be continued. The solution of this problem is to put the below command in when-new-form-instance trigger:

:system.message_level := 5;

Now a smooth screen update will run.