水晶报表-动态加载图片_水晶报表图形位置资源-CSDN文库

报表

加载图片

3星 · 超过75%的资源需积分: 49 444 浏览量 2012-06-12 09:56:37 上传评论收藏 47KB DOCX 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源推荐

资源详情

资源评论

1 '*************************************************************************

2 '**模块名：CR_DynLoadPics

4 '**创建人：Babyt(阿泰)http://www.cnblogs.com/babyt

5 '**日期：2005-04-21

6 '**修改人：

7 '**日期：

8 '**描述：从本地磁盘获取图片文件进行显示

9 '本程序为原型程序，未进行完整保护

10 '**版本：V1.0.0

11 '*************************************************************************

12 

13 ImportsSystem.Data

14 '注意此处 IO 的加入是为了读取图片文件

15 ImportsSystem.IO

16 PublicClassForm1

17 InheritsSystem.Windows.Forms.Form

18 

19 #Region"Windows窗体设计器生成的代码"

20 

21 PublicSubNew()

22 MyBase.New()

23 

24 '该调用是Windows窗体设计器所必需的。

25 InitializeComponent()

26 

27 '在InitializeComponent()调用之后添加任何初始化

28 

29 EndSub

30 

31 '窗体重写dispose以清理组件列表。

32 ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)

33 IfdisposingThen

34 IfNot(componentsIsNothing)Then

35 components.Dispose()

36 EndIf

37 EndIf

38 MyBase.Dispose(disposing)

39 EndSub

40 

41 'Windows窗体设计器所必需的

42 PrivatecomponentsAsSystem.ComponentModel.IContainer

43 

44 '注意:以下过程是Windows窗体设计器所必需的

45 '可以使用Windows窗体设计器修改此过程。

46 '不要使用代码编辑器修改它。

47 FriendWithEventsButton1AsSystem.Windows.Forms.Button

48 FriendWithEventsTextBox1AsSystem.Windows.Forms.TextBox

49 FriendWithEventsCrystalReportViewer1AsCrystalDecisions.Windows.For

ms.CrystalReportViewer

50 FriendWithEventsLabel1AsSystem.Windows.Forms.Label

51 <System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComp

onent()

52 Me.Button1=NewSystem.Windows.Forms.Button

53 Me.TextBox1=NewSystem.Windows.Forms.TextBox

54 Me.CrystalReportViewer1=NewCrystalDecisions.Windows.Forms.Cryst

alReportViewer

55 Me.Label1=NewSystem.Windows.Forms.Label

56 Me.SuspendLayout()

57 '

58 'Button1

59 '

60 Me.Button1.Location=NewSystem.Drawing.Point(520,40)

61 Me.Button1.Name="Button1"

62 Me.Button1.TabIndex=0

63 Me.Button1.Text="生成报表"

64 '

65 'TextBox1

66 '

67 Me.TextBox1.Location=NewSystem.Drawing.Point(40,40)

68 Me.TextBox1.Name="TextBox1"

69 Me.TextBox1.Size=NewSystem.Drawing.Size(392,21)

70 Me.TextBox1.TabIndex=1

71 Me.TextBox1.Text="E:\myNet\CR_DynLoadPics\Pics"

72 '

73 'CrystalReportViewer1

74 '

75 Me.CrystalReportViewer1.ActiveViewIndex=-1

76 Me.CrystalReportViewer1.AutoScroll=True

77 Me.CrystalReportViewer1.DisplayBackgroundEdge=False

78 Me.CrystalReportViewer1.DisplayGroupTree=False

79 Me.CrystalReportViewer1.Location=NewSystem.Drawing.Point(24,80)

80 Me.CrystalReportViewer1.Name="CrystalReportViewer1"

81 Me.CrystalReportViewer1.ReportSource=Nothing

82 Me.CrystalReportViewer1.Size=NewSystem.Drawing.Size(616,320)

83 Me.CrystalReportViewer1.TabIndex=2

84 '

85 'Label1

86 '

87 Me.Label1.Location=NewSystem.Drawing.Point(40,8)

88 Me.Label1.Name="Label1"

89 Me.Label1.Size=NewSystem.Drawing.Size(432,23)

90 Me.Label1.TabIndex=3

91 Me.Label1.Text="请正确输入图片文件所在的目录，最后面不要带\，此处未进

行校验！"

92 '

93 'Form1

94 '

95 Me.AutoScaleBaseSize=NewSystem.Drawing.Size(6,14)

96 Me.ClientSize=NewSystem.Drawing.Size(664,429)

97 Me.Controls.Add(Me.Label1)

98 Me.Controls.Add(Me.CrystalReportViewer1)

99 Me.Controls.Add(Me.TextBox1)

100 Me.Controls.Add(Me.Button1)

101 Me.Name="Form1"

102 Me.Text="Form1"

103 Me.ResumeLayout(False)

104 

105 EndSub

106 

107 #EndRegion

108 

109 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSyst

em.EventArgs)HandlesButton1.Click

110 '查看 CrystalReport1 的定义可以查看对应的报表类

111 DimcrReportDocumentAsNewCrystalReport1

112 DimmyDataSetAsNewDataSet

113 DimPicPathAsString

114 DimmyColumeAsSystem.Data.DataColumn

115 DimmyRowAsDataRow

116 

117 '---------------------------------------------------------------------

118 '构造一个表，对应 xsd 文件

119 myDataSet.Tables.Add("雇员")

120 '构造表结构，可以只构造部分字段

121 myDataSet.Tables(0).Columns.Add(" 姓 ",System.Type.GetType("System.

String"))

122 myDataSet.Tables(0).Columns.Add(" 名 ",System.Type.GetType("System.

String"))

123 myDataSet.Tables(0).Columns.Add(" 雇员照片 ",

System.Type.GetType("System.Byte[]"))

124 

125 '---------------------------------------------------------------------

126 '写入数据

127 '注意此处没有进行校验

128 PicPath=TextBox1.Text&"\"

129 '写数据行(分别用了 3 种图片格式)

130 '提示:

131 '在这里你就可以使用你的数据库中保存的文件路径了

132 '用你的 DataSet 来填充这个将推给报表的 DataSet

133 '如：

134 AddOneRow(myDataSet.Tables(0),"Babyt","JPG 文件 ",

PicPath&"BBT_042105_04.jpg")

135 AddOneRow(myDataSet.Tables(0),"FaceSun","Gif 文件 ",

PicPath&"Image49.gif")

136 AddOneRow(myDataSet.Tables(0)," 张 ","Gif 文件 ",

PicPath&"Image5.gif")

137 AddOneRow(myDataSet.Tables(0),"王","JPG 文件",PicPath&"1.jpg")

138 AddOneRow(myDataSet.Tables(0),"燕子","JPG 文件",PicPath&"2.jpg")

139 AddOneRow(myDataSet.Tables(0),"Cnblogs.com/babyt","BMP 文件 ",

PicPath&"Coup30.bmp")

140 

141 '将这个 DataSet 推给报表

142 crReportDocument.SetDataSource(myDataSet)

143 

144 ''将报表传递给浏览器

145 CrystalReportViewer1.ReportSource=crReportDocument

146 EndSub

147 '*************************************************************************

148 '**函数名：AddOneRow

149 '**输入：

150 'ByReftblAsDataTable要操作的表，注意是 Byref

151 'ByValc1AsString第一个字段的值

152 'ByValc1AsString第二个字段的值

153 'ByValc1AsString第三个字段的值，注意传入的是完整的图片文件名

154 '**输出：无

155 '**功能描述：在 DataTable 中增加一个数据行

156 '该过程的主要是封装根据文件名提取本地文件写入到 DataSet 中

157 '**全局变量：

158 '**调用模块：

159 '**作者：Babyt(阿泰)

160 '**日期：2005-04-21

161 '**修改人：

162 '**日期：

163 '**版本：V2.0.0

164 '*************************************************************************

165 PublicSubAddOneRow(ByReftblAsDataTable,ByValc1AsString,ByValc

2AsString,ByValc3AsString)

166 DimfsAsNewFileStream(c3,FileMode.Open)'获取文本流

167 DimbrAsNewBinaryReader(fs)'创建 BinaryReader

168 DimrowAsDataRow

169 

170 '创建一个新行

171 row=tbl.NewRow()

172 

173 '赋值

174 row(0)=c1

175 row(1)=c2

176 '注意此处的写入方式

177 row(2)=br.ReadBytes(br.BaseStream.Length)

178 

179 '将该行增加到目标表

180 tbl.Rows.Add(row)

181 

182 '释放

183 br=Nothing

184 fs=Nothing

185 EndSub

186 

187 PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSyste

m.EventArgs)HandlesMyBase.Load

188 TextBox1.Text=Directory.GetCurrentDirectory()&"\Pics"

189 EndSub

190 EndClass

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

　首先创建水晶报表 rpt 文件，方法还是采用 xsd 数据集的方式，简便容易操作，记得将数

据集中的相关字段设为你想要在报表中呈现的字段。比如说在内容左边加入一个图片，就

将相应的图片字段拖放过去。能不能直接在水晶报表上添加一个图片然后修改？我做了几

次实验，好像都不得要领，所以还是放弃，走最老式的方式，先在数据库中创建一个准备

在水晶报表中使用到的字段的表，然后再通过这张表创建数据集 xsd 文件，再通过数据集

创建水晶报表。虽然方法绕了路，但是绝对是可行的。

　　通过数据集创建 dataset

　　DataSet1.pictureTabDataTable pt = new DataSet1.pictureTabDataTable();

　　DataSet1TableAdapters.pictureTabTableAdapter da =

　　new DataSet1TableAdapters.pictureTabTableAdapter();

　　da.Fill(pt);

剩余21页未读，继续阅读

评论收藏

内容反馈

生命在于学习

2020-10-20

我去，服了，居然是水晶报表_动态加载图片.docx 文档，我要你个文档有啥用。
senly284

2014-05-15

不错，有用有用
Taylor11188

2014-02-11

非常不错，值得下载！
treeMountain

2014-01-15

还是不行啊，不知道哪里出现了问题。我数据库存储是image格式，xsd是base64Binary格式，按照阿泰介绍的案例，没有达到效果啊，不显示图片。
haohaojiejie2

2013-09-26

没有达到我想要的效果，不过还是谢谢啦