|
Рефераты Главная Краткое содержаниепроизведений Архитектура Астрономия Банковское делои кредитование Безопасностьжизнедеятельности Биографии Биология Биржевое дело Бухгалтерия и аудит Военное дело География Геодезия Геология Гражданская оборона Животные Здоровье Земельное право Иностранные языкилингвистика Искусство Историческая личность История История отечественногогосударства и права История политичискихучений История техники Компьютерные сети Компьютеры ЭВМ Криминалистика икриминология Культурология Литература Литература языковедение Маркетинг товароведениереклама Математика Материаловедение Медицина Медицина здоровье отдых Менеджмент (теорияуправления и организации) Металлургия Москвоведение Музыка Наука и техника Нотариат Общениеэтика семья брак Педагогика Право Программированиебазы данных Программное обеспечение Промышленностьсельское хозяйство Психология Радиоэлектроникакомпьютеры и перифирийные устройства Реклама Религия Сексология Социология Теория государства и права Технология Физика Физкультура и спорт Философия Финансовое право Химия - рефераты Хозяйственное право Ценный бумаги Экологическое право Экология Экономика Экономикапредпринимательство Юридическая психология |
Разработка информационно справочной системы Характеристика предприятияCODE=12050 /* ************************** * КУРСОВАЯ РАБОТА * * * * Косарева Вячеслава * * * ************************** */ domains z,i,n,n1,ko,ob,pl=integer na,j=symbol database -svod1 svod1(n,j,ko,ob,pl) database -lolo lolo(n,na,i,ob,pl) database -kuku kuku(n,na,ko,i,pl) database svod(n,na,ko,ob,pl) predicates start patch load select(i) sel(i,i) process(i) procedure(i) sve(i) lod(i) repeat goal start. clauses /*Процедура создания основного меню и загрузки базы данных*/ start:- makewindow(1,2,7,"ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ",0,0,25,80), clearwindow, load, patch. /*Процедура управления основным меню*/ patch:- repeat, cursor(7,0), write(" 0 - О пpогpамме... "),nl, write(" 1 - коррекция данных"),nl, write(" 2 - удаление данных"),nl, write(" 3 - просмотр базы"),nl, write(" 4 - загрузка базы"),nl, write(" 5 - сохранение базы"),nl, write(" 6 - создание новой базы"),nl, write(" 7 - ввод новых данных"),nl, write(" 8 - просмотр-добавление"),nl, write(" 9 - выход из программы"),nl, write(" =>"), readint(Choice), Choice >= 0, Choice < 10, clearwindow, process(Choice), clearwindow, Choice = 9, retractall(_), removewindow. /*Процедура поиска и загрузки файла содержащего базу данных*/ load:- existfile("slava.dat"), consult("slava.dat"), cursor(1,2), write("База загружена"). load:- cursor(1,2), write("Нет базы на диске"). /*Пpоцедуpа ввода новых данных*/ process(7):- makewindow(1,2,7,"Ввод новых данных",0,0,25,80), nl, write("Введите порядковый номер :"),readint(K),nl, write("Введите название предприятия:"),readln(O),nl, write("Введите количество рабочих :"),readint(I),nl, write("Введите объем продукции :"),readint(Y),nl, write("Введите занимаемую площадь :"),readint(T),nl, N1=K,NA1=O,KO1=I,OB1=Y,PL1=T, assertz(svod(N1,NA1,KO1,OB1,PL1)), removewindow, fail. /*Процедура просмотра-добавления*/ process(8):- makewindow(1,2,7,"Просмотр-добавление",0,0,25,80), nl, write("Введите номер записи:"),readint(A),nl,nl, svod(N,NA,KO,OB,PL), A=N, write("Номер записи :"),write(A),nl, write("Название предприятия:"),write(NA),nl, write("Количество рабочих :"),write(KO),nl, write("Объем продукции :"),write(OB),nl, write("Занимаемая площадь :"),write(PL),nl,nl,nl, write("Нажмите на любую клавишу"), readchar(_), removewindow, !. process(8):- write("Этого номера записи нет в базе."), write("Повторите введенный номер записи и продолжайте ввод данных"),nl,nl,nl, write("Введите номер:"), readint(A),nl, A=N1, write("Введите название предприятия:"),readln(F),nl, write("Введите количество рабочих :"),readint(Y),nl, write("Введите объем продукции :"),readint(J),nl, write("Введите занимаемую площадь :"),readint(G),nl, NA1=F,KO1=Y,OB1=J,PL1=G, assertz(svod(N1,NA1,KO1,OB1,PL1)), removewindow, fail. /*Пpоцедуpа вывода данных о пpогpамме*/ process(0):- makewindow(1,2,7,"О пpогpамме...",0,0,25,80), write(" Инфоpмационно-спpавочная система"),nl,nl, write(" о характеристике предприятия "),nl,nl, write(" Язык-TURBO-PROLOG v.2.0. "),nl,nl, write(" автоp:Косарев В. "),nl,nl, write(" МИРЭА, гp.ИТ-1-94 (с) 1995 г. "),nl,nl,nl,nl, write("Нажмите на любую клавишу"), readchar(_), removewindow. /*Процедура изменения содержимого записей базы данных*/ process(1):- makewindow(1,2,7,"Коppекция данных",0,0,25,80), nl, select(N), X=N, svod(X,NA,KO,OB,PL), write("Номер записи :"),write(N),nl, write("Название предприятия:"),write(NA),nl, write("Количество рабочих :"),write(KO),nl, write("Объем продукции :"),write(OB),nl, write("Занимаемая площадь :"),write(PL),nl, nl, write("Введите название предприятия:"),readln(NA1),nl, write("Введите количество рабочих :"),readint(KO1),nl, write("Введите объем продукции :"),readint(OB1),nl, write("Введите занимаемую площадь :"),readint(PL1),nl, X1=X, retract(svod(X,NA,KO,OB,PL)), assert(svod(X1,NA1,KO1,OB1,PL1)), !, removewindow. /*Процедура удаления записей из базы данных*/ process(2):- makewindow(1,2,7,"Удаление записей",0,0,25,80), nl, select(N), X=N, svod(X,NA,KO,OB,PL), retract(svod(X,NA,KO,OB,PL)),!, removewindow. /*Процедура просмотра содержимого базы данных*/ process(3):- makewindow(1,2,7,"Просмотp базы",0,0,25,80), nl, write("__________________________________________________________________!"), write(" ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ "), nl, write("------------------------------------------------------------------!"), nl, write("!номер! наименование ! количество ! объем ! занимаемая !"), nl, write("! ! предприятия ! рабочих ! продукции ! площадь "), nl, write("-------------------------------------------------------------------"), nl, svod(N,NA,KO,OB,PL), cursor(Z,_), cursor(Z,0),write(N), cursor(Z,8),write(NA), cursor(Z,27),write(KO), cursor(Z,42),write(OB), cursor(Z,54),write(PL), cursor(Z,66),write("!"), nl, fail. process(3):- write("-------------------------------------------------------------------"), nl, write("Нажмите на любую клавишу"), readchar(_), removewindow. /*Процедура загрузки в память базы данных*/ process(4):- nl, makewindow(2,15,4,"Загрузка",5,5,20,70), write("1 - База будет загружена из указанного файла"),nl, write("2 - База будет загружена из файла slava.dat"),nl, write("3 - Выход в основное меню"),nl, write("==>"), readint(C), C>0,C<4, lod(C), !, removewindow. /*Процедура сохранения базы данных*/ process(5):- nl, makewindow(2,15,4,"Запись",5,5,20,70), write("1 - База будет записана в указанный файл"),nl, write("2 - База будет записана в файл slava.dat"),nl, write("3 - Выход в основное меню"),nl, write("==>"), readint(I), I>0,I<4, sve(I),!, removewindow. /*Процедура выбора создания новой базы*/ process(6):- nl, makewindow(3,2,7,"Создание новой базы",0,0,25,80), write("1 - База будет создана по названию предприятия"),nl, write("2 - База будет создана по количеству рабочих"),nl, write("3 - База будет создана по объему продукции"),nl, write("4 - Выход в основное меню"),nl, write("==>"), readint(O), O>0,O<5, procedure(O), removewindow. process(_). /*Процедура создания новой базы данных и ее сохранения*/ procedure(1):- makewindow(1,2,7,"Создание новой базы по названию предприятия",0,0,25,80), nl, cursor(7,10), retractall(_,svod1), nl, write("Если вы хотите узнать данные о предприятии , то"), nl, write("Введите название предприятия:"), readln(X), svod(N,NA,KO,OB,PL), S=NA, S=X, N1=N,KO1=KO,OB1=OB,PL1=PL, assert(svod1(N1,S,KO1,OB1,PL1)), fail. procedure(1):- write("База создана"),nl, write("__________________________________________________________________!"), write(" ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ "), nl, write("------------------------------------------------------------------!"), nl, write("!номер! наименование ! количество ! объем ! занимаемая !"), nl, write("! ! предприятия ! рабочих ! продукции ! площадь "), nl, write("-------------------------------------------------------------------"), nl, svod1(N,S,KO,OB,PL), cursor(Z,_), cursor(Z,0),write(N), cursor(Z,8),write(S), cursor(Z,27),write(KO), cursor(Z,42),write(OB), cursor(Z,54),write(PL), cursor(Z,66),write("!"), nl, fail. procedure(1):- write("-------------------------------------------------------------------"), save("not.dat",svod1), nl, write("База сохранена в файле not.dat"), nl, write("Нажмите любую клавишу"), readchar(_), removewindow, !. procedure(1):- write("-------------------------------------------------------------------"), nl, write("Невозможно сохранить созданную базу"), nl, write("Нажмите любую клавишу"), readchar(_), makewindow(1,2,7,"ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ",0,0,25,80). procedure(2):- makewindow(1,2,7,"Создание новой базы по количеству рабочих",0,0,25,80), nl, cursor(7,10), retractall(_,lolo), nl, write("Если вы хотите узнать данные о наибольшем количестве рабочих , то"),nl, write("Введите начальное значение количества рабочих:"), readint(X), svod(N,NA,KO,OB,PL), S=KO, S>=X, N1=N,NA1=NA,OB1=OB,PL1=PL, assert(lolo(N1,NA1,S,OB1,PL1)), fail. procedure(2):- write("База создана"),nl, write("__________________________________________________________________!"), write(" ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ "), nl, write("------------------------------------------------------------------!"), nl, write("!номер! наименование ! количество ! объем ! занимаемая !"), nl, write("! ! предприятия ! рабочих ! продукции ! площадь "), nl, write("-------------------------------------------------------------------"), nl, lolo(N,NA,S,OB,PL), cursor(Z,_), cursor(Z,0),write(N), cursor(Z,8),write(NA), cursor(Z,27),write(S), cursor(Z,42),write(OB), cursor(Z,54),write(PL), cursor(Z,66),write("!"), nl, fail. procedure(2):- write("-----------------------------------------------------------------------------"), save("not1.dat",lolo), nl, write("База сохранена в файле not1.dat"), nl, write("Нажмите любую клавишу"), readchar(_), removewindow, !. procedure(2):- write("-------------------------------------------------------------------"), nl, write("Невозможно сохранить созданную базу"), nl, write("Нажмите любую клавишу"), readchar(_), makewindow(1,2,7,"ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ",0,0,25,80). procedure(3):- makewindow(1,2,7,"Создание базы данных по объему продукции",0,0,25,80), nl, cursor(7,10), retractall(_,kuku), nl, write("Если вы хотите узнать данные о наибольшем объеме продукции , то"), nl, write("Введите начальный объем :"), readint(X), svod(N,NA,KO,OB,PL), S=OB, S>=X, N1=N,NA1=NA,KO1=KO,PL1=PL, assert(kuku(N1,NA1,KO1,S,PL1)), fail. procedure(3):- write("База создана"),nl, write("__________________________________________________________________!"), write(" ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ "), nl, write("------------------------------------------------------------------!"), nl, write("!номер! наименование ! количество ! объем ! занимаемая !"), nl, write("! ! предприятия ! рабочих ! продукции ! площадь "), nl, write("-------------------------------------------------------------------"), nl, kuku(N,NA,KO,S,PL), cursor(Z,_), cursor(Z,0),write(N), cursor(Z,8),write(NA), cursor(Z,27),write(KO), cursor(Z,42),write(S), cursor(Z,54),write(PL), cursor(Z,66),write("!"), nl, fail. procedure(3):- write("-------------------------------------------------------------------"), save("not2.dat",kuku), nl, write("База сохранена в файле not.dat"), nl, write("Нажмите любую клавишу"), readchar(_), removewindow, !. procedure(3):- write("-------------------------------------------------------------------"), nl, write("Невозможно сохранить созданную базу"), nl, write("Нажмите любую клавишу"), readchar(_), makewindow(1,2,7,"ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ",0,0,25,80). /*Процедура записи на диск*/ sve(1):- write("Введите имя файла :"), readln(N), save(N), write("Все в порядке"), beep, !. sve(1):- write("Ошибка обмена, нажмите любую клавишу"), readchar(_). sve(2):- save("slava.dat"). sve(3). /*Процедура чтения с диска*/ lod(1):- retractall(_), write("Введите имя файла :"), readln(N), existfile(N), consult(N), write("Все в порядке"), beep, !. lod(1):- nl, write("Данного файла нет на диске"),nl, write("Нажмите любую клавишу"), readchar(_). lod(2):- retractall(_), existfile("slava.dat"), consult("slava.dat"), write("Все в порядке"), beep, !. lod(2):- write("Файла slava.dat нет на диске"),nl, write("нажмите любую клавишу"), readchar(_). lod(3). repeat. repeat:- repeat. /*Выбор записи*/ select(N):- nl, write("1 - известен номер записи"),nl, write("2 - известно название предприятия"),nl, write("3 - известно количество рабочих"),nl, write("4 - известен объем продукции"),nl, write("5 - известна занимаемая площадь"),nl, write("==>"), readint(X), sel(X,N). sel(1,N):- nl, write("Введите номер записи :"), readint(N), svod(M,_,_,_,_), M=N. sel(1,N):- N=0. sel(2,N):- nl, write("Введите название предприятия:"), readln(L), svod(Z,L,_,_,_), N=Z. sel(2,N):- N=0. sel(3,N):- nl, write("Введите количество рабочих: "), readint(F), svod(Z,_,F,_,_), N=Z. sel(3,N):- N=0. sel(4,N):- nl, write("Введите объем продукции:"), readint(Q), svod(Z,_,_,Q,_), N=Z. sel(4,N):- N=0. sel(5,N):- nl, write("Введите занимаемую площадь:"), readint(W), svod(Z,_,_,_,W), N=Z. Вахрушина Н С бухгалтерское дело характеристика информационно справочных систем. Разработка информационно справочная системы управления предприятием на языке С. Анализ существующих разработок разработка информационно справочной системы. Метод разработка по информатике на тему Информационно справочные системы. Курсовая по базам данных справочной системы Регистрация автомобиля в ГАИ. Реферат на тему Характеристика Информационной Системы С Предприятие. Программное обеспечение информационно справочных систем реферат. Из чего состоит информационно справочная работа на предприятии. Информационно справочные системы книга Саратов Россия Саратове. Информационно справочная работа регистрация документов реферат. Существующие информационно справочные системы для предприятия. Реферат ТЕХНОЛОГИИ разработки информационно справочных систем. Разработка информационно справочной системы для организации. Разработка информационно справочной системы для предприятия. Общая характеристика информационно справочной документации. |
|