dw.Describe

最新推荐文章于 2025-12-02 15:55:42 发布

原创最新推荐文章于 2025-12-02 15:55:42 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sql #string #integer #header #function

公共函数集锦（四）用来获得datawindow中不同位置的text、column和compute信息的集合

//====================================================================
// 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