在子窗体中预览报表_Access_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

在子窗体中预览报表

作者：闵涛文章来源：闵涛的学习笔记点击数：784 更新时间：2009/4/22 21:22:49

本文适用于: 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，点击［加载报表］按钮，你看到什么？报表就在子窗体按件的位置打开了。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： ACCESS数据库中的中文报表制作

下一篇教程： Access中密码管理的另一种方式

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Sql Server  · MySql
· Access  · ORACLE
· SyBase  · 其他

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……