如何在水晶报表中加入二维码控件，在线等待！高分等待你！！！

ksmark 2008-03-06 01:57:45
如何在水晶报表中加入二维码控件，在线等待！高分等待你！！！

我要在报表中加入二维码控件，我要把报表连同二维码一起打印出来。

请教各位大侠了！
...全文
2417 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
ws9528 2012-05-10
  • 打赏
  • 举报
 回复
收了，高级技术，以后定会用到。
lidechun 2011-04-03
  • 打赏
  • 举报
 回复
Sub QRCodeSaveRead()
bc1.Type = DotNetBarcode.Types.QRCode
bc1.PrintChar = True

'保存QRCode图片
strQRCode = ""
strQRCode = Trim(txtCode.Text) + " " + _
Trim(txtTLot1.Text) + " " + _
txtEPack2.Text
Panel1.Refresh()
bc1.QRSave(strQRCode, "QRCodeBmp.bmp", 2)

'读取QRCodeBmp

Dim fs As New System.IO.FileStream("QRCodeBmp.bmp", IO.FileMode.Open, IO.FileAccess.Read)
Dim imageDataTemp(fs.Length) As Byte
ImageData = imageDataTemp
fs.Read(ImageData, 0, System.Convert.ToInt32(fs.Length))
fs.Close()
End Sub

Sub InsertDB(ByVal txtInsertSql As String)
Dim InSertSql As New System.Text.StringBuilder
InSertSql.AppendLine(txtInsertSql)
InSertSql.AppendLine("',Convert(image,@imgQRCode))")
Dim wblInsertCnn As New SqlConnection(ConnectString)
Dim wblInsertCmd As New SqlCommand
Try
wblInsertCnn.Open()
wblInsertCmd.Connection = wblInsertCnn
wblInsertCmd.CommandText = InSertSql.ToString
Dim wblSP As New SqlParameter("@imgQRCode", SqlDbType.Image)
wblSP.Value = ImageData
wblInsertCmd.Parameters.Add(wblSP)
wblInsertCmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message + "插入数据库操作失败！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Finally
wblInsertCnn.Dispose()
wblInsertCmd.Dispose()
End Try
End Sub

rometw 2009-12-14
  • 打赏
  • 举报
 回复
收藏先
shibettle 2009-07-22
  • 打赏
  • 举报
 回复
在vs2003中怎么使用呢？
阿泰 2008-03-18
  • 打赏
  • 举报
 回复
收藏备用
ksmark 2008-03-18
  • 打赏
  • 举报
 回复
兄弟们，我搞定了。
使用QRCode图片实现的。我把代码贴出来，供大家参考。

Sub QRCodeSaveRead()
bc1.Type = DotNetBarcode.Types.QRCode
bc1.PrintChar = True

'保存QRCode图片
strQRCode = ""
strQRCode = Trim(txtCode.Text) + " " + _
Trim(txtTLot1.Text) + " " + _
txtEPack2.Text
Panel1.Refresh()
bc1.QRSave(strQRCode, "QRCodeBmp.bmp", 2)

'读取QRCodeBmp

Dim fs As New System.IO.FileStream("QRCodeBmp.bmp", IO.FileMode.Open, IO.FileAccess.Read)
Dim imageDataTemp(fs.Length) As Byte
ImageData = imageDataTemp
fs.Read(ImageData, 0, System.Convert.ToInt32(fs.Length))
fs.Close()
End Sub

Sub InsertDB(ByVal txtInsertSql As String)
Dim InSertSql As New System.Text.StringBuilder
InSertSql.AppendLine(txtInsertSql)
InSertSql.AppendLine("',Convert(image,@imgQRCode))")
Dim wblInsertCnn As New SqlConnection(ConnectString)
Dim wblInsertCmd As New SqlCommand
Try
wblInsertCnn.Open()
wblInsertCmd.Connection = wblInsertCnn
wblInsertCmd.CommandText = InSertSql.ToString
Dim wblSP As New SqlParameter("@imgQRCode", SqlDbType.Image)
wblSP.Value = ImageData
wblInsertCmd.Parameters.Add(wblSP)
wblInsertCmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message + "插入数据库操作失败！", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Finally
wblInsertCnn.Dispose()
wblInsertCmd.Dispose()
End Try
End Sub

在水晶报表里面把数据库的存放二维码的字段拖到水晶报表里面就可以了。
waterjkd 2008-03-12
  • 打赏
  • 举报
 回复
[Quote=引用 15 楼 mark3798 的回复:]
引用 13 楼 waterjkd 的回复:
引用 12 楼 mark3798 的回复:
To:Waterjkd
你晚上几点到家？我怎么联络你？就剩这一个问题了。
10号就要交项目了。


哥们不好意思阿，才看到，估计你今天已经交项目了。

兄弟，没有关系啊。这个问题解决不了，上面还在催我继续呢。已经被老大批了。晕。
我要的是二维码控件QRCode这种。还有条形码控件。可以留下QQ或者msn一起讨论一下啊。
[/Quote]QQ给你发 站内信息了
ksmark 2008-03-11
  • 打赏
  • 举报
 回复
[Quote=引用 13 楼 waterjkd 的回复:]
引用 12 楼 mark3798 的回复:
To:Waterjkd
你晚上几点到家？我怎么联络你？就剩这一个问题了。
10号就要交项目了。


哥们不好意思阿，才看到，估计你今天已经交项目了。
[/Quote]
兄弟，没有关系啊。这个问题解决不了，上面还在催我继续呢。已经被老大批了。晕。
我要的是二维码控件QRCode这种。还有条形码控件。可以留下QQ或者msn一起讨论一下啊。
阿泰 2008-03-10
  • 打赏
  • 举报
 回复


现在code39网上有免费的水晶报表专用字体，其他几种就要付费了
用一般的条码字体似乎在水晶报表上实现不出来所期望的效果
waterjkd 2008-03-10
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 mark3798 的回复:]
To:Waterjkd
你晚上几点到家？我怎么联络你？就剩这一个问题了。
10号就要交项目了。

[/Quote]
哥们不好意思阿，才看到，估计你今天已经交项目了。
ksmark 2008-03-09
  • 打赏
  • 举报
 回复
To:Waterjkd
你晚上几点到家？我怎么联络你？就剩这一个问题了。
10号就要交项目了。
honey52570 2008-03-07
  • 打赏
  • 举报
 回复
jf
waterjkd 2008-03-07
  • 打赏
  • 举报
 回复
哥们，请教谈不上，只是若干年前做过水晶报表。做这个挺痛苦，所以希望能帮你。
QQ，msn啥的，因为公司统一安全管理，所以上不了。就是上网也是偷偷的上。：（
如果你不急，晚上回家可以
ksmark 2008-03-07
  • 打赏
  • 举报
 回复
楼上的兄弟，你好。很高兴你来关注我的帖子。
如果方便的话可以留个QQ号码或者msn地址给我，让我请教你关于这个问题的解决方案。
谢谢。
QQ:57766476
msn:mark3798@hotmail.com
waterjkd 2008-03-07
  • 打赏
  • 举报
 回复
在水晶报表里设置个参数，然后把返回的值传进去，我想就可以了，其实没有你想象的那么复杂。
ksmark 2008-03-06
  • 打赏
  • 举报
 回复
问题是我的不是web页面。是winform。且使用了水晶报表。我想把那个二维条码放到水晶报表中。
CloneCenter 2008-03-06
  • 打赏
  • 举报
 回复
在Web页面上面创建一个Bitmap，然后做为Graphics，将你的Bar填充到这个Graphics中。



Dim bmp As New BitMap(200, 200)

Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)

bc1.Type = DotNetBarCode.Types.QRCode

bc1.PrintChar = True

bc1.WriteBar("1234567890", 0, 0, g.Height, g.Width, g)

' 此时bmp中的图像就是得到的二维条码。
ksmark 2008-03-06
  • 打赏
  • 举报
 回复
是二维码啊。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

txtCode.BackColor = Color.White

txtDate.Text = Date.Today
txtBarcode.Text = "123456789"
bc1.Type = DotNetBarcode.Types.QRCode
bc1.PrintChar = True

End Sub

Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
bc1.WriteBar(txtBarcode.Text, 0, 0, Panel1.Height, Panel1.Width, e.Graphics)

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarcode.TextChanged
Panel1.Refresh()
End Sub

waterjkd 2008-03-06
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 mark3798 的回复:]
那个控件我有的呀。是这个控件DotNetBarCode.dll。我都下载到了。在winform界面可以用的。
没有问题。
现在就是要把它弄到水晶报表中。

再顶啊。

[/Quote]DotNetBarCode.dll返回的是什么东西?
ksmark 2008-03-06
  • 打赏
  • 举报
 回复
那个控件我有的呀。是这个控件DotNetBarCode.dll。我都下载到了。在winform界面可以用的。
没有问题。
现在就是要把它弄到水晶报表中。

再顶啊。
加载更多回复（2）
Crystal Reports 9.2 中文版(水晶报表)
Crystal Reports 9.2 中文版(水晶报表) 下载,,软件版本:9.2.0.448不过现已出了Crystal Reports Professional v9.2.2.634 (c) Crystal Decisions,有足够的空间就提供.这是一个很不错的报表控件，我相信很多朋友都听说过吧！Crystal Reports 用于处理数据库，帮助用户分析和解释重要信息。使用 Crystal Reports 可以方便地创建简单报表，同时它也提供了创建复杂或专用的报表所需的整套工具。 创建所能想象的任何报表 Crystal Reports几乎可以从任何数据源生成您需要的报表。内置报表专家在您生成报表和完成一般的报表任务过程中，会一步一步地指导您进行操作。报表专家通过公式、交叉表、子报表和设置条件格式帮助表现数据的实际意义，揭示可能被隐藏掉的重要关系。如果文字和数字确实不够充分，则用地理地图和图形进行形象的信息交流。 将报表扩展到 Web Crystal Reports 的灵活性并未停留在创建报表这一功能上 ?您可以用各种各样的格式发布报表，包括用 Microsoft 的 Word 和 Excel 发布、通过电子邮件甚至 Web 发布。高级的 Web 报表功能允许工作组中的其他成员在他们自己的 Web 浏览器中查看或更新共享报表。 将报表并入应用程序通过将 Crystal Reports 的报表处理功能整合到自己的数据库应用程序中，应用程序和 Web 开发人员可以节省开发时间并满足用户的需求。Crystal Reports 支持大多数流行的开发语言，可以方便地在任何应用程序中添加报表。 不论您是 IT 行业的站点管理员，还是营销推广经理，也无论您是金融业的数据库管理员还是 CEO，Crystal Reports 都堪称是一个功能强大的工具，它可以帮助每一个人分析、解释重要信息。感谢 revenant 上传！
198个经典C#WinForm实例源码(超赞)
198个经典C#WinForm实例源码 超赞 超赞~！ 必看 必看~！ 值得收藏~！ 涉及全面 窗体技巧 控件操作 图像操作 报表打印 系统操作 文件处理 网络操作 数据库操作 加密解密 硬件读写 游戏设计 入门必看实例~！！值得收藏~！！ CLeopared
198个经典C#WinForm实例源码 超赞的完整版
"198个经典C#WinForm实例源码"包括： 1-窗体技巧 2-控件操作 3-图像操作 4-报表打印 5-系统操作 6-文件处理 7-网络操作 8-数据库操作 9-加密解密 10-硬件读写 11-游戏设计 "超赞的198个经典C#WinForm实例源码.zip " ~欢迎同学们下载共同学习~
在水晶报表中显示条形码/二维码（BY 冷家锋）
在水晶报表中显示条形码/二维码（BY 冷家锋） 一个项目需要在水晶报表中显示条形码/二维码，这个任务其实化为了两个子任务： 1、将字母/数字转化为条形码/二维码 2、将条形码、二维码在水晶报表中显示出来。 参考这个链接，应用ZXing.Net.0.15.0.0控件实现数字转化为条形码/二维码。 http://blog.csdn.net/xiaoyong_net/article/detai
vs2010不连接数据库在水晶报表中生成二维码
1.创建一个窗体项目，设置项目属性 2.添加水晶报表引用 3.我是用的是Gma.QrCodeNet.Encoding.Net35.dll生成二维码的，在项目中建个文件夹将dll文件放进去，再引用一下 4.在Form中放入一个CrystalReportViewer 5.创建一个新的空白报表 6.创建一个实体类对应二维码 using System; using System.Col...
VB

16,554

社区成员

110,527

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章