医药行业

开发平台：
Visual Basic

rpxrk.vb：源码内容
							Imports System
Imports DataDynamics.ActiveReports
Imports DataDynamics.ActiveReports.Document
Public Class rpxrk
Inherits ActiveReport
	Public Sub New()
	MyBase.New()
		InitializeReport()
	End Sub
	#Region "ActiveReports Designer generated code"
    Private WithEvents PageHeader As DataDynamics.ActiveReports.PageHeader = Nothing
    Private WithEvents GroupHeader1 As DataDynamics.ActiveReports.GroupHeader = Nothing
    Private WithEvents Detail As DataDynamics.ActiveReports.Detail = Nothing
    Private WithEvents GroupFooter1 As DataDynamics.ActiveReports.GroupFooter = Nothing
    Private WithEvents PageFooter As DataDynamics.ActiveReports.PageFooter = Nothing
	Public ds As DataDynamics.ActiveReports.DataSources.SqlDBDataSource = Nothing
	Private Label1 As DataDynamics.ActiveReports.Label = Nothing
	Private txt客户名称 As DataDynamics.ActiveReports.TextBox = Nothing
	Private Label2 As DataDynamics.ActiveReports.Label = Nothing
	Private txt日期 As DataDynamics.ActiveReports.TextBox = Nothing
	Private Label3 As DataDynamics.ActiveReports.Label = Nothing
	Private txt货位 As DataDynamics.ActiveReports.TextBox = Nothing
	Private Label4 As DataDynamics.ActiveReports.Label = Nothing
	Private txt票号 As DataDynamics.ActiveReports.TextBox = Nothing
	Private Label5 As DataDynamics.ActiveReports.Label = Nothing
	Private Line1 As DataDynamics.ActiveReports.Line = Nothing
	Private Line2 As DataDynamics.ActiveReports.Line = Nothing
	Private txt序号 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt药品编号 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt药品名称 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt药品规格 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt单位 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt进价 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt数量 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt金额 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt包装 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt产地 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt批号 As DataDynamics.ActiveReports.TextBox = Nothing
	Private Line3 As DataDynamics.ActiveReports.Line = Nothing
	Private 批号1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 产地1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 包装1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 金额1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 数量1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 进价1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 单位1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 药品规格1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 药品名称1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 药品编号1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 序号1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt结算 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 结算1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private txt操作员 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 操作员1 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 金额2 As DataDynamics.ActiveReports.TextBox = Nothing
	Private 金额3 As DataDynamics.ActiveReports.TextBox = Nothing
	Private Line4 As DataDynamics.ActiveReports.Line = Nothing
	Public Sub InitializeReport()
		Me.LoadLayout(Me.GetType, "localJxc.rpxrk.rpx")
		Me.ds = CType(Me.DataSource,DataDynamics.ActiveReports.DataSources.SqlDBDataSource)
		Me.PageHeader = CType(Me.Sections("PageHeader"),DataDynamics.ActiveReports.PageHeader)
		Me.GroupHeader1 = CType(Me.Sections("GroupHeader1"),DataDynamics.ActiveReports.GroupHeader)
		Me.Detail = CType(Me.Sections("Detail"),DataDynamics.ActiveReports.Detail)
		Me.GroupFooter1 = CType(Me.Sections("GroupFooter1"),DataDynamics.ActiveReports.GroupFooter)
		Me.PageFooter = CType(Me.Sections("PageFooter"),DataDynamics.ActiveReports.PageFooter)
		Me.Label1 = CType(Me.PageHeader.Controls(0),DataDynamics.ActiveReports.Label)
		Me.txt客户名称 = CType(Me.PageHeader.Controls(1),DataDynamics.ActiveReports.TextBox)
		Me.Label2 = CType(Me.PageHeader.Controls(2),DataDynamics.ActiveReports.Label)
		Me.txt日期 = CType(Me.PageHeader.Controls(3),DataDynamics.ActiveReports.TextBox)
		Me.Label3 = CType(Me.PageHeader.Controls(4),DataDynamics.ActiveReports.Label)
		Me.txt货位 = CType(Me.PageHeader.Controls(5),DataDynamics.ActiveReports.TextBox)
		Me.Label4 = CType(Me.PageHeader.Controls(6),DataDynamics.ActiveReports.Label)
		Me.txt票号 = CType(Me.PageHeader.Controls(7),DataDynamics.ActiveReports.TextBox)
		Me.Label5 = CType(Me.PageHeader.Controls(8),DataDynamics.ActiveReports.Label)
		Me.Line1 = CType(Me.PageHeader.Controls(9),DataDynamics.ActiveReports.Line)
		Me.Line2 = CType(Me.PageHeader.Controls(10),DataDynamics.ActiveReports.Line)
		Me.txt序号 = CType(Me.PageHeader.Controls(11),DataDynamics.ActiveReports.TextBox)
		Me.txt药品编号 = CType(Me.PageHeader.Controls(12),DataDynamics.ActiveReports.TextBox)
		Me.txt药品名称 = CType(Me.PageHeader.Controls(13),DataDynamics.ActiveReports.TextBox)
		Me.txt药品规格 = CType(Me.PageHeader.Controls(14),DataDynamics.ActiveReports.TextBox)
		Me.txt单位 = CType(Me.PageHeader.Controls(15),DataDynamics.ActiveReports.TextBox)
		Me.txt进价 = CType(Me.PageHeader.Controls(16),DataDynamics.ActiveReports.TextBox)
		Me.txt数量 = CType(Me.PageHeader.Controls(17),DataDynamics.ActiveReports.TextBox)
		Me.txt金额 = CType(Me.PageHeader.Controls(18),DataDynamics.ActiveReports.TextBox)
		Me.txt包装 = CType(Me.PageHeader.Controls(19),DataDynamics.ActiveReports.TextBox)
		Me.txt产地 = CType(Me.PageHeader.Controls(20),DataDynamics.ActiveReports.TextBox)
		Me.txt批号 = CType(Me.PageHeader.Controls(21),DataDynamics.ActiveReports.TextBox)
		Me.Line3 = CType(Me.Detail.Controls(0),DataDynamics.ActiveReports.Line)
		Me.批号1 = CType(Me.Detail.Controls(1),DataDynamics.ActiveReports.TextBox)
		Me.产地1 = CType(Me.Detail.Controls(2),DataDynamics.ActiveReports.TextBox)
		Me.包装1 = CType(Me.Detail.Controls(3),DataDynamics.ActiveReports.TextBox)
		Me.金额1 = CType(Me.Detail.Controls(4),DataDynamics.ActiveReports.TextBox)
		Me.数量1 = CType(Me.Detail.Controls(5),DataDynamics.ActiveReports.TextBox)
		Me.进价1 = CType(Me.Detail.Controls(6),DataDynamics.ActiveReports.TextBox)
		Me.单位1 = CType(Me.Detail.Controls(7),DataDynamics.ActiveReports.TextBox)
		Me.药品规格1 = CType(Me.Detail.Controls(8),DataDynamics.ActiveReports.TextBox)
		Me.药品名称1 = CType(Me.Detail.Controls(9),DataDynamics.ActiveReports.TextBox)
		Me.药品编号1 = CType(Me.Detail.Controls(10),DataDynamics.ActiveReports.TextBox)
		Me.序号1 = CType(Me.Detail.Controls(11),DataDynamics.ActiveReports.TextBox)
		Me.txt结算 = CType(Me.GroupFooter1.Controls(0),DataDynamics.ActiveReports.TextBox)
		Me.结算1 = CType(Me.GroupFooter1.Controls(1),DataDynamics.ActiveReports.TextBox)
		Me.txt操作员 = CType(Me.GroupFooter1.Controls(2),DataDynamics.ActiveReports.TextBox)
		Me.操作员1 = CType(Me.GroupFooter1.Controls(3),DataDynamics.ActiveReports.TextBox)
		Me.金额2 = CType(Me.GroupFooter1.Controls(4),DataDynamics.ActiveReports.TextBox)
		Me.金额3 = CType(Me.GroupFooter1.Controls(5),DataDynamics.ActiveReports.TextBox)
		Me.Line4 = CType(Me.GroupFooter1.Controls(6),DataDynamics.ActiveReports.Line)
	End Sub
	#End Region
End Class

						