Курсовая работа: Разработка базы данных "Учащиеся"
program Baza;
uses crt, REGUNIT;
begin{Baza Dannyh}
zastavka; {Запускзаставки}
user; {Выбор пользователя}
menus; {Открытие меню}
end.{Baza Dannyh}
(Листинг Unit программы)
{******************************************************************}
{ Zastavka - Процедура заставки }
{ Makeramka - Рисование рамок }
{ Lines - Рисование линий }
{ Archieve - Процедура архива }
{ User - Процедура выбора пользователя }
{ Menus - Процедура меню }
{ Password - Процедура запроса пароля, требует только у Админа }
{******************************************************************}
Unit REGUNIT;
Interface
uses crt;
const
illcount=100;
NameProg='Baza dannyh';
PasswordX='password';
Line1='ННННННННННННННННННСННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННН';
mmenu:array [1..5] of string[16]=(' Novoe delo ',
' Архив... ',' Поиск... ',' Пользователь...',
' ‚Выход ');
menunew:array [1..2] of string[16]=(' ‘®еа Ёвм',