Разработка информационно-справочной системы "Зарплата по НИР" — страница 8

  • Просмотров 3264
  • Скачиваний 176
  • Размер файла 20
    Кб

process(0):- makewindow(1,7,4,"О пpогpамме...",10,10,10,60),nl, write(" Инфоpмационно-спpавочная система"),nl, write(" Зарплaта по НИР "),nl, write(" Язык TURBO-PROLOG версия 2.0 "),nl, write(" автоp:Синельников А.Г. "),nl, write(" МИРЭА, гp.ИЖ-1-95 (C) 1996 г. "),nl,nl, write(" Нажмите на любую клавишу"), readchar(_), removewindow. /* процедура удаления данных */ process(2):- makewindow(2,7,2,"Удаление данных",0,0,25,80), alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST), clearwindow, write("Фамилия:",FIO),nl, write("Имя:",NAME),nl,

write("Отчество:",OT),nl, write("Название кафедры:",KAF),nl, write("Зарплатa по НИР:",NIR),nl, write("Выдано за I квартал:",K1),nl, write("Выдано за II квартал:",K2),nl, write("Выдано за III квартал:",K3),nl, write("Выдали за IV квартал:",K4),nl, write("Всего выдано:",TOTAL),nl, write("Остаток:",OST),nl,nl, attribute(4), write("Удалить ? (1-да 0-нет) >"),attribute(7), readint(WHAT), WHAT=1, nl, retract(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)), clearwindow; WHAT=0,removewindow. /* процедура просмотра содержимого базы

данных */ process(3):- makewindow(2,2,7,"Просмотp базы 'Зарплата по НИР'",0,0,25,80), write("------------------------------------------------------------"),nl, write(" ФИО | |Зарплата|выдано по кварталам| |"),nl, write("------------|Каф.|по |-------------------|всего|остаток"),nl, write("Фам.|Имя|Отч| |НИР |I |II |III |IV | |"),nl, write("------------------------------------------------------------"),nl, alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST), cursor(Z,_), cursor(Z,0),write(FIO), cursor(Z,8),write(NAME), cursor(Z,17),write(OT), cursor(Z,26),write(KAF), cursor(Z,34),write(NIR), cursor(Z,43),write(K1), cursor(Z,48),write(K2),

cursor(Z,53),write(K3), cursor(Z,58),write(K4), cursor(Z,63),write(TOTAL), cursor(Z,69),write(OST),nl, fail. process(3):- write("------------------------------------------------------------"), nl,attribute(4), write(" Нажмите на любую клавишу"), attribute(2), readchar(_), removewindow. /* процедура загрузки базы */ process(4):- makewindow(2,15,4,"Загрузка",10,10,10,60), write("Загрузить из файла ALEX.DAT - 1"),nl, write("Загрузить из указанного файла - 2"),nl, write(">"), readint(WHAT), WHAT=1, retractall(_,alex), consult("alex.dat",alex), write("База загружена ..."),nl, write("

Нажмите любую клавишу"), readchar(_),!,removewindow; WHAT=2, write("Введите имя файла >"),readln(FNAME), existfile(FNAME), retractall(_,alex), consult(FNAME,alex), write("База загружена ..."),nl, write(" Нажмите любую клавишу"), readchar(_),!,removewindow; nl,attribute(4), write(" Файл не найден !!!"),attribute(7), readchar(_), removewindow. /* процедура сохранения данных */ process(5):- makewindow(2,15,4,"Запись",10,10,10,60), write("Записать в файл ALEX.DAT - 1"),nl, write("Записать в указанный файл - 2"),nl, write(">"), readint(WHAT), WHAT=1,

save("alex.dat",alex), write("База записана ..."),nl, write(" Нажмите любую клавишу"), readchar(_),!,removewindow; WHAT=2, write("Введите имя файла >"),readln(FNAME), save(FNAME,alex), write("База записана ..."),nl, write(" Нажмите любую клавишу"), readchar(_),!,removewindow. /* процедура создания новой базы */ process(6):- makewindow(2,2,7,"Создание новой базы",0,0,25,80), write("Создать базу по именам и кафедрам - 1"),nl, write("Создать базу 'все о зарплате' - 2"),nl, write("Выход в меню - 3"),nl,