frmviewck.vb
上传用户:wj57717022
上传日期:2014-12-16
资源大小:4093k
文件大小:7k
- Imports System.Configuration
- Public Class frmviewck
- Inherits System.Windows.Forms.Form
- #Region " Windows 窗体设计器生成的代码 "
- Public Sub New()
- MyBase.New()
- '该调用是 Windows 窗体设计器所必需的。
- InitializeComponent()
- '在 InitializeComponent() 调用之后添加任何初始化
- End Sub
- '窗体重写 dispose 以清理组件列表。
- Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
- If disposing Then
- If Not (components Is Nothing) Then
- components.Dispose()
- End If
- End If
- MyBase.Dispose(disposing)
- End Sub
- 'Windows 窗体设计器所必需的
- Private components As System.ComponentModel.IContainer
- '注意: 以下过程是 Windows 窗体设计器所必需的
- '可以使用 Windows 窗体设计器修改此过程。
- '不要使用代码编辑器修改它。
- Friend WithEvents Panel1 As System.Windows.Forms.Panel
- Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
- Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
- Friend WithEvents Panel2 As System.Windows.Forms.Panel
- Friend WithEvents ckViewer As DataDynamics.ActiveReports.Viewer.Viewer
- <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
- Me.Panel1 = New System.Windows.Forms.Panel
- Me.RadioButton2 = New System.Windows.Forms.RadioButton
- Me.RadioButton1 = New System.Windows.Forms.RadioButton
- Me.Panel2 = New System.Windows.Forms.Panel
- Me.ckViewer = New DataDynamics.ActiveReports.Viewer.Viewer
- Me.Panel1.SuspendLayout()
- Me.Panel2.SuspendLayout()
- Me.SuspendLayout()
- '
- 'Panel1
- '
- Me.Panel1.Controls.Add(Me.RadioButton2)
- Me.Panel1.Controls.Add(Me.RadioButton1)
- Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
- Me.Panel1.Location = New System.Drawing.Point(0, 0)
- Me.Panel1.Name = "Panel1"
- Me.Panel1.Size = New System.Drawing.Size(1028, 42)
- Me.Panel1.TabIndex = 1
- '
- 'RadioButton2
- '
- Me.RadioButton2.Checked = True
- Me.RadioButton2.Location = New System.Drawing.Point(128, 10)
- Me.RadioButton2.Name = "RadioButton2"
- Me.RadioButton2.Size = New System.Drawing.Size(96, 31)
- Me.RadioButton2.TabIndex = 1
- Me.RadioButton2.TabStop = True
- Me.RadioButton2.Text = "小票打印"
- '
- 'RadioButton1
- '
- Me.RadioButton1.Location = New System.Drawing.Point(21, 10)
- Me.RadioButton1.Name = "RadioButton1"
- Me.RadioButton1.Size = New System.Drawing.Size(96, 31)
- Me.RadioButton1.TabIndex = 0
- Me.RadioButton1.Text = "正常打印"
- '
- 'Panel2
- '
- Me.Panel2.Controls.Add(Me.ckViewer)
- Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
- Me.Panel2.Location = New System.Drawing.Point(0, 42)
- Me.Panel2.Name = "Panel2"
- Me.Panel2.Size = New System.Drawing.Size(1028, 706)
- Me.Panel2.TabIndex = 2
- '
- 'ckViewer
- '
- Me.ckViewer.BackColor = System.Drawing.SystemColors.Control
- Me.ckViewer.Dock = System.Windows.Forms.DockStyle.Fill
- Me.ckViewer.Location = New System.Drawing.Point(0, 0)
- Me.ckViewer.Name = "ckViewer"
- Me.ckViewer.ReportViewer.CurrentPage = 0
- Me.ckViewer.ReportViewer.MultiplePageCols = 3
- Me.ckViewer.ReportViewer.MultiplePageRows = 2
- Me.ckViewer.Size = New System.Drawing.Size(1028, 706)
- Me.ckViewer.TabIndex = 1
- Me.ckViewer.TableOfContents.Text = "Contents"
- Me.ckViewer.TableOfContents.Width = 200
- Me.ckViewer.Toolbar.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
- '
- 'frmviewck
- '
- Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
- Me.ClientSize = New System.Drawing.Size(1028, 748)
- Me.Controls.Add(Me.Panel2)
- Me.Controls.Add(Me.Panel1)
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
- Me.Name = "frmviewck"
- Me.Text = "frmviewck"
- Me.Panel1.ResumeLayout(False)
- Me.Panel2.ResumeLayout(False)
- Me.ResumeLayout(False)
- End Sub
- #End Region
- Public ckbillnumber As String
- Private Sub frmviewck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ckzprint()
- End Sub
- Private Sub ckprint()
- Dim sqlString As String
- Dim frmckviewer As New frmCk
- Try
- If ckbillnumber Is String.Empty Then
- MessageBox.Show("没有要打印的数据!", "提示信息:", MessageBoxButtons.OK)
- Else
- sqlString = "select * from wz_ck where 票号='" & ckbillnumber & "' order by 序号"
- Dim rpt As New rpxck
- Dim myDS As New DataDynamics.ActiveReports.DataSources.SqlDBDataSource
- myDS.ConnectionString = ConfigurationSettings.AppSettings.Get("constr")
- myDS.SQL = sqlString
- rpt.DataSource = myDS
- Me.ckViewer.Document = rpt.Document
- rpt.Run(False)
- End If
- Catch ex As Exception
- MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End Sub
- Private Sub ckzprint()
- Dim sqlString As String
- Try
- If ckbillnumber Is String.Empty Then
- MessageBox.Show("没有要打印的数据!", "提示信息:", MessageBoxButtons.OK)
- Else
- sqlString = "select * from wz_ck where 票号='" & ckbillnumber & "' order by 序号"
- Dim rpt As New rpxckz
- Dim myDS As New DataDynamics.ActiveReports.DataSources.SqlDBDataSource
- myDS.ConnectionString = ConfigurationSettings.AppSettings.Get("constr")
- myDS.SQL = sqlString
- rpt.DataSource = myDS
- Me.ckViewer.Document = rpt.Document
- rpt.Run(False)
- End If
- Catch ex As Exception
- MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End Sub
- Private Sub ckViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
- If RadioButton2.Checked = True Then
- ckzprint()
- ElseIf RadioButton1.Checked = True Then
- ckprint()
- End If
- End Sub
- End Class