Курсовая работа: Разработка базы данных "Учащиеся"

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]=(' ‘®еа ­Ёвм',

К-во Просмотров: 448
Бесплатно скачать Курсовая работа: Разработка базы данных "Учащиеся"