PB datawindows 动态创建数据窗口

本文介绍了在PowerBuilder中动态创建数据窗口的方法,包括通过SQL语法、已有数据窗口的syntax以及读取PSR文件。详细讲解了create()函数和相关函数如SyntaxFromSQL()的使用,并给出了创建动态数据窗口的步骤和示例代码,适用于根据用户需求灵活生成数据窗口的情况。
摘要由CSDN通过智能技术生成

  在实际应用中,经常需要根据用户需求来动态创建数据窗,一般方法是这样的。
  在一个window中加入一个数据窗控件,如dw_new,但是该数据窗没有data object,(空白的)就可以用以下语法来创建:
  dw_new.create(ls_syntax,ls_error) // 创建语法,错误信息
  ls_syntax可以用以下三种方法来形成:

  一、动态由sql语法创建:
  // 连接到pb的example数据库
  string ls_sql,ls_syntax,ls_error
  ls_sql= 'select * from department'
  ls_syntax = sqlca.SyntaxFromSQL(ls_sql,'style(type=grid)',ls_error)
  if len(ls_error) >0 then
   messagebox('Error','SyntaxFromSQL Error:~r'+ls_error)
  else
   dw_new.create(ls_syntax,ls_error)
   if len(ls_error) >0 then
    MessageBox("Error", "Create have these errors: ~r" + ls_error)
   else
    dw_new.settransobject(sqlca)
    dw_new.retrieve()
   end if
  end if

  二、由另一个数据窗的syntax来创建
  string ls_syntax,ls_error
  ls_syntax = dw_test.describe('datawindow.syntax')
  dw_new.create(ls_syntax,ls_error)
  if ls_error <> '' then
   messagebox('Create Error',ls_error)
  else
   dw_new.settransobject(sqlca)
   dw_new.retrieve()
  end if

  三、读取psr文件来创建
  string ls_syntax,ls_error,ls_ret
  ls_ret = char(13)+char(10) //回车键
  int li_fileNum
  long li_length
  li_FileNum = FileOpen("efef.psr",Streammode!, read!, shared!, Replace!)

  if li_filen
数据存在主次表时,当更新了次表数据后,主表数据在后台有更变时。可利用刷新主表当前行的方法重显主表数据。 /************************************************************ 函数名称: 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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值