Query by example / Examples |
Form definition file "form1.per" (same as in Example 1)
SCHEMA office MAIN DEFINE condition STRING DEFINE statement STRING DEFINE cust RECORD LIKE customer.* DATABASE office OPEN FORM f1 FROM "form1" DISPLAY FORM f1 CONSTRUCT BY NAME condition ON customer.* BEFORE CONSTRUCT DISPLAY "A*" TO fname DISPLAY "B*" TO lname END CONSTRUCT LET statement = "SELECT fname, lname FROM customer WHERE " || condition DISPLAY "SQL: " || statement DECLARE c1 CURSOR FROM statement FOREACH c1 INTO cust.* DISPLAY cust.* END FOREACH END MAIN