從數據庫里面查詢的數據。用水晶報表打印出來。 vb.net2003

最新推荐文章于 2022-05-31 16:45:25 发布
最新推荐文章于 2022-05-31 16:45:25 发布
阅读量831 收藏
点赞数
文章标签： vb.net textbox button string components 工具
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhaoxiaoyang5156/article/details/1703318
版权

主mainfrm

 

Imports  System.Data.SqlClient
 Imports  CrystalDecisions.CrystalReports.Engine
 Imports  CrystalDecisions.Shared
 Imports  System.Drawing.Printing
 Public   Class MainFrm
    Inherits System.Windows.Forms.Form
    Dim crReportDocument As CrystalReport1
    Public frmReport As New frmReport

Windows Form 設計工具產生的程式碼
    Public Shared Function findPerson(ByVal daihao As String) As Boolean
        Dim con As SqlConnection = DB.createCon
        con.Open()
        Dim cmd As New SqlCommand("select count(*) from inf01 where i01_01='" + daihao + "'", con)
        Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar())
        If count > 0 Then
            Return True
        Else
            Return False
        End If
        con.Close()
    End Function
    Function printers()
        Dim FieldString As String = ""
        '保持欄位名稱的陣列 
        Dim FieldArray() As String
        Dim i As Integer
        '參數欄位集合 
        Dim ParamFields As New ParameterFields
        '參數欄位 
        Dim ParamField As ParameterField
        '離散值 
        Dim DiscreteVal As New ParameterDiscreteValue
        FieldString = TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text
        FieldString = FieldString & "," & TextBox12.Text & "," & TextBox11.Text & "," & TextBox10.Text & "," & TextBox9.Text & "," & TextBox8.Text & "," & TextBox7.Text
        'If FieldString = "" Then
        '    MessageBox.Show("請輸入正確的寄件客戶代號！")
        '    Exit Sub
        'End If
        '刪除第一個逗號，使字串最終顯示為 "欄位1,欄位2,欄位3" 
        If FieldString.Substring(0, 1) = "," Then
            FieldString = FieldString.Substring(1, FieldString.Length - 1)
        End If
        '分割成陣列，每個元素為一個欄位名稱 
        FieldArray = FieldString.Split(",")
        '創建一個強類型報表實例 
        crReportDocument = New CrystalReport1
        For i = 0 To UBound(FieldArray)
            ParamField = New ParameterField
            ParamField.ParameterFieldName = "myParaField" & (i + 1).ToString
            '離散值 
            DiscreteVal = New ParameterDiscreteValue
            DiscreteVal.Value = FieldArray(i)
            '賦值 
            ParamField.CurrentValues.Add(DiscreteVal)
            '將該欄位加如到欄位集合中 
            ParamFields.Add(ParamField)
        Next
        'CrystalReportViewer1.ParameterFieldInfo = ParamFields
        '''將報表傳遞給流覽器 
        'CrystalReportViewer1.ReportSource = crReportDocument
        frmReport.CrystalReportViewer1.ParameterFieldInfo = ParamFields
        frmReport.CrystalReportViewer1.ReportSource = crReportDocument
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim strtxt1 = TextBox1.Text
        If Len(strtxt1) = 7 Then
            If findPerson(strtxt1) Then
                Dim consql As SqlConnection = DB.createCon
                'Dim consql As SqlConnection = New SqlConnection("server=127.0.0.1;database=test;uid=sa;pwd=;")
                consql.Open()
                Dim cmdsql As New SqlCommand("select i01_02,i01_06,i01_04,Cno,I01_031 from inf01 where i01_01='" + strtxt1 + "'", consql)
                Dim myReader As SqlDataReader = cmdsql.ExecuteReader()
                While myReader.Read()
                    Dim i01_02str As String = myReader.GetString(0).ToString()
                    Dim i01_06str As String = myReader.GetString(1).ToString()
                    Dim i01_04str As String = myReader.GetString(2).ToString()
                    Dim Constr As String = myReader.GetString(3).ToString()
                    Dim i01_031str As String = myReader.GetString(4).ToString()
                    TextBox2.Text = i01_02str
                    TextBox3.Text = i01_06str
                    TextBox4.Text = i01_04str
                    TextBox5.Text = Constr
                    TextBox6.Text = i01_031str
                End While
                myReader.Close()
                consql.Close()
            Else
                MessageBox.Show("客戶代號不存在，請重新輸入！")
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox5.Text = ""
                TextBox6.Text = ""
            End If
        End If
    End Sub

    Private Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox12.TextChanged
        Dim strtxt12 = TextBox12.Text
        If Len(strtxt12) = 7 Then
            If findPerson(strtxt12) Then
                Dim consql As SqlConnection = DB.createCon
                'Dim consql As SqlConnection = New SqlConnection("server=127.0.0.1;database=test;uid=sa;pwd=;")
                consql.Open()
                Dim cmdsql As New SqlCommand("select i01_02,i01_06,i01_04,Cno,I01_031 from inf01 where i01_01='" + strtxt12 + "'", consql)
                Dim myReader As SqlDataReader = cmdsql.ExecuteReader()
                While myReader.Read()
                    Dim i01_02str As String = myReader.GetString(0).ToString()
                    Dim i01_06str As String = myReader.GetString(1).ToString()
                    Dim i01_04str As String = myReader.GetString(2).ToString()
                    Dim Constr As String = myReader.GetString(3).ToString()
                    Dim i01_031str As String = myReader.GetString(4).ToString()
                    TextBox11.Text = i01_02str
                    TextBox10.Text = i01_06str
                    TextBox9.Text = i01_04str
                    TextBox8.Text = Constr
                    TextBox7.Text = i01_031str
                End While
                myReader.Close()
                consql.Close()
            Else
                MessageBox.Show("客戶代號不存在，請重新輸入！")
                TextBox7.Text = ""
                TextBox8.Text = ""
                TextBox9.Text = ""
                TextBox10.Text = ""
                TextBox11.Text = ""
            End If
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        printers()
        'frmReport.CrystalReportViewer1.PrintReport()
        'CrystalReportViewer1.PrintReport()
        '彈出打印對話框
        MessageBox.Show("Report finished printing!")
        'Try
        '    Dim margins As PageMargins
        '    margins = crReportDocument.PrintOptions.PageMargins
        '    margins.bottomMargin = 250
        '    margins.leftMargin = 350
        '    margins.rightMargin = 350
        '    margins.topMargin = 450
        '    crReportDocument.PrintOptions.ApplyPageMargins(margins)
        '    Dim printDocument As New System.Drawing.Printing.PrintDocument
        '    crReportDocument.PrintOptions.PrinterName = printDocument.PrinterSettings.PrinterName

        '    crReportDocument.PrintToPrinter(1, True, 1, 1)

        '    MessageBox.Show("Report finished printing!")
        'Catch err As Exception
        '    MessageBox.Show(err.ToString())
        'End Try
        '直接打印
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        printers()
        Try
            frmReport.ShowDialog()
            MessageBox.Show("Report finished printing!")
        Catch err As Exception
            MessageBox.Show(err.ToString())
        End Try
    End Sub
End Class

 子frmReport

 

Imports  System.Data.SqlClient
 Imports  CrystalDecisions.CrystalReports.Engine
 Imports  CrystalDecisions.Shared
 Imports  System.Drawing.Printing
 Public   Class frmReport
    Inherits System.Windows.Forms.Form


Windows Form 設計工具產生的程式碼

    Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     
    End Sub
End Class

報表：

zhaoxiaoyang5156
关注
VB.NET通过水晶报表显示数据
the_fire的技术博客
02-08 7867
刚开始的时候在网上也查了一些资料，资料很多，但是都不是我要的。于是自己开发吧。于是就琢磨出了这个： 首先从添加引用中添加这项：CrystalDecisions.CrystalReports.Engine。然后将水晶报表控件拖到窗体上。然后再添加一个： 这就是一个报表的模板，然后选择空白报表，然后在这里面设定数据项。 在报表模板中我是通过让其了连接到视
VB.net 水晶报表 动态数据源
09-23
这个标题"VB.net 水晶报表 动态数据源"揭示了我们将讨论如何在VB.NET环境中利用水晶报表处理动态数据源。动态数据源意味着报告可以适应不同来源或结构的数据，而不仅仅局限于固定的数据库表。 1. **水晶报表简介** ...
.NET环境下水晶报表使用总结(VB.NET)
05-31 394
水晶报表是一个优秀的报表开发工具，本人在开发通用管理系统的时候，所有报表都使用水晶报表，其简单、易用和强大的功能令笔者倍加喜爱，现将水晶报表使用手记呈现给大家。　　一、在使用自带的水晶报表时，请注册，否则只能使用30次。本注册号请大家只用户测试和学习，不能商用，否则后果自负。　　水晶报表注册码　　注册号:6707437608　　密码:AAP5GKS0000GDE100DS　　二...
vs2015vb.net水晶报表连接oracle入门示例
阿瑟与非
10-18 538
一、前言 水晶报表入门示例，万事开头难，入门之后再深入即可。 环境 vs2015 win10Oracle11g 二、新建Windows窗体应用程序 1.项目说明 新建项目，Form1添加Button组件，Form2中添加CrystalReportViewer组件，新建水晶报表。 Button1_Click事件打开Form2，Form2中Form2_Load方法加载水晶报表。 2.添加水晶报表 添加水晶报表到项目 设置数据库专家 配置Oracle服务器 拖动字段到
（转）以 .NET 创建 Code 39 条码图片 供水晶报表打印
feel_sky的专栏
02-15 713
教导如何用 C# 创建 Code 39 编码的「条码 (barcode)」图片，以供 ASP.NET + Crystal Reports 水晶报表呈现和打印此条码。本帖提供 ASP.NET 3.5 示例下载。 ------------------------------------------------- 本帖的示例下载点： http://files.cnblogs.com/Wizar
vb.net获取服务器中所有数据库名称显示在list,VB.NET获取ListBox中的所有项目并传递给参数...
weixin_32824711的博客
08-12 444
嗨，我的循环将我的列表框中的所有项目传递给水晶报表参数 .For i = 0 To ListBoxBillAccount.Items.Count - 1If ListBoxBillAccount.Items(i).selected ThencrParameterDiscreteValue = New ParameterDiscreteValue()crParameterDiscreteValue....
vb.net 2003程序打包全过程（包括水晶报表、.net框架安装等）
yasmong的专栏
10-19 3787
Normal 0 7.8 磅 0 2 false false false MicrosoftInternetExplorer4 <object classid
VB.net报表制作-《过坎儿秘籍》
劝学
06-29 2002
这次的重构版机房收费系统报表制作，可以说是费尽周折。最后做出来回头看，觉得很简单。但值得回味的是做不出来的时候那种惆怅纠结，尤其是苦苦搜索到肝肠寸断的而无果的捶胸顿足。。。           从发现到制作到完成，每一步都是一个“坎儿”，这个我们稍后带给大家《过坎儿秘籍》。           其实很早就关注报表了，从网上搜索关于VB.Net制作报表的各种方法，什么使用外部插件、水晶报表和VS
VB.NET 水晶报表PUSH方法制作 日语版 2010VS
zhangnn378514836
11-15 1145
当我们安装完2010VS后，在FORM 工具栏的　レポーティング 里面没有我们需要用来制作水晶报表的控件 CrystalReportViewer 。我们需要做下面的工作来解决这个问题：   1， 右键点击工程名称----〉选择 “プロパティ”----〉选择“コンパイル” ----〉选择最下面的“詳細コンパイルオプション（A）…”----〉再弹出的对话框里面选择最下面的 “對象のフレームワーク
shuijingbaobiao.rar_vb.net 报表_vb.net 水晶报表
09-23
在VB.NET中，水晶报表可以无缝集成，使得开发人员可以轻松地将数据从数据库或其他数据源提取出来，以格式化的形式展示给用户。 使用水晶报表的基本步骤如下： 1. **安装和引用**: 在VB.NET项目中使用水晶报表，...
模板打印,VB.net系统，可自定义模板，并打印
06-22
在VB.NET中，可以使用诸如水晶报表（Crystal Reports）或DevExpress报表等第三方库来创建和编辑模板。这些库通常支持多种数据源绑定，允许用户在模板中插入各种控件，如文本框、表格、图表等，并可以设置样式和格式...
水晶报表实例——VB.NET2008实现
07-01
在本实例中，我们将深入探讨如何使用VB.NET 2008集成开发环境（IDE）和Visual Studio 2008来创建和展示水晶报表，同时结合Access 2003作为后端数据库。 首先，让我们了解VB.NET 2008。这是微软公司推出的.NET框架下...
信息系统与数据库技术：8_VB.NET数据报表与图表.ppt
07-13
【信息系统与数据库技术：8_VB.NET数据报表与图表】主要介绍了如何在VB.NET环境中使用水晶报表（Crystal Reports）来创建和展示数据报表与图表。水晶报表是一款强大的报表设计工具，能够处理简单到复杂的报表需求，...
手把手教您在Asp.Net中使用水晶报表
weixin_30859423的博客
07-24 498
在我们对VS.Net中的水晶报表(Crystal Reports)进行研究之前，我和我朋友对如何将这个复杂的东东加入我们的Web应用有着非常的好奇心。一周以后，在阅读了大量的; HOWTO”文档之后，我们成功地将一些简单的报告加入到了我们的Asp.net程序中，并得到了一些小决窍。 这篇文章教你如何在.Net Web应用中使用水晶报表，也可以让你在学习过程中少走一些弯路。为了得到最好的效果...
VB.NET 表格生成斜表头
陈表达的博客
05-31 328
VB.NET 表格生成斜表头 详细代码如下，用VS代码可以直接复制使用，VBA则需要改一下 Private Sub 生成斜表头按钮_Click(sender As Object, e As RibbonControlEventArgs) Handles 生成斜表头按钮.Click '获取行标题和列标题 Dim icol As String = InputBox("请输入斜线单元格的行标题", "行标题") Dim irow As String = ...
JSP学生学籍管理系统设计与实现(源代码+论文+开题报告+外文翻译+答辩PPT).zip
09-21
1、资源项目源码均已通过严格测试验证，保证能够正常运行； 2、项目问题、技术讨论，可以给博主私信或留言，博主看到后会第一时间与您进行沟通； 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用，尤其对于人工智能、计算机科学与技术等相关专业，更为适合； 4、下载使用后，可先查看README.md或论文文件（如有），本项目仅用作交流学习参考，请切勿用于商业用途。 5、资源来自互联网采集，如有侵权，私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证，保证能够正常运行； 2、项目问题、技术讨论，可以给博主私信或留言，博主看到后会第一时间与您进行沟通； 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用，尤其对于人工智能、计算机科学与技术等相关专业，更为适合； 4、下载使用后，可先查看README.md或论文文件（如有），本项目仅用作交流学习参考，请切勿用于商业用途。 5、资源来自互联网采集，如有侵权，私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证，保证能够正常运行； 2、项目问题、技术讨论，可以给博主私信或留言，博主看到后会第一时间与您进行沟通； 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用，尤其对于人工智能、计算机科学与技术等相关专业，更为适合； 4、下载使用后，可先查看README.md或论文文件（如有），本项目仅用作交流学习参考，请切勿用于商业用途。 5、资源来自互联网采集，如有侵权，私聊博主删除。 6、可私信博主看论文后选择购买源代码。
省市区数据，完成三级联动，选择地区
最新发布
09-21
省市区数据，完成三级联动，选择地区
VB.NET数据库编程入门：数据绑定与实战解析
全书通过实例教学，涵盖了从基础的SQL操作到复杂的ADO.NET、数据绑定、水晶报表和数据Web服务的使用。此外，还提供了项目通用模块和实际项目案例，帮助读者掌握数据库应用系统的开发技能。" 《VB.NET数据库编程》一...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值