Пример n 3

SET TALK OFF

CLEAR

USE KADRZ

SET FORMAT TO KADRZ.FMT

CHANGE

SET FORMAT TO

CLEAR

DIMENSION OK(8),KN(8),DE(8),Z(8),P(8),N(8),S(8),B(4)

GO TOP

FOR I=1 TO 8

SCATTER FIELDS FAM,OKLAD,KND,DET TO A MEMO

IF I<8

SKIP

ENDIF

OK(I)=A(2)

KN(I)=A(3)

DE(I)=A(4)

Z(I)=1.15*(1.2*OK(I)*(20-KN(I))/20)

P(I)=Z(I)*0.01

N(I)=0.13*(Z(I)-P(I)-100*(1+DE(I)))

S(I)=Z(I)-P(I)-N(I)

ENDFOR

GO TOP

FOR I=1 TO 8

B(1)=Z(I)

B(2)=P(I)

B(3)=N(I)

B(4)=S(I)

GATHER FROM B FIELDS SZ,PF,PN,SN

IF I<8

SKIP

ENDIF

ENDFOR

dimension a (8)

a=0

define popup kadr prompt field kadrz. fam+;

iif(ascan(a, recno()) #0, '+', ' ') ;

title'отбор работников (до 8) 'footer 'завершение - space' color scheme 2

on selection popup kadr do otbor

clear

activate popup kadr

procedure otbor

do case

case lastkey () =13

i=ascan (a, recno ())

if i#0

a(i) =0

else

i=ascan (a, 0)

if i=0

wait 'отбор закончен' window nowait

return

endif

a(i) =recno()

endif

case lastkey () =32

=asort (a)

? 'фамилия общий заработок пен. Фонд под. налог сумма на руки'

?

for i=1 to 8

if a(i) #0

go a(i)

? fam, sz, pf, pn, sn

endif

endfor

deactivate popup

endcase

return

К О Н Т Р О Л Ь Н Ы Е З А Д А Н И Я

Вариант 1

1. FOXPRO. Создать базу данных «Библиотека» со сведениями: название книги, автор, год издания. Организовать двух уровневое меню. В главном (BAR-меню) описать два PAD-пункта: «Название книги» и «Выход». При выборе PAD-пункта «Название книги» активизировать POPUP-меню для описания BAR-пунктов которого использовать поле NAME (название книги) базы данных «Библиотека» Разработать процедуру (OUTPUT) вывода информации по названию книги (автор, год издания) с использованием команды ? , которая должна вызываться при активизации POPUP-меню.

2. Выполнить расчет минимального семейного дохода для семьи из 2, 3, 4 , 5 и 6 человек в месяц в следующей последовательности: составить базу данных со сведениями: минимальные расходы на питание, одежду, коммунальные услуги для семьи из 2, 3, 4 , 5 и 6 человек, зарезервировать поле для занесения информации о минимальном семейном доходе после выполнения расчета; предусмотреть ввод выше перечисленной информации при помощи стандартного файла ввода информации; выполнить расчет минимального семейного дохода и результаты записать в базу данных и вывести на экран.

Вариант 2

1. FOXPRO. Создать базу данных «Ателье» со сведениями: заказчик, закройщик, название заказа, стоимость пошива. Организовать двух уровневое меню. В главном (BAR-меню) описать два PAD-пункта: «Название заказа» и «Выход». При выборе PAD-пункта «Название заказа» активизировать POPUP-меню для описания BAR-пунктов которого использовать поле NAME (название заказа) базы данных «Ателье». Разработать процедуру (OUTPUT) вывода информации по названию заказа (заказчик, закройщик, стоимость заказа) с использованием команды ?? , которая должна вызываться при активизации POPUP-меню.

2. Выполнить расчет зарплаты 10-и ИТР для этого составить базу данных со сведениями: фамилия, оклад, количество детей и неявок на работу, зарезервировать поля для занесения результатов расчета (сумма заработка, отчисления в пенсионный фонд и подоходный налог, сумма на руки). Предусмотреть ввод минимальной оплаты труда и количества рабочих дней при помощи команды GET READ; выполнить расчет, результаты записать в базу данных и вывести на экран.