Вывод @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. реферат дисертації на здобуття наукового ступеня кандидата технічних наук Одеса 2001
6. Правление Елены Глинской и бояр.html
7. Автоматизация работы фирмы по продаже квартир
8. Мокко. 4 чашки эспрессо 4 ст
9. Тема уроку Зрізана піраміда
10. Простые вещества
11. Реферат Шведская модель смешанной экономики
12. тематике Критерии оценок по математикеРекомендации по оценке знаний и умений учащихся по математикеОпирая
13. 1 Поняття та визначення Термін навігаціяrdquo; зародився у мореплавстві походить з від слів nvisrdquo; кор
14. 1Вращательное движение вид механического движения
15. Пояснительная записка к годовому бухгалтерскому отчету В пояснительной записке должна быть приведена
16. Физическое воспитание детей от рождения до 7 лет
17. Тема Доходы и расходы организации 1
18. беск. Пусть функция fx определена в окрестности точки x0 и пусть x 0 таково что x0 x принадлежит указа
19. либо параметра высокочастотных колебаний колебаний несущей частоты
20. Гомельский государственный университет имени Франциска Скорины Геологогеографический факультет