Разработка базы данных, отражающей учет успеваемости студентов
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: первый снег сочинение, мировая экономика
| Добавил(а) на сайт: Капылюшный.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9
begin clrscr; textBackground(black); tek:=2; kr:='-'; exist:=false; nast:=menu1; menus(nast,nast.m); while 1>0 do begin if keypressed then key:=readkey; case key of
#80:ramka('+');
#72:ramka('-');
#27:exist:=true;
#13:main; end; if exist then exit; krutis; end; end.
Текст модуля Tips.pas
Unit tips;
interface
type pered=record st:array[1..12] of string; m:byte; end;
tabl2=record t1,t2,t3,t4,t5:string[12]; end; cc=^tab; tab=record tabl:tabl2; sled:cc; end;
var menu1,menu2,menu3,menu4:pered; mm:array[1..5,1..5] of string[50]; implementation begin with menu1 do begin st[1]:='БАЗА ДАННЫХ'; st[2]:='Загрузка'; st[3]:='Сохр. в тип. файл'; st[4]:='Сохр. в текст. файл'; st[5]:='Просмотр'; st[6]:='Корректировка'; st[7]:='Сортировка'; st[8]:='Запросы'; st[9]:='Выход'; m:=9; end; mm[1,1]:='Студенческий'; mm[1,2]:='Фамилия'; mm[1,3]:='Имя'; mm[1,4]:='Отчество'; mm[1,5]:='Стипендия'; mm[2,1]:='Код предмета'; mm[2,2]:='Название'; mm[2,3]:='Код преподав.'; mm[2,4]:='Время учебы'; mm[2,5]:='Курс'; mm[3,1]:='Код преподав.'; mm[3,2]:='Фамилия'; mm[3,3]:='Имя'; mm[3,4]:='Отчество'; mm[3,5]:='Начало работы'; mm[4,1]:='Код сдачи'; mm[4,2]:='Оценка'; mm[4,3]:='Дата сдачи'; mm[4,4]:='Студенческий'; mm[4,5]:='Код предмета';
with menu2 do begin st[1]:='ПРОСМОТР'; st[2]:='Студенты'; st[3]:='Предметы'; st[4]:='Преподаватели'; st[5]:='Оценки'; st[6]:='Выход'; m:=6;
end;
with menu3 do begin st[1]:='КОРРЕКТИРОВКА'; st[2]:='Добавление'; st[3]:='Удаление'; st[4]:='Изменение'; st[5]:='Выход'; m:=5;
end;
with menu4 do begin st[1]:='ЗАПРОСЫ'; st[2]:='Найти оценку'; st[3]:='Кто принимал экзамен'; st[4]:='Найти размер стипендии'; st[5]:='Вывод по оценке'; st[6]:='Дата сдачи экзамена'; st[7]:='Выход'; m:=7;
end;
end.
--------------------
[pic]
[pic]
Рис. 1
[pic]
Рис. 2
Рис. 3
[pic]
[pic]
Рис. 4
[pic]
[pic]
Скачали данный реферат: Худяков, Kondratij, Куракин, Rastorguev, Annikov, Mariamna, Погодов.
Последние просмотренные рефераты на тему: реферат на тему россия, конспект урока 8 класс, реферат загрязнение, реферат по английскому.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9