PB编程技巧二则在线教程

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 22:41:51

PB编程技巧二则 

在PB编程中,我们经常需要应用一些小的技巧,如:使数据窗口每页打印固定行、在系统中嵌入Excel对象等。下面,笔者将结合实际介绍这些小的技巧应用。

一、页面的精确打印

关于数据窗口每页打印固定行的问题:

1.增加一个计算列,此计算列必须放在Detail段的Exdivssion中输入:

ceiling(getrow()/20)
//这里20还可以用全局函数取代,这样可以允许用户任意设置每页打印多少行。 


2.定义分组,选择选单“Rows->Create Group...”,并按计算列字段分组。最后一定将“check box-->New Page On Group Break”选中。

3.将此计算列设为不可视。

另外,如果需要最后一页不足补空行。也很简单,程序如下:

long ll_pagerow = 10
//每页打印行数
long ll_count, ll_row
ll_count = dw_report.retrieve(...) //取得现有报表的总行数
ll_count = ll_pagerow - mod(ll_count, ll_pagerow)
If ll_count < ll_pagerow then
for ll_row ="" 1 to ll_count
dw_print.insertrow(0)
//补足空行
next
end if 


二、如何嵌入Excel对象

在进行程序开发时,有时会需要将PowerBuilder与Excel应用程序结合使用,如将数据检索出来后,按照格式要求,将数据转入到Excel表格中。实现步骤如下:

1.创建并连接对象:

oleobject loo_excel
oleobject loo_sheet
loo_excel=create oleobject
loo_excel.ConnectToNewObject("Excel.Application")
//设置缺省的字体与大小
loo_excel.Application.StandardFont = "Arial Narrow"
loo_excel.Application.StandardFontSize = "8"
loo_excel.Application.Workbooks.Add()
loo_sheet=loo_excel.Application.Workbooks(1).worksheets(1)
loo_excel.Application.Visible=true
loo_excel.Application.ScreenUpdating = false //屏蔽可见属性 


2.调用Excel本身的属性,函数,通过数据窗口填写数据到Excel:

loo_excel.Application.ScreenUpdating = true //设置可见属性 


3.断开连接并释放对象:

loo_excel.DisconnectObject()
//注:建议引用API函数,捕获Handle。
destroy loo_excel 


以上程序已在PB6.0、Windows 98平台上运行通过。


Tags:

作者:佚名
分享到: 微信 更多