Ifinven1 project (all of the projects in the ifinven series are discussed in the PowerPoint ifinven)

Public Class frmInven1

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

End

End Sub

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

If txtOnHand.Text < 20 Then

txtMsg.Text = "Need to Order"

End If

End Sub

End Class

Ifinven1a project

Public Class frmInven1a

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

End

End Sub

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

If txtOnHand.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order Needed"

End If

End Sub

End Class

IfinvenAnd project

Public Class frmInvenAdd

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

End

End Sub

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

If txtOnHand.Text < 20 Then

If txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

End If

End If

End Sub

End Class

IfinvenAnda project

Public Class frmInvenAdda

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

End

End Sub

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

If txtOnHand.Text < 20 Then

If txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order"

End If

Else

txtMsg.Text = "No Order"

End If

End Sub

End Class

IfinvenAndcombine project

Public Class frmInvenAddcombine

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

End

End Sub

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

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

txtMsg.Text = "Need to Order"

End If

End Sub

End Class

IfinvenAndcombinea project

Public Class frmInvenAddcombinea

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

End

End Sub

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

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

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order"

End If

End Sub

End Class

IfinvenAndcombineb project

Public Class frmInvenAddcombineb

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

End

End Sub

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

If txtOnHand.Text < 20 Then

If txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "On Order OK"

End If

Else

txtMsg.Text = "On Hand OK"

End If

End Sub

End Class

IfinvenAndcombinec project

Public Class frmInvenAddcombinec

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

End

End Sub

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

If txtOnHand.Text < 20 Then

If txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "On Order OK"

End If

Else

If txtOnOrder.Text < 20 Then

txtMsg.Text = "On Hand OK"

Else

txtMsg.Text = "On Hand and On Order OK"

End If

End If

End Sub

End Class

IfinvenOR project

Public Class frmInvenOr

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

End

End Sub

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

If txtOnHand.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

If txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

End If

End If

End Sub

End Class

IfinvenORa project

Public Class frmInvenOra

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

End

End Sub

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

If txtOnHand.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

If txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order Needed"

End If

End If

End Sub

End Class

IfinvenORcombine project

Public Class frmInvenOrcombine

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

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

End Class

IfinvenORb project

Public Class frmInvenOrb

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

End

End Sub

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

If txtOnHand.Text < 20 Then

txtMsg.Text = "On Hand - Need"

Else

If txtOnOrder.Text < 20 Then

txtMsg.Text = "On Order - Need"

Else

txtMsg.Text = "No Order Needed"

End If

End If

End Sub

End Class

IfinvenAndOr project

Public Class frmInvenAndOr

Inherits System.Windows.Forms.Form

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

txtItemNo.Clear()

txtDept.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

End

End Sub

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

If txtDept.Text = "Yard" Then

If txtOnHand.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

If txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order Needed"

End If

End If

End If

End Sub

End Class

IfinvenAndOrcombine project

Public Class frmInvenAndOrcombine

Inherits System.Windows.Forms.Form

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

txtItemNo.Clear()

txtDept.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

End

End Sub

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

If txtDept.Text = "Yard" And (txtOnHand.Text < 20 Or txtOnOrder.Text < 20) Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order Needed"

End If

End Sub

End Class

IfinvenAndOrproblem project

Public Class frmInvenAndOrproblem

Inherits System.Windows.Forms.Form

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

txtItemNo.Clear()

txtDept.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

End

End Sub

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

If txtDept.Text = "Yard" And txtOnHand.Text < 20 Or txtOnOrder.Text < 20 Then

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order Needed"

End If

End Sub

End Class

IfinvenAndOrdiff project

Public Class frmInvenAndOrdiff

Inherits System.Windows.Forms.Form

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

txtItemNo.Clear()

txtDept.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

End

End Sub

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

If txtDept.Text = "Yard" Then

If txtOnHand.Text < 20 Then

txtMsg.Text = "On Hand - Need"

Else

If txtOnOrder.Text < 20 Then

txtMsg.Text = "On Order - Need"

Else

txtMsg.Text = "No Order Needed"

End If

End If

End If

End Sub

End Class

IfinvenXOR project

Public Class frmInvenXOr

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

End

End Sub

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

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

txtMsg.Text = "Need to Order"

Else

txtMsg.Text = "No Order Needed"

End If

End Sub

End Class