欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

在子窗体中预览报表

程序员文章站 2024-02-12 21:28:34
...

本文适用于: Access 2002 以上版本 (Access 2000 不支持弹出式 报表 ) 在很多的时候,需要在窗体的指定位置预览 报表 ,可是 Access 并没有提供这样功能,Access 报表 也不能作为子窗体的形式放在窗体中。那么,如何解决这一问题呢?借助 Windows API 我们可


本文适用于: Access 2002 以上版本 (Access 2000 不支持弹出式报表) 

  在很多的时候,需要在窗体的指定位置预览报表,可是 Access 并没有提供这样功能,Access 报表也不能作为子窗体的形式放在窗体中。那么,如何解决这一问题呢?借助 Windows API 我们可以实现这一功能。

  在这过程中要用到三个 Windows API 函数,它们是:  

  Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

  Private Declare Function GetDesktopWindow Lib "user32" () As Long

  Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

  LockWindowUpdate 函数:锁定当前窗口

  GetDesktopWindow 函数:获取当前桌面窗口

  SetParent 函数:将窗口放到指定的窗口中

    该过程主要原理是通过 SetParent 函数指定报表窗口的户窗口句柄 hWnd 来实现将报表窗口放置在指定口中。由于要用到窗口句柄 hWnd,而在 Access 只有窗体才具有窗口句柄 hWnd,因此我们用一个窗体来作为子窗体使用。在本文中,这个窗体名为 frmBack,具体属性设置如下:  

  记录选择器:否

  滚动条:两者均无

  记录选择器:否

  导航按钮:无

  分隔线:无

  自动调整:是

  边框样式:无

  图片:D:\我的文档\My Pictures\back-1.gif

  图片缩放模式:拉伸

  其它均为默认值

  这样这个窗体既具有窗口句柄 hWnd,又可作为开始的背景使用。

  下面开始设计报表,在本文中报表名为 rpt1,按照正常报表进行设计,只有一个属性需要特别设置:  

  弹出方式:是

  下面进行主窗体设计,在本文中窗体名为 frmOpenReportInSubForm,具体属性设置如下:  

  标题:在子窗体中预览报表

  滚动条:两者均无

  记录选择器:否

  导航按钮:否

  分隔线:否

  自动调整:是

  自动居中:是

  边框样式:对话框边框

  在窗体放上两个按钮:加载报表 cmdLoadRpt 和关闭报表 cmdCloseRPT,再放一个子窗体控件名为 subRPT,属性设置:  

  源对象:frmBack

  好了,界面设置完毕,开始编写代码:

  Form_frmOpenReportInSubForm 代码如下:  

  Option Compare Database

  Option Explicit  

  Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

  Private Declare Function GetDesktopWindow Lib "user32" () As Long

  Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

  

  Private Sub Form_Unload(Cancel As Integer)

   ' 关闭报表

   DoCmd.Close acReport, "rpt1"

  End Sub

  

  Private Sub cmdCloseRPT_Click()

   ' 关闭报表

   DoCmd.Close acReport, "rpt1"

  End Sub

  

  Private Sub cmdLoadRpt_Click()

   Dim mWnd As Long

  

   ' 锁定当前桌面

   LockWindowUpdate GetDesktopWindow

   ' 打开报表 rpt1

   DoCmd.OpenReport "rpt1", acViewPreview, , , acWindowNormal

   ' 获取报表窗体窗口句柄

   mWnd = Reports("rpt1").hwnd

  

   ' 设置报表的父窗口为子窗体

   SetParent mWnd, Me.subRPT.Form.hwnd

  

   ' 解锁当前桌面

   LockWindowUpdate False

  

   ' 选择报表对象,对其进行最大化

   DoCmd.SelectObject acReport, "rpt1"

   DoCmd.Maximize

  End Sub

  好了,整个设计过程完毕,打开 frmOpenReportInSubForm,点击[加载报表]按钮,你看到什么?报表就在子窗体按件的位置打开了

本文作者: