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