1.txt

来自「如何制作PSR文件浏览器 PB（PowerBuilder）有一种」· 文本 代码 · 共 104 行

1．先新建一空的库文件（PBL文件），这里命名为psropen，在库文件中的应用也命名为psropen。   
    
  　　2．再创建一窗口w_psropen，稍微调一下它的属性，如width，height，title等。   
    
  　　3．在窗口中添加按钮cb_1,cb_2,cb_3,cb_4，分别命名“另存为”，“打印”，“选择文件”，“返回”。   
    
  　　4．在窗口中添加一数据窗口dw_1。   
    
  　　5．另存为按钮clicked的代码：   
    
  　　   String   ls_File,   ls_Path,   ls_Ext   
    
  　　GetFileSaveName("Save   Report",   ls_Path,   ls_File,   "psr",   "PSReport   Files   
    
  　　(*.psr),*.psr,   "   +   &   
    
  　　　　   "Text   Files   (*.txt),*.txt,   HTML   Files   (*.htm),*.htm,   Excel5   File   
    
  　　(*.xls),*.xls")   
    
  　　If   Trim(ls_Path)   <>   ""   Then   
    
  　　   ls_Ext   =   Lower(Right(ls_Path,   3))   
    
  　　   Choose   Case   ls_Ext   
    
  　　   Case   "psr"   
    
  　　   dw_1.SaveAs(ls_Path,   PSReport!,   True)   
    
  　　   Case   "txt"   
    
  　　   dw_1.SaveAs(ls_Path,   Text!,   True)   
    
  　　   Case   "htm"   
    
  　　   dw_1.SaveAs(ls_Path,   HTMLTable!,   True)   
    
  　　   Case   "xls"   
    
  　　   dw_1.SaveAs(ls_Path,   Excel5!,   True)   
    
  　　   Case   Else   
    
  　　   MessageBox("Save   Report",   "The   type   of   file   saved   is   identified   by   
    
  　　the   extension.   "   +   &   
    
  　　　　　　"Use   '.psr'   for   PSReport,   '.txt'   for   Text,   '.htm'   for   HTML   
    
  　　Table,   or   '.xls'   for   &   Excel5   ",   Exclamation!,   OK!)   
    
  　　   Return   
    
  　　   End   Choose   
    
  　　End   if   
    
  　　6．选择文件按钮clicked的代码：   
    
  　　String   ls_File,   ls_Path,   ls_Ext   
    
  　　long   c   =0,li_len,li_pos   
    
  　　GetFileOpenName("打开PSR报表",   ls_Path,   ls_File,   "psr",   "PSReport   Files   
    
  　　(*.psr),*.psr,   "   )   
    
  　　If   Trim(ls_Path)   <>   ""   Then   
    
  　　   ls_Ext   =   Lower(Right(ls_Path,   3))   
    
  　　   Choose   Case   ls_Ext   
    
  　　   Case   "psr"   
    
  　　   dw_1.setredraw(false)   
    
  　　   dw_1.dataobject   =   ls_path   
    
  　　   dw_1.setredraw(true)   
    
  　　　　   dw_1.modify("datawindow.print.preview=Yes")   
    
  　　   Case   Else   
    
  　　   MessageBox("打开PSR报表",   "本程序只能打开.PSR文件!   ",   Exclamation!,   
    
  　　OK!)   
    
  　　   Return   
    
  　　   End   Choose   
    
  　　End   if   
    
  　　7．打印按钮clicked代码：dw_1.print()   
    
  　　8．返回按钮clicked代码：close(parent)   
    
  　　9．在应用psropen的open事件中加入:   open(w_psropen)。然后保存并运行，大功告成啦!   
    
  　　注:1、在窗口中特别加入了一个“另存为”的按钮,以提示PSR文件格式是怎样生成的。另外当数据窗口的预览属性为假时，PSR文件的数据还可以修改！修改后再保成存相同文件名便实现了修改PSR文件数据的功能（只要是原来数据窗口另存出来时可修改的部分均可实现修改）。2、PBDWE60.DLL，PBVM60.DLL是支持本程序的必须文件。3、本程序在PB6.5下调试通过。