坤哥的专栏

//------------------------------------------------------------------------------// 描述: 将以传进的参数as_string作为分隔符的string型参数串as_parmstring分解成独立参数并放入变长数组//----------------------------------------------------

１、更新操作://==============================================================================// 函数: w_record_editor::wf_savehtml()//------------------------------------------------------------------------

    1. 如何使PB窗口总在最上层  　　通过SetWindowPos函数把窗口的显示层次修改为HWND_TOPMOST，就可以使指定窗口永远不会被其他窗口覆盖，该函数声明为：  　　Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long dx, Long dy, Long uflag) Libr

本文主要是介绍在Sybase EAServer 5.1中如何创建Ms SqlServer连接缓存，连接缓存的诸多优势这里就不再详述。 由于网上很多EAServer连接缓存例子都是采用ODBC来与Ms SqlServer来连接，但是在工作中我发现通过ODBC连接SqlServer许多SQL语法及存储过程存在问题，所以我想能不能像很多JAVA连接池一样通过JDBC连接呢，经过一番努力，终于成功

PowerBuilder 11.5在千呼万唤中终于出来了，看来Sybase公司为此确实花了不少力气，增加了不少对WebService方面的支持，特别是增加了以WebService为数据源的DataWindow，最近我用Xfire写了一个WebService，以它为数据源做了一个DataWindow。 第一步，如下图，选择Web Service数据源： 第二步,如下图，输入W

一天在写程序时却发现PowerBuilder的Double类型数据用Round(x,n)却无法实现四舍五入取整，如下：double l,hl=45h=0.7Messagebox("",round(l*h,0))结果却显示31。 如果这样实现：messagebox("",double(string(l*h,"0")))结果即可显示32,即实现了四舍五入取整。

        在powerbuilder的程序实践的过程中，应用程序open事件的commandline参数还是很有用处的，特别是可以做一些独立于主程序的一些程序实现，如某个程序需外挂在主程序外运行，可以利用commandline实现两个程序间参数的传递。 应该程序open事件 String ls_command,ls_gnhInteger li_Pos  ls_

  使用PB6.5调用Web Service的办法 从PB8.0/9.0开始，就已经提供Web Service Proxy功能，能够直接进行相关程序的编写。但是，部分老项目使用PB6.5开发研究后发现，其实PB6.5要操作Web Service也挺容易。 说明：1.本例子用于pb对Web Service的操作。       2.pb可使用两种方式实现

新建应用,这些步骤与pb8一致的。然后建立一个WebService Proxy Wizard,下一步会提示你输入WSDL文件，点击浏览选择，假设是C:/inetpub/wwwroot/的service1.wsdl文件。点击下一步，会自动出现WSDL文件中的Service.点击下一步，系统默认选择ServiceSoap，紧接着输入proxy name(代理对象名)，输入test_ws.后面的几项

本文主要是自动注册Adaptive Server Anywhere8.0数据库的ODBC 需要把 dbodbc8.dll ,dbeng8.exe 文件,我是放在程序文件夹一起,也可以放在系统文件夹,用GetSystemDirectory()获取系统文件夹目录,赋值给ls_dir就是.//注册ODBC//注册ODBCInt reg_resultString ls_dir,ls_system,

1、实现多项选择：IF KeyDown(KeyControl!) THEN //按住ctrl键选择实现多选 IF THIS.GetSelectedRow(row - 1) = row THEN  THIS.SelectRow(row,FALSE) ELSE  THIS.SelectRow(row,TRUE) END IFELSEIF KeyDown(KeyShift!) THEN //按住sh