您现在正在浏览：站长之家 >> 数据库 >> 详细内容

PB动态报表格式自由定义的实现

时间:2007-12-23 来源:不详作者:迈克DB

　　//更新数据库
　　UPDATEBLOBdyn_reportSETmemo=:Emp_id_picwheredwobject=:is_dwobject;
　　sqlca.autocommit=false

　　5、动态报表的实现。通过数据窗口dw_print的clicked事件捕捉数据窗口中对象，并将对象名存放在实现变量is_dwobject中，为下一步修改报表作预备。

　　stringls_type,ls_dwoname
　　//得到对象类型和名称
　　ls_type=trim(upper(dwo.type))
　　ls_dwoname=trim(dwo.name)
　　is_dwtype=ls_type
　　choosecasels_type
　　　　case"TEXT","CommandButton","GROUPBOX"
　　　　　　is_dwobject=ls_dwoname
　　　　　　//设置为可以拖动和改变大小，其它类同
　　　　　　this.modify(ls_dwoname ".Resizeable=’" "1’")
　　　　　　this.modify(ls_dwoname ".moveable=" "1")
　　　　case"LINE"//直线对象不能通过设置Resizeable和moveable属性进行调整,必须通过其它路径
　　　　　　is_dwobject=ls_dwoname
　　　　case"RECTANGLE","ELLIPSE","GRAPH","BITMAP"
　　　　　　is_dwobject=ls_dwoname
　　　　　　this.modify(ls_dwoname ".Resizeable=’" "1’")
　　　　　　this.modify(ls_dwoname ".moveable=’" "1’")

本文来自织梦

　　　　case"COLUMN","COMPUTE"
　　　　　　is_dwobject=ls_dwoname
　　　　　　this.modify(ls_dwoname ".Resizeable=’" "1’")
　　　　　　this.modify(ls_dwoname ".moveable=’" "1’")
　　endchoose

　　然后再通过modify()函数可以实现基本的动态报表操作，这一类的文章较多，PB中也有大量的例子可直接使用，在此这不再累述。

　　6、在cb_exit按钮的clicked()事件中加入：close(parent)。

　　7、在应用的open事件中加入:open(w_temp)。然后保存并运行，大功告成啦!

　　8、本程序在PB7.0加Oracle8.05下调试通过。