Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Data Imports Stimulsoft.Controls Imports Stimulsoft.Base.Drawing Imports Stimulsoft.Report Imports Stimulsoft.Report.Dialogs Imports Stimulsoft.Report.Components Namespace Reports Public Class Report Inherits Stimulsoft.Report.StiReport Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region "StiReport Designer generated code - do not modify" Public ExerciseNo As Integer Public Page1 As Stimulsoft.Report.Components.StiPage Public HeaderBand1 As Stimulsoft.Report.Components.StiHeaderBand Public Text2 As Stimulsoft.Report.Components.StiText Public Text4 As Stimulsoft.Report.Components.StiText Public Text6 As Stimulsoft.Report.Components.StiText Public DataBand1 As Stimulsoft.Report.Components.StiDataBand Public Text1 As Stimulsoft.Report.Components.StiText Public Text3 As Stimulsoft.Report.Components.StiText Public Text5 As Stimulsoft.Report.Components.StiText Public Page1_Watermark As Stimulsoft.Report.Components.StiWatermark Public Steve_Testing_2_PrinterSettings As Stimulsoft.Report.Print.StiPrinterSettings Public Shareholder As ShareholderDataSource Public Sub Text2__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs) e.Value = "Name" End Sub Public Sub Text4__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs) e.Value = "ShareHolder_No" End Sub Public Sub Text6__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs) e.Value = "Exercise_No" End Sub Public Sub Text1__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs) e.Value = ToString(sender, Shareholder.Name, true) End Sub Public Sub Text3__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs) e.Value = ToString(sender, Shareholder.ShareHolder_No, true) End Sub Public Sub Text5__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs) e.Value = ToString(sender, Shareholder.Exercise_No, true) End Sub Private Sub InitializeComponent() Me.Shareholder = New ShareholderDataSource Me.Dictionary.Variables.Add(New Stimulsoft.Report.Dictionary.StiVariable("", "ExerciseNo", "ExerciseNo", "", GetType(Integer), "", false, Stimulsoft.Report.Dictionary.StiVariableInitBy.Value, false)) Me.NeedsCompiling = false ' 'Variables init ' Me.ExerciseNo = 0 Me.EngineVersion = Stimulsoft.Report.Engine.StiEngineVersion.EngineV2 Me.ReferencedAssemblies = New System.String() {"System.Dll", "System.Drawing.Dll", "System.Windows.Forms.Dll", "System.Data.Dll", "System.Xml.Dll", "Stimulsoft.Controls.Dll", "Stimulsoft.Base.Dll", "Stimulsoft.Report.Dll", "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\0721ea"& _ "12\8c2290e3\App_Code.2meyjvjn.dll"} Me.ReportAlias = "Steve Testing 2" ' 'ReportChanged ' Me.ReportChanged = New DateTime(2011, 11, 25, 9, 51, 53, 0) ' 'ReportCreated ' Me.ReportCreated = New DateTime(2011, 11, 25, 9, 48, 22, 0) Me.ReportFile = "" Me.ReportGuid = "ae647773f081ccefcd3fd86bf5bfdb5f" Me.ReportName = "Steve Testing 2" Me.ReportUnit = Stimulsoft.Report.StiReportUnitType.Centimeters Me.ReportVersion = "2011.3.1111" Me.ScriptLanguage = Stimulsoft.Report.StiReportLanguageType.VB Me.MetaTags.Add(New Stimulsoft.Report.StiMetaTag("Report_No", "61")) ' 'Page1 ' Me.Page1 = New Stimulsoft.Report.Components.StiPage Me.Page1.Guid = "38599c4fbab54fe4be5ab96277051201" Me.Page1.Name = "Page1" Me.Page1.PageHeight = 29.7 Me.Page1.PageWidth = 21 Me.Page1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 2, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.Page1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) ' 'HeaderBand1 ' Me.HeaderBand1 = New Stimulsoft.Report.Components.StiHeaderBand Me.HeaderBand1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0.4, 19, 0.8) Me.HeaderBand1.Name = "HeaderBand1" Me.HeaderBand1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.HeaderBand1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) ' 'Text2 ' Me.Text2 = New Stimulsoft.Report.Components.StiText Me.Text2.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4.4, 0.2, 2.8, 0.6) Me.Text2.Name = "Text2" AddHandler Me.Text2.GetValue, AddressOf Me.Text2__GetValue Me.Text2.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.Text2.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) Me.Text2.Font = New System.Drawing.Font("Arial", 10!) Me.Text2.Guid = Nothing Me.Text2.Indicator = Nothing Me.Text2.Interaction = Nothing Me.Text2.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0) Me.Text2.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black) Me.Text2.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None) ' 'Text4 ' Me.Text4 = New Stimulsoft.Report.Components.StiText Me.Text4.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0.8, 0.2, 2.8, 0.6) Me.Text4.Name = "Text4" AddHandler Me.Text4.GetValue, AddressOf Me.Text4__GetValue Me.Text4.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.Text4.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) Me.Text4.Font = New System.Drawing.Font("Arial", 10!) Me.Text4.Guid = Nothing Me.Text4.Indicator = Nothing Me.Text4.Interaction = Nothing Me.Text4.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0) Me.Text4.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black) Me.Text4.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None) ' 'Text6 ' Me.Text6 = New Stimulsoft.Report.Components.StiText Me.Text6.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(8.8, 0.2, 2.8, 0.6) Me.Text6.Name = "Text6" AddHandler Me.Text6.GetValue, AddressOf Me.Text6__GetValue Me.Text6.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.Text6.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) Me.Text6.Font = New System.Drawing.Font("Arial", 10!) Me.Text6.Guid = Nothing Me.Text6.Indicator = Nothing Me.Text6.Interaction = Nothing Me.Text6.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0) Me.Text6.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black) Me.Text6.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None) Me.HeaderBand1.Guid = Nothing Me.HeaderBand1.Interaction = Nothing ' 'DataBand1 ' Me.DataBand1 = New Stimulsoft.Report.Components.StiDataBand Me.DataBand1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 2, 19, 0.8) Me.DataBand1.DataSourceName = "Shareholder" Me.DataBand1.Name = "DataBand1" Me.DataBand1.Sort = New System.String(-1) {} Me.DataBand1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.DataBand1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) Me.DataBand1.BusinessObjectGuid = Nothing ' 'Text1 ' Me.Text1 = New Stimulsoft.Report.Components.StiText Me.Text1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(4.4, 0, 1.6, 0.6) Me.Text1.Name = "Text1" AddHandler Me.Text1.GetValue, AddressOf Me.Text1__GetValue Me.Text1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.Text1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) Me.Text1.Font = New System.Drawing.Font("Arial", 10!) Me.Text1.Guid = Nothing Me.Text1.Indicator = Nothing Me.Text1.Interaction = Nothing Me.Text1.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0) Me.Text1.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black) Me.Text1.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None) ' 'Text3 ' Me.Text3 = New Stimulsoft.Report.Components.StiText Me.Text3.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0.8, 0, 1.6, 0.6) Me.Text3.Name = "Text3" AddHandler Me.Text3.GetValue, AddressOf Me.Text3__GetValue Me.Text3.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.Text3.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) Me.Text3.Font = New System.Drawing.Font("Arial", 10!) Me.Text3.Guid = Nothing Me.Text3.Indicator = Nothing Me.Text3.Interaction = Nothing Me.Text3.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0) Me.Text3.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black) Me.Text3.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None) ' 'Text5 ' Me.Text5 = New Stimulsoft.Report.Components.StiText Me.Text5.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(8.8, 0, 1.6, 0.6) Me.Text5.Name = "Text5" AddHandler Me.Text5.GetValue, AddressOf Me.Text5__GetValue Me.Text5.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black), false) Me.Text5.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent) Me.Text5.Font = New System.Drawing.Font("Arial", 10!) Me.Text5.Guid = Nothing Me.Text5.Indicator = Nothing Me.Text5.Interaction = Nothing Me.Text5.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0) Me.Text5.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black) Me.Text5.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None) Me.DataBand1.Guid = Nothing Me.DataBand1.Interaction = Nothing Me.DataBand1.MasterComponent = Nothing Me.Page1.ExcelSheetValue = Nothing Me.Page1.Interaction = Nothing Me.Page1.Margins = New Stimulsoft.Report.Components.StiMargins(1, 1, 1, 1) Me.Page1_Watermark = New Stimulsoft.Report.Components.StiWatermark Me.Page1_Watermark.Font = New System.Drawing.Font("Arial", 100!) Me.Page1_Watermark.Image = Nothing Me.Page1_Watermark.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.FromArgb(50, 0, 0, 0)) Me.Steve_Testing_2_PrinterSettings = New Stimulsoft.Report.Print.StiPrinterSettings Me.PrinterSettings = me.Steve_Testing_2_PrinterSettings Me.Page1.Report = Me Me.Page1.Watermark = me.Page1_Watermark Me.HeaderBand1.Page = me.Page1 Me.HeaderBand1.Parent = me.Page1 Me.Text2.Page = me.Page1 Me.Text2.Parent = me.HeaderBand1 Me.Text4.Page = me.Page1 Me.Text4.Parent = me.HeaderBand1 Me.Text6.Page = me.Page1 Me.Text6.Parent = me.HeaderBand1 Me.DataBand1.Page = me.Page1 Me.DataBand1.Parent = me.Page1 Me.Text1.Page = me.Page1 Me.Text1.Parent = me.DataBand1 Me.Text3.Page = me.Page1 Me.Text3.Parent = me.DataBand1 Me.Text5.Page = me.Page1 Me.Text5.Parent = me.DataBand1 ' 'Add to HeaderBand1.Components ' Me.HeaderBand1.Components.Clear Me.HeaderBand1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.Text2, me.Text4, me.Text6}) ' 'Add to DataBand1.Components ' Me.DataBand1.Components.Clear Me.DataBand1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.Text1, me.Text3, me.Text5}) ' 'Add to Page1.Components ' Me.Page1.Components.Clear Me.Page1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {me.HeaderBand1, me.DataBand1}) ' 'Add to Pages ' Me.Pages.Clear Me.Pages.AddRange(New Stimulsoft.Report.Components.StiPage() {me.Page1}) Me.Shareholder.Columns.AddRange(New Stimulsoft.Report.Dictionary.StiDataColumn() {New Stimulsoft.Report.Dictionary.StiDataColumn("ShareHolder_No", "ShareHolder_No", "ShareHolder_No", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Name", "Name", "Name", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Investor_Id", "Investor_Id", "Investor_Id", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Share_Unit", "Share_Unit", "Share_Unit", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Address", "Address", "Address", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Created_Date", "Created_Date", "Created_Date", GetType(DateTime)), New Stimulsoft.Report.Dictionary.StiDataColumn("Created_By", "Created_By", "Created_By", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Updated_Date", "Updated_Date", "Updated_Date", GetType(DateTime)), New Stimulsoft.Report.Dictionary.StiDataColumn("Updated_By", "Updated_By", "Updated_By", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Gift", "Gift", "Gift", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Attend", "Attend", "Attend", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Share_Allocation", "Share_Allocation", "Share_Allocation", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("OldInvestor_Id", "OldInvestor_Id", "OldInvestor_Id", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Address2", "Address2", "Address2", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Town", "Town", "Town", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Post_Code", "Post_Code", "Post_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("State_Code", "State_Code", "State_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Country_Code", "Country_Code", "Country_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("CDS_Account", "CDS_Account", "CDS_Account", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Registered_Date", "Registered_Date", "Registered_Date", GetType(DateTime)), New Stimulsoft.Report.Dictionary.StiDataColumn("Unregistered_Date", "Unregistered_Date", "Unregistered_Date", GetType(DateTime)), New Stimulsoft.Report.Dictionary.StiDataColumn("Company", "Company", "Company", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Source_Batch", "Source_Batch", "Source_Batch", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("NotIn2ndROD", "NotIn2ndROD", "NotIn2ndROD", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("NewIn2ndROD", "NewIn2ndROD", "NewIn2ndROD", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("SourceIndicator", "SourceIndicator", "SourceIndicator", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Exercise_No", "Exercise_No", "Exercise_No", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Import_No", "Import_No", "Import_No", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Source_Type", "Source_Type", "Source_Type", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Participant_Code", "Participant_Code", "Participant_Code", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Participant_Branch_Code", "Participant_Branch_Code", "Participant_Branch_Code", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Participant_Name", "Participant_Name", "Participant_Name", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Nationality_Code", "Nationality_Code", "Nationality_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("RaceOwnership_Code", "RaceOwnership_Code", "RaceOwnership_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Investor_Type", "Investor_Type", "Investor_Type", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Telephone_Number", "Telephone_Number", "Telephone_Number", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Stock_Code", "Stock_Code", "Stock_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Serial_Number", "Serial_Number", "Serial_Number", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Status_Code", "Status_Code", "Status_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Beneficiary_Code", "Beneficiary_Code", "Beneficiary_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Account_Qualifier", "Account_Qualifier", "Account_Qualifier", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Allow_Duplicate", "Allow_Duplicate", "Allow_Duplicate", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Rejection_Codes", "Rejection_Codes", "Rejection_Codes", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Mobile_Number", "Mobile_Number", "Mobile_Number", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Bank_Account", "Bank_Account", "Bank_Account", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Joint_Account_indicator", "Joint_Account_indicator", "Joint_Account_indicator", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Meps_Routing_Code", "Meps_Routing_Code", "Meps_Routing_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Bank_Swift_Code", "Bank_Swift_Code", "Bank_Swift_Code", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Bank_Name", "Bank_Name", "Bank_Name", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Email", "Email", "Email", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Version_Status", "Version_Status", "Version_Status", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Update_Pending_No", "Update_Pending_No", "Update_Pending_No", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Active1", "Active1", "Active1", GetType(Boolean)), New Stimulsoft.Report.Dictionary.StiDataColumn("Active2", "Active2", "Active2", GetType(Boolean)), New Stimulsoft.Report.Dictionary.StiDataColumn("Active3", "Active3", "Active3", GetType(Boolean)), New Stimulsoft.Report.Dictionary.StiDataColumn("Active4", "Active4", "Active4", GetType(Boolean)), New Stimulsoft.Report.Dictionary.StiDataColumn("Active5", "Active5", "Active5", GetType(Boolean)), New Stimulsoft.Report.Dictionary.StiDataColumn("Active6", "Active6", "Active6", GetType(Boolean)), New Stimulsoft.Report.Dictionary.StiDataColumn("Shareholder_Type", "Shareholder_Type", "Shareholder_Type", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Shareholder_Status", "Shareholder_Status", "Shareholder_Status", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Remark", "Remark", "Remark", GetType(String)), New Stimulsoft.Report.Dictionary.StiDataColumn("Approved_By", "Approved_By", "Approved_By", GetType(Integer)), New Stimulsoft.Report.Dictionary.StiDataColumn("Approved_Date", "Approved_Date", "Approved_Date", GetType(DateTime))}) Me.DataSources.Add(Me.Shareholder) Me.Dictionary.Databases.Add(New Stimulsoft.Report.Dictionary.StiSqlDatabase("SymAppDatabase", "SymAppDatabase", "server=10.38.31.100;database=SymSSR-UAT;uid=sa;password=sa;Connect Timeout=600;", false)) AddHandler Me.Shareholder.Connecting, AddressOf Me.GetShareholder_SqlCommand End Sub Public Sub GetShareholder_SqlCommand(ByVal sender As Object, ByVal e As System.EventArgs) Me.Shareholder.SqlCommand = "Select top 10 * from shareholder" End Sub #Region "DataSource Shareholder" Public Class ShareholderDataSource Inherits Stimulsoft.Report.Dictionary.StiSqlSource Public Sub New() MyBase.New("SymAppDatabase", "Shareholder", "Shareholder", "", true, false, 30) End Sub Public Overridable ReadOnly Property ShareHolder_No As Integer Get Return CType(StiReport.ChangeType(Me("ShareHolder_No"), GetType(Integer), true),Integer) End Get End Property Public Shadows Overridable ReadOnly Property Name As String Get Return CType(StiReport.ChangeType(Me("Name"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Investor_Id As String Get Return CType(StiReport.ChangeType(Me("Investor_Id"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Share_Unit As Integer Get Return CType(StiReport.ChangeType(Me("Share_Unit"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Address As String Get Return CType(StiReport.ChangeType(Me("Address"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Created_Date As DateTime Get Return CType(StiReport.ChangeType(Me("Created_Date"), GetType(DateTime), true),DateTime) End Get End Property Public Overridable ReadOnly Property Created_By As Integer Get Return CType(StiReport.ChangeType(Me("Created_By"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Updated_Date As DateTime Get Return CType(StiReport.ChangeType(Me("Updated_Date"), GetType(DateTime), true),DateTime) End Get End Property Public Overridable ReadOnly Property Updated_By As Integer Get Return CType(StiReport.ChangeType(Me("Updated_By"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Gift As String Get Return CType(StiReport.ChangeType(Me("Gift"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Attend As Integer Get Return CType(StiReport.ChangeType(Me("Attend"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Share_Allocation As Integer Get Return CType(StiReport.ChangeType(Me("Share_Allocation"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property OldInvestor_Id As String Get Return CType(StiReport.ChangeType(Me("OldInvestor_Id"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Address2 As String Get Return CType(StiReport.ChangeType(Me("Address2"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Town As String Get Return CType(StiReport.ChangeType(Me("Town"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Post_Code As String Get Return CType(StiReport.ChangeType(Me("Post_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property State_Code As String Get Return CType(StiReport.ChangeType(Me("State_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Country_Code As String Get Return CType(StiReport.ChangeType(Me("Country_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property CDS_Account As String Get Return CType(StiReport.ChangeType(Me("CDS_Account"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Registered_Date As DateTime Get Return CType(StiReport.ChangeType(Me("Registered_Date"), GetType(DateTime), true),DateTime) End Get End Property Public Overridable ReadOnly Property Unregistered_Date As DateTime Get Return CType(StiReport.ChangeType(Me("Unregistered_Date"), GetType(DateTime), true),DateTime) End Get End Property Public Overridable ReadOnly Property Company As Integer Get Return CType(StiReport.ChangeType(Me("Company"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Source_Batch As Integer Get Return CType(StiReport.ChangeType(Me("Source_Batch"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property NotIn2ndROD As Integer Get Return CType(StiReport.ChangeType(Me("NotIn2ndROD"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property NewIn2ndROD As Integer Get Return CType(StiReport.ChangeType(Me("NewIn2ndROD"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property SourceIndicator As String Get Return CType(StiReport.ChangeType(Me("SourceIndicator"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Exercise_No As Integer Get Return CType(StiReport.ChangeType(Me("Exercise_No"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Import_No As Integer Get Return CType(StiReport.ChangeType(Me("Import_No"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Source_Type As Integer Get Return CType(StiReport.ChangeType(Me("Source_Type"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Participant_Code As Integer Get Return CType(StiReport.ChangeType(Me("Participant_Code"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Participant_Branch_Code As Integer Get Return CType(StiReport.ChangeType(Me("Participant_Branch_Code"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Participant_Name As String Get Return CType(StiReport.ChangeType(Me("Participant_Name"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Nationality_Code As String Get Return CType(StiReport.ChangeType(Me("Nationality_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property RaceOwnership_Code As String Get Return CType(StiReport.ChangeType(Me("RaceOwnership_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Investor_Type As String Get Return CType(StiReport.ChangeType(Me("Investor_Type"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Telephone_Number As String Get Return CType(StiReport.ChangeType(Me("Telephone_Number"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Stock_Code As String Get Return CType(StiReport.ChangeType(Me("Stock_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Serial_Number As String Get Return CType(StiReport.ChangeType(Me("Serial_Number"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Status_Code As String Get Return CType(StiReport.ChangeType(Me("Status_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Beneficiary_Code As String Get Return CType(StiReport.ChangeType(Me("Beneficiary_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Account_Qualifier As String Get Return CType(StiReport.ChangeType(Me("Account_Qualifier"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Allow_Duplicate As String Get Return CType(StiReport.ChangeType(Me("Allow_Duplicate"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Rejection_Codes As String Get Return CType(StiReport.ChangeType(Me("Rejection_Codes"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Mobile_Number As String Get Return CType(StiReport.ChangeType(Me("Mobile_Number"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Bank_Account As String Get Return CType(StiReport.ChangeType(Me("Bank_Account"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Joint_Account_indicator As String Get Return CType(StiReport.ChangeType(Me("Joint_Account_indicator"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Meps_Routing_Code As String Get Return CType(StiReport.ChangeType(Me("Meps_Routing_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Bank_Swift_Code As String Get Return CType(StiReport.ChangeType(Me("Bank_Swift_Code"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Bank_Name As String Get Return CType(StiReport.ChangeType(Me("Bank_Name"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Email As String Get Return CType(StiReport.ChangeType(Me("Email"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Version_Status As String Get Return CType(StiReport.ChangeType(Me("Version_Status"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Update_Pending_No As Integer Get Return CType(StiReport.ChangeType(Me("Update_Pending_No"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Active1 As Boolean Get Return CType(StiReport.ChangeType(Me("Active1"), GetType(Boolean), true),Boolean) End Get End Property Public Overridable ReadOnly Property Active2 As Boolean Get Return CType(StiReport.ChangeType(Me("Active2"), GetType(Boolean), true),Boolean) End Get End Property Public Overridable ReadOnly Property Active3 As Boolean Get Return CType(StiReport.ChangeType(Me("Active3"), GetType(Boolean), true),Boolean) End Get End Property Public Overridable ReadOnly Property Active4 As Boolean Get Return CType(StiReport.ChangeType(Me("Active4"), GetType(Boolean), true),Boolean) End Get End Property Public Overridable ReadOnly Property Active5 As Boolean Get Return CType(StiReport.ChangeType(Me("Active5"), GetType(Boolean), true),Boolean) End Get End Property Public Overridable ReadOnly Property Active6 As Boolean Get Return CType(StiReport.ChangeType(Me("Active6"), GetType(Boolean), true),Boolean) End Get End Property Public Overridable ReadOnly Property Shareholder_Type As String Get Return CType(StiReport.ChangeType(Me("Shareholder_Type"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Shareholder_Status As String Get Return CType(StiReport.ChangeType(Me("Shareholder_Status"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Remark As String Get Return CType(StiReport.ChangeType(Me("Remark"), GetType(String), true),String) End Get End Property Public Overridable ReadOnly Property Approved_By As Integer Get Return CType(StiReport.ChangeType(Me("Approved_By"), GetType(Integer), true),Integer) End Get End Property Public Overridable ReadOnly Property Approved_Date As DateTime Get Return CType(StiReport.ChangeType(Me("Approved_Date"), GetType(DateTime), true),DateTime) End Get End Property End Class #End Region 'DataSource Shareholder #End Region 'StiReport Designer generated code - do not modify End Class End Namespace