Реферат - Бази даних
14

pad kakie of AutoTrade prompt 'Инфо' at 1,36
define pad exit of AutoTrade prompt 'Выход' at 1,43
On pad baza of AutoTrade activate popup vau
On pad prodaza of AutoTrade activate popup vau1
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

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


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



Приклади екранних форм


[pic]


Мал.1


[pic]
Мал.2

[pic]
Мал.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 2 3