FWD » Core Development » User Interface

define button ExitButton label "Exit". 

define button AddButton label "Add".

define button FindButton label "Find".

define var target like Address.city.

/**Frame Address**/

define frame AddrFrame

 Address.addr-id at row 2 col 2

 Address.addr-type at row 2 col 40

 target at row 4 col 2

 Address.state at row 4 col 40

 Address.street at row 6 col 2

 Address.zip-code at row 8 col 2

 AddButton at row 10 col 2

 FindButton at row 10 col 20

 ExitButton at row 10 col 40

 with side-labels centered row 2 title "Address Form".

/**Triggers**/

on choose of AddButton

do:

create Address.

assign Address except Address.city.

assign Address.city=target.

display Address except Address.city with frame AddrFrame.

end.      

on choose of FindButton

do:

assign target.

find first Address where Address.city = target no-error.

if available(Address)

 then do:

       display Address except Address.city with frame AddrFrame.

      end.

 else do: Message "Couldn't find " + target

          view-as alert-box title "Warning.".

      end.     

end.

find first Address.

if available(Address)

 then target = Address.city.

display Address except Address.city with frame AddrFrame.

enable all with frame AddrFrame.

wait-for choose of ExitButton.