Курсовая работа: Разработка базы данных "Учащиеся"
then
begin
gotoxy(m[1,i]*3-2,m[3,i]);
write(chr(m[2,i]));
gotoxy(m[1,i]*3-2,m[3,i]-1);
write(' ');
gotoxy(m[1,i]*3-2,m[3,i]);
m[3,i]:=m[3,i]+1;
end;
if
m[3,i]>25
then
begin
m[1,i]:=0;
m[2,i]:=0;
m[3,i]:=0;
gotoxy(m[1,i]*3-2,m[3,i]);
write(chr(m[2,i]));
sim:=sim-1;
end;
end;
inc(schmart);
until
keypressed;
screen(blue);
lines(white);
end;{zastavka}
procedure
password;
var
s:string[16];
i,ii:integer;
ch:char;
begin{password}
MakeRamka(22,8,'‚ўҐ¤ЁвҐ Ї а®«м ¤«п ¤®бвгЇ Є Ў §Ґ ¤ ле:',78,14,white,cyan);
textcolor(white);
textbackground(black);
gotoxy(42,11);
writeln(' ');
gotoxy(42,11);
ii:=0;
s:='';
admin:=false;
repeat
ch:=readkey;
case ch of
#72:;
#75:;
#77:;
#80:;
#8:{backspase}
if
(s<>'')
then
begin
delete(s,ii,1);
dec(ii);
textbackground(black);
textcolor(white);
gotoxy(42,11);
write(' ');
gotoxy(42,11);
for i:=1 to ii
do
write('*');
end;
else
if
(chr(ord(ch)) in simvV)
then
if ii<=15
then
begin
gotoxy(42,11);
s:=s+chr(ord(ch));
textbackground(black);
textcolor(white);
inc(ii);
for i:=1 to ii
do
write('*');
end;
end;
until
((ch=#13) or (ch=#27));
if ch=#27
{ ¦ в Esc}
then
admin:=false
else
if s=PasswordX
then
admin:=true
else
begin
s:='';
textcolor(red);
textbackground(cyan);
gotoxy(42,13);
write('‚ўҐ¤Ґ ҐўҐал© Ї а®«м!');
gotoxy(42,11);
textcolor(white);
textbackground(black);
write(' ');
gotoxy(42,11);
ch:=readkey;
password;
end;
clear;
end;{password}
ПРИЛОЖЕНИЕ В
ПРИМЕРЫ ПРОГРАММЫ
Рис.1 Пример заставки,
при её создании использовалась таблица ASCII
Рис.2 Пример защиты
программы паролем ( по умолчанию: password )
Рис.3 Пример меню
программы
Рис.4 Создание нового
дела учащегося
Рис.5 Пример
Сохранения\Загрузки архива
Рис.6 Пример Поиска по
различным критериям, в данном случае по фамилии куратора
Рис.7 Пример результата
поиска учащегося по какой либо из критерий
Рис.8 Пример смены
пользователя, например из «Пользователя» в «Администратора» после чего
программа потребует пароль
ПРИЛОЖЕНИЕ Г
РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ
Запускаете файл Reg.exe, при запуске будет запущена заставка программы -
нажмите любую клавишу для продолжения.
Далее выйдет окно запроса
пароля (или выбора пользователя): а) Введите пароль для выбора учётной записи
«Администратор» (по умолчанию:password); б) нажмите клавишу “Esc”
для выбора учётной записи «Пользователь».
Далее следует меню,
состоящее из подпунктов: Новое дело, Архив, Поиск, Выбор пользователя, Выход.
Если будет выбран «Администратор», тогда вы можете завести новые дела на
учащихся, сохранять изменение (создавать) базы данных или загружать уже
существующие базы, далее можете воспользоваться поиском тех или иных учащихся
для удаления или корректировки данных, выбор пользователя – замена
пользователя, допустим с «Администратора» на «Пользователя», выход – из данной
программы. Клавиши и подпункты: (для перемещения по подпунктам используются
клавиши: Вверх, влево, вправо, вниз. Для перемещения по ячейкам данных используется
клавиша «TAB». Для удаления конкретного дела
учащегося используйте клавишу «F8».
Клавиша для принятия «Enter».
|
