Шпаргалка: Практика Access

set date german

clear

wait window 'открытие базы данных'

use arenda

list for group='производственное оборудование'

wait window 'вывод на печать'

list for group='производственное оборудование' to print

use

return

do contr

opisanie	ploschad	ediniza	naimenov	srok	sumall
Пресс-формы	10	штука	НПФ "Истра"	31.12.99	58 440,00р.
Станок шлифовальный	1	штука	ООО "Электром"	28.02.01	5 688,00р.
Станок фрезерный	2	штука	ООО "Электром"	28.02.01	11 808,00р.
Станок токарный Т-6890	1	штука	ООО "Электром"	28.02.01	3 696,00р.

Задание 8. Разработка автоматизированных рабочих мест-Меню

При выполнении задания использовалась СУБД Foxpro 2.6

1) вертикальное меню

define popup arm shadow

define bar 1 of arm prompt 'автоматизированное рабочее место бухгалтера'

define bar 2 of arm prompt '1. Ввод учетных данных'

define bar 3 of arm prompt '2. Корректировка данных'

define bar 4 of arm prompt '3. Начисление зарплаты'

define bar 5 of arm prompt '4. Вывод результатов'

define bar 6 of arm prompt '5. Конец работы'

on selection popup arm

activate popup arm at 12,10

2) горизонтальное меню

define menu arm1 bar at line 1

define pad nazv of arm1 prompt 'автоматизированное рабочее место бухгалтера'

define menu punkt bar at line 2

define pad vvod of punkt prompt '1. Ввод учетных данных'

define pad korr of punkt prompt '2. Корректировка данных'

define pad nach of punkt prompt '3. Начисление зарплаты'