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

Define popup vau

Define bar 1 of vau prompt 'Каталог'

Define bar 2 of vau prompt 'Добавить'

On selection bar 1 of vau do p3

On selection bar 2 of vau append

define popup vau1

Define bar 1 of vau1 prompt 'Цена'

define bar 2 of vau1 prompt 'Год выпуска'

define bar 3 of vau1 prompt 'Цвет'

define bar 4 of vau1 prompt 'Продать'

on selection bar 1 of vau1 browse all fields nomer,price

on selection bar 2 of vau1 browse all fields nomer,year

on selection bar 3 of vau1 browse all fields nomer,color

on selection bar 4 of vau1 do p1

Define popup vau2

Define bar 1 of vau2 prompt 'Поиск по марке авто'

Define bar 2 of vau2 prompt 'Вся информация'

on selection bar 1 of vau2 do p2

on selection bar 2 of vau2 do p4

activate menu AutoTrade

deactivate menu

deactivate window AutoTrade

procedure p1

a=' '

b= 0000

@ 10,10 say 'Введите название автомобиля для продажи' get a

@ 11,10 say 'Введите номер автомобиля' get b

read

Лістинг програми 2

scan for name = a .and. nomer=b