conn库 数据库分页读取例程

光庆 8月前 843

请将godking.conn库升级至最新版。

import win.ui;
import godking.vlistEx
import godking.conn
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
button={cls="button";text="下一页";left=520;top=400;right=616;bottom=448;z=2};
button2={cls="button";text="上一页";left=168;top=400;right=264;bottom=448;z=3};
vlist={cls="vlistEx";text="自定义控件";left=16;top=8;right=744;bottom=376;frame=1;z=1}
)
/*}}*/

var db = godking.conn.openAccess( "C:\Users\Administrator\Desktop\caiba.mdb",);
var rs = db.rs("caiba");
rs.PageSize = 10;
var curpage = 1;
winform.vlist.setTable(rs.getPageTable(curpage));

winform.button2.oncommand = function(id,event){
	if curpage<=1 return ;
	curpage--;
	winform.vlist.setTable(rs.getPageTable(curpage),false);
}

winform.button.oncommand = function(id,event){
	if curpage>=rs.PageCount return ;
	curpage++;
	winform.vlist.setTable(rs.getPageTable(curpage),false);
}

winform.show();
win.loopMessage();


上传的附件:
最新回复 (0)
返回