//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
Caravan Business Server-Examples

 

 


Caravan Business Server>Examples>Database>Enter Contact Type

 

Contact Management
Delete/Modify Contact Type

Contact Type
(Ex: Buyer,Seller,Manger) 
table contype_modify=contacts.contacttype select * from contype_modify where contacttype is unique order by asc if form(cmbContactType) contype_modify(recordno)=form(cmbContactType) endif

if form(cmbContactType)   else

  Back to Main Menu

Back to Index

 
©Copyright 2002 Niti Telecom Consultancy. All rights reserved