請教阿泰一個有關水晶報表的問題

最新推荐文章于 2021-02-23 03:00:50 发布

zhaoxiaoyang5156

最新推荐文章于 2021-02-23 03:00:50 发布

阅读量640

点赞数

文章标签： textbox button string components integer 工具

本文链接：https://blog.csdn.net/zhaoxiaoyang5156/article/details/1702736

版权

上面的程序的主界面

Imports System.Data.SqlClient

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Imports System.Drawing.Printing

Public Class Form1

Inherits System.Windows.Forms.Form

Dim crReportDocument As CrystalReport1

Private WithEvents pdoc As New PrintDocument

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 False

Else

Return True

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)

CrystalReportViewer1.ParameterFieldInfo = ParamFields

''將報表傳遞給流覽器

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 findPerson(strtxt1) And Len(strtxt1) = 7 Then

MessageBox.Show("客戶代號不存在，請重新輸入！")

Else

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()

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 findPerson(strtxt12) And Len(strtxt12) = 7 Then

MessageBox.Show("客戶代號不存在，請重新輸入！")

Else

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()

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()

'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

'CrystalReportViewer1.PrintReport()

MessageBox.Show("Report finished printing!")

Catch err As Exception

MessageBox.Show(err.ToString())

End Try

'Dim ppd As New PrintPreviewDialog

'Try

' ppd.Document = pdoc

' ppd.ShowDialog()

'Catch ex As Exception

'End Try

End Sub

End Class

這個是程序。

下面的是報表頁面

問題是：

當我點打印預覽的時候。。能出現個打印預覽的效果。

或以一個新的窗口打開這個水晶報表。。

如有空幫我解答一下。。。沒空的話。就算了。。我想過幾天我總可以做出來吧。煩著呢？？后面還要做排版

zhaoxiaoyang5156

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
1
评论
請教阿泰一個有關水晶報表的問題

上面的程序的主界面 Imports System.Data.SqlClientImports CrystalDecisions.CrystalReports.EngineImports CrystalDecisions.SharedImports System.Drawing.PrintingPubli
复制链接

扫一扫