Читать реферат по информатике, вычислительной технике, телекоммуникациям: "Курсовая работа по Foxpro" Страница 5

(Назад) (Cкачать работу)

On pad kakie of AutoTrade activate popup vau2

on selection pad exit of AutoTrade cancel

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

scan for name = a .and. nomer=b

?

? 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

?

display all for name = m

wait

clear

return

Мал.1

Мал.2

Мал.3

1.Вейскас.Д, В26 Эффективная работа с Мicrosoft Access 97 – Спб: ЗАО «Издательство Питер»,1999. – 976 с.:ил.

2.Кауфельд.Дж, К45 FoxPro для «чайников». – К.: «Диалекика», 1995.- 264 с., ил.

3.Microsoft Excel для Windows 95.Шаг за шагом: Практ. Пособ\Пер. с англ.-

М:Издательство ЭКОМ,1997.- 432с.:ил.

4.Селиджтаун.М, В26 «FoxPro 2.5 Практическое пособие» - М: изд. «Москва-Пресс»,1994.-296 с.:ил.; 3-е Издание.1

Похожие работы