IfinvenWrite project (presentation readwriteinven)

 

Public Class frmInvenWrite

    Inherits System.Windows.Forms.Form

 

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txtItemNo.Clear()

        txtItemName.Clear()

        txtOnHand.Clear()

        txtOnOrder.Clear()

    End Sub

 

    Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

        WriteLine(1, 99999, " ", 0, 0)

        FileClose(1)

        End

    End Sub

 

    Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click

        Write()

    End Sub

    Sub Write()

        Dim wkItemNo As Integer, wkItemName As String

        Dim wkOnHand As Integer, wkOnOrder As Integer

        wkItemNo = CInt(txtItemNo.Text)

        wkItemName = txtItemName.Text

        wkOnHand = CInt(txtOnHand.Text)

        wkOnOrder = CInt(txtOnOrder.Text)

        WriteLine(1, wkItemNo, wkItemName, wkOnHand, wkOnOrder)

    End Sub

 

    Private Sub frmInvenWrite_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        FileOpen(1, "inven", OpenMode.Output)

    End Sub

End Class

 

 

IfinvenRead project (presentation readwriteinven)

 

Public Class frmInvenRead

    Inherits System.Windows.Forms.Form

 

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txtItemNo.Clear()

        txtItemName.Clear()

        txtMsg.Clear()

        txtOnHand.Clear()

        txtOnOrder.Clear()

    End Sub

 

    Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

        FileClose(1)

        End

    End Sub

 

    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

        If txtOnHand.Text < 20 Or txtOnOrder.Text < 20 Then

            txtMsg.Text = "Need to Order"

        Else

            txtMsg.Text = "No Order Needed"

        End If

    End Sub

 

 

    Sub Read()

        Dim wkItemNo As Integer, wkItemName As String

        Dim wkOnHand As Integer, wkOnOrder As Integer

        Input(1, wkItemNo)

        If wkItemNo = 99999 Then

            MsgBox("EOF reached")

            btnRead.Visible = "False"

        Else

            txtItemNo.Text = wkItemNo

            Input(1, wkItemName)

            txtItemName.Text = wkItemName

            Input(1, wkOnHand)

            txtOnHand.Text = wkOnHand

            Input(1, wkOnOrder)

            txtOnOrder.Text = wkOnOrder

        End If

    End Sub

 

    Private Sub frmInvenRead_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        FileOpen(1, "inven", OpenMode.Input)

    End Sub

 

    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click

        Read()

    End Sub

End Class