Private Sub_Click Master Update Form
open.database MMF
open.database MSDF
open.database SGF
Input txtMaterialNo
SEEK(MMF.databasetable, txtmaterialNo)
IF NOMATCH
{Print " Material No. Not found"
}Else
{lblDsr ==MMFDescription
lblumsr==MMFumeasure
}end if
Input txtSuppNO
SEEK(SMF.databasetable, txtmaterialNo)
if Nomatch
{Print "Supplier No. Not found"
}else
{lblsuppname==smfsuppname
lblsuppAdd==SMFsuppAddress
}end if
seek(MSDF.databasetable,txtMaterialNo + txtSuppNo)
if NoMatch
{Print "Supplier No. and Material No. not found"
}else
{txtUprice ==MSDFUprice
lbltime==MSDFleadtime
}end if
input txtUprice
END SUB
Private Sub_Click cmdSave
if textboxes==""
{Print "nothing to Save"
}else
{seek(MMF.databasetable,txtMaterialNo + txtSuppNo)
}end if
MSDF.edit
MSDFUPrice==txtUprice
MSDF.UPDATE
END SUB
Private Sub_Click cmdCancel
Clearallfields
End Sub
Private Sub_Click cmdExit
close.database SMF
close.database MSDF
End sub
***EMPLOYEE UPDATE by LastName & Position***
Private Sub_Click Employee Update Form
open.database SGF
open.database EMF
seek(SGF.databasetable, SGFYear=="Year")
if NoMatch
{Print " System Date Not Found"
}
Else
{
lblCname == SGF!comname
lblCadd==SGF!address
}
end if
Input txtEMpNo
SEEK (EMF.databasetable, txtEmpNO)
If NoMatch
{
Print "Employee Number not found in Employee file
}else
{txtLname== Emf!lname
txtFname ==Emf!fname
txtMI==Emf!Address
txtAdd==Emf!Telno
txtTelNO==Emf!Telno
txtPosition==Emf!POsition
txtCsat==Emf!CivilStat
txtRstat==Emf!EmfRecstat
}end if
input txtposition
clear.allfields
End Sub
Private Sub_click cmdUpdate
Emf.edit
EMF!Lname==txtLName
EMF!Position==txtPosition
EMF.UPDATE
CLEAR ALL TEXTBOX
END SUB
Private Sub_Click cmdexit
close.database SGF
close.database EMF
END SUB
