全部答案

2013-09-12 15:14:25

•   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下调试通过。

  全部
  

  杨***

  2013-09-12 15:14:25

  401 233 评论

  分享
  提交评论
2013-09-12 11:31:48

• 报表以PSR格式另存出来后，我们常常会不知道用什么方法再次打开它。 
  　　其实很简单，下面将介绍打开的办法： 
  　　1．先新建一空的库文件（PBL文件），这里命名为psropen，在库文件中的应用也命名为psropen。 
  　　2．再创建一窗口w_psropen，稍微调一下它的属性，如width，height，title等。 
  　　3．在窗口中添加按钮cb_1,cb_2,cb_3,cb_4，分别命名“另存为”，“打印”，“选择文件”，“返回”。 
  　　4．在窗口中添加一数据窗口dw_1。

  全部
  

  M***

  2013-09-12 11:31:48

  397 234 评论

  分享
  提交评论