http://bloggingabout.net/blogs/wilson/default.aspxMicrosoft MVP - Visual Basic www.clinicmaster.netenCommunityServer 2008.5 SP2 (Build: 40407.4157)http://bloggingabout.net/blogs/wilson/archive/2010/12/12/code-generation-generate-visual-basic-code-automatically.aspxSun, 12 Dec 2010 12:11:00 GMT813b6dfd-644e-4573-a816-eebab56ba0d0:484394Wilson Kutegeka2http://bloggingabout.net/blogs/wilson/rsscomments.aspx?PostID=484394http://bloggingabout.net/blogs/wilson/archive/2010/12/12/code-generation-generate-visual-basic-code-automatically.aspx#comments<p><strong>Introduction</strong></p> <p>&nbsp;If you develop multitier applications that use a consistent data access framework, you will realize that most of your codes follow a certain pattern, and can be generated automatically.</p> <p>This code generator is based on a Data Access Framework (DAF) from my earlier post.</p> <p><a href="http://bloggingabout.net/blogs/wilson/archive/2010/05/24/building-a-data-access-framework.aspx">Building a Data Access Framework (DAF)</a></p> <p>It presents a simple way of building own code generator, you can build a tool that will automatically generate code at presentation and middle layers, importantly in a way that you want them to be.</p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/8535.GenerateVB.jpg" alt="Generate Visual Basic Code Automatically" /> </p> <p>Form that generates the Visual Basic Code</p> <p>If you have an object say Customers as shown in form above, the code generator will create three files that you need to add to you&rsquo;re solution</p> <ul> <li><em><strong>Customers Object.vb</strong></em></li> </ul> <p>This contains the <em><strong>Customers</strong></em> class, which defines methods such as <em><strong>SaveData</strong></em>, <em><strong>UpdateData</strong></em>, <em><strong>DeleteData</strong></em>, <em><strong>GetCustomers</strong></em> etc.</p> <ul> <li><em><strong>frmCustomers.Designer.vb</strong></em></li> </ul> <p>This is the partial class for the form <em><strong>frmCustomers</strong></em></p> <ul> <li><strong><em>frmCustomers.vb</em></strong></li> </ul> <p>This contains code behind the form <em><strong>frmCustomers</strong></em></p> <p>&nbsp;Key objects/methods in this code generator include:-</p> <p><br /><strong><em>Fields</em></strong><br />This class helps to work with key object&rsquo;s properties that are enough for us to create the codes and user interfaces.</p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> Fields</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_TableName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Name <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Caption <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_DataType <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_Key <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> m_References <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> TableName() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_TableName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_TableName = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Name() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Name</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Name = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Caption() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Caption</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Caption = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> DataType() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_DataType</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_DataType = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Key() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_Key</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_Key = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> References() <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_References</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_References = value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Constructors &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyBase</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>(<span style="color:blue;">ByVal</span> tableName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">MyClass</span>.New()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.TableName = tableName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> <p><strong><em>FieldsList</em></strong><br />This method returns the object&rsquo;s properties list that has been set through the datagridview</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Function</span> FieldsList() <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> Fields)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> name <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> caption <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataType <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> key <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> references <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> lFields <span style="color:blue;">As</span> <span style="color:blue;">New</span> List(<span style="color:blue;">Of</span> Fields)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ClassName = <span style="color:blue;">Me</span>.txtClassName.Text</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.dgvFields.RowCount &lt;= 1 <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Must Register At least one field!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> row <span style="color:blue;">As</span> DataGridViewRow <span style="color:blue;">In</span> <span style="color:blue;">Me</span>.dgvFields.Rows</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> row.IsNewRow <span style="color:blue;">Then</span> <span style="color:blue;">Exit</span> <span style="color:blue;">For</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; name = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colName.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(name) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for name must be entered!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataType = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colDataType.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(dataType) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for data type must be selected!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; key = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colKey.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(key) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;All entries for key must be selected!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ElseIf</span> key.ToUpper().Equals(<span style="color:#a31515;">&quot;Foreign&quot;</span>.ToUpper()) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; references = <span style="color:blue;">CStr</span>(row.Cells.Item(<span style="color:blue;">Me</span>.colReferences.Name).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(references) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;References must have a value for every key set as foreign!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> rowNumber <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> <span style="color:blue;">Me</span>.dgvFields.RowCount - 2</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> oFields <span style="color:blue;">As</span> Fields = <span style="color:blue;">New</span> Fields(<span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; name = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colName.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; caption = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colCaption.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(caption) <span style="color:blue;">Then</span> caption = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataType = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colDataType.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; key = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colKey.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; references = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colReferences.Name, rowNumber).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(references) <span style="color:blue;">Then</span> references = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> oFields</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .TableName = <span style="color:blue;">Me</span>._ClassName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Name = name</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Caption = caption</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .DataType = dataType</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Key = key</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .References = references</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; lFields.Add(oFields)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> lFields</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p><em><strong>GenerateFormClass</strong></em><br />This method generates the code behind form</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> GenerateFormClass()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FieldsList = FieldsList()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> outputDirectory <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtOutputDirectory.Text</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(outputDirectory) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter out put directory!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> Directory.Exists(outputDirectory) <span style="color:blue;">Then</span> Directory.CreateDirectory(outputDirectory)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> path <span style="color:blue;">As</span> <span style="color:blue;">String</span> = outputDirectory + <span style="color:#a31515;">&quot;\frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.vb&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Option Strict On&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Public Class frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;#Region &quot;&quot; Fields &quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;#End Region&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;(&quot;&quot;.&quot;&quot;, &quot;&quot;DAFSample&quot;&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.SetConString(DAF.SQLDb.SQLConnectionMode.WindowsAuthentication)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;If e.KeyCode = Keys.Enter Then Me.ProcessTabKey(True)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Close()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;For Each ctlReset As Control In Me.Controls&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;If TypeOf ctlReset Is TextBox Then&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;CType(ctlReset, TextBox).Clear()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;ElseIf TypeOf ctlReset Is DateTimePicker Then&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;CType(ctlReset, DateTimePicker).Value = Today&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;CType(ctlReset, DateTimePicker).Checked = True&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End If&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Next&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;With o&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetDeleteParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim deleteMSG As String = .Delete&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(deleteMSG)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End With&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.KeyDeclarationList)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim &quot;</span> + <span style="color:blue;">Me</span>._ClassName.Substring(0, 1).ToLower() + <span style="color:blue;">Me</span>._ClassName.Substring(1) + <span style="color:#a31515;">&quot; As New DataTable()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetSearchParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>._ClassName.Substring(0, 1).ToLower() + <span style="color:blue;">Me</span>._ClassName.Substring(1) + <span style="color:#a31515;">&quot; = o&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.Get&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;(&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.KeyArgumentsList)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;).Tables(&quot;&quot;&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;&quot;&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim dataSource As EnumerableRowCollection(Of DataRow) = &quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>._ClassName.Substring(0, 1).ToLower() + <span style="color:blue;">Me</span>._ClassName.Substring(1) + <span style="color:#a31515;">&quot;.AsEnumerable()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.LoadDataControls)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;With o&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetObjectParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;If .Save() Then MessageBox.Show(&quot;&quot;record successfully saved!&quot;&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.ResetControls()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End With&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.WaitCursor()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Using o&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot; As New DAFSampleData.&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;With o&quot;</span> + <span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:blue;">Me</span>.SetObjectParameters)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Dim updateMSG As String = .Update&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(updateMSG)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End With&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Using&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Catch ex As Exception&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;MessageBox.Show(ex.Message)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Finally&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;Me.Cursor = Cursors.Default()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Try&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Append(<span style="color:#a31515;">&quot;End Class&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>._FormClass.Length &gt; 0 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; File.WriteAllText(path, <span style="color:blue;">Me</span>._FormClass.ToString())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormClass.Remove(0, <span style="color:blue;">Me</span>._FormClass.Length)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Form Class, generated successfully!&quot;</span>, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> IOex <span style="color:blue;">As</span> IOException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(IOex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p><strong><em>GenerateFormPartialClass</em></strong><br />This method generates the form&rsquo;s partial class</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> GenerateFormPartialClass()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FieldsList = FieldsList()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> outputDirectory <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtOutputDirectory.Text</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(outputDirectory) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter out put directory!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> Directory.Exists(outputDirectory) <span style="color:blue;">Then</span> Directory.CreateDirectory(outputDirectory)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> path <span style="color:blue;">As</span> <span style="color:blue;">String</span> = outputDirectory + <span style="color:#a31515;">&quot;\frm&quot;</span> + <span style="color:blue;">Me</span>._ClassName + <span style="color:#a31515;">&quot;.Designer.vb&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&lt;Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()&gt; _&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Partial Class frm&quot;</span> + _ClassName + <span style="color:#a31515;">&quot; : Inherits System.Windows.Forms.Form&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;Form overrides dispose to clean up the component list.&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&lt;System.Diagnostics.DebuggerNonUserCode()&gt; _&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Protected Overrides Sub Dispose(ByVal disposing As Boolean)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;If disposing AndAlso components IsNot Nothing Then&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;components.Dispose()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End If&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(ControlChars.Tab)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;MyBase.Dispose(disposing)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;Required by the Windows Form Designer&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Private components As System.ComponentModel.IContainer&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;NOTE: The following procedure is required by the Windows Form Designer&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;It can be modified using the Windows Form Designer.&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;Do not modify it using the code editor.&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&lt;System.Diagnostics.DebuggerStepThrough()&gt; _&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Private Sub InitializeComponent()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose = New System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; define other controls</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.InitializeControls())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.SuspendLayout()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; set other controls properties</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.SetControlProperties())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ControlY = <span style="color:blue;">Me</span>._ControlY + 30</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnSave&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Location = New System.Drawing.Point(17, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Name = &quot;&quot;btnSave&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Size = New System.Drawing.Size(77, 23)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Tag = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.Text = &quot;&quot;&amp;Save&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnSave.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnDelete&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Location = New System.Drawing.Point(316, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Name = &quot;&quot;btnDelete&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Size = New System.Drawing.Size(72, 24)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Tag = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.Text = &quot;&quot;&amp;Delete&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnDelete.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ControlY = <span style="color:blue;">Me</span>._ControlY + 27</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnLoad&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Location = New System.Drawing.Point(17, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Name = &quot;&quot;btnLoad&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Size = New System.Drawing.Size(77, 23)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.Text = &quot;&quot;&amp;Load&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnLoad.UseVisualStyleBackColor = True&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnUpdate&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Location = New System.Drawing.Point(170, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Name = &quot;&quot;btnUpdate&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Size = New System.Drawing.Size(77, 23)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Tag = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.Text = &quot;&quot;&amp;Update&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnUpdate.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;btnClose&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.DarkBlue&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Location = New System.Drawing.Point(316, &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Name = &quot;&quot;btnClose&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Size = New System.Drawing.Size(72, 24)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.Text = &quot;&quot;&amp;Close&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.btnClose.UseVisualStyleBackColor = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Set Form</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._ControlY = <span style="color:blue;">Me</span>._ControlY + 50</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;frm&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;&#39;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.CancelButton = Me.btnClose&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.ClientSize = New System.Drawing.Size(415,&nbsp; &quot;</span> + <span style="color:blue;">Me</span>._ControlY.ToString() + <span style="color:#a31515;">&quot;)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnLoad)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnDelete)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnSave)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnUpdate)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Controls.Add(Me.btnClose)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Add form controls</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.AddFormControls())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.KeyPreview = True&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.MaximizeBox = False&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Name = &quot;&quot;frm&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.Text = &quot;&quot;&quot;</span> + _ClassName + <span style="color:#a31515;">&quot;&quot;&quot;&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.ResumeLayout(False)&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Me.PerformLayout()&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End Sub&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnLoad As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnDelete As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnSave As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnUpdate As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;Friend WithEvents btnClose As System.Windows.Forms.Button&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Declare other controls</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:blue;">Me</span>.DeclareControls())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.AppendLine()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Append(<span style="color:#a31515;">&quot;End Class&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>._FormPartialClass.Length &gt; 0 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; File.WriteAllText(path, <span style="color:blue;">Me</span>._FormPartialClass.ToString())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>._FormPartialClass.Remove(0, <span style="color:blue;">Me</span>._FormPartialClass.Length)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Form Partial Class, generated successfully!&quot;</span>, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> IOex <span style="color:blue;">As</span> IOException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(IOex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message, <span style="color:#a31515;">&quot;Code Generator!&quot;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p><strong><em>SaveXML</em></strong><br />This method saves the set object properties as an XML file</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> SaveXML(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> data <span style="color:blue;">As</span> List(<span style="color:blue;">Of</span> Fields))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> encoding <span style="color:blue;">As</span> <span style="color:blue;">New</span> UnicodeEncoding()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> XMLWriter <span style="color:blue;">As</span> <span style="color:blue;">New</span> XmlTextWriter(fileName, encoding)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> XMLWriter</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Formatting = Formatting.Indented</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Indentation = 3</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartDocument()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartElement(<span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> oFields <span style="color:blue;">As</span> Fields <span style="color:blue;">In</span> data</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> XMLWriter</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteStartElement(<span style="color:#a31515;">&quot;Field&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Name&quot;</span>, oFields.Name)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Caption&quot;</span>, oFields.Caption)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;DataType&quot;</span>, oFields.DataType)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;Key&quot;</span>, oFields.Key)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteAttributeString(<span style="color:#a31515;">&quot;References&quot;</span>, oFields.References)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .WriteEndElement()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; XMLWriter.WriteEndElement()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> XMLex <span style="color:blue;">As</span> XmlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> XMLex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; XMLWriter.Close()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p><br /><em><strong>OpenXML</strong></em><br />This method opens the saved XML file object properties</p> <p style="margin:0px;"><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> OpenXML(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> xmlDatadoc <span style="color:blue;">As</span> <span style="color:blue;">New</span> XmlDataDocument()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> fields = <span style="color:blue;">New</span> DataTable(<span style="color:blue;">Me</span>._ClassName)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.txtClassName.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Rows.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; xmlDatadoc.DataSet.ReadXml(fileName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; fields = xmlDatadoc.DataSet.Tables(<span style="color:#a31515;">&quot;Field&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> fields <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> fields.Rows.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.txtClassName.Text = xmlDatadoc.FirstChild.Name</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> fields.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Ensure that you add a new row</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Rows.Add()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colName.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;Name&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colCaption.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;Caption&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colDataType.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;DataType&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colKey.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;Key&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvFields.Item(<span style="color:blue;">Me</span>.colReferences.Name, pos).Value = fields.Rows(pos).Item(<span style="color:#a31515;">&quot;References&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> XMLex <span style="color:blue;">As</span> XmlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> XMLex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p>Find full source code in the attached file (<span id="ctl00_ctl00_OuterTaskRegion_TaskRegion_TaskRegion_CreatePost_ctl03_PostAttachment_ctl00_serverfilename"><em><strong>Generate_VB_Automatically.zip</strong></em></span>)</p> <p><em></em></p> <p><em>Wilson Kutegeka | Microsoft MVP - VB | C#<br />Developer | Promoter | ClinicMaster Software</em><em><br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p> <p><a target="_blank" href="http://twitter.com/kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/7183.small_5F00_twitter.gif" alt="follow me on twitter" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a><a target="_blank" href="http://www.facebook.com/Kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/5611.small_5F00_facebook.gif" alt="find me on facebook" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=484394" width="1" height="1">VB Code SampleCode GenerationData Access FrameworkData Access Layerhttp://bloggingabout.net/blogs/wilson/archive/2010/05/24/building-a-data-access-framework.aspxMon, 24 May 2010 08:44:00 GMT813b6dfd-644e-4573-a816-eebab56ba0d0:483364Wilson Kutegeka1http://bloggingabout.net/blogs/wilson/rsscomments.aspx?PostID=483364http://bloggingabout.net/blogs/wilson/archive/2010/05/24/building-a-data-access-framework.aspx#comments<p><strong>Introduction</strong></p> <p>Imagine you need to architect a multitier, distributed .NET-based app with three logical layers&mdash;presentation and interface services, business logic with core functionalities, and data access, where all database stuff and messaging happens. For this type of application, layering is the key. If the lowest layer could be completely ignorant of the upper layers, the system would be nearly perfect.</p> <p>When designing a layered system you must consider factors such as the ability to cascade changes (like new data schemas) through layers and the amount of overhead involved when data is moved from one layer to the next. Plus you need a business tier to execute your business logic, and you need a Data Access Framework (DAF) to provide Create/Read/Update/Delete (CRUD) functions to the rest of the system. </p> <p>There are two primary ways to provide this functionality&mdash;by using a commercial Object-Relational Mapping (O-RM) tool or by rolling your own DAF. This post shows you the best way to go that is create your own.</p> <p><strong>DAF Design Issues</strong></p> <p><br />Normalized relational databases and objects generally don&#39;t have one-to-one matchups between them. This means that someone has to write code that transmogrifies normalized rows and columns into business objects. This code is often called the Data Access Layer (DAL), which poses three challenges to the developer.</p> <p>The first challenge of a DAL is that a relational database defines four DB operations: insert, update, delete, and select. In the object-oriented programming (OOP) world, the first thing developers can do to deal with these four behaviors is simplify them to two OOP behaviors: read and write. A select is the read, and update, insert, and delete are all consolidated into the write.</p> <p>The second thing developers need to do is realize that business objects don&#39;t need&mdash;and shouldn&#39;t have&mdash;internal read and write baggage. Why? Because every business object would need redundant code for reading and writing. This code can be and should be factored out just as it&rsquo;s done in DataSets and DataTables. Factoring out read/write shrinks the overall size of the code base.</p> <p>Finally, the only real differences between any read and write are the SQL that performs the action, the inputs and outputs, and how these inputs and outputs are handled. Everything else about reading and writing is a connection, transaction, command, or reader, and the initiator&mdash;the behavior that sends the request to your database server. This means developers can factor out all of the latter behaviors and reduce the number of times they need to write the connect, transact, and command behavior.</p> <p>Collectively, these three elements&mdash;consolidate behaviors to read and write, factor out persistence from business objects, and separate basic database operations from object-specific details&mdash;make up the collective data access solution this article provides.</p> <p>&nbsp;<strong>DAF Design Objectives</strong></p> <ul> <li>Reusable from one entity to the other and across different presentation layers.</li> <li>Use Object-Oriented Features and adhere to design guidelines.</li> <li>Be able to employ the best method(s) of accessing the database such as having a good stored procedure layer set up for CRUD (Create, Retrieve, Update, Delete) operations and using stored procedures makes a very clear delineation between areas of responsibility.</li> <li>Abstract the .NET Framework Data Providers.</li> <li>Be in control of all the details of your application.</li> <li>Be compatible to the traditional multitier or n-tier application development approach.</li> <li>Applications are freed from hard-coded dependencies on a particular data engine or logical model.</li> <li>Mappings between the conceptual model and the storage-specific logical model can change without changing the application code.</li> <li>Independent of the underlying database; Developers can work with a consistent application object model that can be mapped to various storage schemas, possibly implemented in different database management systems. </li> <li>Multiple application models can be mapped to a single storage schema.</li> </ul> <p><strong>&nbsp;Key Objects in the DAF</strong></p> <p><br />The DAF logically groups objects into those that can be implemented/inherited by any data provider objects and those objects that are data provider specific.</p> <p>Common to all data provider objects found in the <em>DAF.Common</em> namespace are as follows:-</p> <p><strong>Interfaces</strong></p> <ul> <li><strong>IData</strong>; has properties such as <em>LoginID, LoginPassword, DatabaseName, UserID, DBPassword, Parameters, ReadData and SplitChar</em> that are to be defined by any class that implements it.</li> <li><strong>IDbData</strong>; Inherits <em>IDisposable</em> and has methods such as <em>Save, SaveData, Update, UpdateData, Delete, DeleteData, Load, Read, Execute and SetCommand</em>.</li> </ul> <p>&nbsp;<strong>Classes</strong></p> <ul> <li><strong>Data</strong>; implements <em>IData</em> Interface.</li> <li><strong>Parameter</strong>; defines two properties, <em>Name</em> and <em>Value</em> for the parameter array.</li> </ul> <p>&nbsp;Here are Provider Specific objects found in <em>DAF.SQLDb</em> namespace that inherit/implement the above interfaces. This post looks at SQL Server whose objects include:-</p> <p><strong>Interface</strong></p> <ul> <li><strong>ISQLData</strong>; has properties such as <em>ConString, Connection, Command, DataReader, ServerName</em> and methods that include <em>SaveCommand, UpdateCommand, DeleteCommand and SetConString</em>.</li> </ul> <p>&nbsp;<strong>Enumeration</strong></p> <ul> <li><strong>SQLConnectionMode</strong>; that helps to set connection mode to <em>WindowsAuthentication</em> or <em>SQLServerAuthentication</em>.</li> </ul> <p><strong>Classes</strong></p> <ul> <li><strong>ParameterSQL</strong>; Inherits <em>Parameter</em> class and adds properties such as <em>SQLDataType, ParDirection and Length</em>.</li> <li><strong>DBConnect</strong>; Perhaps this is the most important class that is inherited by any object that accesses the database. It Inherits the <em>Data</em> class, Implements <em>ISQLData</em> Interface and defines a couple of properties such as <em>ConString, Connection, Command, DataReader, ServerName</em> and methods that include <em>SetConString, Save, SaveData, SaveCommand, Update, UpdateData, Delete, DeleteData, DeleteCommand, SetCommand, Load, Execute, Read </em>and <em>Dispose</em>.</li> </ul> <p style="margin:0px;"><span style="color:blue;"></span></p> <p style="margin:0px;"><span style="color:blue;">Public</span> <span style="color:blue;">MustInherit</span> <span style="color:blue;">Class</span> DBConnect : <span style="color:blue;">Inherits</span> Data : <span style="color:blue;">Implements</span> ISQLData</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Fields &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Shared</span> m_ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> _connection <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnection()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> _command <span style="color:blue;">As</span> SqlCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> _dataReader <span style="color:blue;">As</span> SqlDataReader</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Shared</span> m_ServerName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Properties &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ConString() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ConString = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Property</span> Connection() <span style="color:blue;">As</span> SqlConnection <span style="color:blue;">Implements</span> ISQLData.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> _connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> SqlConnection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _connection = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Property</span> Command() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.Command</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> _command</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> SqlCommand)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _command = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Property</span> DataReader() <span style="color:blue;">As</span> SqlDataReader <span style="color:blue;">Implements</span> ISQLData.DataReader</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> _dataReader</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> SqlDataReader)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; _dataReader = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ServerName() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> m_ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Get</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; m_ServerName = Value</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Set</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Property</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Methods &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Sets the MS SQL connection mode and connection string</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SQLConnectionMode&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_ConString&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetConString(<span style="color:blue;">ByVal</span> _SQLConnectionMode <span style="color:blue;">As</span> SQLConnectionMode, <span style="color:blue;">ByVal</span> _ConString <span style="color:blue;">As</span> <span style="color:blue;">String</span>) _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Implements</span> ISQLData.SetConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> conBuilder <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnectionStringBuilder()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(_ConString) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> _SQLConnectionMode = SQLConnectionMode.WindowsAuthentication</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Server&quot;</span>) = <span style="color:blue;">Me</span>.ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.InitialCatalog = <span style="color:blue;">Me</span>.DatabaseName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder(<span style="color:#a31515;">&quot;Integrated Security&quot;</span>) = <span style="color:#a31515;">&quot;SSPI&quot;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; conBuilder.PersistSecurityInfo = <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;conBuilder.PacketSize = 4096</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ConString = conBuilder.ConnectionString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> _SQLConnectionMode = SQLConnectionMode.SQLServerAuthentication</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> conBuilder</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .DataSource = <span style="color:blue;">Me</span>.ServerName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .InitialCatalog = <span style="color:blue;">Me</span>.DatabaseName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .PersistSecurityInfo = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .UserID = <span style="color:blue;">Me</span>.UserID</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Password = <span style="color:blue;">Me</span>.DBPassword</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ConString = conBuilder.ConnectionString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : <span style="color:blue;">Me</span>.ConString = _ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Sets the MS SQL connection mode</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SQLConnectionMode&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetConString(<span style="color:blue;">ByVal</span> _SQLConnectionMode <span style="color:blue;">As</span> SQLConnectionMode) <span style="color:blue;">Implements</span> ISQLData.SetConString</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.SetConString(_SQLConnectionMode, <span style="color:blue;">String</span>.Empty)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Saves the objects data and if successful true is returned otherwise false</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> Save() <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span> <span style="color:blue;">Implements</span> ISQLData.Save</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">Me</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = SaveData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command.ExecuteNonQuery &gt; 0</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> SaveData() <span style="color:blue;">As</span> ArrayList <span style="color:blue;">Implements</span> ISQLData.SaveData</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Friend</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> SaveCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.SaveCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = SaveData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Updates the object&#39;s data and returns message telling the number of records updated</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Update() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.Update</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">Me</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = UpdateData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> updateMessage <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.Command.ExecuteNonQuery().ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:#a31515;">&quot;Record successfully updated!&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> UpdateData() <span style="color:blue;">As</span> ArrayList <span style="color:blue;">Implements</span> ISQLData.UpdateData</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Friend</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> UpdateCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.UpdateCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = UpdateData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Deletes Object data and returns a message telling you the number of records deleted</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Delete() <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">Implements</span> ISQLData.Delete</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">Me</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = DeleteData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> deleteMessage <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.Command.ExecuteNonQuery().ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:#a31515;">&quot;Record successfully deleted!&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> DeleteData() <span style="color:blue;">As</span> ArrayList <span style="color:blue;">Implements</span> ISQLData.DeleteData</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Friend</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Function</span> DeleteCommand() <span style="color:blue;">As</span> SqlCommand <span style="color:blue;">Implements</span> ISQLData.DeleteCommand</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Clean up to ensure that you supply only the required paraments</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> arrParameters <span style="color:blue;">As</span> ArrayList = DeleteData()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> intPos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> arrParameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(arrParameters(intPos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Not</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetCommand(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">Implements</span> ISQLData.SetCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = ctName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> SetCommand(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">Implements</span> ISQLData.SetCommand</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = CommandType.StoredProcedure</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Returns data from the database as a dataset</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SPName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_tables&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_Parameters&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;ctName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;commTimeout&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType, <span style="color:blue;">ByVal</span> commTimeout <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">MyClass</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> tables() <span style="color:blue;">As</span> <span style="color:blue;">String</span> = _tables.Split(<span style="color:blue;">Me</span>.SplitChar)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> tableName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">&quot;Table&quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> daSQL <span style="color:blue;">As</span> SqlDataAdapter = <span style="color:blue;">New</span> SqlDataAdapter(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> dsSQL <span style="color:blue;">As</span> DataSet = <span style="color:blue;">New</span> DataSet(tables(tables.GetLowerBound(0)))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; daSQL.SelectCommand.CommandType = ctName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; daSQL.SelectCommand.CommandTimeout = commTimeout</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; daSQL.SelectCommand.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dsSQL.EnforceConstraints = <span style="color:blue;">False</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> daSQL</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .MissingMappingAction = MissingMappingAction.Passthrough</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .MissingSchemaAction = MissingSchemaAction.AddWithKey</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = tables.GetLowerBound(0) <span style="color:blue;">To</span> tables.GetUpperBound(0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> pos = 0 <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .TableMappings.Add(tableName, tables(pos).Trim())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : .TableMappings.Add(tableName &amp; pos, tables(pos).Trim())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Fill(dsSQL)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dsSQL.EnforceConstraints = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> dsSQL</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Load(_SPName, _tables, _Parameters, ctName, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Load(_SPName, _tables, _Parameters, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Load(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _tables <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">As</span> DataSet <span style="color:blue;">Implements</span> ISQLData.Load</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Load(_SPName, _tables, <span style="color:blue;">Nothing</span>, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; calling this helps to execute DB scripts returning no data such as abackup script</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SPName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_Parameters&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;ctName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;commTimeout&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType, <span style="color:blue;">ByVal</span> commTimeout <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">MyClass</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = ctName</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandTimeout = commTimeout</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.ExecuteNonQuery()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Execute(_SPName, _Parameters, ctName, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Execute(_SPName, _Parameters, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Sub</span> Execute(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">Implements</span> ISQLData.Execute</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Execute(_SPName, <span style="color:blue;">Nothing</span>, CommandType.StoredProcedure, 0)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Returns data from adata reader as ahashtable</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_SPName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;_Parameters&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;ctName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;returns&gt;&lt;/returns&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Read(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList, _</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; <span style="color:blue;">ByVal</span> ctName <span style="color:blue;">As</span> CommandType) <span style="color:blue;">As</span> Hashtable <span style="color:blue;">Implements</span> ISQLData.Read</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> htReadData <span style="color:blue;">As</span> <span style="color:blue;">New</span> Hashtable()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Connection</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Using</span> <span style="color:blue;">Me</span>.Command</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.ConnectionString = <span style="color:blue;">MyClass</span>.ConString</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command = <span style="color:blue;">New</span> SqlCommand(_SPName, <span style="color:blue;">Me</span>.Connection)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.CommandType = ctName</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> <span style="color:blue;">Not</span> IsNothing(.Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .Value))</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> IsNothing(.Value) <span style="color:blue;">And</span> IsNothing(.Length) <span style="color:blue;">OrElse</span> IsNothing(.Value) <span style="color:blue;">And</span> .Length = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .SQLDataType)).Direction = .ParDirection</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> <span style="color:blue;">Else</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.Parameters.Add(<span style="color:blue;">New</span> SqlParameter(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString(), .SQLDataType, .Length)).Direction = .ParDirection</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Open()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Command.ExecuteNonQuery()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> IsNothing(_Parameters) = <span style="color:blue;">False</span> <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> _Parameters.Count - 1</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> <span style="color:blue;">CType</span>(_Parameters(pos), ParameterSQL)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Select</span> <span style="color:blue;">Case</span> <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Case</span> .ParDirection = ParameterDirection.Output <span style="color:blue;">OrElse</span> .ParDirection = ParameterDirection.InputOutput</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; htReadData.Add(.Name.ToString(), <span style="color:blue;">Me</span>.Command.Parameters(<span style="color:#a31515;">&quot;@&quot;</span> &amp; .Name.ToString()).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Select</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> htReadData</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> SqlException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> eX <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> eX</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.Parameters <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.Parameters.Clear()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">Me</span>.DataReader <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Me</span>.DataReader.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Connection.Close()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Nothing</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Using</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Read(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">ByVal</span> _Parameters <span style="color:blue;">As</span> ArrayList) <span style="color:blue;">As</span> Hashtable <span style="color:blue;">Implements</span> ISQLData.Read</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Read(_SPName, _Parameters, CommandType.StoredProcedure)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Protected</span> <span style="color:blue;">Overloads</span> <span style="color:blue;">Function</span> Read(<span style="color:blue;">ByVal</span> _SPName <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">As</span> Hashtable <span style="color:blue;">Implements</span> ISQLData.Read</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span> <span style="color:blue;">Me</span>.Read(_SPName, <span style="color:blue;">Nothing</span>, CommandType.StoredProcedure)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Function</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#Region</span> <span style="color:#a31515;">&quot; Destructor &quot;</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Public</span> <span style="color:blue;">Overridable</span> <span style="color:blue;">Sub</span> Dispose() <span style="color:blue;">Implements</span> ISQLData.Dispose</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; GC.Collect()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">#End</span> <span style="color:blue;">Region</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Class</span></p> <p style="margin:0px;"><span style="color:blue;"></span></p> <p><strong></strong></p> <p><strong>Using the DAF</strong></p> <p>To use the DAF, define a class such as <em>Customers</em> that inherits <em>DBConnect</em> and overrides <em>SaveData, UpdateData, DeleteData</em> methods. You can include several other methods that call the <em>Load</em> method to retrieve data as a dataset using different select criterion such as <em>GetCustomers</em> Note that if your SP returns multiple tables from the DB, then you need to supply comma separated datatable names to load the returned DB data, or if you just want to execute a certain script, you can just call <em>Execute</em> method. You can also return only one value from the DB by calling the Read method that returns a hashtable.</p> <p style="margin:0px;"><span style="color:blue;">public</span> <span style="color:blue;">class</span> <span style="color:#2b91af;">Customers</span> : <span style="color:#2b91af;">DBConnect</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Fields</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_CustID;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_FirstName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_LastName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:#2b91af;">DateTime</span> m_JoinDate;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">string</span> m_Email;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">private</span> <span style="color:blue;">decimal</span> m_CreditLimit;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Properties</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> CustID { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_CustID; } <span style="color:blue;">set</span> { m_CustID = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> FirstName { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_FirstName; } <span style="color:blue;">set</span> { m_FirstName = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> LastName { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_LastName; } <span style="color:blue;">set</span> { m_LastName = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:#2b91af;">DateTime</span> JoinDate { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_JoinDate; } <span style="color:blue;">set</span> { m_JoinDate = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">string</span> Email { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_Email; } <span style="color:blue;">set</span> { m_Email = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:blue;">decimal</span> CreditLimit { <span style="color:blue;">get</span> { <span style="color:blue;">return</span> m_CreditLimit; } <span style="color:blue;">set</span> { m_CreditLimit = <span style="color:blue;">value</span>; } }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Constructors</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> Customers() : <span style="color:blue;">base</span>() { }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> Customers(<span style="color:blue;">string</span> serverName, <span style="color:blue;">string</span> databaseName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; : <span style="color:blue;">base</span>()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ServerName = serverName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.DatabaseName = databaseName;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #region</span> Methods</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">protected</span> <span style="color:blue;">override</span> <span style="color:#2b91af;">ArrayList</span> SaveData()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.SetCommand(<span style="color:#a31515;">&quot;uspInsertCustomers&quot;</span>);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CustID&quot;</span>, <span style="color:blue;">this</span>.CustID));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;FirstName&quot;</span>, <span style="color:blue;">this</span>.FirstName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;LastName&quot;</span>, <span style="color:blue;">this</span>.LastName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;JoinDate&quot;</span>, <span style="color:blue;">this</span>.JoinDate));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;Email&quot;</span>, <span style="color:blue;">this</span>.Email));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CreditLimit&quot;</span>, <span style="color:blue;">this</span>.CreditLimit));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> Parameters;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">protected</span> <span style="color:blue;">override</span> <span style="color:#2b91af;">ArrayList</span> UpdateData()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.SetCommand(<span style="color:#a31515;">&quot;uspUpdateCustomers&quot;</span>);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CustID&quot;</span>, <span style="color:blue;">this</span>.CustID));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;FirstName&quot;</span>, <span style="color:blue;">this</span>.FirstName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;LastName&quot;</span>, <span style="color:blue;">this</span>.LastName));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;JoinDate&quot;</span>, <span style="color:blue;">this</span>.JoinDate));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;Email&quot;</span>, <span style="color:blue;">this</span>.Email));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CreditLimit&quot;</span>, <span style="color:blue;">this</span>.CreditLimit));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> Parameters;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">protected</span> <span style="color:blue;">override</span> <span style="color:#2b91af;">ArrayList</span> DeleteData()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> where;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> errorPart;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; where = <span style="color:#a31515;">&quot;CustID = &#39;&quot;</span> + <span style="color:blue;">this</span>.CustID + <span style="color:#a31515;">&quot;&#39;&quot;</span>;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; errorPart = <span style="color:#a31515;">&quot;Cust No: &quot;</span> + <span style="color:blue;">this</span>.CustID;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.SetCommand(<span style="color:#a31515;">&quot;uspDeleteObject&quot;</span>);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;ObjectName&quot;</span>, <span style="color:#a31515;">&quot;Customers&quot;</span>));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;Where&quot;</span>, where));</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;ErrorPart&quot;</span>, errorPart));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> Parameters;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">public</span> <span style="color:#2b91af;">DataSet</span> GetCustomers(<span style="color:blue;">string</span> custID)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Parameters.Add(<span style="color:blue;">new</span> <span style="color:#2b91af;">ParameterSQL</span>(<span style="color:#a31515;">&quot;CustID&quot;</span>, custID));</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">return</span> <span style="color:blue;">this</span>.Load(<span style="color:#a31515;">&quot;uspGetCustomers&quot;</span>, <span style="color:#a31515;">&quot;Customers&quot;</span>, Parameters);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;"><span style="color:blue;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; #endregion</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; }</p> <p>&nbsp;Finally create a form that instantiates the <em>Customers</em> object and calls the respective methods, </p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/8546.Customers.gif" alt="Customers Registration Form" /> </p> <p>&nbsp;<strong>Code under Save button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnSave_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">using</span> (DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CustID = <span style="color:blue;">this</span>.txtCustID.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.FirstName = <span style="color:blue;">this</span>.txtFirstName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.LastName = <span style="color:blue;">this</span>.txtLastName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.JoinDate = <span style="color:blue;">this</span>.dtpJoinDate.Value;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.Email = <span style="color:blue;">this</span>.txtEmail.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CreditLimit = <span style="color:#2b91af;">Convert</span>.ToDecimal(<span style="color:blue;">this</span>.txtCreditLimit.Text);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">if</span> (oCustomers.Save()) {<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">&quot;Cust ID: &quot;</span> + oCustomers.CustID + <span style="color:#a31515;">&quot; successfully saved!&quot;</span>);}</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">//////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ResetControls();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">//////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p><br /><strong>Code under Load button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnLoad_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">DataTable</span> customers = <span style="color:blue;">new</span> <span style="color:#2b91af;">DataTable</span>();</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; customers = oCustomers.GetCustomers(<span style="color:blue;">this</span>.txtCustID.Text).Tables[<span style="color:#a31515;">&quot;Customers&quot;</span>];</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ResetControls();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">EnumerableRowCollection</span>&lt;<span style="color:#2b91af;">DataRow</span>&gt; cust = customers.AsEnumerable();</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtCustID.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;CustID&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtFirstName.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;FirstName&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtLastName.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;LastName&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.dtpJoinDate.Value = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">DateTime</span>&gt;(<span style="color:#a31515;">&quot;JoinDate&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtEmail.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">String</span>&gt;(<span style="color:#a31515;">&quot;Email&quot;</span>)).First();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.txtCreditLimit.Text = (<span style="color:blue;">from</span> c <span style="color:blue;">in</span> cust <span style="color:blue;">select</span> c.Field&lt;<span style="color:#2b91af;">Decimal</span>&gt;(<span style="color:#a31515;">&quot;CreditLimit&quot;</span>)).First().ToString();</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">//////////////////////////////////////////////////////////////////////////////////////////////////////&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; </span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p><br /><strong>Code under Update button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnUpdate_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">using</span> (DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CustID = <span style="color:blue;">this</span>.txtCustID.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.FirstName = <span style="color:blue;">this</span>.txtFirstName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.LastName = <span style="color:blue;">this</span>.txtLastName.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.JoinDate = <span style="color:blue;">this</span>.dtpJoinDate.Value;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.Email = <span style="color:blue;">this</span>.txtEmail.Text;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CreditLimit = <span style="color:#2b91af;">Convert</span>.ToDecimal(<span style="color:blue;">this</span>.txtCreditLimit.Text);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> updateMSG = oCustomers.Update();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(updateMSG);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p><br /><strong>Code under Delete button is as follows</strong></p> <p style="margin:0px;"><span style="color:blue;">private</span> <span style="color:blue;">void</span> btnDelete_Click(<span style="color:blue;">object</span> sender, <span style="color:#2b91af;">EventArgs</span> e)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">using</span> (DAFSampleData.<span style="color:#2b91af;">Customers</span> oCustomers = <span style="color:blue;">new</span> DAFSampleData.<span style="color:#2b91af;">Customers</span>())</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; oCustomers.CustID = <span style="color:blue;">this</span>.txtCustID.Text;</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">string</span> deleteMSG = oCustomers.Delete();</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(deleteMSG);</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">this</span>.ResetControls();&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; </p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">/////////////////////////////////////////////////////////////////////</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">catch</span> (<span style="color:#2b91af;">Exception</span> ex)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; {</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:#2b91af;">MessageBox</span>.Show(ex.Message);</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</p> <p>Finally run the SP that are also provided for in the Stored Procedure folder. No need to write them manually you can use tool such as <a href="http://bloggingabout.net/blogs/wilson/archive/2009/07/27/code-generation-generate-stored-procedure-automatically.aspx">Code Generation; Generate Stored Procedures Automatically</a> from my earlier post.</p> <p><strong>Create&nbsp;Customers Table Script</strong>&nbsp;</p> <p><em>create table Customers <br />(CustID varchar(10) not null constraint pkCustID primary key,<br />FirstName varchar(20),<br />LastName varchar(20),<br />JoinDate smalldatetime,<br />Email varchar(20),<br />CreditLimit money<br />)<br />go</em><br /><br /><strong>Insert Into Customers SP</strong></p> <p><em>create proc uspInsertCustomers(<br />@CustID varchar(10),<br />@FirstName varchar(20),<br />@LastName varchar(20),<br />@JoinDate smalldatetime,<br />@Email varchar(20),<br />@CreditLimit money<br />) as</em></p> <p><em>declare @ErrorMSG varchar(200)</em></p> <p><em>if exists(select CustID from Customers where CustID = @CustID)<br />&nbsp;begin<br />&nbsp;&nbsp;set @ErrorMSG = &#39;The record with %s: %s, you are trying to enter already exists&#39;<br />&nbsp;&nbsp;raiserror(@ErrorMSG, 16, 1, &#39;Cust ID&#39;, @CustID)<br />&nbsp;&nbsp;return 1<br />&nbsp;end</em></p> <p><em>begin<br />insert into Customers<br />(CustID, FirstName, LastName, JoinDate, Email, CreditLimit)<br />values<br />(@CustID, @FirstName, @LastName, @JoinDate, @Email, @CreditLimit)<br />return 0<br />end<br />go</em><br /><br /><strong>Update Customers SP</strong></p> <p><em>create proc uspUpdateCustomers(<br />@CustID varchar(10),<br />@FirstName varchar(20),<br />@LastName varchar(20),<br />@JoinDate smalldatetime,<br />@Email varchar(20),<br />@CreditLimit money<br />) as</em></p> <p><em>declare @ErrorMSG varchar(200)</em></p> <p><em>if not exists(select CustID from Customers where CustID = @CustID)<br />&nbsp;begin<br />&nbsp;&nbsp;set @ErrorMSG = &#39;The record with %s: %s, you are trying to enter does not exist in the registered %s&#39;<br />&nbsp;&nbsp;raiserror(@ErrorMSG, 16, 1, &#39;Cust ID&#39;, @CustID, &#39;Customers&#39;)<br />&nbsp;&nbsp;return 1<br />&nbsp;end</em></p> <p><em>begin<br />update Customers set<br />FirstName = @FirstName, LastName = @LastName, JoinDate = @JoinDate, Email = @Email, CreditLimit = @CreditLimit<br />where CustID = @CustID<br />return 0<br />end<br />go</em></p> <p><strong>Get Customers SP</strong></p> <p><em>create proc uspGetCustomers(<br />@CustID varchar(10)<br />) as</em></p> <p><em>declare @ErrorMSG varchar(200)</em></p> <p><em>if not exists(select CustID from Customers where CustID = @CustID)<br />&nbsp;begin<br />&nbsp;&nbsp;set @ErrorMSG = &#39;The record with %s: %s, you are trying to enter does not exist in the registered %s&#39;<br />&nbsp;&nbsp;raiserror(@ErrorMSG, 16, 1, &#39;Cust ID&#39;, @CustID, &#39;Customers&#39;)<br />&nbsp;&nbsp;return 1<br />&nbsp;end<br />else<br />begin<br />&nbsp;select CustID, FirstName, LastName, JoinDate, Email, CreditLimit<br />&nbsp;from Customers<br />&nbsp;where CustID = @CustID<br />return 0<br />end<br />go</em><br /><br /><strong>Delete SP</strong> </p> <p>&nbsp;<a href="http://bloggingabout.net/blogs/wilson/archive/2009/05/15/create-one-delete-stored-procedure-that-can-be-used-to-delete-data-from-different-tables.aspx">Create one delete stored procedure that can be used to delete data from different tables</a></p> <p><br /><strong>Conclusion</strong></p> <p>If you follow some basic rules and commit them to habit, writing data-access code will be faster, easier, and more reusable, save you trips to the server, and allow you to keep your data separate.</p> <p><strong>Note</strong></p> <ul> <li>Remember to download the complete code from the attached file (Data Access Framework.zip), that &nbsp;shows usage in both VB and C#</li> <li>This post contains a stripped down version of code that is an extract from my framework that I have used for over five years now. One application that uses it can be downloaded from <a href="http://www.clinicmaster.net/Downloads.htm">http://www.clinicmaster.net/Downloads.htm</a></li> <li>Follow me on twitter (@<em>Kutegz</em>) to get information for more posts.</li> </ul> <p>&nbsp;<strong>Next Post (s)</strong></p> <ul> <li>&nbsp;Code Generation; Generate VB/C# Code Automatically</li> </ul> <p>&nbsp;</p> <p>&nbsp;<em>Wilson Kutegeka | Microsoft MVP - VB | C#<br />Developer | Promoter | ClinicMaster Software</em><em><br />Cel: +256 772 609113 | Web: </em><a href="http://www.clinicmaster.net"><em>www.clinicmaster.net</em></a></p> <p><a target="_blank" href="http://twitter.com/kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/7183.small_5F00_twitter.gif" alt="follow me on twitter" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a><a target="_blank" href="http://www.facebook.com/Kutegz"><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/5611.small_5F00_facebook.gif" alt="find me on facebook" style="margin-top:0px;margin-bottom:0px;border:0;" /> </a></p> <p>&nbsp;</p><div style="clear:both;"></div><img src="http://bloggingabout.net/aggbug.aspx?PostID=483364" width="1" height="1">VBData Access FrameworkData Access LayerDAF.NET FrameworkDALC#http://bloggingabout.net/blogs/wilson/archive/2009/09/04/restore-ms-sql-server-database-from-within-your-application-s.aspxFri, 04 Sep 2009 08:10:00 GMT813b6dfd-644e-4573-a816-eebab56ba0d0:482152Wilson Kutegeka4http://bloggingabout.net/blogs/wilson/rsscomments.aspx?PostID=482152http://bloggingabout.net/blogs/wilson/archive/2009/09/04/restore-ms-sql-server-database-from-within-your-application-s.aspx#comments<p><strong>Introduction</strong></p> <p>This post is a follow-up of my previous post; <a target="_blank" href="http://bloggingabout.net/blogs/wilson/archive/2009/08/26/backup-ms-sql-server-database-from-within-your-applications.aspx">Backup MS SQL Server database from within your application(s)</a>. It presents a simple way in which you could incorporate a restore tool from with in your application.</p> <p>Simply download the source code with the restore form that you need to just add into your application</p> <p><img src="http://bloggingabout.net/cfs-filesystemfile.ashx/__key/CommunityServer.Blogs.Components.WeblogFiles/wilson/8053.RestoreDB.jpg" alt="Restore MS SQL Server database from within your application" /> </p> <p><strong>Key Methods include</strong></p> <p><br /><em><strong>LoadServers</strong></em>; this method loads all local servers</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; Loads local servers</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> LoadServers()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> servers <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; servers = SmoApplication.EnumAvailableSqlServers(<span style="color:blue;">True</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboServerName.Items.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> <span style="color:blue;">Each</span> server <span style="color:blue;">As</span> DataRow <span style="color:blue;">In</span> servers.Rows</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.cboServerName.Items.Add(server.Item(<span style="color:#a31515;">&quot;Name&quot;</span>))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p><em><strong>LoadDataFiles</strong></em>; this method first checks the validity of the device, and then loads data and log files from the backup device</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; loads data and log files</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;/summary&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;param name=&quot;fileName&quot;&gt;&lt;/param&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39; </span><span style="color:gray;">&lt;remarks&gt;&lt;/remarks&gt;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> LoadDataFiles(<span style="color:blue;">ByVal</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> restoreServer <span style="color:blue;">As</span> <span style="color:blue;">New</span> Server()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataRestore <span style="color:blue;">As</span> <span style="color:blue;">New</span> Restore()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> data <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> valid <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Rows.Clear()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Devices.AddDevice(fileName, DeviceType.File)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; valid = dataRestore.SqlVerify(restoreServer)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> valid <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; data = dataRestore.ReadFileList(restoreServer)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> data <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">OrElse</span> data.Rows.Count &lt; 1 <span style="color:blue;">Then</span> <span style="color:blue;">Return</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">For</span> pos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> data.Rows.Count - 1</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39; Ensure that you add a new row</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Rows.Add()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, pos).Value = data.Rows(pos).Item(<span style="color:#a31515;">&quot;LogicalName&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, pos).Value = data.Rows(pos).Item(<span style="color:#a31515;">&quot;PhysicalName&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colSize.Name, pos).Value = data.Rows(pos).Item(<span style="color:#a31515;">&quot;Size&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Next</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.btnRestore.Enabled = <span style="color:blue;">True</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;&#39;</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.ClearControls()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Invalid backup file!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> exSMO <span style="color:blue;">As</span> SmoException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> exSMO</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Throw</span> ex</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.Cursor = Cursors.Default</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p> </div> <p>Restore button performs the restoration process</p> <div style="font-family:Courier New;font-size:8pt;color:black;background:#F9F9F4;"> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; <span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> btnRestore_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> btnRestore.Click</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Try</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Cursor.Current = Cursors.WaitCursor</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataLogicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> logLogicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataPhysicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> logPhysicalName <span style="color:blue;">As</span> <span style="color:blue;">String</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> serverName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.cboServerName.Text.ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataBaseName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtDataBaseName.Text.ToString()</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> fileName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Me</span>.txtBackupFile.Text.ToString()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(serverName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter server name!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(dataBaseName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Enter data base name!&quot;</span>)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(fileName) <span style="color:blue;">Then</span> <span style="color:blue;">Throw</span> <span style="color:blue;">New</span> ArgumentException(<span style="color:#a31515;">&quot;Load backup file!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> restoreServer <span style="color:blue;">As</span> <span style="color:blue;">New</span> Server(serverName)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Dim</span> dataRestore <span style="color:blue;">As</span> <span style="color:blue;">New</span> Restore()</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Action = RestoreActionType.Database</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Database = dataBaseName</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;set the devices: file, tape etc</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.Devices.AddDevice(fileName, DeviceType.File)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;progress meter stuff</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Minimum = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = 10</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Maximum = 100</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;this gives the % complete by handling the event</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;provided by SMO on the percent complete; we will</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;update the progress meter in the event handler</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;set the progress meter to 10% by default</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.PercentCompleteNotification = 10</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.ReplaceDatabase = <span style="color:blue;">Me</span>.chkOverwriteDatabase.Checked</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">AddHandler</span> dataRestore.PercentComplete, <span style="color:blue;">AddressOf</span> <span style="color:blue;">Me</span>.RestoreProgressEventHandler</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:green;">&#39;&#39;use below to relocate ths mdf files</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 0).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataLogicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : dataLogicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 0).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 0).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataPhysicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : dataPhysicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 0).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 1).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; logLogicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : logLogicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colLogicalName.Name, 1).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">If</span> <span style="color:blue;">String</span>.IsNullOrEmpty(<span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 1).Value)) <span style="color:blue;">Then</span></p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; logPhysicalName = <span style="color:blue;">String</span>.Empty</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Else</span> : logPhysicalName = <span style="color:blue;">CStr</span>(<span style="color:blue;">Me</span>.dgvRestore.Item(<span style="color:blue;">Me</span>.colPhysicalName.Name, 1).Value)</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">If</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">With</span> dataRestore.RelocateFiles</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> RelocateFile(dataLogicalName, dataPhysicalName))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Add(<span style="color:blue;">New</span> RelocateFile(logLogicalName, logPhysicalName))</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">End</span> <span style="color:blue;">With</span></p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; dataRestore.SqlRestore(restoreServer)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(<span style="color:#a31515;">&quot;Restore completed successfully!&quot;</span>)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> exSMO <span style="color:blue;">As</span> SmoException</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(exSMO.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Me</span>.proRestoreDatabase.Value = 0</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; MessageBox.Show(ex.Message)</p> <p style="margin:0px;">&nbsp;</p> <p style="margin:0px;">&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <span style="color:blue;">Finally</span></p> <p style="margin:0px;">&am