扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
这个专业我也学得不是很好,用书上得例子吧。
漳平网站建设公司成都创新互联公司,漳平网站设计制作,有大型网站制作公司丰富经验。已为漳平1000多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的漳平做网站的公司定做!
某公司尽力需要了解公司在全国各地得销售情况,设计一个水晶报表。统计个地区得销售总额和全国总额
准备工作
用 SQL server 2000 创建一个数据库company 在该数据库中创建一个表Sales.用于储存区域销售数据
在表Sales 中添加若干条记录
设计报表
打开 Visual Studio.NET创建名为 Salesreport得 WINDOWS应用程序 将Form1.cs 名更改为 frmSalesReport.cs
frmSalesReport窗体得属性设置里。 吧 frmSalesReport.cs得Text属性更改为"区域销售报表"
把NAME属性更改为frmSalesReport。
在 VisualStudio.NET 菜单中选择 项目添加新项。在"添加新项"窗口得“类别”区域扩展 “本地项目项”,选择数据,在"模板"区域选择"数据集" 在"名称"那将Dataset1.xsd改名 SalesDetaset.xsd
单击"打开" 将生成一个新得结构文件 SalesDataset.xsd 该文件将显示在 ADO.NET数据集设计器中。
CrystalReportViewer
dataset 定义数据源
.rpt 文件描述具体报表样式
再加一个调用报表的FORM,就可以实现简单的报表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
vb6中水晶报表(crystal report 4.6)的使用经验
水晶报表(Crystal Report 4.6)只支持Access97格式的数据库, 所以,先在Access2000格式中设置好表与表的关
系,再把表转换到97格式,
在水晶报表中调入97数据库后,在Links中自动会找出表间的关系.
水晶报表在VB的安装盘中已自带了. 路径: COMMONTOOLSVBCRYSREPTCRYSTL32.EXE
系列号: 1231467890
安装后,运行路径: Program FilesMicrosoft Visual StudioCommoncrw32.exe
VB6中运用晶报表的理由是: 它支持图相(Binary型)字段(BLOB二进制大型对象)
运用水晶报表的步骤:
先进入VB的菜单栏: 外接程序--报表设计器 自动进入水晶报表, 设计好报表,存成报表文件,
如SQL.rpt
再在VB工程中引入部件Crystal Report Control 4.6
如果是Access数据库, 激活代码:
CrystalReport1.DiscardSavedData = True '自动从数据库中刷新数据
CrystalReport1.ReportFileName = App.Path "mdb.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
如果是SQL Server 2000数据库,激活代码:
CrystalReport1.Connect = "ODBC;DNS=SQL_db1;UID=" Text4.Text ";PWD=" Text5.Text
";DSQ=db1" '连接SQL Server服务器的ODBC
CrystalReport1.DiscardSavedData = True '自动从数据库中刷新数据
CrystalReport1.ReportFileName = App.Path "sql.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流