Imports stockdataTableAdapters
Imports System.Drawing
Partial Class _Default
Inherits System.Web.UI.MobileControls.MobilePage
Protected Sub frmloc_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles frmloc.Load
Dim locations As New tbllocAdapter
Dim allStock As New tbl_StockTableAdapter
If Not IsPostBack Then
sltLoc.DataSource = locations.faetlocdata
sltLoc.DataValueField = "Location"
sltLoc.DataTextField = "Location"
sltLoc.DataBind()
Else
oblstRec.DataSource = allStock.getstock(sltLoc.Selection.Value)
oblstRec.DataBind()
End If
End Sub
Protected Sub oblstRec_ItemSelect(ByVal sender As Object, ByVal e As System.Web.UI.MobileControls.ObjectListSelectEventArgs) Handles oblstRec.ItemSelect
Me.ActiveForm = Me.FrmUpd
lblpn.Text = e.ListItem.Item("PartNumber")
lblpna.Text = e.ListItem.Item("PartName")
lblc.Text = e.ListItem.Item("Condition")
lbll.Text = e.ListItem.Item("Location")
lblq.Text = e.ListItem.Item("Quantity")
lblv.Text = e.ListItem.Item("Valid")
If (lblv.Text = 0) Then
lblv.ForeColor = Color.Red
lblv.Text = "FALSE"
Else
lblv.ForeColor = Color.Green
lblv.Text = "TRUE"
End If
End Sub
Protected Sub cmdfind_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdfind.Click
Dim allStock As New tbl_StockTableAdapter
oblstRec.DataSource = allStock.getstock(sltLoc.Selection.Value)
oblstRec.DataBind()
End Sub
Protected Sub cmdupdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdupdate.Click
Dim allStock As New tbl_StockTableAdapter
allStock.Updaterecord(txtpartn.Text, txtcon.Text, txtloc.Text, txtquan.Text, txtval.Text, lblpartn.Text)
Me.ActiveForm = Me.frmloc
End Sub
Protected Sub cmdcanc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdcanc.Click
Me.ActiveForm = Me.FrmUpd
End Sub
Protected Sub cmdedit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdedit.Click
Me.ActiveForm = Me.frmRes
lblpartn.Text = lblpn.Text
txtpartn.Text = lblpna.Text
txtcon.Text = lblc.Text
txtloc.Text = lbll.Text
txtquan.Text = lblq.Text
txtval.Text = lblv.Text
If (txtval.Text = "FALSE") Then
txtval.Text = 0
Else
txtval.Text = 1
End If
End Sub
Protected Sub cmdlback_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdlback.Click
Me.ActiveForm = Me.frmloc
End Sub
Protected Sub cmdmssel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdmssel.Click
If (sltmsel.Selection.Value = "Location") Then
Me.ActiveForm = Me.frmloc
ElseIf (sltmsel.Selection.Value = "Name") Then
Me.ActiveForm = Me.frmloc
ElseIf (sltmsel.Selection.Value = "Number") Then
Me.ActiveForm = Me.frmloc
End If
End Sub
End Class