重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
CrystalReportViewer
成都创新互联专注为客户提供全方位的互联网综合服务,包含不限于做网站、成都网站制作、璧山网络推广、微信小程序定制开发、璧山网络营销、璧山企业策划、璧山品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联为所有大学生创业者提供璧山建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
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
Visual Basic .NET Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言,可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大,导致VB.net对VB的向后兼容性不好,在业界引起不小的争议。 大多的VB.Net程序员使用Visual Studio .Net作为IDE(integrated development environment). SharpDevelop是另一种可用的开源的IDE。VB.Net需要在.Net Framework平台上才能执行。 VB.NET的主页 1 目前版本 2005年9月以来,存在三种不同版本的Visual Basic .NET. 1 Visual Basic .NET:是随vc#和ASP.NET一起在2002年发布的最初始的VB.net版本。C#被大力宣传为微软对付JAVA的王牌,受到媒体极力关注。然而VB.NET(有时被称为VB7)影响面不广,这导致VB社区之外很少人关注它。那些试用过此版VB.NET的人在层层幕布下发现一个强大却艰深的语言,而且还有不少弱点,比如它比VB6来有一个大了十倍的进行时(RunTime),内存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起发布的。新功能包括对.NET Compact Framework的支持和更好的VB升迁向导。并改进了运行状况,IDE稳定性(尤其是后台编译器),以及运行时RunTime稳定性。另外,VB.NET 2003还有一个学院版Visual Studio .NET 2003 Academic Edition (VS03AE),它是分发给各国某些学者免费使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大转变,微软决意在其软件名称中去掉了.NET部份。在VB2005中,微软增加了许多新功能,以引用VB对于初学者来说的一些优点: A, Edit and Continue - 也许是从VB那里丢掉的最大的功能,允许代码的编辑和执行立即的执行恢复。 B, Design-time expression evaluation C, My伪命名空间,提供了访问.NET Framework特定域的不需大量编码的简单方式;还能动态产生类(显然的是My.Forms);提供了改进的VB到VB.NET转换向导;Using 语法,简化了需要部署pattern to free resources的对象的使用;My编码,可隐藏由VB.NET IDE写的模板代码;数据源绑定,简化了数据库C/S开发 上述功能(尤其是My)增强了VB.Net成为快速开发应用平台的可能,并与C#进一步区别开来。参见: 使用My开发 通过My命名空间访问.NET Framework 和项目 Visual Basic 2005 通过增加新功能而填补了和其它所谓更强大的.NET语言的差距。 A, 增加了.NET 2.0语言功能包括:generics和Partial类(在一个文件里定义一个类的某部份然后再添加更多的定义,这个方法在整合用户编码和系统自动生成编码时尤其有用)。 B, XML注释,可以被NDoc等工具处理而自动生成文档 C, operator overloading D, 支持在其它语言中已经广泛使用的unsigned integer数据类型。 E, 支持在许多C衍生编程语言已提供的复合操作符如:"+=", "-=" 4, IsNot专利:If Not X Is Y表达式被转换成If X IsNot Y。当微软为IsNot申请专利时招致了恶名(尤其来自Real公司)。 5, Visual Basic 2005 Express:作为VS产品线上的一部份,VB2005 Express是专为业余爱好者和新手定制的免费的VS Express系列的一员。Express版本目的定位在帮助人们学习一种语言,所以他们有和标准版一致的用户界面,只是少了一些高级功能。另外,VS 查看更多答案
记得采纳啊
Visualbasic代码编辑器没有这个功能,但可以用第三方的编辑软件Emedit来实现这个功能。
1、用Emedit打开*.frm文件。
2、点工具,当前配置属性,然后勾选显示行号即可。
不好说,我就说下我的想法!有数据库的!
1:先想清楚,(包括先设想下页面,涉及的功能等)
2:编写文档
3:设计数据库,编写代码
4:
调试程序
,生成,查错
5:部署安装。
TMemoryStream *s;
try
{
s = new TMemoryStream;
frReport1-SaveToStream(s);
//以下代码为新增报表
Query1-SQL-Clear();
Query1-SQL-Add("insert into tb_report (r_id,r_desc,r_data) Values (报表编号,'报表说明',',:r_data)");
//Query1-ParamByName("r_sql")-AsString = FSQL;
Query1-ParamByName("r_data")-LoadFromStream(s,ftBlob);
Query1-Prepare();
Query1-ExecSQL();
//以下代码为更新报表
Query1-SQL-Clear()
Query1-SQL-Add("update tb_report set r_data=:r_data where r_id=报表编号");
Query1-ParamByName("r_data")-LoadFromStream(s,ftBlob);
Query1-Prepare();
Query1-ExecSQL();
}
__finally
{
delete s;
s = NULL;
}
----------
确实是语言不对啊.因为自己在看你的问题的时候,也尝试自己去做了.不过delphi用这种方法可行,其它的语言应该也不会查到哪去吧~
没试过封装DLL。
提供其他的方式:rdlc文件属性,生成操作:嵌入的资源。
VB.NET的一个示例代码:
Me.reportviewer.Reset()
'这个是相对路径调用的方法Me.reportviewer.LocalReport.ReportPath
=
Application.StartupPath
".\Reports\报表名.rdlc"
'增加报表数据源
Me.reportviewer.LocalReport.DataSources.Add(New
ReportDataSource("DataSet_IntMater",
DataSet.IntMaterComplain))
'使用嵌入的资源方式调用报表
Me.reportviewer.LocalReport.ReportEmbeddedResource
=
"项目名.报表名.rdlc"
Me.reportviewer.LocalReport.DisplayName
=
"报表"
Me.reportviewer.RefreshReport()