rpxkh.vb
上传用户:wj57717022
上传日期:2014-12-16
资源大小:4093k
文件大小:4k
- Imports System
- Imports DataDynamics.ActiveReports
- Imports DataDynamics.ActiveReports.Document
- Public Class rpxkh
- 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 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 客户编号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 Line3 As DataDynamics.ActiveReports.Line = Nothing
- Private Line4 As DataDynamics.ActiveReports.Line = Nothing
- Public Sub InitializeReport()
- Me.LoadLayout(Me.GetType, "localJxc.rpxkh.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.GroupHeader1.Controls(0),DataDynamics.ActiveReports.Label)
- Me.Line1 = CType(Me.GroupHeader1.Controls(1),DataDynamics.ActiveReports.Line)
- Me.Line2 = CType(Me.GroupHeader1.Controls(2),DataDynamics.ActiveReports.Line)
- Me.txt客户编号 = CType(Me.GroupHeader1.Controls(3),DataDynamics.ActiveReports.TextBox)
- Me.txt客户名称 = CType(Me.GroupHeader1.Controls(4),DataDynamics.ActiveReports.TextBox)
- Me.txt地址 = CType(Me.GroupHeader1.Controls(5),DataDynamics.ActiveReports.TextBox)
- Me.txt联系人 = CType(Me.GroupHeader1.Controls(6),DataDynamics.ActiveReports.TextBox)
- Me.txt应收帐款 = CType(Me.GroupHeader1.Controls(7),DataDynamics.ActiveReports.TextBox)
- Me.txt应付帐款 = CType(Me.GroupHeader1.Controls(8),DataDynamics.ActiveReports.TextBox)
- Me.txt余额 = CType(Me.GroupHeader1.Controls(9),DataDynamics.ActiveReports.TextBox)
- Me.客户编号1 = CType(Me.Detail.Controls(0),DataDynamics.ActiveReports.TextBox)
- 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.Line3 = CType(Me.Detail.Controls(7),DataDynamics.ActiveReports.Line)
- Me.Line4 = CType(Me.GroupFooter1.Controls(0),DataDynamics.ActiveReports.Line)
- End Sub
- #End Region
- End Class