1.基础使用
Dim rs As Class1 = New Class1 Dim sql As String sql = "select * from t_shap"
Dim dss As test3.Dataset1 = New test3.Dataset1 '自定义数据集
rs.get_dataset1(sql, dss)
'创建报表对象 Dim doc As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument Dim str As String str = "D://net//test3//r1.rpt"
'加载报表 doc.Load(str) '为报表对象设置数据源 doc.SetDataSource(dss) CType(doc.ReportDefinition.ReportObjects("ym"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = "我水晶OK" '以报表查看器显示报表
CrystalReportViewer5.ReportSource = doc CrystalReportViewer5.DataBind() CrystalReportViewer5.RefreshReport()
2.外观设置
1、外观: 设置 Crystal Report Viewer 的属性: BestFitPage 布尔值。获取或设置页面视图是大小合适还是用滚动条进行裁剪。 配合设置 Width、Height 来实现无空白和无滚动条的显示! DisplayGroupTree 布尔值。获取或设置树视图是可见还是隐藏。 DisplayPage 布尔值。获取或设置工具栏是可见还是隐藏。 DisplayToolbar 布尔值。获取或设置工具栏上的转到页按钮是可见还是隐藏。 PageZoomFactor Int32。获取或设置报表的缩放因数。 SeparatePages 布尔值。获取或设置报表页是分开还是连接。 PageToTreeRatio Float64。设置组树与报表视图之间的大小比例。 —————————————————————————————————————— 2、控制工具栏的按钮: 设置 Crystal Report Viewer 的属性: HasGotoPageButton 布尔值。获取或设置转到页按钮的可见性。 HasLevelUpButton 布尔值。获取或设置工具栏上的转到上一页按钮是可见还是隐藏。 HasPageNavigationButtons 布尔值。获取或设置工具栏上的页面导航按钮是可见还是隐藏。 HasRefreshButton 布尔值。获取或设置工具栏上的刷新按钮是可见还是隐藏。 HasSearchButton 布尔值。获取或设置工具栏上的搜索按钮是可见还是隐藏。 HasZoomFactorList 布尔值。获取或设置工具栏上的缩放因数列表是可见还是隐藏。 —————————————————————————————————————— 3、在 Web 页面里的布局: 在“设计视图”,修改 CrystalReportViewer 的 Width、Height 属性。 切换到窗体的“HTML 视图”,修改 style 属性。 <CR:CrystalReportViewer id="CrystalReportViewer1" style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 8px" runat="server" Width="350px" Height="50px" EnableDrillDown="False" DisplayGroupTree="False"></CR:CrystalReportViewer> —————————————————————————————————————— 4、除水晶报表的的公司LOGO 将 Crystal 公司的Logo 文件替换或删除…… (1)如果是用 VS.NET 里自带的水晶报表 C:/Program Files/Microsoft Visual Studio .NET/Crystal Reports/Viewers/images/ToolBar/logo.gif (2)如果是用水晶报表 9.2 C:/Program Files/Common Files/Crystal Decisions/2.0/crystalreportviewers/images/toolbar/crlogo.gif —————————————————————————————————————— 5、替换水晶报表里的各种图标和图片 (1)如果是用 VS.NET 里自带的水晶报表 C:/Program Files/Microsoft Visual Studio .NET/Crystal Reports/Viewers/images (2)如果是用水晶报表 9.2 C:/Program Files/Common Files/Crystal Decisions/2.0/crystalreportviewers/images
6.实际使用方法
'图表设置 '图形样式设置 Chart1.Series(0).Type = Dundas.Charting.WebControl.SeriesChartType.Column '图形是否3D显示 Chart1.ChartAreas(0).Area3DStyle.Enable3D = False '数据字段设置 Chart1.Series(0).ValueMembersY = "data" Chart1.Series(0).ValueMemberX = "content" '横向轴跨度设置 Chart1.ChartAreas(0).AxisX.Interval = 1 '小图标文字设置 Chart1.Series(0).Name = "数量" '标题文字设置(设计时先打上空白标题) Chart1.Titles(0).Text = "标题" '纵向轴设置 Chart1.ChartAreas(0).AxisY.Arrows = Dundas.Charting.WebControl.ArrowsType.Triangle '有向上箭头 Chart1.ChartAreas(0).AxisY.LineColor = System.Drawing.Color.Red '红色
Chart1.DataSource = ds Chart1.DataBind()