//====================================================================
// Function: uf_getdwcontent
//--------------------------------------------------------------------
// Description: 用来获得datawindow中不同位置的text、column和compute信息的集合
// 创建一个包括name、位置、type、x坐标、y坐标、height、width、tabsequence的datastore,保存数据
// 并返回
//--------------------------------------------------------------------
// Arguments:
// datawindow 数据窗体dw
// string 要获得数据的位置pos:header、detail、summary或footer
//--------------------------------------------------------------------
// Returns: datastore
//--------------------------------------------------------------------
string ls_objects,ls_obj,ls_sql,ls_err,ls_text,la_columns[]
long li_pos
datastore lds_sort //返回的datastore
string ls_pbver //pb 版本信息
environment env //环境变量
getenvironment(env)
ls_pbver = string(env.pbmajorrevision)
lds_sort = create datastore//创建排序列 datastore
ls_sql = 'column=(type=char(100) name = zname dbname="zname" )' + '~r~n' + &
'column=(type=char(7) name = zpos dbname="zpos" )' + '~r~n' + &
'column=(type=char(7) name = ztype dbname="ztype" )' + '~r~n' + &
'column=(type=long name = ztabsequence dbname="ztabsequence" )' + '~r~n' + &
'column=(type=long name = zx dbname="zx" )' + '~r~n' + &
'column=(type=long name = zy dbname="zy" )' + '~r~n' + &
'column=(type=long name = zheight dbname="zheight" )' + '~r~n' + &
'column=(type=long name = zwidth dbname="zwidth" )' + '~r~n'
ls_sql = 'release ' + ls_pbver + ';~r~ntable(' + ls_sql + ')'
lds_sort.create(ls_sql, ls_err)
integer i,ii
ls_objects = dw.Describe("datawindow.objects")
do while (pos(ls_objects,"~t") > 0)
li_pos = pos(ls_objects,"~t")
ls_obj = left(ls_objects,li_pos - 1)
ls_objects = right(ls_objects,len(ls_objects) - li_pos)
if (dw.Describe(ls_obj+".band") = pos ) and &
(dw.Describe(ls_obj+".visible") = "1" ) then
lds_sort.insertrow(0)
lds_sort.setitem(lds_sort.rowcount(), 'zname', ls_obj)
lds_sort.setitem(lds_sort.rowcount(), 'zpos', pos)
lds_sort.setitem(lds_sort.rowcount(), 'ztype', dw.Describe(ls_obj + '.type'))
lds_sort.setitem(lds_sort.rowcount(), 'ztabsequence', long(dw.Describe(ls_obj + '.tabsequence')))
lds_sort.setitem(lds_sort.rowcount(), 'zx', long(dw.describe(ls_obj + '.x')))
lds_sort.setitem(lds_sort.rowcount(), 'zy', long(dw.describe(ls_obj + '.y')))
lds_sort.setitem(lds_sort.rowcount(), 'zheight', long(dw.describe(ls_obj + '.height')) + ii - 1)
lds_sort.setitem(lds_sort.rowcount(), 'zwidth', long(dw.describe(ls_obj + '.width')))
end if
loop
ls_obj=ls_objects
if (dw.Describe(ls_obj+".band") = pos ) and &
(dw.Describe(ls_obj+".visible") = "1" ) then
lds_sort.insertrow(0)
lds_sort.setitem(lds_sort.rowcount(), 'zname', ls_obj)
lds_sort.setitem(lds_sort.rowcount(), 'zpos', pos)
lds_sort.setitem(lds_sort.rowcount(), 'ztype', dw.Describe(ls_obj + '.type'))
lds_sort.setitem(lds_sort.rowcount(), 'ztabsequence', long(dw.Describe(ls_obj + '.tabsequence')))
lds_sort.setitem(lds_sort.rowcount(), 'zx', long(dw.describe(ls_obj + '.x')))
lds_sort.setitem(lds_sort.rowcount(), 'zy', long(dw.describe(ls_obj + '.y')))
lds_sort.setitem(lds_sort.rowcount(), 'zheight', long(dw.describe(ls_obj + '.height')) + ii - 1)
lds_sort.setitem(lds_sort.rowcount(), 'zwidth', long(dw.describe(ls_obj + '.width')))
end if
//返回结果
return lds_sort