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

医药行业

开发平台:

Visual Basic

  1. Imports System
  2. Imports DataDynamics.ActiveReports
  3. Imports DataDynamics.ActiveReports.Document
  4. Public Class rpxrk
  5. Inherits ActiveReport
  6. Public Sub New()
  7. MyBase.New()
  8. InitializeReport()
  9. End Sub
  10. #Region "ActiveReports Designer generated code"
  11.     Private WithEvents PageHeader As DataDynamics.ActiveReports.PageHeader = Nothing
  12.     Private WithEvents GroupHeader1 As DataDynamics.ActiveReports.GroupHeader = Nothing
  13.     Private WithEvents Detail As DataDynamics.ActiveReports.Detail = Nothing
  14.     Private WithEvents GroupFooter1 As DataDynamics.ActiveReports.GroupFooter = Nothing
  15.     Private WithEvents PageFooter As DataDynamics.ActiveReports.PageFooter = Nothing
  16. Public ds As DataDynamics.ActiveReports.DataSources.SqlDBDataSource = Nothing
  17. Private Label1 As DataDynamics.ActiveReports.Label = Nothing
  18. Private txt客户名称 As DataDynamics.ActiveReports.TextBox = Nothing
  19. Private Label2 As DataDynamics.ActiveReports.Label = Nothing
  20. Private txt日期 As DataDynamics.ActiveReports.TextBox = Nothing
  21. Private Label3 As DataDynamics.ActiveReports.Label = Nothing
  22. Private txt货位 As DataDynamics.ActiveReports.TextBox = Nothing
  23. Private Label4 As DataDynamics.ActiveReports.Label = Nothing
  24. Private txt票号 As DataDynamics.ActiveReports.TextBox = Nothing
  25. Private Label5 As DataDynamics.ActiveReports.Label = Nothing
  26. Private Line1 As DataDynamics.ActiveReports.Line = Nothing
  27. Private Line2 As DataDynamics.ActiveReports.Line = Nothing
  28. Private txt序号 As DataDynamics.ActiveReports.TextBox = Nothing
  29. Private txt药品编号 As DataDynamics.ActiveReports.TextBox = Nothing
  30. Private txt药品名称 As DataDynamics.ActiveReports.TextBox = Nothing
  31. Private txt药品规格 As DataDynamics.ActiveReports.TextBox = Nothing
  32. Private txt单位 As DataDynamics.ActiveReports.TextBox = Nothing
  33. Private txt进价 As DataDynamics.ActiveReports.TextBox = Nothing
  34. Private txt数量 As DataDynamics.ActiveReports.TextBox = Nothing
  35. Private txt金额 As DataDynamics.ActiveReports.TextBox = Nothing
  36. Private txt包装 As DataDynamics.ActiveReports.TextBox = Nothing
  37. Private txt产地 As DataDynamics.ActiveReports.TextBox = Nothing
  38. Private txt批号 As DataDynamics.ActiveReports.TextBox = Nothing
  39. Private Line3 As DataDynamics.ActiveReports.Line = Nothing
  40. Private 批号1 As DataDynamics.ActiveReports.TextBox = Nothing
  41. Private 产地1 As DataDynamics.ActiveReports.TextBox = Nothing
  42. Private 包装1 As DataDynamics.ActiveReports.TextBox = Nothing
  43. Private 金额1 As DataDynamics.ActiveReports.TextBox = Nothing
  44. Private 数量1 As DataDynamics.ActiveReports.TextBox = Nothing
  45. Private 进价1 As DataDynamics.ActiveReports.TextBox = Nothing
  46. Private 单位1 As DataDynamics.ActiveReports.TextBox = Nothing
  47. Private 药品规格1 As DataDynamics.ActiveReports.TextBox = Nothing
  48. Private 药品名称1 As DataDynamics.ActiveReports.TextBox = Nothing
  49. Private 药品编号1 As DataDynamics.ActiveReports.TextBox = Nothing
  50. Private 序号1 As DataDynamics.ActiveReports.TextBox = Nothing
  51. Private txt结算 As DataDynamics.ActiveReports.TextBox = Nothing
  52. Private 结算1 As DataDynamics.ActiveReports.TextBox = Nothing
  53. Private txt操作员 As DataDynamics.ActiveReports.TextBox = Nothing
  54. Private 操作员1 As DataDynamics.ActiveReports.TextBox = Nothing
  55. Private 金额2 As DataDynamics.ActiveReports.TextBox = Nothing
  56. Private 金额3 As DataDynamics.ActiveReports.TextBox = Nothing
  57. Private Line4 As DataDynamics.ActiveReports.Line = Nothing
  58. Public Sub InitializeReport()
  59. Me.LoadLayout(Me.GetType, "localJxc.rpxrk.rpx")
  60. Me.ds = CType(Me.DataSource,DataDynamics.ActiveReports.DataSources.SqlDBDataSource)
  61. Me.PageHeader = CType(Me.Sections("PageHeader"),DataDynamics.ActiveReports.PageHeader)
  62. Me.GroupHeader1 = CType(Me.Sections("GroupHeader1"),DataDynamics.ActiveReports.GroupHeader)
  63. Me.Detail = CType(Me.Sections("Detail"),DataDynamics.ActiveReports.Detail)
  64. Me.GroupFooter1 = CType(Me.Sections("GroupFooter1"),DataDynamics.ActiveReports.GroupFooter)
  65. Me.PageFooter = CType(Me.Sections("PageFooter"),DataDynamics.ActiveReports.PageFooter)
  66. Me.Label1 = CType(Me.PageHeader.Controls(0),DataDynamics.ActiveReports.Label)
  67. Me.txt客户名称 = CType(Me.PageHeader.Controls(1),DataDynamics.ActiveReports.TextBox)
  68. Me.Label2 = CType(Me.PageHeader.Controls(2),DataDynamics.ActiveReports.Label)
  69. Me.txt日期 = CType(Me.PageHeader.Controls(3),DataDynamics.ActiveReports.TextBox)
  70. Me.Label3 = CType(Me.PageHeader.Controls(4),DataDynamics.ActiveReports.Label)
  71. Me.txt货位 = CType(Me.PageHeader.Controls(5),DataDynamics.ActiveReports.TextBox)
  72. Me.Label4 = CType(Me.PageHeader.Controls(6),DataDynamics.ActiveReports.Label)
  73. Me.txt票号 = CType(Me.PageHeader.Controls(7),DataDynamics.ActiveReports.TextBox)
  74. Me.Label5 = CType(Me.PageHeader.Controls(8),DataDynamics.ActiveReports.Label)
  75. Me.Line1 = CType(Me.PageHeader.Controls(9),DataDynamics.ActiveReports.Line)
  76. Me.Line2 = CType(Me.PageHeader.Controls(10),DataDynamics.ActiveReports.Line)
  77. Me.txt序号 = CType(Me.PageHeader.Controls(11),DataDynamics.ActiveReports.TextBox)
  78. Me.txt药品编号 = CType(Me.PageHeader.Controls(12),DataDynamics.ActiveReports.TextBox)
  79. Me.txt药品名称 = CType(Me.PageHeader.Controls(13),DataDynamics.ActiveReports.TextBox)
  80. Me.txt药品规格 = CType(Me.PageHeader.Controls(14),DataDynamics.ActiveReports.TextBox)
  81. Me.txt单位 = CType(Me.PageHeader.Controls(15),DataDynamics.ActiveReports.TextBox)
  82. Me.txt进价 = CType(Me.PageHeader.Controls(16),DataDynamics.ActiveReports.TextBox)
  83. Me.txt数量 = CType(Me.PageHeader.Controls(17),DataDynamics.ActiveReports.TextBox)
  84. Me.txt金额 = CType(Me.PageHeader.Controls(18),DataDynamics.ActiveReports.TextBox)
  85. Me.txt包装 = CType(Me.PageHeader.Controls(19),DataDynamics.ActiveReports.TextBox)
  86. Me.txt产地 = CType(Me.PageHeader.Controls(20),DataDynamics.ActiveReports.TextBox)
  87. Me.txt批号 = CType(Me.PageHeader.Controls(21),DataDynamics.ActiveReports.TextBox)
  88. Me.Line3 = CType(Me.Detail.Controls(0),DataDynamics.ActiveReports.Line)
  89. Me.批号1 = CType(Me.Detail.Controls(1),DataDynamics.ActiveReports.TextBox)
  90. Me.产地1 = CType(Me.Detail.Controls(2),DataDynamics.ActiveReports.TextBox)
  91. Me.包装1 = CType(Me.Detail.Controls(3),DataDynamics.ActiveReports.TextBox)
  92. Me.金额1 = CType(Me.Detail.Controls(4),DataDynamics.ActiveReports.TextBox)
  93. Me.数量1 = CType(Me.Detail.Controls(5),DataDynamics.ActiveReports.TextBox)
  94. Me.进价1 = CType(Me.Detail.Controls(6),DataDynamics.ActiveReports.TextBox)
  95. Me.单位1 = CType(Me.Detail.Controls(7),DataDynamics.ActiveReports.TextBox)
  96. Me.药品规格1 = CType(Me.Detail.Controls(8),DataDynamics.ActiveReports.TextBox)
  97. Me.药品名称1 = CType(Me.Detail.Controls(9),DataDynamics.ActiveReports.TextBox)
  98. Me.药品编号1 = CType(Me.Detail.Controls(10),DataDynamics.ActiveReports.TextBox)
  99. Me.序号1 = CType(Me.Detail.Controls(11),DataDynamics.ActiveReports.TextBox)
  100. Me.txt结算 = CType(Me.GroupFooter1.Controls(0),DataDynamics.ActiveReports.TextBox)
  101. Me.结算1 = CType(Me.GroupFooter1.Controls(1),DataDynamics.ActiveReports.TextBox)
  102. Me.txt操作员 = CType(Me.GroupFooter1.Controls(2),DataDynamics.ActiveReports.TextBox)
  103. Me.操作员1 = CType(Me.GroupFooter1.Controls(3),DataDynamics.ActiveReports.TextBox)
  104. Me.金额2 = CType(Me.GroupFooter1.Controls(4),DataDynamics.ActiveReports.TextBox)
  105. Me.金额3 = CType(Me.GroupFooter1.Controls(5),DataDynamics.ActiveReports.TextBox)
  106. Me.Line4 = CType(Me.GroupFooter1.Controls(6),DataDynamics.ActiveReports.Line)
  107. End Sub
  108. #End Region
  109. End Class