http://www.51cto.com 2005-09-21 11:23 作者:51cto.com整理 出处:51cto.com  
 
 PowerBuilder是目前最流行的数据库开发工具之一。PowerBuilder提供了在程序代码中加入嵌入式SQL语句的功能来支持对数据库的访问。但这种嵌入式SQL语句只能支持一些固定的标准的SQL语句，即在进行程序代码编译处理时这些SQL语句必须是确定的，另外这种方式也不能执行像Creat Table,Creat Database等这些数据库定义的语句(DDL)。

因此这种嵌入式SQL语句在实际应用中有一定的局限性。为克服这种方式的局限性，可以使用PowerBuilder提供的动态SQL语句，这种对数据库访问的方式可以完成嵌入式SQL语句无法实现的功能。如建库、建表这一类的数据库定义语句(DDL)；其次，由于动态SQL语句允许在执行时才确定到底要执行怎样的SQL语句，因此使用动态SQL语句可以使程序实现参数化设计，具有很大的灵活性和通用性。

一、动态SQL语句的应用分析 PowerBuilder提供了四种格式的动态SQL语句，每种格式都有自己不同的特点和作用。

(一)第一种格式

当执行没有输入参数并且没有返回结果集的SQL语句时可以使用这种格式，这种格式使用比较简单，其实现的操作也比较少。

1语法

EXECUTE IMMEDIATE SQLStatement{ USING TransactionObject }；

其中SQLStatement是要执行的SQL语句，可以直接用引号将要执行的SQL引起来用，或者用字符串变量的形式提供SQL语句。通过使用字符串变量可以在具体执行的时候才指定要执行什么样的SQL语句。TransactionObject是用户所使用的事务对象，缺省为SQLCA。

2应用实例

①建立一张数据库表(base)，SQL语句的表述用引号引起来直接使用。

EXECUTE IMMEDIATE‘CREATE TABLE base(code char(6),name char(30))’USING SQLCA；

②执行对数据库记录的操作，在表base中插入一条记录，SQL语句通过字符串变量传递执行语句。

STRING lsSQL

LsSQL=”INSERT INTO TABLE base VALUES(’320201’，’市中区支行’)”

EXECUTE IMMEDIATE:lsSQL；

(二)第二种格式

当执行带输入参数但没有返回结果集时的SQL语句可以采用第二种格式。该格式不仅可以动态地指定要执行的SQL语句，同时还可以动态地确定SQL语句所需要的参数值。

1语法

PREPARE DynamicStagingArea FROM SQLStatement{ USING TransactionObject }；

EXECUTE DynamicstagingArea{ USING Parameterlist }；

其中：DynamicstagingArea是PowerBuilder提供的一种数据类型。PowerBuilder本身提供了一个名字为SQLSA的DynamicstagingArea类型的全局变量，用于保存要执行的动态SQL语句信息。

2应用实例

删除base表中的满足一定条件的记录。

STRING lsCode

lsCode=”320101”

PREPARE SQLSA FROM“DELETE base WHERE code=?”；

EXECUTE SQLSA USING：lsCode；

(三)第三种格式

当执行有输入参数并且返回结果集的格式在编译时可以确定的SQL语句时可以使用第三种格式。这种格式语法比较复杂，但要比前面两种功能强，可以返回结果集。在返回结果时由于不知道满足过滤条件的记录到底有多少条，因此第三种格式通常采用游标的形式。

1语法

DECLARE cursor DYNAMIC CURSOR FOR DynamicStagingArea；

PREPARE DynamicStagingArea FROM SQLStatement{ USING TransactionObject };

OPEN DYNAMIC cursor { USING Parameterlist };

FETCH cursor INTO VariableList;

CLOSE cursor;

其中cursor是用户所定义的游标的名字。

2应用实例

将表base中的code字段中间两位为”01”的所有记录读取出来并分别进行相应处理。

STRING lsSQL,lsCode,lsName,lsFilter

LsFilter=”01”

LsSQL=”SELECT code，name FROM base WHERE substring(code，3，2)=?”

DECLARE cursor_base DYNAMIC CURSOR FOR SQLSA；

PREPARE SQLSA FROM：lsSQL；

OPEN DYNAMIC cursor_base USING:lsFilter;

FETCH cursor_base INTO:lsCode,:lsName;

DO WHILE SQLCA.SQLCODE=0

　．　∥对满足条件的记录根据要求分别进行处理

　．　FETCH cursor_base INTO:lsCode,:lsName;

LOOP

CLOSE cursor_base;

(四)第四种格式

当执行有输入参数并且返回结果集的格式在编译时无法确定的SQL语句时可以使用第四种格式。有时候我们执行一些SQL语句时，不仅带有参数而且返回的结果集中有多少个字段，每个字段是什么类型的数据都不确定，这时只能使用第四种格式来实现。

1语法

PREPARE DynamicStagingArea FROM SQLStatement{ USING TransactionObject }；

DESCRI...

阅读全文

---- 在使用连续纸打印数据窗口的情况下，需要定制打印的页长，以保证打印机走纸正确，不用人工干预，实现连续打印。在PB中须调用外部函数来自定义纸张长度，比较繁琐。本文介绍一种直接对打印机的控制方法，简单实现对页长的设定。

---- 一、 预备知识

---- 计算机与打印机的通讯使用ASCII码进行，其中标准ASCII码包括可打印字符及非打印字符（控制码），打印机使用控制码来定制打印机。大多数打印机指令使用控制码escape作为其指令序列的第一个序列码。下面介绍本文用到的几个指令码序列：

设置换行量（行距）1/8 英寸
ASCII码 ESC 0
十进制码 27 48


设置以行为单位的页长
ASCII码 ESC C n


十进制码 27 67 n
其中n 为每页行数范围（1-127）

---- 二、 PB中控制码的传送及定制页长的实现

---- 在PB中通过函数Printsend(printjobnumber,string,{ zerochar })来实现向打印机发送控制码。各参数定义如下：

printjobnumber: 由printjob()函数返回的打印作业号；
string:         控制字符串，使用ASCII码；
zerochar:       用来替代string中的数字0；

---- 由于字符串中，0终止字符串，如果string 中包含0，则需利用其他字符来表示0，参数zerochar即为此用途而设，当PB发送控制字符串给打印机时，把替代的字符zerochar转化为0。

---- 下面是具体的完成定制页长打印数据窗口的程序（定制页长为2.75英寸）：

long ll_job
dw_print.reset()
ll_job = printopen()
if ll_job = -1 then
  messagebox(gs_title,"打印机未准备好")
  return
end if
//定制行距1/8英寸
PrintSend(ll_job, CHAR(27)+CHAR(48))
//设定页长22行
PrintSend(ll_job, CHAR(27)+CHAR(67)+CHAR(22))
printdatawindow(ll_job,dw_print)
printclose(ll_job)

摘自： http://www.cnread.net/cnread1/dnwl/cxsj/pb/syjq/014.htm

自己给自己做个广告吧。

     SYBASE数据库浏览器1.0 新鲜出炉！她独特的数据库界面显示，体贴的人性化设计定能令您眼前一亮。四大独门绝技：主/从表同步显示更新、 数据块拷贝粘贴、表数据查找替换、任意缩放的打印预览，让您笑傲同侪，独步江湖，复杂的数据库操作从此游刃有余。
      PB + SYBASE 开发的最佳拍档：PB小助手 + SYBASE数据库浏览器 ！

	Sybase Dbrowser1.0（SYBASE数据库浏览器）
	★ 主/从表同步修改，彻底摆脱外键约束！可自定义主/从表关联；
	★ 支持表中数据的块拷贝、粘贴；
	★ 对表中显示的数据进行查找及替换；
	★ 功能强大的打印预览功能；
	★ 列选择定义自动保存，在下次该表打开时仅显示相关定义列　……
	本地下载                 天空下载  华军下载  CSDN下载

自己给自己做个广告吧。

欢迎使用PB小助手。作为一名PB程序员，您是否有过为了查找某一语句而不辞辛劳地打开一个又一个事件或函数，在其脚本中苦苦寻觅的痛苦经历；而为了找到某一变量或函数的定义，您不得不在错综复杂的对象继承关系中刨根溯源、上下求索。有了PB小助手，这些问题都将迎刃而解。她能帮您在一大堆对象或脚本中迅速找到您想要的，快人一步，胜人一筹！

	PB Findit!3.5（PB小助手）升级
	★ 对象检索。在PB应用中搜索名称中包含指定字符串的对象；
	★ 脚本检索。在PB应用源码中搜索指定字符串；
	★ 辅助注释。按自定义模板格式插入代码注释；
	★ 浮动窗口。工具条窗口显示，操作简单快捷；
	★ 代码统计。想知道您写了多少代码？来试试吧。
	★ 代码美化。按缺省的缩进格式对代码进行整理美化。
	★ 代码浏览。PowerScript语法高亮显示。
	★ PB工具栏。自动集成到PB IDE工具栏，操作更方便快捷。
	本地下载 天空下载 华军下载 CSDN下载

PB11可以方便地将PB程序转成.net 的WebForm或WinForm的应用，这是在网上找到的PB11 Deploy 到ASP.net的截屏。menu, toolbar, tabpage一应俱全，看上去不错。

在code examples目录有一个新的目录New DataWindow and UI，里面展示了一些关于DW & UI的新特性，有兴趣的可以看一下：

新的Menu & Toolbar

TreeView DW

以下是从pdriver.com上收集的：
powerbuilder 10.5新功能
从sybase下了个powerbuilder 10.5 beta版，整理了帮助中新功能介绍如下：
1、PB控件
1）增加了MonthCalendar和DatePicker控件
对MonthCalendar控件
a. 如果是EditMask control ，编辑属性时，选择'Maskdatatype'为'datemask!'或'datetimemask!'后,激活'drop-down calendar'选项框，选择打勾，运行程序后可以移动到EditMask control 处直接下拉选择框出现MonthCalendar日历控件
b. 数据窗体日期字段可以设置下拉MonthCalendar 形式的日历，可在constructor等事件中 加入如下语句实现：
dw_1.Modify(字段名称+".EditMask.DDCalendar='Yes'")
运行程序后,可以对字段名称直接下拉选择框出现下拉日历控件
2)DatePicker的ValueChanged事件，MonthCalendar的DateSelected 事件
DatePicker的ValueChanged事件 和MonthCalendar的DateSelected事件中可以加入相关代码.比如可以加入如下代码修改single-line edit box文本编辑框的text值:
date dt_selected
integer li_ret
string ls_date
li_ret = GetSelectedDate( dt_selected)
ls_date = string(dt_selected)
sle_2.text = ls_date
3）. Animation动画控件
       好像只能设置avi后缀名的非压缩或BI_RLE8格式压缩的影像文件.

4）、InkEdit和InkPicture控件
InkEdit：借助Tablet PC(图形输入板)和Tablet PC的书法识别引擎可以转换写入信息为文本;
InkPicture: 借助Tablet PC可以把写入信息叠在一张图片上,可以为图片加注释或直接用来签名.
2、新增调用扩展和decimal数值类型支持
1）可以直接在System Tree通过右键弹出式菜单' imported PB extension '导入 主程序搜索目录下的.pbx or .dll 后缀名文件到库中,省去以前版本 要同时拷贝 PBX or DLL 文件并设置运行时的主程序搜索目录；
2）decimal数值类型由支持以前版本的18 digits 到32digits.datawindow中的表达式也对此提供相关支持.

news server: forums.sybase.com
group: sybase.public.chinese.powerbuilder.general

没事可以上去看看，发发牢骚，呵呵。这些天比较忙，又没摘些新东西，抱歉。

　　在通常的Server/Client方式MIS开发中，总是有没完没了的报表需要制作，调试报表花费的时间也是最多而且乏味，还常常不能满足客户的要求。要是能够让用户自己调整报表的格式和内容，然后将它保存下来，程序下次启动时它自动调用保存了的报表格式那有多好。本人通过如下方法最终实现了用的要求。
PB（PowerBuilder）有一种以PSR结尾的特殊的保存报表的文件格式（本文简称作PSR文件）。根据数据窗口可以直接读取PSR文件生成报表的原理，程序通过生成PSR文件，实现动态报表格式的保存。

　　一、实现原理：

　　PB中的报表其实就相当于是数据窗口。

　　第一步，动态报表的实现。通过设置数据窗口对象（dataobject）中文本、列等的Resizeable和moveable属性为1来实现对象位置的拖动控制，通过数据窗口的Modify函数实现对象值的更改（包括增加和删除）。

　　第二步，报表格式的保存。在一个应用当中，数据窗口对象的名称总是唯一的，将每一个数据窗口对象转化成PSR文件存于数据库表中。在窗口打开时，程序先校验报表格式是否存在。如果存在，先将报表格式读取出来放在一个临时文件当中，然后设置数据窗口（datawindow）的数据对象(dataobject)为这个报表文件，然后提取数据；如果不存在，直接提取数据即可。

　　二、实现过程：

　　 1、建立一个数据库表用以保存报表格式文件。
表名：dyn_report  
Dwobject Varchar2(20) 数据窗口对象名称 Primary key  
Rptitle Varchar2(80) 报表的标题名称    
Memo Long raw  报表格式    

　　 2、建立一个窗口w_temp。 定义实例变量如下：

　　 string is_dwtype，is_dwobject //保存报表中对象的类型及名称

控件名称  控件含义  
Dw_print 数据窗口对象  
Cb_exit 退出按钮
Cb_savereport  报表格式保存按钮  
　　
　　 3、在窗口的OPEN事件中加入如下代码, 校验报表格式是否存在
　　blob emp_pic
　　 long ll_handle
　　 string ls_dwobject,ls_reportfile,ls_path
　　 ls_dwobject = dw_print.dataobject
　　 //判断是否存在该数据窗口的报表格式
　　 select count(*) into:ll_count from dyn_report where dwobject =:ls_dwobject;
　　 if ll_count>0 then
　　　　 //读取报表格式文件到大文本变量
　　　　 selectblob memo into:emp_pic from dyn_report where dwobject =:ls_dwobject;
　　　　 //创建psr临时文件到硬盘
　　　　 ls_reportfile = '\temp7089.psr'
　　　　 ll_handle = FileOpen(is_reportfile,StreamMode!,write!,LockWrite!,Replace!)
　　　　 FileWrite(ll_handle,emp_pic)
　　　　 FileClose(ll_handle)
　　　　 dw_print.dataobject = ls_reportfile
　　　　 dw_print.settransobject(sqlca)
　　 else
　　　　 Dw_print.settransobject(sqlca)
　　 End if
　　 Dw_print.retrieve()
　　 4、报表格式的保存。通过Cb_savereport按钮的clicked实现。
　　 string ls_filename
　　 long ll_count
　　 blob Emp_id_pic
　　 ls_filename = "temp70201.psr"
　　 //保存报表格式到硬盘临时文件
　　 dw_print.saveas(ls_filename,PSReport! ,false)
　　 sqlca.autocommit = true
　　 select count(*) into :ll_count from dyn_report where dwobject =:is_dwobject;
　　 if ll_count =0 then
　　 　　insert into dyn_report(dwobject,rptitle)
　　　　 values(:is_dwobject,:ls_filename,:ls_path);
　　 end if
　　 //从硬盘临时文件读取数据保存到数据库表中
　　 emp_id_pic = of_readbmpfile(ls_filename)//该函数将二进制文件内容读到大文本对象中
　　 //更新数据库
　　 UPDATEBLOB dyn_report SET memo = :Emp_id_pic where dwobject = :is_dwobject;
　　 sqlca.autocommit = false


　　5、动态报表的实现。通过数据窗口dw_print的clicked事件捕获数据窗口中对象，并将对象名存放在实现变量is_dwobject中，为下一步修改报表作准备。

　　 string ls_type,ls_dwoname
　　 //得到对象类型和名称
　　 ls_type = trim(upper(dwo.type))
　　 ls_dwoname = trim(dwo.name)
　　 is_dwtype = ls_type
　　 choose case ls_type
　　 　　case "TEXT...

阅读全文