PB datawindows 动态创建数据窗口

梦里梦外; 2022-06-18 03:09 306阅读 0赞

在实际应用中，经常需要根据用户需求来动态创建数据窗，一般方法是这样的。  
　　在一个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\_filenum >0 then  
　　　FileSeek(li\_FileNum, 158, FromBeginning!)  
　　　li\_length = fileRead(li\_filenum,ls\_syntax)  
　　end if  
　　fileclose(li\_filenum)  
　　if li\_length = 0 then return  
　　ls\_syntax = "release 5;"+ls\_ret+ls\_syntax  
  
　　//截掉ls\_syntax中的数据部分，5.0以"sparse(names="dept\_name?) "作为参考位置  
　　//6.0以html(作为参考位置  
　　long pos1,pos2  
　　pos1 = pos(ls\_syntax,'sparse(names="',1)  
　　pos2 = pos(ls\_syntax,'"',pos1 +16)  
　　ls\_syntax = left(ls\_syntax,pos1) + mid(ls\_syntax,pos1 +1,pos2 - pos1 +1)  
　　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  
　　//pb6,pb7的代码可以参照pb5自己写,只是文件头和数据窗结束标记不同而已。  
  
　　PowerBuilder用Create()函数创建动态数据窗口，其语法格式为：dw.Create(Syntax\[,ErrString\])  
　　其中：dw为需创建的动态数据窗口名；Syntax为创建动态数据窗口的语法字符串；ErrString为可选参数，用来存放发生错误时的错误信息，若忽  
略，发生错误时系统自动显示消息框，一般不符我们需要，所以需定义该参数。  
  
　　显然重点在Syntax, PowerBuilder提供LibraryExport()与SyntaxFromSQL()二个函数来达到这个目的：  
  
　　一、 LibraryExport()函数  
　　功能：从PowerBuilder库中输出一个对象，返回该对象的语法。  
　　语法格式：LibraryExport(LibName,ObjName,ObjType)  
　　其中：LibName 为带路径的PowerBuilder库名，若未指定路径，则按系统标准搜索路径搜索；ObjName为导出对象名，现为LibName中的数据窗口  
对象名；ObjType为该对象的类型，现为数据窗口，值为ExportDataWindow!。示例如下：  
　　String ls\_DwSyntax,ls\_Error  
　　ls\_DwSyntax=LibraryExport("C:\\PBExam\\dy\_dw.pbl","d\_tbl1", ExportDataWindow!)  
　　//数据窗口dw\_1的产生下面将详细讨论，现暂略  
　　dw\_1.Create(ls\_DwSyntax,ls\_Error)  
　　//以下语句与下面示例中的相同，故此处略。  
　　LibraryExport()函数是利用已有的数据窗口对象创建动态数据窗口，有一定的使用价值，但不多见。  
  
　　二、 SyntaxFromSQL()函数  
　　功能：基于SQL的SELECT 语句产生创建数据窗口的语法。  
　　语法格式：Transaction.SyntaxFromSQL(SqlString,StyleString,ErrorString)  
　　其中：Transaction.为已连接的事务对象，一般即为SQLCA；SqlString为SQL--SELECT 语句；Stylestring为数据窗口的显示风格字符串，比较复  
杂，一般常用"Style(Type=Grid)"；ErrorString用来存放发生错误时的错误信息。  
　　一般来说，SyntaxFromSQL()函数灵活性高、功能强，因此创建动态数据窗口大都使用该函数,下面的示例也是使用该函数。  
  
　　三、创建动态数据窗口的一般步骤  
　　创建动态数据窗口的一般步骤如下：  
　　1、在某窗口（如w\_main）上用鼠标点建一个数据窗口控件（如dw\_1），其DataObject为空。  
　　2、构造SyntaxFromSQL()函数的语法字符串。这是PowerBuilder动态数据窗口的关键，稍为复杂一些，具体做法请见下面实例。  
　　3、用Create()函数创建动态数据窗口dw\_1,并用SetTransObject()函数为其分配事务对象，具体做法请见下面实例。  
　　这种方法的主要缺点是必须在设计阶段先建数据窗口控件，运行时无法增减，这对于一些较为特殊的应用（如设计阶段尚不知需几个数据窗口）  
就不太适合了。那如何解决这个问题呢？经过一番摸索并查阅了一些资料，终于找到了二种解决方法，现分别介绍如下： 　　1、创建一个标准可视数据窗口用户对象u\_d\_sample  
　　PowerBuilder6.0/6.5中步骤为：点击工具栏上的UserObject图标，在弹出的Select User Object窗口中点击New按钮，出现New User Object窗口,双击其中Visual下的Standard图标, 在弹出的Select Standard Visual Type窗口中双击datawindow选项，即出现User Object（Untitled）窗口,点击工具栏上的Save图标，弹出的Save User Object窗口,在User Objects: 中输入u\_d\_sample回车即进入User Object---u\_d\_sample窗口,关闭该窗口，标准可视数据窗口用户对象u\_d\_sample即告建成。  
  
　　PowerBuilder7.0中步骤为：点击工具栏上的New图标，在弹出的New窗口中选择Object页面，双击其中的Standard Visual图标, 在弹出的Select Standard Visual Type窗口中双击datawindow选项，出现User Object（Untitled）inherited from datawindow窗口,将其右边的Title栏中的none删除，再点击左边空白区，然后点击工具栏上的Save图标，以后的操作步骤与PowerBuilder6.0/6.5大致相同。至于PowerBuilder8.0则与PowerBuilder7.0大体相同，不再赘述。  
  
　　2、直接定义DataWindow型变量dw\_1如下：  
　　DataWindow dw\_1  
　　dw\_1=Create DataWindow  
　　其实第1种方法还须定义dw\_1，形式如下：  
　　u\_d\_sample dw\_1  
　　dw\_1=Create u\_d\_ sample //此句可省略  
　　这二种方法的关键都是使用OpenUserObject()函数,其功能即为打开一个用户对象，语法格式：w\_name.OpenUserObject(ObjName\[,x,y\]) 其中ObjName为需打开的用户对象名；x、y为用户对象的打开位置，省略时值均为0。  
　　下面请见具体实例, 该实例在Win98、PowerBuilder8.0/PowerBuilder7.0/PowerBuilder6.5下通过,ODBC数据源已配置，为FoxPro25(可根据需要使用其他数据库),数据表为bb.dbf。请先建窗口w\_main,在其Open事件中写入以下代码：(注意：PowerBuilder8.0中先须创建WorkSpace(\*.pbw),其他操作基本同PowerBuilder7.0)  
  
　　//动态数据窗口dw\_1创建实例  
　　string lserr,lsSQLstr,lsDWsyntax,lserrC  
　　SQLCA.DBMS="ODBC"  
　　SQLCA.DBParm="ConnectString='DSN=FoxPro25'" //本例使用FoxPro25数据库,可根据需要用其他数据库  
　　Connect;  
　　//下面3条语句即为关键，若dw\_1为鼠标点建请删除这3条语句，否则会出错。  
　　DataWindow dw\_1 //若采用数据窗口用户对象u\_d\_sample，则可改为：u\_d\_sample dw\_1  
　　dw\_1=Create DataWindow //若采用数据窗口用户对象u\_d\_sample，此句应去除。  
　　OpenUserObject(dw\_1)  
　　//Select…As…的As可将列标题显示为As之后的字符，较为灵活方便。  
　　//可根据实际情况设计生成Select语句及Where子句的可视化界面  
　　lsSQLstr="Select A12 As 主管部门,A01 As 法人代码,mc As 企业名称,A06 From bb Where A12 <'1'"  
　　lsDwsyntax=SQLCA.SyntaxFromSQL(lsSQLstr,"style(type=Grid)",lserr) //构造SyntaxFromSQL()函数  
　　If Len(lserr)>0 Then  
　　　//如果构造SyntaxFromSQL()函数失败，则显示错误信息并退出  
　　　messagebox("错误信息!",lserr)  
　　　Return  
　　end if  
　　dw\_1.Create(lsDwsyntax,lserrC) //创建动态数据窗口dw\_1  
　　If Len(lserrC)>0 Then  
　　　//如果创建动态数据窗口dw\_1失败，则显示错误信息并退出  
　　　messagebox("错误信息!",lserrC)  
　　　Return  
　　end if  
　　//以下设置dw\_1的一些属性，可根据实际需要设置。  
　　dw\_1.X=5  
　　dw\_1.Y=5  
　　dw\_1.width=1500  
　　dw\_1.height=650  
　　dw\_1.Visible=True  
　　dw\_1.Enabled=True  
　　dw\_1.HScrollBar=True  
　　dw\_1.VScrollBar=True  
　　//为dw\_1分配事务对象SQLCA  
　　dw\_1.SetTransObject(SQLCA)  
　　//提取数据  
　　dw\_1.Retrieve()  
  
　　第2种方法的优点大家一看即知，不必费劲去创建一个标准可视数据窗口用户对象，但存在不足之处：不能在窗口w\_main的其他事件或控件中引用dw\_1。解决方法很简单：将dw\_1定义为实例变量（Instance Variable）。PowerBuilder6.0/6.5中：在窗口画笔(w\_main)的菜单上点击Declareà Instance Variables…,在弹出窗口Declare Instance Variables中输入datawindow dw\_1, 点击Ok按钮即告完成。PowerBuilder7.0/8.0中：打开窗口画笔，在其下半部的窗口Declare Instance Variables中输入datawindow dw\_1, 点击工具栏上的Save图标即告完成。