Visual Basic

Public Class foo

   Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

End Class

fooHelp.filterForm(New foo,...)

fooHelp.filterForm(foo,...)

SELECT * FROM EMP0000 INNER JOIN EMP0001 ON EMP0001.EMP_NO =EMP0000.EMP_NO WHERE EMP0000.EMP_NO=@empno

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web

Imports System.ComponentModel.DataAnnotations
Imports System.ComponentModel.DataAnnotations.Schema

Public Class Customer
    <Key, ScaffoldColumn(False)>
    Public Property CustomerID() As Integer

    <Display(Name:="File No"), StringLength(6)>
    Public Property CustomerFileNo() As String

    <Required(ErrorMessage:="First Name is required")>
    <Display(Name:="First Name"), StringLength(20)>
    Public Property FirstName() As String

    <Display(Name:="Last Name"), StringLength(20)>
    Public Property LastName() As String

    <Display(Name:="Street"), StringLength(40)>
    Public Property Addr_StreetName() As String

    <DefaultSettingValue("0")>
    Public Property MaritalStatusID() As Integer

    <DefaultSettingValue("0")>
    Public Property Addr_AreaID() As Integer

    <DefaultSettingValue("0")>
    Public Property Wrk_OccupationID() As Integer
End Class

Public Class MaritalStatus
    <Key, ScaffoldColumn(False)>
    Public Property MaritalStatusID() As Integer

    <Required(ErrorMessage:="Name Required")>
    <Display(Name:="Marital Status"), StringLength(10)>
    Public Property MaritalName() As String

    <DefaultSettingValue("1")>
    Public Property RecStatus() As Boolean
End Class

Public Class Area
    <Key, ScaffoldColumn(False)>
    Public Property AreaID() As Integer

    <Required(ErrorMessage:="Name Required")>
    <Display(Name:="Area Name"), StringLength(30)>
    Public Property AreaName() As String

    <DefaultSettingValue("1")>
    Public Property RecStatus() As Boolean
End Class

Public Class Occupation
    <Key, ScaffoldColumn(False)>
    Public Property OccupationID() As Integer

    Public Property OccupationName() As String
End Class

Public Class InvoiceHdr
    <Key, ScaffoldColumn(False)>
    Public Property InvoiceID() As Integer

    Public Property InvoiceNo() As String
    Public Property Amount() As Integer

    Public Property CustomerID As Integer
End Class

Public Class InvoiceDetails
    <Key, ScaffoldColumn(False)>
    Public Property InvoiceDetailsID() As Integer

    Public Property InvoiceID() As String
    Public Property ItemNo() As String
    Public Property ItemDescription() As String
End Class