PB做大屏显示滚动窗口

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了PB做大屏显示滚动窗口 相关的知识,希望对你有一定的参考价值。

前段时间接到一个同事的求助

一个客户需求做门诊已完成报告通知取单的大屏显示界面

百度了一下,其实很简单

实现方法如下

 

1.用要显示数据的sql语句做成数据窗口(datawindow);

2.在窗体(window)中嵌入window;

3.在窗体的open事件中加入timer事件;

4.在timer事件中对datawindow进行操作,用datawindow的scrolltorow方法滚动到对应行;

5.当滚动到对应行大于等于datawindow的rowcount是滚动行重新回到第一行;

 //窗口滚动的方式,如跑马灯的方式等都可以优化完美一点,但因为事件和能力的原因就不搞了

以下是一些代码

open事件

 

// Profile local_lis

 

//f_resize()

 

sqlca = create transaction

SQLCA.DBMS = ProfileString (‘sf.ini‘,  ‘Database‘, "DBMS",   "")

SQLCA.Database = ProfileString (‘sf.ini‘,  ‘Database‘, "Database",   "")

SQLCA.LogPass = ProfileString (‘sf.ini‘,  ‘Database‘, "LogPassword",   "")

SQLCA.ServerName = ProfileString (‘sf.ini‘,  ‘Database‘, "Servername",   "")

SQLCA.LogId = ProfileString (‘sf.ini‘,  ‘Database‘, "Logid",   "")

SQLCA.AutoCommit = False

SQLCA.DBParm = ""

 

connect using sqlca;

string ls_title

int li_speed

ls_title = ProfileString (‘sf.ini‘,  ‘Scroll‘, "title",   "")

ii_num = integer(Profilestring (‘sf.ini‘,  ‘Scroll‘, "date_num",   ""))

li_speed = integer(Profilestring (‘sf.ini‘,  ‘Scroll‘, "speed",   "3"))

st_2.text = ProfileString (‘sf.ini‘,  ‘Scroll‘, "text1",   "")

st_3.text = ProfileString (‘sf.ini‘,  ‘Scroll‘, "text2",   "")

 

it_date = relativedate(today(),ii_num)

if ls_title <>‘‘ then st_1.text = ls_title

dw_1.settransobject(sqlca)

 

dw_1.retrieve(datetime(relativedate(today(),ii_num),time(00:00:00)))

//messagebox(‘‘,string(datetime(relativedate(today(),ii_num),time(00:00:00))))

//if dw_1.retrieve() = 

ii_i =0

timer(li_speed)

 

timer事件

int li_i
li_i = dw_1.rowcount()
int i = 0

dw_1.scrolltorow(ii_i)

ii_i = ii_i + 3

if ii_i > li_i +3 then
 ii_i = 0
 dw_1.retrieve(datetime(relativedate(today(),ii_num),time(00:00:00)))
 sleep(2)
 
   li_i = dw_1.rowcount()
end if

转载自【http://blog.sina.com.cn/s/blog_6c99d4e90102vdi0.html

以上是关于PB做大屏显示滚动窗口 的主要内容,如果未能解决你的问题,请参考以下文章

使用qml设计大屏UI显示

使用qml设计大屏UI显示

使用qml设计大屏UI显示

可视化大屏经验分享

echarts自适应大屏方案 亲测有用

安庆司法系统监控指挥大屏