--priklad 1_2

 

DATABASE sdh

MAIN

DEFINE p_adres RECORD LIKE .,

kod INTEGER

 

OPEN FORM .. FROM ""

DISPLAY FORM .

PROMPT "Zadaj kod dodavatela :" FOR ..

MESSAGE "Hladanie adresy dodavatela podla kodu :" ,kod

SLEEP 3

MESSAGE ""

 

SELECT INTO .. FROM .. WHERE .

DISPLAY status

SLEEP 3

 

IF status = NOTFOUND

THEN ERROR "neexistuje"

SLEEP 5

ELSE DISPLAY BY NAME p_adres.*

SLEEP 5

END IF

 

END MAIN