Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
clear
set talk off
use
sele B
use
sele A
hide wind all
set date short
@1,1 prom "Вывод"
@3,1 prom "Сортировка, вычисления"
@5,1 prom "Просмотр БД"
@7,1 prom "Выход"
menu to otv
DO case
CASE otv=1
clear
@1,2 prom "Сотрудники, имеющие больше 1 ребенка и з\п <1200р"
@3,2 prom "замужние женщины, до 31.12.55"
@5,2 prom "фамилии начинаются на Д"
menu to otv1
Do case
case otv1=1
sele A
use timur.dbf
sort on Familia to timur_sort
use timur_sort
index on Tab to timur_i
sele B
use timur1.dbf
set rela to Tab into A
list off A.Familia, A.Ima, A.Otchestvo for A.Deti>=1 and B.Zarplata<=1200
Wait ""
do timur_prg
case otv1=2
use timur.dbf
list off Tab, Familia, Ima, Otchestvo for Spolozenie="в браке" and Year(Data1)<=1955 and Mont(Data1)<=12 and Day(Data1)<=31 and pol="Д"
wait ""
do timur_prg
case otv1=3
use timur.dbf
list off Familia, Ima, Otchestvo, Data1, Pol, Spolozenie for Familia="Д"
wait ""
do timur_prg
Endcase
case otv=2
clear
@1,2 prom "Сумма, мин, макс, среднее зарплаты"
@3,2 prom "Замена пола ж на м"
@5,2 prom "Уменьшить в два раза зарплату"
@7,2 prom "Сортировка и индексация"
@9,2 prom "Удалить остортированную по симв. полю"
@11,2 prom "Удалить 2 запись"
menu to otv2
Do case
case otv2=1
use timur1.dbf
calc sum(zarplata) to perem1
calc min(zarplata) to perem2
calc max(zarplata) to perem3
calc avg(zarplata) to perem4
clear
? "Сумма", perem1
? "Минимум", perem2
? "Максимум", perem3
? "Среднее", perem4
wait ""
do timur_prg
case otv2=2
use timur.dbf
replace Pol with "Д" for Pol="ж"
? "сделано!"
wait ""
do timur_prg
case otv2=3
use timur1.dbf
replace Zarplata with Zarplata/2 for Zarplata>1000
? "Сделано!"
wait ""
do timur_prg
case otv2=4
use timur.dbf
sort on Ima to timur_ima
sort on deti to timur_det
index on ima to timur_iima
index on deti to timur_idet
wait ""
do timur_prg
case otv2=5
erase timur_det.dbf
wait ""
do timur_prg
case otv2=6
use timur.dbf
dele record 2
pack
wait ""
do timur_prg
Endcase
case otv=3
use timur.dbf
brow
wait ""
do timur_prg
case otv=4
clear
@1,1 say "Покедова :)))"
Endcase