Caravan Business Server>Examples>Database>Search Contact Information
if form(SearchContact) //declare a temporary variable sql to create th1 sql statement //Note that temporary variables used in select statements must be //declared as "sql" var sql // create a sql string to be used for the select // Company is a fixed field so assign it first sql(myquery)="company=" sql(myquery(01))+=form(txtCompanyID) sql(myquery(01))+=" " //Check for user search option and generate the sql string if form(txtSearchOption)="AND" // create sql string for "AND" operation if form(txtFirstName) if form(txtLastName) sql(myquery(01))+="and firstname=" sql(myquery(01))+=form(txtfirstname) sql(myquery(01))+=" " sql(myquery(01))+="and lastname=" sql(myquery(01))+=form(txtlastname) else sql(myquery(01))+="and firstname=" sql(myquery(01))+=form(txtfirstname) endif else if form(txtlastname) sql(myquery(01))+="and lastname=" sql(myquery(01))+=form(txtlastname) endif endif else //create sql string for "OR" operartion if form(txtFirstName) if form(txtLastName) sql(myquery(01))+="or firstname=" sql(myquery(01))+=form(txtfirstname) sql(myquery(01))+=" " sql(myquery(01))+="or lastname=" sql(myquery(01))+=form(txtlastname) else sql(myquery(01))+="or firstname=" sql(myquery(01))+=form(txtfirstname) endif else if form(txtlastname) sql(myquery(01))+="or lastname=" sql(myquery(01))+=form(txtlastname) endif endif endif // Open an instance of the contacts table table contacts=contacts.contacts select from contacts where {myquery}
Search Results(contacts(selected)) //display the selected records using a loop loop cnts (contacts(selected)) contacts(nextrecord) repeat cnts 100
Contact Name & Title Company Name Work Phone Fax Number Email
"";contacts(firstname);" ";contacts(lastname);"
";contacts(title)
// note that the company name comes from the relational table contacts(companyname) //display phone numbers from the multi dimensional field //A temporary variable is created to store the multiple phone numbers //by setting the delimiter of the temp variable to ",", values from the //workphone field is tored as an array into the temp variable var temp temp(delim)="," temp(phones)=contacts(Workphone) //display the phone numbers loop pcnt (temp(phones(00))) temp(phones(pcnt(count)));"
" repeat pcnt 10
  contacts(faxnumber)   "";contacts(emailaddress);""
Your sql query was : Select from contacts where sql(myquery)

else

Contact Management
Search Contacts

Company name
First Name
Last Name
Options
Match on all entered fields (AND)

Match on any field (OR)

endif

 Back to Main Menu

Back to Index

 
©Copyright 2002 Niti Telecom Consultancy. All rights reserved