Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Public Class PPInventoryForm

    Private cnstr = mainForm.cnstr
    Private conn As New SqlConnection(cnstr)
    Private myQuery As String = String.Empty
    Private myCommand As SqlCommand
    Private adapter As SqlDataAdapter = New SqlDataAdapter()
    Private ds As New DataSet("Machines")
    Private i, limit As Integer
    Private oldMchCode As String = String.Empty
    Private addMode, editMode As Integer
    Private row As Integer

    Private Sub PPInventoryForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = mainForm
        Control.CheckForIllegalCrossThreadCalls = False
        Me.Top = 0
        Me.Left = 0

        initializeDG_inventory()
        fillDataSet_inventory()
        fillDataGridView_inventory()
    End Sub

    Private Sub initializeDG_inventory()
        Dim partno As New DataGridViewTextBoxColumn
        Dim received As New DataGridViewTextBoxColumn
        Dim mounted As New DataGridViewTextBoxColumn
        Dim returned As New DataGridViewTextBoxColumn
        Dim inventory As New DataGridViewTextBoxColumn

        partno.HeaderText = "Part Number"
        received.HeaderText = "Received"
        mounted.HeaderText = "Mounted"
        returned.HeaderText = "Return"
        inventory.HeaderText = "Inventory"

        dg_inventory.Columns.Add(partno)
        dg_inventory.Columns.Add(received)
        dg_inventory.Columns.Add(mounted)
        dg_inventory.Columns.Add(returned)
        dg_inventory.Columns.Add(inventory)

        dg_inventory.Columns(0).ReadOnly = True
        dg_inventory.Columns(1).ReadOnly = True
        dg_inventory.Columns(2).ReadOnly = True
        dg_inventory.Columns(3).ReadOnly = True
        dg_inventory.Columns(4).ReadOnly = True

        dg_inventory.Columns(0).Width = 150
        dg_inventory.Columns(1).Width = 150
        dg_inventory.Columns(2).Width = 120
        dg_inventory.Columns(3).Width = 150
        dg_inventory.Columns(4).Width = 120

        dg_inventory.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        dg_inventory.Columns(0).SortMode = DataGridViewColumnSortMode.Programmatic
        dg_inventory.Columns(1).SortMode = DataGridViewColumnSortMode.Programmatic
        dg_inventory.Columns(2).SortMode = DataGridViewColumnSortMode.Programmatic
        dg_inventory.Columns(3).SortMode = DataGridViewColumnSortMode.Programmatic
        dg_inventory.Columns(4).SortMode = DataGridViewColumnSortMode.Programmatic
    End Sub

    Private Sub fillDataSet_inventory()
        Dim conn As New SqlConnection(cnstr)

        myQuery = "SELECT * FROM inventory ORDER BY KMTPARTNO"

        myCommand = New SqlCommand(myQuery, conn)

        Try
            conn.Open()
            adapter.SelectCommand = myCommand
            ds.Clear()
            adapter.Fill(ds)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            conn.Close()
            conn.Dispose()
        End Try
    End Sub

    Private Sub fillDataGridView_inventory()
        Dim i As Integer = 0

        dg_inventory.Rows.Clear()
        For i = 0 To ds.Tables(0).Rows.Count - 1
            row = dg_inventory.Rows.Add()
            dg_inventory.Rows(row).Cells(0).Value = ds.Tables(0).Rows(row).Item("KMTPARTNO")
            dg_inventory.Rows(row).Cells(1).Value = ds.Tables(0).Rows(row).Item("received")
            dg_inventory.Rows(row).Cells(2).Value = ds.Tables(0).Rows(row).Item("mounted")
            dg_inventory.Rows(row).Cells(3).Value = ds.Tables(0).Rows(row).Item("returned")
            dg_inventory.Rows(row).Cells(4).Value = ds.Tables(0).Rows(row).Item("inventory")
        Next
    End Sub
End Class