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

医药行业

开发平台:

Visual Basic

  1. Imports System.Configuration
  2. Public Class frmviewrkmanage
  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 rkmanageViewer As DataDynamics.ActiveReports.Viewer.Viewer
  26.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  27.         Me.rkmanageViewer = New DataDynamics.ActiveReports.Viewer.Viewer
  28.         Me.SuspendLayout()
  29.         '
  30.         'rkmanageViewer
  31.         '
  32.         Me.rkmanageViewer.BackColor = System.Drawing.SystemColors.Control
  33.         Me.rkmanageViewer.Dock = System.Windows.Forms.DockStyle.Fill
  34.         Me.rkmanageViewer.Location = New System.Drawing.Point(0, 0)
  35.         Me.rkmanageViewer.Name = "rkmanageViewer"
  36.         Me.rkmanageViewer.ReportViewer.CurrentPage = 0
  37.         Me.rkmanageViewer.ReportViewer.MultiplePageCols = 3
  38.         Me.rkmanageViewer.ReportViewer.MultiplePageRows = 2
  39.         Me.rkmanageViewer.Size = New System.Drawing.Size(292, 273)
  40.         Me.rkmanageViewer.TabIndex = 0
  41.         Me.rkmanageViewer.TableOfContents.Text = "Contents"
  42.         Me.rkmanageViewer.TableOfContents.Width = 200
  43.         Me.rkmanageViewer.Toolbar.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  44.         '
  45.         'frmviewrkmanage
  46.         '
  47.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  48.         Me.ClientSize = New System.Drawing.Size(292, 273)
  49.         Me.Controls.Add(Me.rkmanageViewer)
  50.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  51.         Me.Name = "frmviewrkmanage"
  52.         Me.Text = "frmviewrkmanage"
  53.         Me.ResumeLayout(False)
  54.     End Sub
  55. #End Region
  56.     Public strquery As String
  57.     Public sqlString As String
  58.     Private Sub frmviewrkmanage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  59.         rkprint()
  60.     End Sub
  61.     Private Sub rkprint()
  62.         Try
  63.             If sqlString = String.Empty Then
  64.                 sqlString = "select * from wz_rk where 票号='" & strquery & "' order by 序号"
  65.             End If
  66.             Dim rpt As New rpxrk
  67.             Dim myDS As New DataDynamics.ActiveReports.DataSources.SqlDBDataSource
  68.             myDS.ConnectionString = ConfigurationSettings.AppSettings.Get("constr")
  69.             myDS.SQL = sqlString
  70.             rpt.DataSource = myDS
  71.             Me.rkmanageViewer.Document = rpt.Document
  72.             rpt.Run(False)
  73.         Catch ex As Exception
  74.             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  75.         End Try
  76.     End Sub
  77. End Class