frmviewkh.vb
上传用户:wj57717022
上传日期:2014-12-16
资源大小:4093k
文件大小:3k
源码类别:

医药行业

开发平台:

Visual Basic

  1. Imports System.Configuration
  2. Public Class frmviewkh
  3.     Inherits System.Windows.Forms.Form
  4. #Region " Windows 窗体设计器生成的代码 "
  5.     Public Sub New()
  6.         MyBase.New()
  7.         '该调用是 Windows 窗体设计器所必需的。
  8.         InitializeComponent()
  9.         '在 InitializeComponent() 调用之后添加任何初始化
  10.     End Sub
  11.     '窗体重写 dispose 以清理组件列表。
  12.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  13.         If disposing Then
  14.             If Not (components Is Nothing) Then
  15.                 components.Dispose()
  16.             End If
  17.         End If
  18.         MyBase.Dispose(disposing)
  19.     End Sub
  20.     'Windows 窗体设计器所必需的
  21.     Private components As System.ComponentModel.IContainer
  22.     '注意: 以下过程是 Windows 窗体设计器所必需的
  23.     '可以使用 Windows 窗体设计器修改此过程。
  24.     '不要使用代码编辑器修改它。
  25.     Friend WithEvents khViewer As DataDynamics.ActiveReports.Viewer.Viewer
  26.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  27.         Me.khViewer = New DataDynamics.ActiveReports.Viewer.Viewer
  28.         Me.SuspendLayout()
  29.         '
  30.         'khViewer
  31.         '
  32.         Me.khViewer.BackColor = System.Drawing.SystemColors.Control
  33.         Me.khViewer.Dock = System.Windows.Forms.DockStyle.Fill
  34.         Me.khViewer.Location = New System.Drawing.Point(0, 0)
  35.         Me.khViewer.Name = "khViewer"
  36.         Me.khViewer.ReportViewer.CurrentPage = 0
  37.         Me.khViewer.ReportViewer.MultiplePageCols = 3
  38.         Me.khViewer.ReportViewer.MultiplePageRows = 2
  39.         Me.khViewer.Size = New System.Drawing.Size(592, 293)
  40.         Me.khViewer.TabIndex = 0
  41.         Me.khViewer.TableOfContents.Text = "Contents"
  42.         Me.khViewer.TableOfContents.Width = 200
  43.         Me.khViewer.Toolbar.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  44.         '
  45.         'frmviewkh
  46.         '
  47.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  48.         Me.ClientSize = New System.Drawing.Size(592, 293)
  49.         Me.Controls.Add(Me.khViewer)
  50.         Me.Name = "frmviewkh"
  51.         Me.Text = "frmviewkh"
  52.         Me.ResumeLayout(False)
  53.     End Sub
  54. #End Region
  55.     Public strquery As String
  56.     Public sqlString As String
  57.     Private Sub frmviewkh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  58.       khprint()
  59.     End Sub
  60.     Private Sub khprint()
  61.         Try
  62.             If sqlString = String.Empty Then
  63.                 sqlString = "select * from wz_kh where 拼音码 like '%" & strquery & "%'or 客户编号 like '%" & strquery & "%'"
  64.             End If
  65.             Dim rpt As New rpxkh
  66.             Dim myDS As New DataDynamics.ActiveReports.DataSources.SqlDBDataSource
  67.             myDS.ConnectionString = ConfigurationSettings.AppSettings.Get("constr")
  68.             myDS.SQL = sqlString
  69.             rpt.DataSource = myDS
  70.             Me.khViewer.Document = rpt.Document
  71.             rpt.Run(False)
  72.         Catch ex As Exception
  73.             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  74.         End Try
  75.     End Sub
  76. End Class