PB DataWindow 不需要 DataObject 的查询方法

[code="python"]TreeViewItem cdItem

tv_1.GetItem(handle,cdItem)

long finded

String tablelabel,tablename


tablelabel = cdItem.Label

if tablelabel "" Then

select count(*)

into:finded

from pbcattbl

where pbt_cmnt = :tablelabel;

select pbt_tnam

into:tablename

from pbcattbl

where pbt_cmnt = :tablelabel;

if finded = 0 Then

select count(*)

into:finded

from pbcattbl

where pbt_tnam = :tablelabel;

tablename = tablelabel

end if



if finded >= 1 Then



string ls_syntax,ls_sql,ls_error,colname,collabel

long ls_rowcount,i

//查找要显示的字段

ls_sql ="SELECT pbc_cnam,pbc_cmnt FROM pbcatcol where pbc_tnam = '"+tablename+"'"

ls_syntax =sqlca.syntaxfromsql(ls_sql, ' ',ls_error)



if len(ls_error)>0 then messagebox("错误",ls_error)



dw_3.create(ls_syntax,ls_error)



if len(ls_error)>0 then messagebox("错误",ls_error)



dw_3.settransobject(sqlca)

dw_3.retrieve()



ls_rowcount = dw_3.RowCount()


ls_sql ="SELECT "

for i = 1 to ls_rowcount

ls_sql= ls_sql + dw_3.GetItemString(i,1)

if i ls_rowcount Then

ls_sql = ls_sql + ","

end if

next

ls_sql = ls_sql + " FROM "+tablename

ls_syntax =sqlca.syntaxfromsql(ls_sql, ' ',ls_error)



if len(ls_error)>0 then messagebox("错误",ls_error)



dw_1.create(ls_syntax,ls_error)



if len(ls_error)>0 then messagebox("错误",ls_error)

*/


dw_1.settransobject(sqlca)

dw_1.modify("IF(MOD(GETROW(),2)=0,RGB(192, 192, 192), RGB(255, 255, 255))")

dw_1.retrieve()



//THIS.PostEvent("ue_postopen")

else

MessageBox("错误","数据库中没有该表")

end if



end if[/code]
当数据存在主次表时,当更新了次表数据后,主表数据在后台有更变时。可利用刷新主表当前行的方法重显主表数据。 /************************************************************ 函数名称: f_refresh_currentrow(adw) 功 能: 刷新DW当前行数据,不可刷新NO update or 带arguments的DW 参数说明: adw 目标DW 返 回 值: integer 成功返回1,失败返回-1 作 者: sean 创建时间: 2010年8月18日 ************************************************************/ string ls_dataobject string ls_keys[] //key Column Name string ls_dbname[] //key field Name string ls_coltype[] //field style string ls_tablenm //table name string ls_condition //sql Condition long ll_currentrow //Current Row numeric long ll_column //Column count integer i datawindow ldw datastore ldatastore ldw=adw if ldw.rowcount( )=0 then return -1 elseif trim(ldw.describe( "datawindow.table.arguments"))<>'?' then messagebox('','刷新数据窗口当前行失败!,数据窗口需要参数',exclamation!) return -1 else ll_currentrow=ldw.getrow( ) FOR ll_column = 1 TO long(ldw.object.datawindow.column.count)//key names If ldw.Describe("#"+string(ll_column)+".key") ='yes' Then i++ ls_keys[i]=ldw.Describe("#"+string(ll_column)+".name") ls_dbname[i]=ldw.Describe("#"+string(ll_column)+".dbname") ls_coltype[i]=ldw.Describe("#"+string(ll_column)+".coltype") End If NEXT if upperbound(ls_keys[])=0 then messagebox('','刷新数据窗口当前行失败!,没有主键',exclamation!) return -1 else ls_tablenm=left(ls_dbname[1],pos(ls_dbname[1],'.') -1) //table name for i=1 to upperbound(ls_keys[]) if pos('numb,deci,long,',LeftA(ls_coltype[i],4) +',')>0 then ls_condition+="and "+ls_dbname[i]+"="+string(f_getitem(ldw,ll_currentrow,ls_keys[i])) else ls_condition+="and "+ls_dbname[i]+"='"+string(f_getitem(ldw,ll_currentrow,ls_keys[i]))+"'" end if next ls_condition=mid(ls_condition,4) //sql Condition ldatastore=create datastore ldatastore.dataobject=ldw.dataobject ldatastore.settransobject( sqlca) if f_addwhere_retrieve(ldatastore,ls_condition)=1 then if ldatastore.rowcount( )=1 then ldw.object.data[ll_currentrow]=ldatastore.object.data[1] ldw.setitemstatus( ll_currentrow, 0, primary!, NotModified!) //if ldw.getrow( )<>ll_currentrow then ldw.scrolltorow( ll_currentrow) end if else messagebox('','刷新数据窗口当前行失败!,条件语法错误',exclamation!) return -1 end if destroy ldatastore end if end if
### 回答1: pb9 DataWindow有一个内置的功能可以将数据导出为PDF格式。要使用此功能,可以按照以下步骤操作: 1. 首先,确保DataWindow已经创建并绑定到数据源。 2. 在代码中,使用以下语句导出DataWindow为PDF格式:dw_1.SaveAs("文件路径\文件名.pdf", PDF!, true) 其中,dw_1是要导出的DataWindow实例,"文件路径\文件名.pdf"是导出文件的保存路径和名称。PDF!是导出格式的标识符,表示要导出为PDF格式。true表示如果文件已经存在,则覆盖原文件。 3. 执行以上代码后,DataWindow将被导出为PDF文件并保存在指定路径。 需要注意的是,pb9 DataWindow的PDF导出功能依赖于操作系统内部的PDF打印机驱动程序。因此,在执行导出操作之前,确保操作系统中已经安装了PDF打印机驱动程序。 此外,还可以通过调整DataWindow的布局和格式来优化导出的PDF文件。例如,可以设置打印纸张的大小、方向、页边距等。也可以调整字体、颜色、表格样式等,以使导出的PDF文件更加符合需求。 总之,pb9 DataWindow后台导出PDF是一个方便且简单的功能,通过几行代码即可将数据导出为PDF文件,适用于各种数据报表和文档的生成需求。 ### 回答2: 在PowerBuilder 9中,可以使用DataWindow控件的后台导出功能将数据窗口以PDF格式导出。 首先,需要创建一个DataWindow对象,并在设计时设置其数据源以获取需要导出的数据。可以使用SQL语句或存储过程来定义数据源。 接下来,在代码中使用以下语句创建一个DataWindowControl对象,并将其与前面创建的DataWindow对象关联起来: DataWindowControl dwControl dwControl = CREATE DataWindowControl dwControl.DataObject = 'datawindow_name' 然后,可以使用导出功能将数据窗口以PDF格式导出到指定位置。以下是一个示例代码: string ls_savepath ls_savepath = "C:\Output\filename.pdf" dwControl.SaveAs(ls_savepath, PDF!, false) 以上代码中,"C:\Output\filename.pdf"是保存导出文件的路径和文件名。PDF!常量指示将数据窗口以PDF格式导出。最后一个参数是指导出过程是否需要等待完成,false表示不等待。 在运行时,执行以上代码将触发数据窗口导出为PDF文件到指定位置。请确保指定的路径是有效的,并且有足够的权限进行读写操作。 需要注意的是,DataWindow导出为PDF的功能在PowerBuilder 9中是基于Ghostscript库实现的。因此,需要确保Ghostscript库已正确安装并配置在系统路径中,以便PowerBuilder能够调用它来进行PDF导出。 ### 回答3: 在PowerBuilder 9中,我们可以通过使用DataWindow后台导出功能将数据窗口导出为PDF文件。 要使用DataWindow后台导出功能,我们需要按照以下步骤操作: 1. 首先,我们需要DataWindow的属性中设置导出格式为PDF。可以通过设置DataWindow对象的保存格式属性为PDF来实现。 2. 接下来,我们需要创建一个DataStore对象,并将DataWindow对象分配给DataStore。 3. 然后,我们可以使用DataStore对象的SaveAs方法将DataWindow导出为PDF文件。在SaveAs方法中,我们需要指定导出文件的路径和文件名。 下面是一个示例代码,演示了如何使用DataWindow后台导出功能导出为PDF文件: ``` // 创建一个DataStore对象 DataStore ds ds = CREATE DataStore // 将DataWindow对象分配给DataStore dw_mydata.SetTransObject(ds) // 设置DataWindow导出格式为PDF dw_mydata.SaveFormat = PDF! // 设置导出文件的路径和文件名 ds.DataObject = "d_mydata" ds.SetTransObject(dw_mydata) ds.SaveAs("C:\mydata.pdf") // 释放DataStore和DataWindow对象 DESTROY ds DESTROY dw_mydata ``` 在上述代码中,"dw_mydata"是要导出为PDF的DataWindow对象,"d_mydata"是DataWindow对象的数据源。我们可以根据实际情况修改这些对象的名称和数据源。 执行上述代码后,DataWindow对象将被导出为名为"mydata.pdf"的PDF文件,保存在"C:\"路径下。 希望以上信息能够帮助您了解如何在PowerBuilder 9中使用DataWindow后台导出功能导出为PDF文件。如果有其他问题,请随时提问!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值