Public Class NewDataTable
    Inherits System.Windows.Forms.Form

    Public request As New IFormTable()
    Public response As New IFormTable()

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub
    Public Sub New(ByVal request As IFormTable)
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
    Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents listFields As System.Windows.Forms.ListView
    Friend WithEvents txtTableName As System.Windows.Forms.TextBox
    Friend WithEvents btnAddField As System.Windows.Forms.Button
    Friend WithEvents btnDelField As System.Windows.Forms.Button
    Friend WithEvents txtFieldName As System.Windows.Forms.TextBox
    Friend WithEvents cboFieldType As System.Windows.Forms.ComboBox
    Friend WithEvents txtFieldLength As System.Windows.Forms.TextBox
    Friend WithEvents txtPrecision As System.Windows.Forms.TextBox
    Friend WithEvents cboAllowNulls As System.Windows.Forms.ComboBox
    Friend WithEvents btnAccept As System.Windows.Forms.Button
    Friend WithEvents btnCancel As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.listFields = New System.Windows.Forms.ListView()
        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader()
        Me.ColumnHeader5 = New System.Windows.Forms.ColumnHeader()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.cboAllowNulls = New System.Windows.Forms.ComboBox()
        Me.txtPrecision = New System.Windows.Forms.TextBox()
        Me.txtFieldLength = New System.Windows.Forms.TextBox()
        Me.cboFieldType = New System.Windows.Forms.ComboBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.txtFieldName = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.btnDelField = New System.Windows.Forms.Button()
        Me.btnAddField = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.txtTableName = New System.Windows.Forms.TextBox()
        Me.btnAccept = New System.Windows.Forms.Button()
        Me.btnCancel = New System.Windows.Forms.Button()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'listFields
        '
        Me.listFields.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader5})
        Me.listFields.FullRowSelect = True
        Me.listFields.GridLines = True
        Me.listFields.Location = New System.Drawing.Point(0, 40)
        Me.listFields.Name = "listFields"
        Me.listFields.Size = New System.Drawing.Size(408, 168)
        Me.listFields.TabIndex = 0
        Me.listFields.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
        '
        Me.ColumnHeader1.Text = "Field Name"
        Me.ColumnHeader1.Width = 120
        '
        'ColumnHeader2
        '
        Me.ColumnHeader2.Text = "Type"
        Me.ColumnHeader2.Width = 100
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Text = "Length"
        '
        'ColumnHeader4
        '
        Me.ColumnHeader4.Text = "Dec"
        '
        'ColumnHeader5
        '
        Me.ColumnHeader5.Text = "Nulls"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.cboAllowNulls, Me.txtPrecision, Me.txtFieldLength, Me.cboFieldType, Me.Label5, Me.Label4, Me.Label3, Me.txtFieldName, Me.Label2, Me.btnDelField, Me.btnAddField})
        Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.GroupBox1.Location = New System.Drawing.Point(8, 224)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(392, 136)
        Me.GroupBox1.TabIndex = 1
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Field Definition"
        '
        'cboAllowNulls
        '
        Me.cboAllowNulls.Items.AddRange(New Object() {"True", "False"})
        Me.cboAllowNulls.Location = New System.Drawing.Point(112, 96)
        Me.cboAllowNulls.Name = "cboAllowNulls"
        Me.cboAllowNulls.Size = New System.Drawing.Size(88, 21)
        Me.cboAllowNulls.TabIndex = 10
        '
        'txtPrecision
        '
        Me.txtPrecision.Location = New System.Drawing.Point(200, 72)
        Me.txtPrecision.Name = "txtPrecision"
        Me.txtPrecision.Size = New System.Drawing.Size(56, 20)
        Me.txtPrecision.TabIndex = 9
        Me.txtPrecision.Text = "2"
        '
        'txtFieldLength
        '
        Me.txtFieldLength.Location = New System.Drawing.Point(112, 72)
        Me.txtFieldLength.Name = "txtFieldLength"
        Me.txtFieldLength.Size = New System.Drawing.Size(56, 20)
        Me.txtFieldLength.TabIndex = 8
        Me.txtFieldLength.Text = "10"
        '
        'cboFieldType
        '
        Me.cboFieldType.Items.AddRange(New Object() {"bigint", "binary", "bit", "char", "datetime", "decimal", "float", "image", "int", "money", "nchar", "numeric", "nvarchar", "real", "smalldatetime", "smallint", "smallmoney", "sql_variant", "text", "timestamp", "tinyint", "uniqueidentifier", "varbinary", "varchar"})
        Me.cboFieldType.Location = New System.Drawing.Point(112, 48)
        Me.cboFieldType.Name = "cboFieldType"
        Me.cboFieldType.Size = New System.Drawing.Size(144, 21)
        Me.cboFieldType.TabIndex = 7
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 96)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(88, 16)
        Me.Label5.TabIndex = 6
        Me.Label5.Text = "Allow Nulls:"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 72)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(88, 16)
        Me.Label4.TabIndex = 5
        Me.Label4.Text = "Precision:"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 48)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(88, 16)
        Me.Label3.TabIndex = 4
        Me.Label3.Text = "Field Type:"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'txtFieldName
        '
        Me.txtFieldName.Location = New System.Drawing.Point(112, 24)
        Me.txtFieldName.Name = "txtFieldName"
        Me.txtFieldName.Size = New System.Drawing.Size(144, 20)
        Me.txtFieldName.TabIndex = 3
        Me.txtFieldName.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(88, 16)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "Field Name:"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'btnDelField
        '
        Me.btnDelField.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.btnDelField.Location = New System.Drawing.Point(288, 56)
        Me.btnDelField.Name = "btnDelField"
        Me.btnDelField.Size = New System.Drawing.Size(80, 23)
        Me.btnDelField.TabIndex = 1
        Me.btnDelField.Text = "Delete"
        '
        'btnAddField
        '
        Me.btnAddField.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.btnAddField.Location = New System.Drawing.Point(288, 24)
        Me.btnAddField.Name = "btnAddField"
        Me.btnAddField.Size = New System.Drawing.Size(80, 23)
        Me.btnAddField.TabIndex = 0
        Me.btnAddField.Text = "Add Field"
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(16, 12)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 16)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "Table Name:"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'txtTableName
        '
        Me.txtTableName.Location = New System.Drawing.Point(112, 8)
        Me.txtTableName.Name = "txtTableName"
        Me.txtTableName.Size = New System.Drawing.Size(280, 20)
        Me.txtTableName.TabIndex = 3
        Me.txtTableName.Text = ""
        '
        'btnAccept
        '
        Me.btnAccept.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.btnAccept.Location = New System.Drawing.Point(232, 368)
        Me.btnAccept.Name = "btnAccept"
        Me.btnAccept.TabIndex = 4
        Me.btnAccept.Text = "Ok"
        '
        'btnCancel
        '
        Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.btnCancel.Location = New System.Drawing.Point(320, 368)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.TabIndex = 5
        Me.btnCancel.Text = "Cancel"
        '
        'NewDataTable
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(408, 398)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnCancel, Me.btnAccept, Me.txtTableName, Me.Label1, Me.GroupBox1, Me.listFields})
        Me.Name = "NewDataTable"
        Me.Text = "New DataTable"
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub txtTableName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTableName.TextChanged
        If txtTableName.Text.Length() < 1 Then
            Me.btnAccept.Enabled = False
        Else
            Me.btnAccept.Enabled = True
        End If
    End Sub
End Class

#Region " Form.Response Definition "

Public Class IFormTable
    Dim _databaseName As String
    Dim _tableName As String

    Property databaseName()
        Get
            Return _databaseName
        End Get
        Set(ByVal Value)
            _databaseName = Value
        End Set
    End Property
    Property tableName()
        Get
            Return _tableName
        End Get
        Set(ByVal Value)
            _tableName = Value
        End Set
    End Property
End Class
#End Region