PowerBuilder/PB常用备忘

小咪咪 2024-03-31 09:40 121阅读 0赞

#### 目录 ####

*  1. PB使用Microsoft.XMLHttp组件的属性与方法
 *   *  1-1 使用步骤
     *  1-2 XMLHTTP方法：
     *  1-3 XMLHTTP属性：
     *  1-4 示例：
 *  2. Pb中Window添加鼠标滚轮，控制窗口上下滚动
 *  3. PB从剪贴板取图并保存
 *   *  3-1 定义结构体
     *  3-2 API定义
     *  3-3 函数调用
 *  4. 接口下载的Txt\[超过300M也可\]导入DataWindow\_备忘
 *  5. 获取文件创建时间、最后修改时间及设置最后修改时间的方法
 *   *  5-1 将以下内容保存为本地文件n\_cst\_filetime.sru，然后导入pbl中
     *  5-2 程序中使用实例：
 *  6. PB关闭后台进程
 *   *  6-1 将以下内容保存为nvo\_kill\_process.sru ， 然后导入pbl
     *  6-2 假如要关闭D:\\test.exe，则可以这样结束该进程：
 *  7 自动关闭弹出的消息窗口
 *  8 PB数据窗口字段值的校验 validation Expression表达式
 *  9 PB中label型数据窗口,显示的列数通过代码改动
 *  10 PB中N-Up类型数据窗口各种方式的序号列的添加
 *   *  10-1 序号先从左到右显示，再由上及下
     *  10-2 序号先由上及下，再从左到右
 *  11 PB程序中自动注册OCX控件
 *  12 PB借助adobe reader实现后台自动打印pdf文件
 *  13 PB校验XML是否是合法
 *  14 PB数据窗口风格的判定
 *  15 DW数据窗口常用技巧
 *  16 数据窗口中获得数据(含批量获取
 *  17 修改VSS 默认登录用户名三种方法
 *  18 PB中打印相关设置
 *  19 PB的一些资源下载，含安装包补丁之类

## 1. PB使用Microsoft.XMLHttp组件的属性与方法 ##

### 1-1 使用步骤 ###

1.  创建XMLHTTP对象　//需MSXML4.0支持
2.  打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接。与普  
    通HTTP指令传送一样，可以用”GET”方法或”POST”方法指向服务端的服务网页。
3.  发送指令。
4.  等待并接收服务端返回的处理结果。
5.  释放XMLHTTP对象

### 1-2 XMLHTTP方法： ###

Open（bstrMethod,　bstrUrl,　varAsync,　bstrUser,　bstrPassword　）  
bstrMethod：　　数据传送方式，即GET或POST。　  
bstrUrl：　　　　　服务网页的URL。　  
varAsync：　　　是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。用中一般将其置为False，即异步执行。　  
bstrUser：　　　　用户名，可省略。　  
bstrPassword：用户口令，可省略。　  
　  
Send（varBody　）  
varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。　  
　  
setRequestHeader（　bstrHeader,　bstrvalue　）  
bstrHeader：HTTP　头(header)　  
bstrvalue：　HTTP　头(header)的值　  
如果Open方法定义为POST，可以定义表单方式上传：　  
xmlhttp.setRequestHeader（　“Content-Type”,　“application/x-www-form-urlencoded”）

### 1-3 XMLHTTP属性： ###

onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。　  
responseBody：　　　结果返回为无符号整数数组。　  
responseStream：　　结果返回为IStream流。　  
responseText：　　　结果返回为字符串。　  
responseXML：　　　结果返回为XML格式数据。

### 1-4 示例： ###

Integer 		li_ret
    String 		ls_contenttype ,ls_url ,ls_data ,ls_refmes
    
    ls_url 			= Trim( as_url )
    ls_data			= as_data
    ls_contenttype = "text/plain"
    
    OleObject ole_object
    ole_object = Create OleObject
    li_ret = ole_object.ConnectToNewObject("Microsoft.XMLHttp") //
    If li_ret <> 0 Then
    	is_error = 'Microsoft.XMLHttp注册失败!'
    	Goto Result_Error;
    End If
    
    ole_object.Open ( Upper(as_requestmode) ,ls_url, False)
    ole_object.setRequestHeader ("Content-type", ls_contenttype +";charset=utf-8")
    ole_object.setRequestHeader('Content-Length',String(Len(ls_data)))
    ole_object.setRequestHeader('x-ca-key',is_TransKey )
    ole_object.setRequestHeader('x-ca-signature',is_TransSignaTure  )
    
    Try 
    	ole_object.Send(ls_data)
    	ls_refmes = ole_object.responseText
    Catch (Exception e)
    	is_error = '接口交易异常,' + e.getMessage()
    	If Isvalid(ole_object) Then Destroy ole_object
    	Return False 
    Catch (RunTimeError Re)
    	is_error = 'nuo_ybjk_trans.uf_request接口运行时发生异常,' + Re.getMessage()
    	If Isvalid(ole_object) Then Destroy ole_object
    	Return False 
    End Try
    
    If ole_object.Status >= 300 Then
    	is_error = 'http/https请求失败,'+ls_refmes+',详细原因:' + String(ole_object.StatusText) 
    	Goto Result_Error;
    End If
    
    ole_object.DisconnectObject()
    If Isvalid(ole_object) Then Destroy ole_object
    
    as_ref = ls_refmes
    
    Return True 
    
    Result_Error:
    	If Isvalid(ole_object) Then Destroy ole_object
    	Return False

## 2. Pb中Window添加鼠标滚轮，控制窗口上下滚动 ##

在窗口的other事件里写以下代码:
    
    if message.number = 522 then
     if inthigh(wparam) < 0 then 
      Send ( handle(this), 277, 1, 0 )
     else
      Send ( handle(this), 277, 2, 0 )
     end if
    end if
    
    注意需要设置窗口的VScrollBar=TRUE

## 3. PB从剪贴板取图并保存 ##

### 3-1 定义结构体 ###

type bitmapinfoheader from structure
    	long bisize  
    	long biwidth  
    	long biheight  
    	integer biplanes  
    	integer bibitcount  
    	long bicompression  
    	long bisizeimage  
    	long bixpelspermeter  
    	long biypelspermeter  
    	long biclrused  
    	long biclrimportant  
    end type
     
    type bitmapfileheader from structure
    	integer bftype  
    	long bfsize  
    	integer bfreserved1  
    	integer bfreserved2  
    	long bfoffbits  
    end type
     
    type bitmapinfo from structure
    	bitmapinfoheader bmiheader  
    	unsignedlong bmicolors[]  
    end type

### 3-2 API定义 ###

FUNCTION Boolean OpenClipboard(ULong hWndNewOwner) LIBRARY "user32.dll"  
    FUNCTION Boolean CloseClipboard() LIBRARY "user32.dll"  
    FUNCTION ULong GetClipboardData(ulong wFormat) LIBRARY "user32.dll"  
    FUNCTION ulong IsClipboardFormatAvailable(ulong wFormat) LIBRARY "user32.dll"  
    FUNCTION ULong GetDesktopWindow() LIBRARY "user32.dll"  
    FUNCTION ULong GetDC(ULong hWnd) LIBRARY "user32.dll"  
    FUNCTION ULong CreateCompatibleDC(ULong hdc) LIBRARY "gdi32.dll"  
    FUNCTION ULong SelectObject(ULong hdc,ULong hgdiobj) LIBRARY "gdi32.dll"  
    FUNCTION Int GetDIBits(ULong hdc,ULong hbmp,UInt uStartScan,UInt cScanLines,REF Blob lpvBits,REF bitmapinfo lpbi,UInt uUsage) LIBRARY "gdi32.dll"  
    FUNCTION Int GetDIBits(ULong hdc,ULong hbmp,UInt uStartScan,UInt cScanLines, ULong lpvBits, REF bitmapinfo lpbi, UInt uUsage) LIBRARY "gdi32.dll"  
    SUBROUTINE CopyBitmapFileHeader(REF Blob Destination, bitmapfileheader Source,Long Length) LIBRARY "kernel32.dll" ALIAS FOR "RtlMoveMemory"  
    SUBROUTINE CopyBitmapInfo(REF Blob Destination, bitmapinfo Source,Long Length) LIBRARY "kernel32.dll" ALIAS FOR "RtlMoveMemory"  
    FUNCTION Boolean DeleteDC(ULong hdc) LIBRARY "gdi32.dll"  
    FUNCTION Int ReleaseDC(ULong hWnd,ULong hdc) LIBRARY "user32.dll"  
    FUNCTION ULong CreateFile(String lpFileName, ULong dwDesiredAccess, ULong dwShareMode, ULong lpSecurityAttributes, ULong dwCreationDisposition, &  
    ULong dwFlagsAndAttributes, ULong hTemplateFile ) LIBRARY "kernel32.dll" ALIAS FOR "CreateFileA"  
    FUNCTION Boolean WriteFile(ULong hFile,Blob lpBuffer,ULong nNumberOfBytesToWrite,REF ULong lpNumberOfBytesWritten, &  
    ULong lpOverlapped) LIBRARY "kernel32.dll"  
    FUNCTION Boolean CloseHandle(ULong hObject) LIBRARY "kernel32.dll"

### 3-3 函数调用 ###

long lul_hBitmap  
    ulong lul_hdcmem, hdc  
    //判断剪贴板中的数据是否是BMP数据  
    constant ulong CF_BITMAP = 2  
    constant ulong DIB_RGB_COLORS = 0
    constant ulong BITMAPTYPE = 19778
    if IsClipboardFormatAvailable(CF_BITMAP) <> 1 then return      
    //（1）开始从剪贴板取数据  
    OpenClipboard(GetDesktopWindow())  
    lul_hBitmap = GetClipBoardData(CF_BITMAP)  
    CloseClipboard()  
    blob lb  
    hdc = GetDC(GetDesktopWindow())  
    lul_hdcmem = CreateCompatibleDC(hdc)  
    selectobject(lul_hdcmem, lul_hBitmap)  
    //（2）将取得的内存图片转换位blob数据流  
    ULong lul_hdc, lul_pixels  
    Blob lblb_header, lblb_info, lblb_bitmap  
    BitmapInfo lstr_Info  
    BitmapFileHeader lstr_Header  
    IF lul_hBitmap = 0 THEN return 
    lstr_Info.bmiHeader.biSize = 40  
    IF GetDIBits(lul_hdcMem, lul_hBitmap, 0, 0, 0, lstr_Info, DIB_RGB_COLORS) <= 0 THEN return  
    lul_pixels = lstr_Info.bmiHeader.biBitCount  
    lstr_Info.bmiColors[lul_pixels] = 0  
    lblb_bitmap = Blob(Space(lstr_Info.bmiHeader.biSizeImage))  
    // 获取文件信息  
    GetDIBits(lul_hdcMem, lul_hBitmap, 0, lstr_Info.bmiHeader.biheight, &  
    lblb_bitmap, lstr_Info, DIB_RGB_COLORS)  
    // 创建BMP文件头  
    lstr_Header.bfType = BITMAPTYPE  
    lstr_Header.bfSize = lstr_Info.bmiHeader.biSizeImage  
    lstr_Header.bfOffBits = 54 + (lul_pixels * 4)  
    // 将文件头转换成blob  
    lblb_header = Blob(Space(14))  
    CopyBitmapFileHeader(lblb_header, lstr_Header, 14)  
    // 将文件内容转换为blob  
    lblb_info = Blob(Space(40 + lul_pixels * 4))  
    CopyBitmapInfo(lblb_info, lstr_Info, 40 + lul_pixels * 4)  
    // 整合文件信息  
    lblb_bitmap = lblb_header + lblb_info + lblb_bitmap  
    //释放通过GetDC或GetWindowDC所检索出来的公用上下文设备  
    ReleaseDC(GetDesktopWindow(),hdc)  
    //删除通过CreteDC或CreateCompatibleDC所创建的上下文设备  
    DeleteDC(lul_hdcmem)  
      
    //（3）取到图片文件后，则开始保存到文件中  
    if len(lblb_bitmap) <= 0 then  return
    CONSTANT ULong INVALID_HANDLE_VALUE = -1  
    CONSTANT ULong GENERIC_WRITE = 1073741824  
    CONSTANT ULong FILE_SHARE_WRITE = 2  
    CONSTANT ULong CREATE_ALWAYS = 2  
    ULong lul_file, lul_length, lul_written  
    Boolean lb_rtn  
    // (创建)打开文件  
     
    string ls_path, ls_file
    int li_rc
    li_rc = GetFileSaveName ( "Select BMP File",  ls_path, ls_file, "bmp",  "bmp Files (*.bmp),*.bmp" , "D:\",  32770)
    IF li_rc <> 1 Then RETURN
    lul_file = CreateFile(ls_path, GENERIC_WRITE, &  
    FILE_SHARE_WRITE, 0, CREATE_ALWAYS, 0, 0)  
    IF lul_file = INVALID_HANDLE_VALUE THEN  RETURN  
    // 写文件  
    lul_length = Len(lblb_bitmap)  
    lb_rtn = WriteFile(lul_file, lblb_bitmap, &  
    lul_length, lul_written, 0)  
    // 关闭文件  
    CloseHandle(lul_file)     
    
    // 需要保持为jpg格式文件的，可以在将图片保存为bmp格式后，再调用外部dll将bmp转为紧jpg

## 4. 接口下载的Txt\[超过300M也可\]导入DataWindow\_备忘 ##

//====================================================================
    // 函数: nuo_ybjk_trans.uf_trans_filedownload()
    //--------------------------------------------------------------------
    // 描述: 智慧医保9102文件下载：调用接口交易
    //--------------------------------------------------------------------
    // 参数:
    // 	string	as_xmbm    	
    // 	string	as_filename	
    //--------------------------------------------------------------------
    // 返回:  boolean
    //--------------------------------------------------------------------
    // 作者:	Zhaof		日期: 2022年01月23日
    //====================================================================
    Long 			i ,ll_rtn, ll_ret
    String 		ls_path ,ls_fullName , ls_delFile, ls_Ansi_New ,ls_Err
    Blob			lb_data
    
    // 数据文件夹
    ls_path = GetCurrentDirectory()+"\ybsjpt_data"
    If Not FileExists( ls_path ) Then CreateDirectory ( ls_path )
    
    // 文件全路径名称
    ls_fullName = 	ls_path + '\' + as_filename
    FileDelete(ls_fullName) // 原来已存在则删除
    
    // 接口请求信息
    If IsNull(is_TransUrl) 	Or Trim(is_TransUrl) 	 = "" Then
    	is_Error = "接口请求地址为空!"
    	Return False
    End If
    If IsNull(is_RequestJson) Or Trim(is_RequestJson) 	 = "" Then
    	is_Error = "请求json为空!"
    	Return False
    End If
    // 下载医保中心的数据
    httpClient2.setheader('x-ca-key',is_TransKey )
    httpClient2.setheader('x-ca-signature',is_TransSignaTure )
    httpClient2.Request(httpClient2.httpPost, is_TransUrl ,is_RequestJson ,True)
    lb_data = httpClient2.response.Data
    If Len(lb_data) <= 0 Then
    	is_Error = is_title + httpClient2.response.ErrText
    	Return False
    End If
    
    //		ll_BlobLen = Len(lb_data)
    //		ll_rtn = uf_create_file(ls_fullname,lb_data,ls_err)
    // 改为工具类写入，上方uf_create_file使用PB内部遍历方式效率太低了 Modifyed By Zhaof 2022-11-08 
    If Not invo_file.blobtofile( lb_data, ls_fullName )  Then
    	is_Error = "医保中心返回的数据写入本地失败! 写入路径--" + ls_fullName
    	Return False
    End If
    
    // 解压后的文件名称,先删除已存在的同名文件
    If as_xmbm = "3202" Then // 对明细账交易时，医保返回的压缩包解压后为result.txt
    	ls_delFile = ls_path + "\result.txt"
    Else
    	ls_delFile = Left(ls_fullName,Len(ls_fullName) - 4)
    End If
    // 删除之前已解压并存在同名的文件 -- 亦是本次压缩包解压后的文件名
    FileDelete(ls_delFile)
    
    // 文件解压  Add By Zhaof   2022-01-19 
    //		MyZip_ExtractFileAll( ls_fullname,ls_path )
    // 中心返回的ZIP压缩包，使用MyZip解压有时候会失败，现改用uo_pbjson_7z对象解压实现
    If Not invo_7z.Extract( ls_fullName , ls_path ,True) Then
    	//  上面解压失败，再尝试使用MyZip_ExtractFileAll进行解压
    	ll_ret = MyZip_ExtractFileAll( ls_fullname,ls_path )
    	If ll_ret <> 1 Then
    		is_Error = "中心下载的明细ZIP解压失败!~r~n下载的文件地址: " + ls_fullName
    		Return False
    	End If 	
    End If
    //FileDelete(ls_fullname) // 删除压缩包文件【保留，应用后续跟踪调试】
    ls_fullName = ls_delFile // 解压后的文件全路径
    If Not FileExists(ls_fullName ) Then
    	is_Error = "医保文件解压缩失败! --" + ls_fullName
    	Return False
    End If
    
    // 有时医保文件下载太大， 将大文本文件，按10M 拆分成多个小文件,
    //		再执行Ansi转码写入本地Text，用于DW导入使用	Modified By Zhaof 2022-11-08
    Long 		ll_SplitCount ,j ,ll_line ,ll_beg ,ll_end ,ll_reprow
    String 	ls_AnsiData ,ls_SplitPath ,ls_tab ,ls_sql ,lf_ImportPath
    nuo_ds 	lds_9102_res
    ll_SplitCount = invo_file.SplitTextFile( ls_fullName,10 )
    If ll_SplitCount <= 0 Then
    	is_Error = "医保下载的文件拆分失败,无法执行导入!"
    	Return False
    End If
    
    // 小于10M的无需拆分遍历处理
    If ll_SplitCount = 1 Then 
    	ls_AnsiData = invo_file.StringFromTextFile( ls_fullName )
    	FileDelete( ls_fullName) // 读取完成将该拆分文件删除
    	FileDelete( ls_fullName + ".1.txt" )  // 删除无用的拆分文件
    	
    	// 写入转码后的 Ansi编码的 Text 文件，用于下方Ds导入使用，解决数据库乱码显示
    	invo_file.Blobtofile( Blob(ls_AnsiData), ls_fullName + ".1Ansi.txt" )
    Else
    	For i = 1 To ll_SplitCount
    		// 读取文件中的文本内容 -- 会自动进行编码转换
    		ls_AnsiData = invo_file.StringFromTextFile( ls_fullName + "." + String(i) + ".txt" )
    		FileDelete( ls_fullName + "." + String(i) + ".txt" ) // 读取完成将该拆分文件删除
    		
    		// 写入转码后的 Ansi编码的 Text 文件，用于下方Ds导入使用，解决数据库乱码显示
    		invo_file.Blobtofile( Blob(ls_AnsiData), ls_fullName + "." + String(i) + "Ansi.txt" )
    	Next
    End If 
    
    // 加载现有的字典目录 ，数据量太大了，屏蔽
    //uf_init_zdml( as_xmbm )  
    
    // 创建目录表存储，用于导入数据， 并更新至数据库
    ls_tab = " ybsjpt_" + as_xmbm
    ls_sql = " select * from " + ls_tab +" where 1=0 "
    If Not invo_utils.uf_dystore( Sqlca, ls_sql, Ref lds_9102_res) Then
    	is_Error = "目录下载失败," + invo_utils.is_err
    	Goto Errors;
    End If
    
    // 遍历每个拆分的Ansi编码的Txt文件，执行数据库导入操作
    For j = 1 To ll_SplitCount
    	// 待导入的Ansi编码的拆分Txt文件
    	lf_ImportPath = ls_fullName + "." + String(j) + "Ansi.txt"
    	// 获取总行数
    	ll_line = uf_linecount(lf_ImportPath)
    	ll_beg  = 1
    	If ll_line <= 0 Then Continue;
    	For i = ll_beg To ll_line Step 100
    		ll_end = 100/*step*/ + i - 1
    		If ll_end > ll_line Then ll_end = ll_line
    		ll_rtn = lds_9102_res.ImportFile(Text!,lf_ImportPath,i,ll_end)
    		
    		// 数据窗口ImportFile根据返回值获取到的描述信息
    		invo_utils.uf_get_dwimpinfo( ll_rtn,Ref ls_Err )
    		
    		// 填充主键值
    		For ll_reprow = 1 To lds_9102_res.RowCount()
    			lds_9102_res.Object.idxh[ll_reprow] = gf_getMax( Sqlca ,Upper(ls_tab) )
    		Next
    		
    		// 已存在数据处理，尚未Cmmit
    		uf_Exist_DataModi( as_xmbm, Ref lds_9102_res ) 
    		
    		If ll_rtn > 0 Or ll_rtn = -4/*超长截取*/	Then
    			If ll_rtn > 0 Or ll_rtn = -4 Then /*超过4000字符问题，在ds的itemerrr中处理掉，正常提交*/
    				If lds_9102_res.Update() = -1 Then
    					is_Error	 = ls_Err + Sqlca.SQLErrText
    					Rollback Using Sqlca;
    //					Goto Errors;   // 存在Rollback的情况，避免后续数据导入终止，此处不中断处理了
    				Else
    					Commit Using Sqlca;
    				End If
    				// 疾病下载的数据,导入到本地疾病代码字典表
    				If Not uf_import_jbdmzd( as_xmbm, lds_9102_res ) Then Goto Errors;
    			End If
    		Else
    			If IsNull(ls_Err) Then ls_Err = "未知的错误!--导入返回值ll_rtn := " + String(ll_rtn)
    			is_Error = ls_Err
    			Goto Errors;
    		End If
    		If ll_rtn = -4 Then
    			i = i - 100 /*step*/ + lds_9102_res.RowCount() //回到开始的步数，再向前走实际行数
    		End If
    		lds_9102_res.Reset()
    	Next
    	// 使用完删除该拆分文件
    	FileDelete( lf_ImportPath )
    Next
    
    If IsValid( lds_9102_res ) Then Destroy lds_9102_res
    Return True
    
    Errors:
    // 交易失败，则自动删除拆分好的文件
    For j = 1 To ll_SplitCount
    	lf_ImportPath = ls_fullName + "." + String(j) + "Ansi.txt"
    	FileDelete( lf_ImportPath )
    Next
    lf_ImportPath = ls_fullName + "." + String(j) + "Ansi.txt"
    If IsValid( lds_9102_res ) Then Destroy lds_9102_res
    Return False

## 5. 获取文件创建时间、最后修改时间及设置最后修改时间的方法 ##

### 5-1 将以下内容保存为本地文件n\_cst\_filetime.sru，然后导入pbl中 ###

$PBExportHeader$n_cst_filetime.sru
    $PBExportComments$与文件时间有关的外部函数
    forward
    global type n_cst_filetime from nonvisualobject
    end type
    type os_filedatetime from structure within n_cst_filetime
    end type
    type os_fileopeninfo from structure within n_cst_filetime
    end type
    type os_finddata from structure within n_cst_filetime
    end type
    type os_securityattributes from structure within n_cst_filetime
    end type
    type os_systemtime from structure within n_cst_filetime
    end type
    end forward
     
    type os_filedatetime from structure
        unsignedlong        ul_lowdatetime
        unsignedlong        ul_highdatetime
    end type
     
    type os_fileopeninfo from structure
        character        c_length
        character        c_fixed_disk
        unsignedinteger        ui_dos_error
        unsignedinteger        ui_na1
        unsignedinteger        ui_na2
        character        c_pathname[128]
    end type
     
    type os_finddata from structure
        unsignedlong        ul_fileattributes
        os_filedatetime        str_creationtime
        os_filedatetime        str_lastaccesstime
        os_filedatetime        str_lastwritetime
        unsignedlong        ul_filesizehigh
        unsignedlong        ul_filesizelow
        unsignedlong        ul_reserved0
        unsignedlong        ul_reserved1
        character        ch_filename[260]
        character        ch_alternatefilename[14]
    end type
     
    type os_securityattributes from structure
        unsignedlong        ul_length
        string        ch_description
        boolean        b_inherit
    end type
     
    type os_systemtime from structure
        unsignedinteger        ui_wyear
        unsignedinteger        ui_wmonth
        unsignedinteger        ui_wdayofweek
        unsignedinteger        ui_wday
        unsignedinteger        ui_whour
        unsignedinteger        ui_wminute
        unsignedinteger        ui_wsecond
        unsignedinteger        ui_wmilliseconds
    end type
     
    global type n_cst_filetime from nonvisualobject autoinstantiate
    end type
     
    type prototypes
    //获得应用程序名用
    //Function uint GetModuleFileNameA(ulong hModule,ref string lpFilename,ulong nSize) Library "kernel32.dll" //获取应用程序运行目录
     
    //文件操作
    Function long FindFirstFileA (ref string filename, ref os_finddata findfiledata) library "kernel32.dll"
    Function boolean FindNextFileA (long handle, ref os_finddata findfiledata) library "kernel32.dll"
    Function boolean FindClose (long handle) library "kernel32.dll"
    Function long    OpenFile (ref string filename, ref os_fileopeninfo of_struct, ulong action) LIBRARY "kernel32.dll"
    Function boolean CloseHandle (long file_hand) LIBRARY "kernel32.dll"
    Function boolean GetFileTime(long hFile, ref os_filedatetime  lpCreationTime, ref os_filedatetime  lpLastAccessTime, ref os_filedatetime  lpLastWriteTime  )  library "kernel32.dll"
    Function boolean FileTimeToSystemTime(ref os_filedatetime lpFileTime, ref os_systemtime lpSystemTime) library "kernel32.dll"
    Function boolean FileTimeToLocalFileTime(ref os_filedatetime lpFileTime, ref os_filedatetime lpLocalFileTime) library "kernel32.dll"
    Function boolean SetFileTime(long hFile, os_filedatetime  lpCreationTime, os_filedatetime  lpLastAccessTime, os_filedatetime  lpLastWriteTime  )  library "kernel32.dll"
    Function boolean SystemTimeToFileTime(os_systemtime lpSystemTime, ref os_filedatetime lpFileTime) library "kernel32.dll"
    Function boolean LocalFileTimeToFileTime(ref os_filedatetime lpLocalFileTime, ref os_filedatetime lpFileTime) library "kernel32.dll"
    end prototypes
    type variables
    end variables
    forward prototypes
    public function integer of_getcreatedatetime (string as_filename, ref datetime adt)
    public function integer of_getlastwritedatetime (string as_filename, ref datetime adt)
    public function integer of_setlastwritedatetime (string as_filename, datetime adt)
    private function integer of_convertfiledatetimetopb (os_filedatetime astr_filetime, ref datetime adt)
    private function integer of_convertpbdatetimetofile (datetime adt, ref os_filedatetime astr_filetime)
    end prototypes
    public function integer of_getcreatedatetime (string as_filename, ref datetime adt);//得到文件创建的时间
    long ll_handle
    os_finddata    lstr_FindData
     
    // Get the file information
    ll_handle = FindFirstFileA(as_FileName, lstr_FindData)
    If ll_handle <= 0 Then Return -1
    FindClose(ll_handle)
     
    // Convert the date and time
    Return of_ConvertFileDatetimeToPB(lstr_FindData.str_CreationTime, adt)
    end function
     
    public function integer of_getlastwritedatetime (string as_filename, ref datetime adt);//得到文件最后修改的时间
    long    ll_handle
    os_finddata    lstr_FindData
     
    // Get the file information
    ll_handle = FindFirstFileA(as_FileName, lstr_FindData)
    If ll_handle <= 0 Then Return -1
    FindClose(ll_handle)
     
    // Convert the date and time
    Return of_ConvertFileDatetimeToPB(lstr_FindData.str_LastWriteTime, adt)
    end function
     
    public function integer of_setlastwritedatetime (string as_filename, datetime adt);//设置文件最后修改时间
    boolean lb_Ret
    long ll_handle
    os_filedatetime lstr_FileTime, lstr_Empty
    os_finddata lstr_FindData
    os_fileopeninfo lstr_FileInfo
     
    // Get the file information.
    // This is required to keep the Last Access date from changing.
    // It will be changed by the OpenFile function.
    ll_handle = FindFirstFileA(as_FileName, lstr_FindData)
    If ll_handle <= 0 Then Return -1
    FindClose(ll_handle)
     
    // Convert the date and time
    If of_ConvertPBDatetimeToFile(adt, lstr_FileTime) < 0 Then Return -1
     
    // Set the file structure information
    lstr_FileInfo.c_fixed_disk = "~000"
    lstr_FileInfo.c_pathname = as_FileName
    lstr_FileInfo.c_length = "~142"
     
    // Open the file
    ll_handle = OpenFile ( as_filename, lstr_FileInfo, 2 ) 
    If ll_handle < 1 Then Return -1
     
    lb_Ret = SetFileTime(ll_handle, lstr_Empty, lstr_FindData.str_LastAccessTime, lstr_FileTime)
     
    CloseHandle(ll_handle)
     
    If lb_Ret Then
        Return 1
    Else
        Return -1
    End If
     
    end function
     
    private function integer of_convertfiledatetimetopb (os_filedatetime astr_filetime, ref datetime adt);//转换文件系统时间为PB时间
    os_filedatetime    lstr_LocalTime
    os_systemtime    lstr_SystemTime
    If Not FileTimeToLocalFileTime(astr_FileTime, lstr_LocalTime) Then Return -1
    If Not FileTimeToSystemTime(lstr_LocalTime, lstr_SystemTime) Then Return -1
    adt = datetime(blob(String(lstr_SystemTime.ui_wyear) + "-" + &
                 String(lstr_SystemTime.ui_WMonth) + "-" + &
                 String(lstr_SystemTime.ui_WDay) + ' ' + &
                 String(lstr_SystemTime.ui_wHour) + ":" + &
                 String(lstr_SystemTime.ui_wMinute) + ":" + &
                 String(lstr_SystemTime.ui_wSecond) + ":" + &
                 String(lstr_SystemTime.ui_wMilliseconds)))
    Return 1
    end function
     
    private function integer of_convertpbdatetimetofile (datetime adt, ref os_filedatetime astr_filetime);//转换文件系统时间为PB时间
    os_filedatetime    lstr_LocalTime
    os_systemtime    lstr_SystemTime
     
    lstr_SystemTime.ui_wyear = year(date(adt))
    lstr_SystemTime.ui_WMonth = Month(date(adt))
    lstr_SystemTime.ui_WDay = Day(date(adt))
     
    lstr_SystemTime.ui_wHour = hour(time(adt))
    lstr_SystemTime.ui_wMinute = Minute(time(adt))
    lstr_SystemTime.ui_wSecond = Second(time(adt))
    lstr_SystemTime.ui_wMilliseconds = Long(String(adt, "fff"))
     
    If Not SystemTimeToFileTime(lstr_SystemTime, lstr_LocalTime) Then Return -1
     
    If Not LocalFileTimeToFileTime(lstr_LocalTime, astr_FileTime) Then Return -1
     
    Return 1
    end function
     
    on n_cst_filetime.create
    call super::create
    TriggerEvent( this, "constructor" )
    end on
     
    on n_cst_filetime.destroy
    TriggerEvent( this, "destructor" )
    call super::destroy
    end on

### 5-2 程序中使用实例： ###

n_cst_filetime ln
    string ls_file = 'C:\Program Files\Sybase\PowerBuilder 9.0\pb90.exe'
    datetime ldt_create, ldt_lastwrite
    ln.of_getcreatedatetime( ls_file, ldt_create)
    ln.of_getlastwritedatetime( ls_file, ldt_lastwrite)
    messagebox('提示', '文件【' + ls_file + '】~r~n~r~n创建时间：  ' + string(ldt_create, 'yyyy年mm月dd日, hh:mm:ss.fff') +&
                                '~r~n修改日期：  ' + string(ldt_lastwrite, 'yyyy年mm月dd日, hh:mm:ss.fff') )

## 6. PB关闭后台进程 ##

### 6-1 将以下内容保存为nvo\_kill\_process.sru ， 然后导入pbl ###

$PBExportHeader$nvo_kill_process.sru
    forward
    global type nvo_kill_process from nonvisualobject
    end type
    type s_process from structure within nvo_kill_process
    end type
    end forward
     
    type s_process from structure
        unsignedlong        structsize
        unsignedlong        usage
        unsignedlong        processid
        unsignedlong        defaultheapid
        unsignedlong        moduleid
        unsignedlong        threads
        unsignedlong        parentprocessid
        unsignedlong        classbase
        unsignedlong        flags
        character        filename[200]
    end type
     
    global type nvo_kill_process from nonvisualobject autoinstantiate
    end type
     
    type prototypes
    Function Long GetCurrentProcessId() Library "kernel32.dll" 
    Function Long CreateToolhelp32Snapshot(Long Flags,Long ProcessId) Library "kernel32.dll" 
    Function Integer Process32First(uLong Snapshot,ref s_Process Process) Library "kernel32.dll" 
    Function Integer Process32Next(uLong Snapshot,ref s_Process Process) Library "kernel32.dll"
    Function ulong TerminateProcess(long hProcess,ulong uExitCode) LIBRARY "kernel32.dll"
    FUNCTION ulong OpenProcess(ulong  dwDesiredAccess,ulong  bInheritHandle,ulong   dwProcessId)   LIBRARY   "kernel32.dll"   
     
    end prototypes
     
    forward prototypes
    public function integer of_kill_process (string as_pro)
    end prototypes
     
    public function integer of_kill_process (string as_pro);s_Process lst_Process //进程结构 
    String ls_FileName[],ls_CurExeName //最多100个进程，可改进 
    ulong ln_ProcessID,ln_Snapshot,ln_Circle,ln_Count //,ln_SameCount
    string ls_Kill_File
    Long ll_PID,ll_PID2
     
    IF as_pro='' OR isnull(as_pro) Then Return 1
     
    ln_ProcessID = GetCurrentProcessId() //取当前进程的ID 
     
    if IsNull(ln_ProcessID) or ln_ProcessID<1 then return -1 //出错则返回 
     
    ln_Snapshot = CreateToolhelp32Snapshot(2,0) //在堆上创建进程快照 
     
    if (ln_Snapshot<1) then return -1 //出错则返回 
     
    lst_Process.StructSize = 296 //Win32api的Process结构大小
     
    if Process32First(ln_Snapshot,lst_Process)=0 then 
        return -1 //取第一个进程失败则返回 
    End IF
     
    ls_Kill_File = lst_Process.FileName
     
    IF pos(lower(as_pro),lower(ls_Kill_File))>0 Then           
        ll_pid=Long(lst_process.processid)       
        ll_pid2 = Long(OpenProcess(1,0,ll_PID))//使该进程可读写    
        TerminateProcess(ll_PID2,1) //Kill Process
    End IF
     
    if lst_Process.ProcessID=ln_ProcessID then //如果为当前进程,不允许删除
        ls_CurExeName=lst_Process.FileName 
    END IF
     
    do while true     //循环取列举的进程名称   
        if Process32Next(ln_Snapshot,lst_Process)=0 then exit //列举完毕        
        IF lst_Process.ProcessID=ln_ProcessID Then continue  //如果是当前进程.不执行下述杀除操作.   
        ls_Kill_File = lst_Process.FileName   
        IF pos(lower(as_pro),lower(ls_Kill_File))>0 Then       
            ll_pid=Long(lst_process.processid)   
            ll_pid2 = Long(OpenProcess(1,0,ll_PID))//使该进程可读写    
            TerminateProcess(ll_PID2,1) //Kill Process   
        End IF
    loop 
     
    Return 1
     
    end function
     
    on nvo_kill_process.create
    call super::create
    TriggerEvent( this, "constructor" )
    end on
     
    on nvo_kill_process.destroy
    TriggerEvent( this, "destructor" )
    call super::destroy
    end on

### 6-2 假如要关闭D:\\test.exe，则可以这样结束该进程： ###

nvo_kill_process ln
    ln.of_kill_process("test.exe")

## 7 自动关闭弹出的消息窗口 ##

//－新建一窗口，上面放置一按钮对象cb_msg
    
    cb_msg的click事件代码－
    Open('msg','这是一个测试关闭消息窗口的例子')
    
    //---在窗口Local external Functions声明以下API函
    Function long FindWindowA (String lpClassName , String lpWindowName ) Library "user32.dll"
    Function boolean IsWindow (Long hwnd ) Library "user32.dll"
    
    //---窗口的open事件代码
    Timer(2)//触发关闭消息窗口代码的时间间隔
    
    //---Timer事件代码
    Ulong  handle
    String ls_null
    
    SetNull(ls_null)
    //获得该消息窗口的句柄
    handle = FindWindowA(ls_null,'msg')//字符串"msg"为消息窗口的标题名称
    
    If Iswindow(handle) Then
       //向WINDOWS发送消息关闭窗口,256为wm_keydown消息的整型值
       Post(handle,256,13,0)
    End If

## 8 PB数据窗口字段值的校验 validation Expression表达式 ##

比如一个datawindow,有个字段的输入必须非负，
    可以在validation expression中输入:
    number(gettext())>=0，
    在validation message中输入
    '不能为负值'

## 9 PB中label型数据窗口,显示的列数通过代码改动 ##

ls_columns = "3";
     dw_1.modify("datawindow.label.columns=" + ls_columns)
     dw_1.object.datawindow.label.rows = 4		// 指定每页纵向4列，按顺序逐个展示
     或者
     dw_1.object.datawindow.label.columns=3		// 主界面显示3列
     dw_1.object.datawindow.label.rows = 4		// 指定每页纵向4列，按顺序逐个展示

## 10 PB中N-Up类型数据窗口各种方式的序号列的添加 ##

### 10-1 序号先从左到右显示，再由上及下 ###

// 增加三个计算列： 计算列的具体expression写法分别为：
    <1> xh1：getrow() + 0
    <2> xh2：getrow() + 1 
    <3> xh3：getrow() + 2

效果如下图：  
![在这里插入图片描述][ea7edee3ab7b4a0998a69cd94f9ae1ef.png_pic_center]

### 10-2 序号先由上及下，再从左到右 ###

<1> xh1：(getrow() - 1) / long(describe("datawindow.rows_per_detail")) + 1
    <2> xh2：1 * ceiling(rowcount() / long(describe("datawindow.rows_per_detail")))  - sign(mod(rowcount(), long(describe("datawindow.rows_per_detail")) )) * (1 - mod(rowcount(), long(describe("datawindow.rows_per_detail")) )) + (getrow() - 1) / long(describe("datawindow.rows_per_detail")) + 1 
    <3> xh3：2 * ceiling(rowcount() / long(describe("datawindow.rows_per_detail")))  - sign(mod(rowcount(), long(describe("datawindow.rows_per_detail")) )) * (2 - mod(rowcount(), long(describe("datawindow.rows_per_detail")) )) + (getrow() - 1) / long(describe("datawindow.rows_per_detail")) + 1    
    
    // 规律就是对应第N栏的序号列的表达式为：
    (N - 1) * ceiling(rowcount() / long(describe("datawindow.rows_per_detail")))  - sign(mod(rowcount(), long(describe("datawindow.rows_per_detail")) )) * ((N - 1) - mod(rowcount(), long(describe("datawindow.rows_per_detail")) )) + (getrow() - 1) / long(describe("datawindow.rows_per_detail")) + 1

效果如下图：  
![在这里插入图片描述][b8f1807915c64d61b806fa7a463c626b.png_pic_center]

## 11 PB程序中自动注册OCX控件 ##

[1].  如果在程序中使用了OCX控件，在开发阶段，可以使用Windows的程序来注册这个控件，如：
    regsvr32 ccrpftv6.ocx
    regsvr32 filevw61.ocx
    如果取消注册的话：
    regsvr32 /u ccrpftv6.ocx
    regsvr32 /u filevw61.ocx
    
    [2]. 自动注册：
    OCX文件中都有一个接口DllRegisterServer，这个接口就是用来注册自身的
    1. 声明一个外部函数：
    Function long DllRegisterServer() Library "ccrpftv6.ocx"
    2. 在程序中进行调用：
    DllRegisterServer()
    
    [3]. 如果程序中使用了多个OCX，而OCX的注册接口都是DllRegisterServer，可以用alias关键字来解决，如：
    Function long DllRegisterServer_ccrptv6() Library "ccrpftv6.ocx" alias for "DllRegisterServer"
    Function long DllRegisterServer_filevw61() Library "filevw61.ocx" alias for "DllRegisterServer"
    程序中调用：
    DllRegisterServer_ccrptv6()
    DllRegisterServer_filevw61()
    
    [4]. 如果每次运行的时候都去注册，效率不高，只有当控件没有注册的时候进行注册，这样，需要知道控件的CLSID，可以从注册表中查到，注册之前先判断一下十分已经注册，如果没有注册，则进行注册，举例如下：
    string ls_temp
    integer li_ret
    long ll_ret
    
    li_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{19B7F2D6-1610-11D3-BF30-1AF820524153}/TypeLib", "", RegString!, ls_temp)	//{19B7F2D6-1610-11D3-BF30-1AF820524153}是这个控件的CLSID
    if li_ret = -1 then 		//如果返回-1，说明没有注册
     ll_ret = DllRegisterServer_ccrptv6()
    end if
    
    li_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{E67F7BE6-F682-4254-8CF4-3CCE1EEC0EA5}/TypeLib", "", RegString!, ls_temp)//{19B7F2D6-1610-11D3-BF30-1AF820524153}是这个控件的CLSID
    if li_ret = -1 then //如果返回-1，说明没有注册
     ll_ret = DllRegisterServer_filevw61()
    end if

## 12 PB借助adobe reader实现后台自动打印pdf文件 ##

// 前提是客户机上必须要装有adobe的reader
    // 在获取reader的路径后加上 /p /h 加上被打印的pdf的文件全路径即可
    // 代码：
    string ls_reader_path="c:/program files/abobe/reader 9.0/reader>acrord32 /P /h "
    string ls_pdf_path="d:/test.pdf"
    string ls_print_path=ls_reader_path+ls_pdf_path
    run(ls_print_path)

## 13 PB校验XML是否是合法 ##

long ll_ret 
    string ls_xmlstr, ls_err 
    // 返回值=1表示合法
    ll_ret = XMLParseString(ls_xmlstr, ValAlways!, ls_err) 
    if ll_ret = 1 then dw_1.ImportString(ls_xmlstr)

## 14 PB数据窗口风格的判定 ##

可通过 DataWindow.Processing 判断 DataWindow 对象的类型，dw的类型如下：
        0 (Default) Form, group, query, or tabular
        1 Grid
        2 Label
        3 Graph
        4 Crosstab
        5 Composite
        7 RichText
    ………………等等，具体可自己创建一个相应的类型的Dw，右键Edit Source查看具体的值
    
    示例一：
    This.Object.Datawindow.Processing = '0'
    
    示例二：
    String    ls_processing
    ls_processing = idw_requestor.Describe("datawindow.Processing")
    If ls_processing = "4" Then  // 表示为Crosstab类型的Dw
        idw_requestor.Modify("DataWindow.Crosstab.StaticMode=Yes")
    End If

## 15 DW数据窗口常用技巧 ##

1、如何让存储文件目录的列，显示图片？
    答：选择对应的column的display as picture属性为true
    2、如何复制grid类型的所选择的行的数据到系统剪切板？
    答：string ls_selected
    ls_selected=dw_1.Object.DataWindow.Selected.Data
    clipbord(ls_selected)
    4、如何设置的DW底色？
    修改DW的editsource中改变color的值
    5、如何将Grid风格改成自由格式？
    修改DW的editsource中processing=1 ，由 1改为0
    6、要新建一个表A但风格和现有表格B风格一样，怎么将A表快速设置成表B风格？
    复制B表C，在C表的DW中的editsource中将表名和字段名改成A表的，即可
    7、如何实现gird风格的datawindow的多栏表头？
    答：添加 text到header带区，并设置band属性为foreground保存，edit source 修改text的x和width属性表达式如下：
    x="100~t integer(describe('firstcol.x')" width="100~tinteger(describe('lastcol.x')) - integer(describe('firstcol.x')) +integer(describe('lastcol.width'))
    8、如何过滤dddw编辑风格的显示值为指定值的记录？
    答：dw_1.setfilter("lookupdisplay('column_name')='"+ls_display_value_your+"'")
    dw_1.filter()
    9、如何设置datawindow的某一列为空？
    答：string ls_temp[]
    setnull(ls_temp)
    dw_1.o b j e c t.columnname.primary.current=ls_temp
    10、如何设置datawindow的单双行不同颜色间隔？
    答：在detail带区的color属性表达式中写上if(mod (getrow(),2)=1 ,rgb(255,0,0),rgb(0,255,0)),如果是当前行以第三种颜色表示，表达式如下：if(getrow()=current(), rgb(255,0,0),if(mod(getrow(),2)=1 ,rgb(0,0,255),rgb(0,255,0)))
    11、如何获取指定名称的datawindowo b j e c t?
    答：DWObject ldwo_use,ldwo_abc ldwo_use = dw_1.Object ldwo_abc = ldwo_use.__get_attribute("t_1",FALSE)//t_1为datawindow中text对象的名称
    12、如何缩放datawindow的打印大小？
    答：dw_1.o b j e c t.datawindow.zoom=150 or dw_1.o b j e c t.datawindow.zoom=75
    13、如何在已过滤后的数据基础上对datawindow进行过滤？
    答：dw_1.setfilter(dw_1.describe("datawindow.table.filter")+your_join+your_new_filter)
    dw_1.filter()
    14、如何在datawindow中显示动态时间？
    答：建立一个计算域，表达式为string(datetime(today(),now()),'yyyy年mm月dd日 hh点mm分ss秒'),同时设置datawindow的属性dw_1.Object.DataWindow.Timer_Interval=500
    15、如何让带用title bar的datawindow控件的标题栏诚活动窗口的颜色？
    答：外部函数定义：
    funcation logn SetActiveWindow(long hwnd ) Library "user32.dll"
    datawindow控件的clicked事件代码：
    setactivewindow(handle(this))
    16、如何设置datawindow的当前行指示图标？
    答：在datawindow中建立一个计算列,expression为'',并将该计算列移动为datawindow的第一个列，在datawindow控件的
    rowfocuschanged事件中写入代码：
    SetRowFocusIndicator(hand!)或setrowfucsindicator(p_1)//p_1为窗口上的picture控件名
    17、如何通过代码打开dddw？
    答：定义外部函数引用声明
    SUBROUTINE keybd_event( int bVk, int bScan, int dwFlags, int dwExtraInfo) LIBRARY "user32.dll"
    代码如下： [constant integer VK_F4 = 115
    dw_1.SetFocus()
    dw_1.SetColumn( "dept_head_id" ) //设置当前dddw
    keybd_event( VK_F4,0,0,0 ) // 按下F4键
    keybd_event( VK_F4,0,2,0 ) // 释放F4键
    18、如何打印datawindow的内容到文件中？
    答： dw_1.o b j e c t.datawindow.print.fileName ="c:/temp.prn"
    dw_1.print()
    19、如何设置dddw的初始值？
    答：dw_1.o b j e c t.columnname.Initial="your_initial_value"
    20、如何只显示不同的数据？
    答：dw_1.filter("isnull(columnname[-1]) and columnnamecolumnname[-1]")
    dw_1.filter()
    21、如何让带有title bar的datawindow不可以移动？
    答：在datawindow的自定义事件ue_nchittest(pbm_nchittest)中写入如下代码：
    return 1
    22、如何在N-UP显示风格中建立基于第N栏中的列的计算列？
    答：如column有两列，number和price ,并显示为两栏，则第一栏的cost计算列的expression为number*price,第二栏的cost_1计算列的expression为number[1]*price[1]
    23、如何清空ddlb或edit.codetable中项目？
    答：dw_1.Object.columnname.Values=""
    24、如何实现指定的column的字体旋转90度？
    答：dw_1.o b j e c t.columnname.font.Escapement ="900"
    25、如何获取datawindow的sql代码？
    答： 可以通过以下四种方法获取sql代码：
    string szselect
    szselect=dw_1.describe("datawindow.table.select")
    szselect=dw_1.describe("datawindow.table.sqlselect")
    szselect=dw_1.describe("datawindow.table.select.attribute")
    szselect=dw_1.getsqlselect()
    27、如何获取datawindow对象占有的虚拟存储的容量？
    答：使用datawindow.storage属性
    举例：在datawindow控件的retrieverow事件中，写如如下代码：
    long lstorage
    lstorage=long(dw_1.o b j e c t.datawindow.storage)
    if lstorage>50000 then dbcancel()
    
    28、如何连续在同一张纸打印两个数据窗口？
    答：dw_1.o b j e c t.datawindow.print.filename="temp.prn"
    dw_2.o b j e c t.datawindow.print.filename="temp.prn"
    dw_1.print()
    dw_2.print()
    29、如何设置datawindow分组后每个分组中的记录号？
    答：建立一个计算列，expression为 getrow() - first(getrow() for group 1)+1
    30、如何实现在datawindow中只有新增的行，才可以编辑？
    答：在所有的column的protect属性表达式中写入以下表达式：
    if(isrownew(),'0','1')
    31、除了循环以外，有没有更好的方法统计数据窗口中处于选中状态的行数？
    一般习惯于使用循环来统计数据窗口中处于选中状态的行数，有没有更好的方法？其实此问题在应用上用处不大，讨论一下，活跃一下思维还是有好处的。
    方法一： long ll_Selected ll_Selected = long(dw_1.describe("evaluate('sum( if(IsSelected(), 1, 0) for all)',1)"))
    方法二： long ll_Selected ll_Selected = long(dw_1.describe("evaluate('count(IsSelected() for all)',1)"))
    方法三：upperbound(dw_1.Object.Data.Selected)
    32、问：怎么让PB只打印当前记录,是用Free格式制作的数据窗口！
    ---------------------------------------------------------------
    答：
    DataStore ldt_temp
    long ll_Row , ll_Rows
    ll_Rows = dw_XX.Rowcount()
    If ll_Rows = 0 Then GoTo the_end
    If ll_Rows = 1 Then
    dw_XX.Print()
    GoTo the_end
    End if
    dw_XX.SetRedraw(False)
    ldt_temp = Create DataStore
    ldt_temp.DataObject = dw_XX.DataObject
    ll_Row = dw_XX.GetRow()
    dw_XX.RowsMove(1 , ll_Rows , Primary! , ldt_temp , 1 , Primary!)
    ldt_temp.RowsMove(ll_Row , ll_Row , Primary! , dw_XX , 1 , Primary!)
    dw_XX.Print()
    dw_XX.RowsMove(1 , 1 , Primary! , ldt_temp , ll_Row , Primary!)
    ldt_temp.RowsMove(1 , ll_Rows , Primary! , dw_XX , 1 , Primary!)
    Destroy ldt_temp
    dw_XX.SetRedraw(True)
    the_end:
    // 只用将上述脚本拷入到打印部分即可，dw_XX为被打印的free型数据窗口，该方法可保证dw_XX中的数据在打印前后包括sort等属性均不发生任何 改变，但效率较低，不宜用在数据量太大的数据窗口中，当然，考虑到打印本身速度就比较慢，所以3000行数据是可以采用这种方法并让用户接受的。若在同一 窗口上存在与dw_XX共享的grid数据窗口并且与dw_XX同时显示，则需要与dw_one一起SetRedraw()
    33、字段如何自动换行的同时且自动高度？
    答：将数据窗口中相应列的auto horz scroll 为不选中，选中autosize height 将detail的autosize height选中。在数据窗口retrieve 后调用下面函数即可 uf_set_text(datawindow adw_content,string as_columns,boolean,ab_ignoreblank) /************************************************************* describe: 在数据窗口adw_content中，在as_columns中包含的列中插入空格 args: as_columns 要操作的多个列，列间用逗号隔开
    ************************************************************
    */ if (not isvalid(adw_content)) or isnull(as_columns) or len(as_columns)as_source then adw_content.setitem(ll_row,ls_column[li_column],as_replaced) end if w_waiting.uf_stepit() next next close(w_waiting) iw_frame.enabled = true return 1
    34、如何使dw的列不可移动，不可调整列宽？
    答：在datawindow的cilcked事件写 if row=0 then return 1 end if
    35.光标跳转到数据窗口的某一行某一列
    dw_1.scrolltorow(ll_row) dw_1.setcolumn(ll_column)
    36 如何使光标指向每页第一行?
    long ll_firstrowonpage=long(dw_1.describe("datawindow.firstrowonpage"))
    dw_1.scrolltorow（ll_firstrowonpage)
    dw_1.setrow(ll_firstrowonpage)
    37. Grid的窗口如何使第一列固定不动？
    ①选上data OBJECT的HSplitScroll属性 ②在constructor事件中： dw_1.Object.DataWindow.HorizontalScrollSplit=integer(dw_1.describe("#1.width")) //第一列的宽度 ③在scrollhorizontal事件中： int i
    if pane = 1 then
    i = integer(this.OBJECT.datawindow.horizontalscrollposition2)
    if i  0 then
    this.OBJECT.datawindow.horizontalScrollPosition = 0
    end if
    else
    i = integer(this.Object.DataWindow.HorizontalScrollSplit)
    if i  scrollpos then
    this.OBJECT.datawindow.horizontalScrollPosition2 = i
    end if
    end if
    38：如何禁止修改grid数据窗口列宽度
    答：在Grid数据窗口的Clicked事件中加入：
            If row = 0 Then return 1
    39：grid数据窗口改变列宽度事件：
    event:pbm_lbuttondown,pbm_mousemvoe,pbm_lbuttonup
    如果:
    pbm_lbuttondown: 在数据窗口标题栏（getrow() = 0 and GetObjectAtPointer =你的标题）按下鼠标左键，记一个标志；
    pbm_mousemvoe: 鼠标移动了，在记一个标志；
    pbm_lbuttonup: 这时鼠标左键up，再判断最后一列的位置是否发生变化，如果有，写你的脚本。
    40：如何判断数据窗口内容是否修改
    if dw_wh.deletedcount() + dw_wh.modifiedcount() > 0 then
    integer li_ret
    li_ret = messagebox("注意","数据已经被修改，是否存盘？",Question!,YesNoCancel!)
    41：如何得到数据窗口鼠标光标下的控件和行
       建立一个自定义事件，事件号pbm_dwnmousemove，   事件有参数row、dwo
    42：如何改变GRID数据窗口列位置（新手常见）
    先preview，然后在预览窗口拖动位置即可。
    070411更新
    43：数据窗口循环删除行，必须要从最后一行开始删除，如
    for ll_row =dw_1.rowcount() to 1 step -1
    //if 删除条件 then
    dw_1.deleterow(ll_row)
    next
    // 当然，也可以用do while 加上 find函数实现

## 16 数据窗口中获得数据(含批量获取 ##

通过PowerBuilder的数据窗口对象属性，可以指定一定格式的表达式来直接从数据窗口中获得数据
    ---------------------------------------------------------------------
    1） 在知道列或计算域名时得到数据得到某列中一行或全部的值，
    表达式：（如果rownum忽略，则可得到缓冲区或数据源的值）
    dwcontrol.Object.columnname {
        .buffer } {
        .datasource } {
         [ rownum ] }
    其中datasource 参数表示数据源，它有两个可选项，Current（缺省）和Original，由此参数我们可以指定数据是从当前数据窗口上还是从数据库中得到。对于计算域，它不能被改变也没有当前值，所以我们必须指定为此参数为Original。
    示例：
    缺省设置是在Primary缓冲区的当前值，下面语句是等价的，都是从第一行得到emp_name列的值
    dw_1.Object.emp_name[1]
    dw_1.Object.emp_name.Primary.Current[1]
    下面语句设置emp_name列的第一行值为“国防科技大学先进制造中心”
    dw_1.Object.emp_name[1] = "国防科技大学先进制造中心"
    下面语句得到所有emp_name列的值，并将它们放入数组中
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Current
    下面语句得到emp_name列在filter缓冲区的所有当前值
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Filter
    下面语句得到emp_name在filter缓冲区的初始值（数据库中的值）
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Filter.Original
    下面语句得到emp_name列在delete缓冲区的第14行的当前值
    string ls_name
    ls_name = dw_1.Object.emp_name.Delete[14]This statement gets the original
    下面语句得到emp_name列在delete缓冲区的第14行的初始值（数据库中的值）
    string ls_name
    ls_name = dw_1.Object.emp_name.Delete.Original[14]
    下面语句得到review_date计算域的所有值
    string ld_review[]
    ld_review = dw_1.Object.review_date.Original
    得到被选择项的值
    表达式：dwcontrol.Object.columnname {
        .Primary }{
        .datasource }.Selected
    示例：
    由于Primary缓冲区是程序本选择项所在的唯一缓冲区并且当前数据是缺省的，下面的语句作用是等价的，它们实现从emp_name列中得到被选中行的值。
    dw_1.Object.emp_name.Selected
    dw_1.Object.emp_name.Primary.Selected
    dw_1.Object.emp_name.Current.Selected
    dw_1.Object.emp_name.Primary.Current.Selected
    下面语句从数据库中得到被选择行的数据
    dw_1.Object.emp_name.Original.Selected
    dw_1.Object.emp_name.Primary.Original.Selected
    下面语句设置emp_name列的第一个被选中行的值为空字符串
    string ls_empty[]
    ls_empty[1] = ""
    dw_1.Object.emp_lname.Selected = ls_empty
    下面语句可得到emp_name列被选中行的初始值（从数据库中检索出的值），并将它放入一个字符串数组
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Original.Selected
    得到一定范围的值
    返回指定列的一个范围的行的值，并将它们放入数组
    表达式：
    dwcontrol.Object.columnname {
        .buffer } {
        .datasource } [ startrownum,
    endrownum ]
    示例：
    由于Primary缓冲区和当前数据是缺省选项，下面的语句式等价的
    dw_1.Object.emp_name[11,20]
    dw_1.Object.emp_name.Primary[11,20]
    dw_1.Object.emp_name.Current[11,20]
    dw_1.Object.emp_name.Primary.Current[11,20]
    下面语句将emp_name列从11行到20行的值设置为空字符串
    string ls_empty[]
    ls_empty[1] = ""
    dw_1.Object.emp_name[11,20] = & {
        "","","","","","","","","",""}
    ---------------------------------------------------------------------
    下面语句的得到emp_name列的初始值，并将它们放入一个字符串数组
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Original[11,20]
    ---------------------------------------------------------------------
    下面语句得到emp_name列在过滤缓冲区从5行到8行的当前值，并且将它们放入到数组中
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Filter[5,8]
    ---------------------------------------------------------------------
    下面语句得到emp_name列在过滤缓冲区从5行到8行的初始值，并且将它们放入到数组中
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Filter.Original[5,8]
    ---------------------------------------------------------------------
    下面语句得到emp_name列在删除缓冲区从50行到200行的当前值，并且将它们放入到数组中
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Delete[50,200]
    ---------------------------------------------------------------------
    下面语句得到emp_name列在删除缓冲区从50行到200行的初始值，并且将它们放入到数组中
    string ls_namearray[]
    ls_namearray = dw_1.Object.emp_name.Delete.Original[50,200]
    ---------------------------------------------------------------------
    
    2）得到已知列号列的值
    得到指定行号列号的值
    表达式：
    dwcontrol.Object.Data {
        .buffer } {
        .datasource } [ rownum, colnum ]
    示例：
    由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到第一行，第二列的数据
    dw_1.Object.Data[1,2]
    dw_1.Object.Data.Primary.Current[1,2]
    ---------------------------------------------------------------------
    下面语句将Filter缓冲区的初始值中得第一行，第二列的值改为0
    dw_1.Object.Data.Filter.Original[1,2] = 0
    ---------------------------------------------------------------------
    得到一定范围行的数据
    表达式：
    dwcontrol.Object.Data {
        .buffer } {
        .datasource } [ startrownum, startcolnum, endrownum, endcolnum ]
    示例：
    ---------------------------------------------------------------------
    由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到第一行到第十行，第一列到第四列的值
    dw_1.Object.Data[1,1,10,4]
    dw_1.Object.Data.Primary.Current[1,1,10,4]
    ---------------------------------------------------------------------
    下面语句得到employee Ids和 last names列在delete缓冲区的所有行的值，Ids和names列是第一第二列。得到的数据放在名为str_namelist的一个结构中，此结构有两个属性，整形的id和字符串形的lastname。Ids和names被存放在文件deleted.txt中。
    integer li_fileNum
    long ll_deletedrows
    str_namelist lstr_namelist[]
    ll_deletedrows = dw_1.DeletedCount()
    lstr_namelist = &
    dw_1.Object.Data.Delete[1,1, ll_deletedrows,2]
    li_fileNum = FileOpen("C:\HR\DELETED.TXT", &
    LineMode!, Write!)
    FOR ll_count = 1 to UpperBound(lstr_namelist)
    FileWrite(li_fileNum, &
    String(lstr_namelist.id) + &
    " " + &
    lstr_namelist.lastname + &
    "~r~n")
    NEXT
    FileClose(li_fileNum)
    ---------------------------------------------------------------------
    下面的语句使Ids和last names列的数据为NULL
    long ll_n
    str_namelist lstr_namelist[]
    SetNull(lstr_namelist[1].id)
    SetNull(lstr_namelist[1].lastname)
    FOR ll_n = 2 to dw_1.RowCount()
    lstr_namelist[ll_n] = lstr_namelist[1]
    NEXT
    dw_1.Object.Data[1,1, dw_1.RowCount(),2] = lstr_data
    
    3）得到整行数据
    得到数据窗口上的某行或全部行的数据
    表达式：
    dwcontrol.Object.Data {
        .buffer } {
        .datasource } {
         [ rownum ] }
    示例：
    ---------------------------------------------------------------------
    由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到Primary缓冲区第五行的当前数据
    dw_1.Object.Data[5]
    dw_1.Object.Data.Primary.Current[5]
    下面语句将数据窗口Primary缓冲区的当前值放入到一个结构数组中
    any la_dwdata
    la_dwdata = dw_1.Object.Data
    下面语句得到数据窗口Delete缓冲区的当前值，并将它放入到一个结构数组中
    any la_dwdata
    la_dwdata = dw_1.Object.Data.Delete
    下面语句用数据窗口dw_2的Primary缓冲区的当前值覆盖嵌套报表的第二行的数据，在数据窗口dw_2中的列必须与嵌套报表中的列相同：
    dw_1.Object.NestRep[2].Object.Data = dw_2.Object.Data
    ---------------------------------------------------------------------
    得到选中行的数据
    表达式：
    dwcontrol.Object.Data {
        .Primary } {
        .datasource } .Selected
    示例：
    由于Primary缓冲区和当前值选项是缺省的，所以下面语句式等价的，都是得到选中行的数据
    dw_1.Object.Data.Selected
    dw_1.Object.Data.Primary.Selected
    dw_1.Object.Data.Current.Selected
    dw_1.Object.Data.Primary.Current.Selected
    =====================================================================
    下面语句得到被选中行的初始值
    dw_1.Object.Data.Original.Selected
    dw_1.Object.Data.Primary.Original.Selected
    ---------------------------------------------------------------------
    下面语句得到dw_2中Primary缓冲区选中行的当前值，然后放到dw_1中的列useroption(下拉数据窗口)中
    dw_1.Object.useroptions.Object.Data = dw_2.Object.Data.Selected
    
    4）从Crosstab数据窗口中获得点击域名和域值
    对于Crosstab类型的数据窗口，我们在前面已做了简要的介绍，但由于它的行列都可以随着后台数据库存放数据的改变而发生改变，所以在想得到它的某个行列定义的值时不能采用一般的方法，如GetItem××××和点操作符。
    通过数据窗口画板可以看到所有的列具有同样的列名，在程序运行时它们会自动的*列名后加后缀的方法进行区别，格式为：列名_列号~t行号，列号和行号之间通过‘~t’分隔，列名和列号通过‘_’分隔。因此如果我们需要detail栏的任何一列的值，就需要将得到的信息进行解析，提取出选择的列名，列号和行号，然后才可以通过一般得数据的方法在数据窗口中获得需要的数据。下面我们以一个具体的例子来解说上面采用的方法。
    作用：在数据窗口（数据源为Crosstab）的Cliked事件中编程，当点击事件发生后将获得点击交*表行列交叉点的值；
    程序：
    //定义变量
    string ls_detail, ls_name, ls_col
    int li_pos, li_len, li_row, li_col
    //判断用户点击处是否为detail栏，如不是则退出
    if left(getbandatpointer(),6) <> "detail" then return
    //得到点击域的信息
    ls_detail = geto b j e c tatpointer()
    //得到detail栏第二列的名称，第一列为数据窗口行信息
    ls_name = Object.#2.Name
    //将第二列列名和前面点击得到的点击域信息进行比较，如不是点击的第二列则退出
    if left(ls_detail,len(ls_name)) <> ls_name then return
    //得到点击域的行号
    li_row = row
    li_len = len(ls_detail)
    //从前面得到点击域信息中得到关于列号的信息
    ls_col = right(ls_detail, li_len - len(ls_name))
    //得到点击域的列号
    
    if left(ls_col,1) <> "_" then
    li_col = 2
    else
    li_pos = pos(ls_col,"~t")
    li_col = integer(mid(ls_col,2,li_pos - 1) ) + 2
    end if
    //显示出点击域的值
    string(getitemnumber(li_row,li_col))

## 17 修改VSS 默认登录用户名三种方法 ##

可用以下任一个方法修改这个默认名字，三个方法的做优先级依次递增。一个以上的方法同时使用时，优先级最高的有效。
     
    一、修改 Window 用户名、或数据库中的用户名使之匹配
    　　保持勾选“Use network name for automatic user log in”
    　　这个最不方便，不推荐
     
    二、使用系统环境变量  【推荐】
    　　桌面上右键点“我的电脑”，依次选“属性－高级－环境变量”
    　　新建一个系统环境变量 SSUSER，变量值改为希望登录的用户名
    　　这个方法相对于后面使用快捷方式的好处是VSS集成到开发环境中仍然有效。
          也可以添加密码SSPWD，变量值改为希望登录的密码　　
     
    三、使用快捷方式参数
    　　右键点 Microsoft Visual SourceSafe 6.0 启动的快捷方式，属性，修改目标栏
    　　用 -y 参数输入用户名和密码(无密码的可以只输入和用户名
    　　最方便，可随时修改(用这个方法还可以通过多个快捷方式登录不同权限的用户)，推荐。
     
    　　"D:\Program Files\Microsoft Visual SourceSafe\ssexp.exe" -yMyName, passowrd
    　　
    　　图中的 MyName 是用户名(前面的 -y 不能省略,要和用户名挨在一起)，passowrd 是密码，中间用逗号隔开(密码为空时省略逗号和password)。
     
          所以最好同时使用二、三两种方式，无论是桌面启动，不是集成到开发环境启动都有效。

## 18 PB中打印相关设置 ##

IF messageBox("提示","是否打印?",Exclamation!, OKCancel!,1) = 1 Then
    openwithparm(w_print_setup,dw_1)
    Else
    messageBox("提示","打印取消!!")
    End IF
    
    dw_1.object.datawindow.print.preview = "yes"　//打印预览
    dw_1.object.datawindow.print.preview.zoom = 25 //打印预览时的百分比大小
    dw_1.object.datawindow.print.margin.top　 = 100 //上页边距1厘米
    dw_1.object.datawindow.print.margin.bottom = 100 //下页边距1厘米
    dw_1.object.datawindow.print.margin.left = 100 //左页边距1厘米
    dw_1.object.datawindow.print.margin.right = 100 //右页边距1厘米　
    dw_1.object.datawindow.print.preview.rulers = "yes" //预览时有标尺
    dw_1.object.datawindow.print.orientation　 = 1 //打印时横向
    dw_1.object.datawindow.print.orientation = 2 //打印时纵向
    dw_1.object.datawindow.print.paper.size = 9 //设置纸张大小为"A4"
    dw_1.object.datawindow.print.paper.size = 8 //A3
    dw_1.object.datawindow.print.paper.size = 12 //B4
    dw_1.object.datawindow.print.paper.size = 13 //设置纸张大小为"B5"[A3是8]
    dw_1.object.datawindow.print.color = 1 //单色
    dw_1.object.datawindow.print.color = 2 //彩色
    dw_1.object.datawindow.print.page.rangeinclude = 0 //打印所有页
    dw_1.object.datawindow.print.page.rangeinclude = 1 //打印偶数页
    dw_1.object.datawindow.print.page.rangeinclude = 2 //打印奇数页
    dw_1.object.datawindow.print.filename = "fileName"//打印到文件
    dw_1.describe('datawindow.printer') //当前打印机
    dw_report.Object.DataWindow.Print.Orientation = 0 //default 打印机默认
    dw_report.Object.DataWindow.Print.Orientation = 1 //landscape 横向
    dw_report.Object.DataWindow.Print.Orientation = 2 //Portrait 纵向

## 19 PB的一些资源下载，含安装包补丁之类 ##

[链接地址，点击跳转][Link 1]

[ea7edee3ab7b4a0998a69cd94f9ae1ef.png_pic_center]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/31/6bed1c091a4c484daf29d222777f8357.png
[b8f1807915c64d61b806fa7a463c626b.png_pic_center]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/31/9ef8deee0f91476996e787af8586d86c.png
[Link 1]: http://218.94.103.156:8090/download/PowerBuilder/