数据报表设计器在多层结构开发的应用(2)

Dim mg As Integer

b1 = obj.Print_Report '打印报表
If Not b1 Then
mg = MsgBox("打印操作失败！", vbOKOnly, "打印消息")
End If
End Sub

Private Sub Command4_Click()
Unload Me
'关闭窗口
End Sub

Private Sub Form_Load()
Set obj = New clsReport
'创建对象实例
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set obj = Nothing
'撤消对象
End Sub

---- 五、小结

---- 上例具有如下特点：（1）组织数据很灵活，既可以是本地数据也可以是记录集或者俩者相结合。（2）程序运行速度很快，它比用VB生成Excel报表快得多。（3）易于移植，只要建立ActiveX DLL 工程，加入clsReport和DataReport1模块编译成动态库，即可被其他应用程序调用。建议：可修改clsReport类模块的属性把它直接作为DataReport1数据源，关于类模块的详细用法可查阅有关文档。本例用Visual Basic 6.0（专业版）编写，在Windows95下调试通过。

上一篇： 实现Access数据库的Web查询
下一篇： 文档数据库与关系数据库的比较

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有