//Check if the user has pressed the Modify button
//If Yes validate and update the contact type into the contatcttype table
if form(ModifyContact)
if form(txtContactType)
//open the an instance of the contatcttype table for modifying data
table contype=contacts.contacttype
//Check if the contact exists
contype(recordno)=form(recno)
//assgin all the input values to respective fields.
contype(contacttype)=form(txtContactType)
// modify the record
contype(modify)
//Check if the records was succesfully modified
if contype(recordno)>"0"
"Contact Type modified succesfully
"
else
"Error occured while modifying record !!
"
endif
else
//Give an error messsage to the user
"Contact type cannot be Empty
"
endif
//end further execution
over
endif
//-------------------------------------------------------------------------------
//Check if the user has pressed the Delete button
//If Yes validate and delete the contact type into the contatcttype table
if form(DeleteContact)
if form(txtContactType)
//open the an instance of the contatcttype table for delete data
table delete_contype=contacts.contacttype
//assgin all the input values to respective fields.
delete_contype(recordno)=form(recno)
// delete the record
delete_contype(deleterecord)
//Check if the records was succesfully modified
if delete_contype(recordno)>"0"
"Contact Type deleted succesfully
"
else
"Error occured while deleting record !!
"
endif
else
//Give an error messsage to the user
"Contact type cannot be Empty
"
endif
//end further execution
over
endif