vb.net如何做报表,vb报表设计器教程-营山大橙子建站

新闻中心

这里有您想知道的互联网营销解决方案

vb.net如何做报表,vb报表设计器教程

VB.net中如何制作水晶报表？

这个专业我也学得不是很好，用书上得例子吧。

在达坂城等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站制作、做网站网站设计制作按需网站制作,公司网站建设,企业网站建设,品牌网站制作,成都全网营销,外贸营销网站建设,达坂城网站建设费用合理。

某公司尽力需要了解公司在全国各地得销售情况，设计一个水晶报表。统计个地区得销售总额和全国总额

准备工作

用 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数据集设计器中。

VB怎么做报表和打印？

这是我写的一个例子，Ddh是查询用的，你可以不要，如果数据多的话，考虑分页

调用：

call caigoudd(printer,"0001") '打印

也可以用图片框显示

call caigoudd(picture1,"0001") '显示

Sub CaiGoudd(Obj As Object, ByVal Ddh As String) '打印采购单

Dim Shang As Integer, Zhuo As Integer '边距

Dim Cangmin As String, Addr As String, Tel As String, Fax As String

Dim Hen As Single, Su As Single, Hh As Single, Hh1 As Single, Beisu As Single, Ss As Single, mm As Single

Dim Gongfa As String

Dim i As Integer, nn As Integer, Rsnum As Integer

Dim Rs As New ADODB.Recordset '采购信息

Dim RS1 As New ADODB.Recordset '供方信息

Dim sqlStr As String

Set Cn = New ADODB.Connection

Cn.CursorLocation = adUseClient

Cn.Open cnStr

sqlStr = "select * from cgjl where 订单号码 like '" Ddh "'"

Rs.Open sqlStr, Cn, adOpenStatic, adLockReadOnly

If Rs.EOF Then

MsgBox "订单号码不存在,请教对!", , "注意"

Rs.Close

Cn.Close

Exit Sub

End If

Rsnum = Rs.RecordCount

If Rsnum 6 Then

MsgBox "采购物品大于6条，请用不同的订单号。", , "注意"

Rs.Close

Cn.Close

Exit Sub

End If

sqlStr = "select * from gfxx where 供方简称 like '" Rs.Fields("供方名称") "'"

RS1.Open sqlStr, Cn '供方资料

If RS1.EOF Then

MsgBox "供方信息不存在,请添加!", , "注意"

Rs.Close

RS1.Close

Cn.Close

Exit Sub

End If

Ddh = "NO: " Ddh

Cangmin = "电器有限公司"

Addr = "浙江省"

Tel = "222222222"

Fax = "222222222"

With Obj

.ScaleMode = 6 '度量单位为mm

mm = .ScaleWidth / 210 '210是A4纸的宽度,mm是显示倍数

Shang = 25 * mm

Zhuo = 15 * mm

nn = 12 * mm

Beisu = (Obj.ScaleWidth - 2 * Zhuo) / nn

.DrawWidth = IIf(TypeName(Obj) = "Printer", 7, 1) '线宽度

.FontName = "楷体_GB2312"

.FontSize = 20 * mm

'打印表头

Hen = .ScaleWidth

Su = .ScaleHeight

.CurrentX = (.ScaleWidth - .TextWidth(Cangmin)) / 2 '居中

.CurrentY = Shang

Obj.Print Cangmin

.CurrentX = (.ScaleWidth - .TextWidth("采购订单")) / 2

.CurrentY = .CurrentY + 3 * mm

Obj.Print "采购订单"

.FontName = "宋体"

.FontSize = 14 * mm

.CurrentY = .CurrentY + 3 * mm

.CurrentX = Zhuo

Obj.Print " RHF7.4-07A";

.CurrentX = Hen - .TextWidth(Ddh) - Zhuo - 3 * mm

Obj.Print Ddh

'画表格

Hh = Zhuo '表格左上角坐标

Ss = .CurrentY + 3 * mm

For i = 0 To 9

Obj.Line (Hh, Ss + i * nn)-(Hen - Zhuo, Ss + i * nn) '横线

Obj.Line (Hh, Ss + 12.5 * nn)-(Hen - Zhuo, Ss + 12.5 * nn)

Obj.Line (Hh, Ss + 18 * nn)-(Hen - Zhuo, Ss + 18 * nn)

Obj.Line (Hh, Ss)-(Hh, Ss + 18 * nn) '竖线

Obj.Line (Hen - Zhuo, Ss)-(Hen - Zhuo, Ss + 18 * nn)

Obj.Line (Hh + nn, Ss + 2 * nn)-(Hh + nn, Ss + 9 * nn)

Obj.Line (Hh + 3.5 * nn, Ss)-(Hh + 3.5 * nn, Ss + 9 * nn)

Obj.Line (Hh + 7 * nn, Ss + 2 * nn)-(Hh + 7 * nn, Ss + 9 * nn)

Obj.Line (Hh + 8 * nn, Ss + 2 * nn)-(Hh + 8 * nn, Ss + 9 * nn)

Obj.Line (Hh + 9.5 * nn, Ss + 2 * nn)-(Hh + 9.5 * nn, Ss + 9 * nn)

Obj.Line (Hh + 11.5 * nn, Ss + 2 * nn)-(Hh + 11.5 * nn, Ss + 9 * nn)

Obj.Line (Hen / 2, Ss + 12.5 * nn)-(Hen / 2, Ss + 18 * nn)

'填数据

Hh1 = (nn - .TextHeight("供")) / 2

.CurrentX = Hh + (3.5 * nn - .TextWidth("供方单位")) / 2

.CurrentY = Ss + Hh1

Obj.Print "供方单位";

.CurrentX = Hh + 3.5 * nn + ((Beisu - 3.5) * nn - .TextWidth(RS1.Fields("供方全称") "")) / 2

Obj.Print RS1.Fields("供方全称") ""

.CurrentX = Hh + (3.5 * nn - .TextWidth("传真号码")) / 2

.CurrentY = Ss + nn + Hh1

Obj.Print "传真号码";

.CurrentX = Hh + 3.5 * nn + ((Beisu - 3.5) * nn - .TextWidth(RS1.Fields("传真") "")) / 2

Obj.Print RS1.Fields("传真") ""

.CurrentX = Hh + (nn - .TextWidth("序号")) / 2

.CurrentY = Ss + 2 * nn + Hh1

Obj.Print "序号";

.CurrentX = Hh + nn + (2.5 * nn - .TextWidth("品名")) / 2

Obj.Print "品名";

.CurrentX = Hh + 3.5 * nn + (3.5 * nn - .TextWidth("规格型号")) / 2

Obj.Print "型号规格";

.CurrentX = Hh + 7 * nn + (nn - .TextWidth("单位")) / 2

Obj.Print "单位";

.CurrentX = Hh + 8 * nn + (1.5 * nn - .TextWidth("数量")) / 2

Obj.Print "数量";

.CurrentX = Hh + 9.5 * nn + (2 * nn - .TextWidth("交货日期")) / 2

Obj.Print "交货日期";

.CurrentX = Hh + 11.5 * nn + ((Beisu - 11.5) * nn - .TextWidth("备注")) / 2

Obj.Print "备注"

.FontSize = 12 * mm

Hh1 = (nn - .TextHeight("供")) / 2

For i = 1 To Rsnum

.CurrentX = Hh + (nn - .TextWidth(Format(i))) / 2

.CurrentY = Ss + (2 + i) * nn + Hh1

Obj.Print Format(i);

.CurrentX = Hh + nn + (2.5 * nn - .TextWidth(Rs.Fields("产品名称"))) / 2

Obj.Print Rs.Fields("产品名称");

.CurrentX = Hh + 3.5 * nn + (3.5 * nn - .TextWidth(Rs.Fields("规格型号"))) / 2

Obj.Print Rs.Fields("规格型号");

.CurrentX = Hh + 7 * nn + (nn - .TextWidth(Rs.Fields("单位"))) / 2

Obj.Print Rs.Fields("单位");

.CurrentX = Hh + 8 * nn + (1.5 * nn - .TextWidth(Format(Rs.Fields("采购数量")))) / 2

Obj.Print Format(Rs.Fields("采购数量"));

.CurrentX = Hh + 9.5 * nn + (2 * nn - .TextWidth(Rs.Fields("交货日期"))) / 2

Obj.Print Rs.Fields("交货日期");

.CurrentX = Hh + 11.5 * nn + ((Beisu - 11.5) * nn - .TextWidth(Rs.Fields("备注"))) / 2

Obj.Print Rs.Fields("备注")

Rs.MoveNext

Rs.Close

RS1.Close

Cn.Close

.CurrentY = Ss + 9 * nn

Obj.Print

.CurrentX = Hh + 3 * mm

Obj.Print "注："

Obj.Print

.CurrentX = Hh + 3 * mm

Obj.Print "1. 因供方产品质量问题引起的客户索赔及未按时交货引起的经济损失由供方承担。"

Obj.Print

.CurrentX = Hh + 3 * mm

Obj.Print "2. 接到采购单后请速盖章回签，如两天内不回签视同交货期默认。"

Obj.Print

.CurrentX = Hh + 3 * mm

Obj.Print "3. 价格："

.FontSize = 14 * mm

.CurrentY = Ss + 12.5 * nn

Obj.Print

.CurrentX = Hh + 3 * mm

Obj.Print "需方单位（章）";

.CurrentX = .ScaleWidth / 2 + 3 * mm

Obj.Print "供方单位（章）"

Obj.Print

.CurrentX = Hh + 3 * mm

Obj.Print " "; Cangmin