Создание информационной системы "Учреждение образования"

seek(f,Number[19-x+i]); read(f,man1); gotoxy(1,19);write(man1.Record_Number);

gotoxy(12,19);write(man1.Record_Famile); gotoxy(32,19);write(man1.Record_Special);

end; if (i>max) and (max<>0) then begin

dec(x); dec(i); end; end; end;

83 : if max<>0 then if windows(23,9,5,30,1,'Вы точно хотите удалить?') then

begin textattr:=$0b; delete(Number[i]); for k:=1 to max do

if k>=i then if k+1<=max then Number[k]:=Number[k+1]-1;

dec(max); gotoxy(1,x); delline; if (19-x+i)<=max then begin

seek(f,Number[19-x+i]); read(f,man1); gotoxy(1,19);write(man1.Record_Number);

gotoxy(12,19);write(man1.Record_Famile); gotoxy(32,19);write(man1.Record_Special);

end; if (i>max) and (max<>0) then begin dec(x); dec(i); end; end;

13 :

begin windows_enter(15,4,14,50,3,man1,flag,l); if not flag then

begin seek(f,Number[i]); write(f,man1); seek(f,Number[i]); end

else begin seek(f,Number[i]); read(f,man1); seek(f,Number[i]); end; end; end;

window(33,5,79,23); if max<>0 then begin gotoxy(1,x); textattr:=$1f;

clreol; seek(f,Number[i]); read(f,Man1); gotoxy(1,x);write(man1.Record_Number);

gotoxy(12,x);write(man1.Record_Famile); gotoxy(32,x);write(man1.Record_Special);

end; until (ord(c)=9) or (ord(c)=27); Hide_ramka;

end else windows(23,9,5,30,2,'Ничего не найдено!');end; close(f);

last2:=1;lastfile:=0; fill_ramka2(last2);End;

Procedure sort;

var

man,min,temp:Record_Base; m,i,j,l:integer; d:boolean;

Begin

reset(f); windows_sort(15,4,14,50,flag,l); if not flag then

for i:=0 to filesize(f)-1 do begin seek(f,i); read(f,min); m:=i;

seek(f,i); for j:=i to filesize(f)-1 do begin

d:=true; read(f,man); d:=(Man.Record_Number<min.Record_Number) or (l<>1);val(Man.Record_Famile,c1,cod1);val(min.Record_Famile,c2,cod2);

d:=d and ((c1<c2) or (l<>2));val(Man.Record_Special,c3,cod3);val(min.Record_Special,c4,cod4);

d:=d and ((c3<c4) or (l<>3));

d:=d and ((Man.Record_Name<min.Record_Name) or (l<>4));

d:=d and ((Man.Record_Fathername<min.Record_Fathername) or (l<>5));

d:=d and ((Man.Record_Year<min.Record_Year) or (l<>6));

if d then begin min:=man; m:=j; end; end; seek(f,i); read(f,man); temp:=man;

seek(f,i); write(f,min); seek(f,m); write(f,man); end; close(f); last2:=1;lastfile:=0;

Fill_ramka2(Last2);End;

Procedure Zastavka;

var i:integer;

Begin

clrscr; window(7,4,77,19); textcolor(15); textbackground(1);

writeln(chr(186),' ___ ___ ___ ____ ___ ___ ',chr(186));

writeln(chr(186),' | | | | | | | | | | | | | | | | \ / ',chr(186));

writeln(chr(186),' |__ |___| ___| |___| | | |___| |___| |___| |__ | \/ ',chr(186));

writeln(chr(186),' | | | | | | | _|___|_ | | | | | | | || / \ ',chr(186));

writeln(chr(186),' |__| | | ___| | | | || | | | | | |__|| / \ ',chr(186));

writeln(chr(186),' ',chr(186));

writeln(chr(186),' __ ____ ',chr(186));

writeln(chr(186),' | | | | | ',chr(186));

writeln(chr(186),' |__| |___| __| ',chr(186));

writeln(chr(186),' | | | | ',chr(186));

writeln(chr(186),' |___| ___| ____| ',chr(186));

window(3,22,77,25); textcolor(15);textbackground(1);

writeln(' Программа разработана студентом группы АС-563,(с) Сачевичик Алексей');

writeln(' Нажмите <Enter> для продолжения'); textbackground(blue); readln;

clrscr; window(1,1,80,25)

End;

Procedure movetoarchiv;

Begin

if archiv then begin filename:='Base.imm'; Archivname:='archiv.rar';

menu1_s[3]:='Архив'; end else begin filename:='Archiv.rar'; Archivname:='Base.imm';

menu1_s[3]:=' База'; end; init(Filename); Fill_ramka2(1); archiv:=not archiv;

last2:=1;lastfile:=0;end;

Begin

clrscr;

Init(FILENAME);

asm

mov ax,0003h

int 10h

end;

ramka:=false;

TextAttr:=$1b;

Window(1,1,80,25);

zastavka;

textbackground(black);

clrscr;

ramka2;Fill_ramka2(1);

ramka3;

archiv:=false;

last2:=1;lastfile:=0;

repeat

panel(last1,z);

case z of

0:New_String;

1:Find;

2:sort;

3:MovetoArchiv;

4:About;

111:ramka2_move(last2,lastfile);

end;

until z=5;

window(1,1,80,25);

clrscr;

End.

Размещено на Allbest.ru