Вывод @31 prom Сортировка вычисления
Работа добавлена на сайт samzan.net:
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
2. Политический портрет И
3. Существование любого сообщества невозможно если между его членами отсутствует обмен информацией
4. Лабораторна робота БУДОВА СТАТЕВИХ КЛІТИН Мета
5. Реферат- Предельное равновесие балок и ра
6. Маркетинг в сфере услуг
7. на тему Защита населения и территории в чрезвычайных ситуациях Исполнитель- Майоров
8. Экономическое учение Смита (Економiчнi вчення Смiта)
9. русское женское дворянство XVIII века и соответствующий ему предмет исследования ~ жизнь русского женского дв
10. чиков Т. А. Борисовская.1
11. Христианская мысль перед тайной личности
12. Как записать цифрами число сто одна тысяча восемь 1 1018 2 10 018 3 10 108.html
13. В Головко
14. модульної системи Дніпропетровськ 2012
15. Развитие русской культур
16. медицинских данных
17. Электростанции России
18. Петербург 2008 II ш ББК88
19. молоды но к нам присоединяются регионы Днепропетровск Кривой Рог Кременчуг это люди по зову сердца не ра
20. I. Введение.html