您的位置:首页 > 其它

水晶报表技术(10)——.NET环境下水晶报表使用总结(下)

2009-09-19 23:13 591 查看
[align=left]七、创建主从报表[/align]
[align=left]在报表中,有许多报表是主从表结构,比如订单与订单商品明细,订单是一个表中的一条记录,而分录是另一个表中的多条记录,两个表通过一个字段关联起来,这种报表可利用其分组功能实现,[/align]
[align=left]1. 新建一个工程[/align]
[align=left]2. 往FORM1中添加一个CrystalReportViewer控件[/align]
[align=left]3. 在服务噐资源管理器中连接到SQL SERVER 2000上的Northwind数据库[/align]
[align=left]4. 添加一个数据集Dataset1,将服务器资源管理器中的Orders和 Order Details加入到数据集中。[/align]
[align=left]5. 添加一个水晶报表,使用报表专家,在项目数据中选择“ADO.NET数据集”,插入表Orders和 Order Details,“链接”中是关联字段的链接,在“字段”中选择要显示的主表和明细表的字段,组中选择分组依据为Orders表OrdersID字段,总计,图表,选择(可进行筛选),样式(可设置报表标题),可自行设置。设置完后,点击完成。[/align]
[align=left]6. 在报表设计器中调整需要显示的字段的位置、宽度等。[/align]
[align=left]7. 在窗口中添加代码。[/align]
[align=left] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load[/align]
[align=left] Dim oRpt As New CrystalReport1()[/align]
[align=left] Dim dsdataSet As New Dataset1()[/align]
[align=left] [/align]
[align=left] Dim CN As New Data.SqlClient.SqlConnection("data source=PMSERVER;initial catalog=Northwind;user id=sa;password=sa")[/align]
[align=left] CN.Open()[/align]
[align=left] Dim daOrders As New Data.SqlClient.SqlDataAdapter("select * from orders", CN)[/align]
[align=left] daOrders.Fill(dsdataSet, "orders")[/align]
[align=left] [/align]
[align=left] Dim daDetails As New Data.SqlClient.SqlDataAdapter("select * from [Order Details]", CN)[/align]
[align=left] daDetails.Fill(dsdataSet, "Order Details")[/align]
[align=left] [/align]
[align=left] '使用“报表引擎”对象模型将填充的数据集,传递给报表[/align]
[align=left] oRpt.SetDataSource(dsdataSet)[/align]
[align=left] CrystalReportViewer1.ReportSource = oRpt[/align]
[align=left] End Sub[/align]
[align=left]8、运行程序[/align]
[align=left] [/align]
[align=left][/align]
[align=left]八、用程序改变报表中text的文本[/align]
[align=left]代码如下:[/align]
[align=left] Dim GetTextObject As TextObject[/align]
[align=left] ' 按名称获取 ReportObject,将其转换为 TextObject,并返回此对象。[/align]
[align=left] GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13")[/align]
[align=left] GetTextObject.Text = "XXXX系统"[/align]
[align=left] [/align]
[align=left]总结:水晶报表具有非常强大的功能,还可进行导出WORD、EXCEL、RTF等文件,还可生成复杂、漂亮图表,是进行WEB和WINDOWS报表开发的利器。[/align]
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: