PB資料視窗自動換下一頁

2022-09-02 03:03:12 字數 2411 閱讀 8340

將以下內容儲存為檔案uo_datawindow_autoscroll.sru , 然後匯入pbl中,再通過匯入的uo_datawindow_autoscroll物件來建立dw(當前預設的時間為1秒,更改dw的「滾動時間間隔」屬性可以設定滾動時間間隔)

$pbexportheader$uo_datawindow_autoscroll.sru

forward

global type uo_datawindow_autoscroll from

datawindow

end type

type timing_scroll

from

timing within uo_datawindow_autoscroll

end type

end forward

global type uo_datawindow_autoscroll from

datawindow

integer width = 686

integer height = 400

string title = "

none

"boolean livescroll = true

borderstyle borderstyle = stylelowered!

event

ue_timer ( )

timing_scroll timing_scroll

end type

global

uo_datawindow_autoscroll uo_datawindow_autoscroll

type variables

dec 滾動時間間隔 = 1

protected

:datawindow idw

end variables

event ue_timer();if describe("

evaluate('if(page() = pagecount(), 1, 0)',

" + string(object.datawindow.lastrowonpage) + "

)") = '1'

then

this.scrolltorow(1

)else

this

.scrollnextpage( )

end

ifend

event

on uo_datawindow_autoscroll.create

this.timing_scroll=create timing_scroll

end on

on uo_datawindow_autoscroll.destroy

destroy(

this

.timing_scroll)

end on

event constructor;idw = this

this.modify( '

create compute(band=foreground alignment="2" expression="page() + ~

'/~'

+ pagecount()"border="0" color="255" x="199" y="8" height="64" width="326" format="[general]" html.valueishtml="0" name=compute_page visible="1" font.face="宋體" font.height="-9" font.weight="700" font.family="0" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )')

timing_scroll.start(滾動時間間隔)

end

event

type timing_scroll

from timing within uo_datawindow_autoscroll descriptor "

pb_nvo

" = "

true

"end type

on timing_scroll.create

call super::create

triggerevent(

this, "

constructor")

end on

on timing_scroll.destroy

triggerevent(

this, "

destructor")

call super::destroy

end on

event timer;idw.triggerevent("

ue_timer")

end

event

CDSN上一頁下一頁功能模仿

從後台讀取記錄,如果資料過多,就需要劃分多頁去顯示,本章就是模仿cdsn來實現該功能的,採用asp動態語言實現的,求噴我,css這部分我完全是copy過來的,只改了一點,我主要完成的是asp後面的 本章也是做乙個記錄,方便後面專案中使用,如上圖所示。新建pagelist.css檔案 css docu...

用資料庫的方式編輯上一頁 下一頁

using sqlconnection con new sqlconnection server guid article id new guid 文章的id號 guid perarticleid guid.empty guid nextarticleid guid.empty 獲取文章欄目 str...

php獲取文章上一頁與下一頁的方法

本文例項講述了 先看個例子 1,2,3,4,5.假如上面5個是id了,我要對我們要用order by id asc得出的排序應該是,4,好了原理就這麼簡.sql實現方法,如下 如下 sql select 字段 from 表名 where id 3 order by id asc limit 1 得出...