怎么样将查询到的个人信息输入到数据报表呢?

时间:2022-12-21 20:10:42
现在有一个个人信息access2000数据库,怎么样将居住地为“山西”的用户的个人信息(姓名、性别、年龄)输出到数据报表呢?
以下是部分代码:
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim strsql As String
cn.Open "provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\db1.mdb"

strsql = " select * from 个人信息 where 省分="山西" "

rs.Open strsql, cn, adOpenStatic, adLockOptimistic

If Not rs.EOF Then
    Set DataReport1.DataSource = rs
    DataReport1.Show
Else
    MsgBox "没有符合条件的人员"
End If
下来的datareport1该怎么做啊?

15 个解决方案

#1


首先介绍一下DataReport对象的几个常用属性。一是DataSource,用于设置一个数据源,通过该数据源,数据使用者被绑定到一个数据库;二是DataMember,从DataSource提供的几个数据成员中设置一个特定的数据成员;三是LeftMargin、RightMargin、TopMargin、BottomMargin等,用于指定报表的左右上下的页边距;四是Sections,即DataReport的报表标头、页标头、细节、页脚注、报表脚注5个区域,如果加上分组(可以有多层分组),则增加一对区域,即分组标头、分组脚注。其中DataSource一般是一个数据环境或是ADODB.Connection类型的变量,而DataMember则对应数据环境中的Command或是ADODB.RecordSet类型的变量,推荐使用数据环境及Command,页边界大家肯定都很清楚,下面我主要介绍以下Sections,这也是DataReport的精髓所在。

  Sections是一个集合,您可以为每一个Section指定名称,也可以用其缺省的索引,从上到下依次为1、2…。每个Section均有Height和Visible属性,您可以在一定条件下使一个Section不可见。在Section中可以放置各种报表控件,其中RptLabel、RptImage、RptShape和RptLine可以放在任意的Section中,用于输出各种文字、图形及表格线;RptTextBox只能放在细节中,一般用于绑定输出DataMemeber提供的数据字段;RptFunction只能被放置在分组注脚中,用于输出使用各种内置函数计算出的合计、最大值、最小值、平均值、记数等等。上述报表控件中常用公共属性有用于控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible;其中RptTextBox还有DataField、DataMember、DataFormat及Font属性;其他属性不再多说。

  然后介绍一下我的使用经验。一是对想控制的报表控件按类型有规律的命名;二是用RptShape的矩形框做表格线框,比用RptLine画框省事多了,只有斜线才使用RptLine;三是报表标题及报表中的表头文字、日期及页码用RptLabel,其中Caption属性支持转义字符,%D为长格式日期,%d为短格式日期,%P为总页数,%p为当前页码;四是对固定报表在设计窗口直接将报表控件摆放到位,对于活报表,应首先考虑报表最大的情形,将足够的控件分别放置在不同区域,位置大小可以不必深究,然后在报表输出前用VBA代码对所有控件的属性进行调整,包括位置、高度、宽度、字体、对齐方式、显示格式、可见性等等,相应的对Section也应根据情况调整其高度和可见性。

#2


最后用一个实例模板来说明其使用方法。

  连接数据库

With 数据环境.rsCommand名
If .State = adStateOpen Then .Close
.Source = SQL语句 
.Open 打开想输出的数据库数据项以便输出
End With
With 报表名
 .DataSource=数据环境
 .DataMember=Command名 这两行也可固定设好而不必每次设置
 设置页表头部分(RpttLabel…为报表控件名)
 .Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"
 .Sections(2).Controls("RptLabelDate").Caption = "打印日期:%D"
 .Sections(3).Controls("RptLabel1").Left=…
 …
 设置细节部分(RptShapeX、RptTextBoxX为报表控件名)
 .Sections(3).Controls("RptShape1").Left=…
 .Sections(3).Controls("RptShape1").Top=…
 .Sections(3).Controls("RptShape1").Height=…
 .Sections(3).Controls("RptShape1").Width=…
 .Sections(3).Controls("RptTextBox1").DataMember=Command名
 .Sections(3).Controls("RptTextBox1").DataField=字段1
 .Sections(3).Controls("RptTextBox1").Font.Name=…
 …
 .Sections(3).Controls("RptShapeN").Visible=False
 .Sections(3).Controls("RptTextBoxN").Visible=False
 …
 . Sections(3).Height=计算出的或固定的细节高度
动态调整报表标题(RptLabelTitle为报表标签控件名)
 .Sections(2). Controls("RptLabelTitle").Left=…
 …
 .Sections(2). Controls("RptLabelTitle").Alignment=…
 …
 调整完毕后
 .Show 或 .PrintReport
End With
 

  这样做的优点是报表设计时简单,调整方便、随意,只需更改一点代码,而不必为了一点点的修改而费神的在设计窗口调整半天。

#3


这是VB自带的DataReport用法。
不过,现在基本推荐使用ActiveReport做报表,优点是,实现简单,打印功能可以随意设置。
我的站点 www.Emugua.net

#4


能将具体点吗?

#5


VB有一个报表控件 ReportView
最容易的就是加一个报表控件,然后设置它的各种属性.
设置它的datasource为你的查询SQL语句就可以了.
不过要记得先做报表.

#6


重要的是怎么设置,sql查询出来是rs,怎么在datareport里显示呢?

#7


Option Explicit

Dim adoConnectionX As New ADODB.Connection
Dim adoRecordsetX As New ADODB.Recordset

Private Sub DataReport_Initialize()
  'printer.Orientation =
  '以下准备数据源(记录集)
  '要打印的数据源(记录集)必须是一个全局级别的,或者是本设计器模块级别的记录集
  
  '数据库使用的是 Northwind.mdb
  adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Northwind.mdb"
  adoRecordsetX.Open "select * from 产品", adoConnectionX
    
  Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
  
  '-------------------------------------------------------------------------
  '以下根据控件所在区域(Sections)和所属控件类别等将它们分成若干集合

#8


首先你必须会设计报表的基本要求:
在数据报表中,“分组”区域是显示记录集记录的区域,在该区域使用rptLabel控件作为字段名称的标签控件(用法跟Label控件相同),使用rptTextBox控件作为显示字段值的控件,其中DataField属性值必须设置为记录集的字段名,然后使用你以上的代码即可显示报表了。

#9


使用报表控件来做报表模板都不很方便进行打印,我一直使用tubprinter进行打印预览,效果不错,用mshflexgrid显示查询结出来的数据结果,直接打印mshflexgrid就行了,mshflexgrid能支持自定义的报表格式,比如合并单元格等

#10


为什么总是搞不定呢?

#11


vsprint更加简单.

#12


先在水晶报表里做好你的报表,数据源可随意,在这里将各字须布局好后保存。
然后在VB里调用该报表,重新设置数据源为rs即可。

#13


我在报表代码中使用
Label3.Caption = rs.编号

为什么不显示编号字段的内容呢?

#14


我在报表代码中使用
Label3.Caption = rs.编号

为什么不显示编号字段的内容呢?

这是非法的,不可能将数据集rs的编号字段赋给Label3,Label控件不是容器.

#15


http://dev.csdn.net/develop/article/23/23592.shtm

#1


首先介绍一下DataReport对象的几个常用属性。一是DataSource,用于设置一个数据源,通过该数据源,数据使用者被绑定到一个数据库;二是DataMember,从DataSource提供的几个数据成员中设置一个特定的数据成员;三是LeftMargin、RightMargin、TopMargin、BottomMargin等,用于指定报表的左右上下的页边距;四是Sections,即DataReport的报表标头、页标头、细节、页脚注、报表脚注5个区域,如果加上分组(可以有多层分组),则增加一对区域,即分组标头、分组脚注。其中DataSource一般是一个数据环境或是ADODB.Connection类型的变量,而DataMember则对应数据环境中的Command或是ADODB.RecordSet类型的变量,推荐使用数据环境及Command,页边界大家肯定都很清楚,下面我主要介绍以下Sections,这也是DataReport的精髓所在。

  Sections是一个集合,您可以为每一个Section指定名称,也可以用其缺省的索引,从上到下依次为1、2…。每个Section均有Height和Visible属性,您可以在一定条件下使一个Section不可见。在Section中可以放置各种报表控件,其中RptLabel、RptImage、RptShape和RptLine可以放在任意的Section中,用于输出各种文字、图形及表格线;RptTextBox只能放在细节中,一般用于绑定输出DataMemeber提供的数据字段;RptFunction只能被放置在分组注脚中,用于输出使用各种内置函数计算出的合计、最大值、最小值、平均值、记数等等。上述报表控件中常用公共属性有用于控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible;其中RptTextBox还有DataField、DataMember、DataFormat及Font属性;其他属性不再多说。

  然后介绍一下我的使用经验。一是对想控制的报表控件按类型有规律的命名;二是用RptShape的矩形框做表格线框,比用RptLine画框省事多了,只有斜线才使用RptLine;三是报表标题及报表中的表头文字、日期及页码用RptLabel,其中Caption属性支持转义字符,%D为长格式日期,%d为短格式日期,%P为总页数,%p为当前页码;四是对固定报表在设计窗口直接将报表控件摆放到位,对于活报表,应首先考虑报表最大的情形,将足够的控件分别放置在不同区域,位置大小可以不必深究,然后在报表输出前用VBA代码对所有控件的属性进行调整,包括位置、高度、宽度、字体、对齐方式、显示格式、可见性等等,相应的对Section也应根据情况调整其高度和可见性。

#2


最后用一个实例模板来说明其使用方法。

  连接数据库

With 数据环境.rsCommand名
If .State = adStateOpen Then .Close
.Source = SQL语句 
.Open 打开想输出的数据库数据项以便输出
End With
With 报表名
 .DataSource=数据环境
 .DataMember=Command名 这两行也可固定设好而不必每次设置
 设置页表头部分(RpttLabel…为报表控件名)
 .Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"
 .Sections(2).Controls("RptLabelDate").Caption = "打印日期:%D"
 .Sections(3).Controls("RptLabel1").Left=…
 …
 设置细节部分(RptShapeX、RptTextBoxX为报表控件名)
 .Sections(3).Controls("RptShape1").Left=…
 .Sections(3).Controls("RptShape1").Top=…
 .Sections(3).Controls("RptShape1").Height=…
 .Sections(3).Controls("RptShape1").Width=…
 .Sections(3).Controls("RptTextBox1").DataMember=Command名
 .Sections(3).Controls("RptTextBox1").DataField=字段1
 .Sections(3).Controls("RptTextBox1").Font.Name=…
 …
 .Sections(3).Controls("RptShapeN").Visible=False
 .Sections(3).Controls("RptTextBoxN").Visible=False
 …
 . Sections(3).Height=计算出的或固定的细节高度
动态调整报表标题(RptLabelTitle为报表标签控件名)
 .Sections(2). Controls("RptLabelTitle").Left=…
 …
 .Sections(2). Controls("RptLabelTitle").Alignment=…
 …
 调整完毕后
 .Show 或 .PrintReport
End With
 

  这样做的优点是报表设计时简单,调整方便、随意,只需更改一点代码,而不必为了一点点的修改而费神的在设计窗口调整半天。

#3


这是VB自带的DataReport用法。
不过,现在基本推荐使用ActiveReport做报表,优点是,实现简单,打印功能可以随意设置。
我的站点 www.Emugua.net

#4


能将具体点吗?

#5


VB有一个报表控件 ReportView
最容易的就是加一个报表控件,然后设置它的各种属性.
设置它的datasource为你的查询SQL语句就可以了.
不过要记得先做报表.

#6


重要的是怎么设置,sql查询出来是rs,怎么在datareport里显示呢?

#7


Option Explicit

Dim adoConnectionX As New ADODB.Connection
Dim adoRecordsetX As New ADODB.Recordset

Private Sub DataReport_Initialize()
  'printer.Orientation =
  '以下准备数据源(记录集)
  '要打印的数据源(记录集)必须是一个全局级别的,或者是本设计器模块级别的记录集
  
  '数据库使用的是 Northwind.mdb
  adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Northwind.mdb"
  adoRecordsetX.Open "select * from 产品", adoConnectionX
    
  Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
  
  '-------------------------------------------------------------------------
  '以下根据控件所在区域(Sections)和所属控件类别等将它们分成若干集合

#8


首先你必须会设计报表的基本要求:
在数据报表中,“分组”区域是显示记录集记录的区域,在该区域使用rptLabel控件作为字段名称的标签控件(用法跟Label控件相同),使用rptTextBox控件作为显示字段值的控件,其中DataField属性值必须设置为记录集的字段名,然后使用你以上的代码即可显示报表了。

#9


使用报表控件来做报表模板都不很方便进行打印,我一直使用tubprinter进行打印预览,效果不错,用mshflexgrid显示查询结出来的数据结果,直接打印mshflexgrid就行了,mshflexgrid能支持自定义的报表格式,比如合并单元格等

#10


为什么总是搞不定呢?

#11


vsprint更加简单.

#12


先在水晶报表里做好你的报表,数据源可随意,在这里将各字须布局好后保存。
然后在VB里调用该报表,重新设置数据源为rs即可。

#13


我在报表代码中使用
Label3.Caption = rs.编号

为什么不显示编号字段的内容呢?

#14


我在报表代码中使用
Label3.Caption = rs.编号

为什么不显示编号字段的内容呢?

这是非法的,不可能将数据集rs的编号字段赋给Label3,Label控件不是容器.

#15


http://dev.csdn.net/develop/article/23/23592.shtm