Реферат: Курсовая работа по Foxpro

? name,' Продана'

endscan

delete all for name=a .and. nomer =b

pack

clear

return

procedure p3

define window catalog from 9,10 to 24,70

activate window catalog

display all nomer,name,model

wait

deactivate window catalog

clear

return

Procedure p4

define window vsedanni from 6,1 to 24,70

activate window vsedanni

display all

wait

deactivate window vsedanni

clear

return

Procedure p2

m=' '

@ 10,10 Say 'Введите название автомобиля для поиска ' get m

read

Scan for name = m

endscan

?