Program My_Cafemax;
uses crt;
type
zap=record
kod:integer;
Fi:string;
dolzhnost:string;
oklad:string;
telefone:string;
w:string;
end;
zap1=record
kod:integer;
FIO:string;
adres:string;
tel:string;
op:integer;
w:string;
end;
zap2=record
kod:integer;
FIO:string;
adres:string;
tel:string;
sum:string;
proc:string;
end;
zap3=record
kod:integer;
FIO:string;
adres:string;
tel:string;
sum:string;
proc:string;
end;
pass_col=record
ap,up:string[15];
end;
pas=file of pass_col;
var
kod,a,b,c,i:integer;
q,q11,q22,q33:integer;
kol:integer;
f,g,z:file of zap;
f1,g1,z1:file of zap1;
f2,g2,z2:file of zap2;
f3,g3,z3:file of zap3;
bu,bu1:boolean;
bank:zap;
klienti:zap1;
vklad:zap2;
kredit:zap3;
key:char;
p:char;
{password}
pass_file,dump:pas; exit_,ok:boolean;s,s1:string;
q1:integer;
a1,b1:pass_col;
{zastacka}
d,m,k1,k,x,y,XE,RX,ry,r:integer;
Procedure vibor;forward;
Procedure password;forward;
Procedure menu;forward;
Procedure sotrudramka;forward;
procedure shapka;
begin
TextColor (red);
Textbackground (black);
clrscr;
writeln('ЙННННННЛНННННННННННННННННННЛНННННННННННННННЛНННННННННННННННННЛННННННННННННННН»');
writeln('є є є є є є');
writeln('є kod є FIO є doljnost є telefone є zarplata є');
writeln('є є є є є є');
writeln('МННННННОНННННННННННННННННННОНННННННННННННННОНННННННННННННННННОННННННННННННННН№');
end;
procedure niz;
begin
writeln('ИННННННКНННННННННННННННННННКНННННННННННННННКНННННННННННННННННКНННННННННННННННј');
end;
procedure PPOICK;
begin
gotoxy(15,27);
writeln('ЙННННННННННННННННННННННННН»');
gotoxy(16,28);
writeln('є vvedite FIO є');
gotoxy(17,29);
writeln('ИНННННННННННННННННННННННННј');
end;
procedure YPOICK;
begin
gotoxy(15,27);
writeln('ЙНННННННННННННННННННННННН»');
gotoxy(16,28);
writeln('є vvedite kod є');
gotoxy(17,29);
writeln('ИННННННННННННННННННННННННј');
end;
procedure cozdanie;
begin
clrscr;
shapka;
assign(f,'c:\t.txt');
rewrite(f);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(bank.kod);
gotoxy(8,6);
writeln('є');
gotoxy(9,6);
readln(bank.Fi);
gotoxy(28,6);
writeln('є');
gotoxy(29,6);
readln(bank.dolzhnost);
gotoxy(44,6);
writeln('є');
gotoxy(45,6);
readln(bank.oklad);
gotoxy(62,6);
writeln('є');
gotoxy(63,6);
readln(bank.telefone);
gotoxy(78,6);
writeln('є');
niz;
write(f,bank);
close(f);
readln;
end;
procedure dobav;
begin
clrscr;
shapka;
assign(f,'c:\t.txt');
assign(z,'c:\z.txt');
reset(f);
rewrite(z);
while not(eof(f)) do
begin
read(f,bank);
write(z,bank);
end;
rewrite(f);
reset(z);
while not(eof(z)) do
begin
read(z,bank);
write(f,bank);
end;
close(z);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(bank.kod);
gotoxy(8,6);
writeln('є');
gotoxy(9,6);
readln(bank.Fi);
gotoxy(28,6);
writeln('є');
gotoxy(29,6);
readln(bank.dolzhnost);
gotoxy(44,6);
writeln('є');
gotoxy(45,6);
readln(bank.oklad);
gotoxy(62,6);
writeln('є');
gotoxy(63,6);
readln(bank.telefone);
gotoxy(78,6);
writeln('є');
niz;
write(f,bank);
close(f);
readln;
end;
procedure poick;
begin
PPOICK;
gotoxy(35,29);
readln(q);
assign(f,'c:\t.txt');
reset(f);
repeat
read(f,bank);
if q=bank.kod then
begin
clrscr;
shapka;
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
writeln(bank.kod);
gotoxy(8,6);
writeln('є');
gotoxy(9,6);
writeln(bank.Fi);
gotoxy(28,6);
writeln('є');
gotoxy(29,6);
writeln(bank.dolzhnost);
gotoxy(44,6);
writeln('є');
gotoxy(45,6);
writeln(bank.oklad);
gotoxy(62,6);
writeln('є');
gotoxy(63,6);
writeln(bank.telefone);
gotoxy(78,6);
writeln('є');
niz;
readln;
end;
until eof(f)=true;
close(f);
end;
procedure ydalenie;
begin
ypoick;
gotoxy(35,29);
readln(kod);
assign(f,'c:\t.txt');
assign(g,'c:\t1.txt');
reset(f);
rewrite(g);
i:=1;
while not(eof(f)) do
begin
read(f,bank);
if i<>kod then write(g,bank);
inc(i);
end;
erase(f);
rename(g,'c:\t.txt');
end;
procedure prosmotr;
begin
clrscr;
shapka;
i:=0;
assign(f,'c:\t.txt');
reset(f);
if IOResult=0 then
while eof(f)=false do
begin
inc(i);
gotoxy(1,5+i);
writeln('є');
read(f,bank);
gotoxy(2,5+i);
writeln(bank.kod);
gotoxy(8,5+i);
writeln('є');
gotoxy(9,5+i);
write(bank.Fi);
gotoxy(28,5+i);
writeln('є');
gotoxy(29,5+i);
writeln(bank.dolzhnost);
gotoxy(44,5+i);
writeln('є');
gotoxy(45,5+i);
writeln(bank.oklad);
gotoxy(62,5+i);
writeln('є');
gotoxy(63,5+i);
writeln(bank.telefone);
gotoxy(78,5+i);
writeln('є');
end;
niz;
readln;
close(f);
end;
procedure sotrudramka;
begin
gotoxy(23,9);
writeln('ЙННННННННННННННННННННН»');
gotoxy(23,10);
writeln('є sozdat є');
gotoxy(23,11);
writeln('є dobavit є');
gotoxy(23,12);
writeln('є poisk є');
gotoxy(23,13);
writeln('є udalenie є');
gotoxy(23,14);
writeln('є prosmotr є');
gotoxy(23,15);
writeln('є nazad є');
gotoxy(23,16);
writeln('ИНННННННННННННННННННННј');
Textbackground (black);
end;
Procedure sotrud;
begin
b:=1;
repeat
sotrudramka;
case b of
1:begin gotoxy(24,10); writeln(' sozdat ');end;
2:begin gotoxy(24,11); writeln(' dobavit ');end;
3:begin gotoxy(24,12); writeln(' poisk ');end;
4:begin gotoxy(24,13); writeln(' udalenie ');end;
5:begin gotoxy(24,14); Writeln(' prosmotr ');end;
6:begin gotoxy(24,15); Writeln(' nazad ');end;
end;
gotoxy(1,50);
textbackground(0);
key:=readkey;
if key=#80 then
if b<6 then b:=b+1
else b:=1;
if key=#72 then
if b>1 then b:=b-1
else b:=6;
if (b=1) and (key=#13) then cozdanie;
if (b=2) and (key=#13) then dobav;
if (b=3) and (key=#13) then poick;
if (b=4) and (key=#13) then ydalenie;
if (b=5) and (key=#13) then prosmotr;
if (b=6) and (key=#13) then break;
Until key=#27;
Clrscr;
sotrudramka;
Menu;
end;
{---klienti---}
procedure shapka1;
begin
TextColor (red);
Textbackground (black);
clrscr;
writeln('ЙННННННЛНННННННННННННННННННЛНННННННННННННННЛНННННННННННННННННЛННННННННННННННН»');
writeln('є є є є є є');
writeln('є kod є FIO є adres є telefon є oplata є');
writeln('є є є є є є');
writeln('МННННННОНННННННННННННННННННОНННННННННННННННОНННННННННННННННННОННННННННННННННН№');
end;
procedure niz1;
begin
writeln('ИННННННКНННННННННННННННННННКНННННННННННННННКНННННННННННННННННКНННННННННННННННј');
end;
procedure cozdanie1;
begin
clrscr;
shapka1;
assign(f1,'c:\t.txt');
rewrite(f1);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(klienti.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
readln(klienti.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
readln(klienti.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
readln(klienti.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
readln(klienti.op);
gotoxy(79,6);
writeln('є');
niz1;
write(f1,klienti);
close(f1);
readln;
end;
procedure dobav1;
begin
clrscr;
shapka1;
assign(f1,'c:\t.txt');
assign(z1,'c:\z.txt');
reset(f1);
rewrite(z1);
while not(eof(f1)) do
begin
read(f1,klienti);
write(z1,klienti);
end;
rewrite(f1);
reset(z1);
while not(eof(z1)) do
begin
read(z1,klienti);
write(f1,klienti);
end;
close(z1);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(klienti.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
readln(klienti.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
readln(klienti.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
readln(klienti.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
readln(klienti.op);
gotoxy(79,6);
writeln('є');
niz1;
write(f1,klienti);
close(f1);
readln;
end;
procedure poick1;
begin
PPOICK;
gotoxy(35,29);
readln(q11);
assign(f1,'c:\t.txt');
reset(f1);
repeat
read(f1,klienti);
if q11=klienti.kod then
begin
clrscr;
shapka;
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
writeln(klienti.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
writeln(klienti.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
writeln(klienti.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
writeln(klienti.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
writeln(klienti.op);
gotoxy(79,6);
writeln('є');
Clrscr;
niz;
readln;
end;
until eof(f1)=true;
close(f1);
end;
procedure ydalenie1;
begin
ypoick;
gotoxy(35,29);
readln(kod);
assign(f1,'c:\t.txt');
assign(g1,'c:\t1.txt');
reset(f1);
rewrite(g1);
i:=1;
while not(eof(f1)) do
begin
read(f1,klienti);
if i<>kod then write(g1,klienti);
inc(i);
end;
erase(f1);
rename(g1,'c:\t.txt');
end;
procedure prosmotr1;
begin
clrscr;
shapka;
i:=0;
assign(f1,'c:\t.txt');
reset(f1);
if IOResult=0 then
while eof(f1)=false do
begin
inc(i);
gotoxy(1,5+i);
writeln('є');
read(f1,klienti);
gotoxy(2,5+i);
writeln(klienti.kod);
gotoxy(18,5+i);
writeln('є');
gotoxy(19,5+i);
write(klienti.FIO);
gotoxy(29,5+i);
writeln('є');
gotoxy(30,5+i);
writeln(klienti.adres);
gotoxy(45,5+i);
writeln('є');
gotoxy(46,5+i);
writeln(klienti.tel);
gotoxy(63,5+i);
writeln('є');
gotoxy(64,5+i);
writeln(klienti.op);
gotoxy(79,5+i);
writeln('є');
end;
niz;
readln;
close(f1);
end;
procedure Grafikramka;
begin
gotoxy(23,9);
writeln('ЙННННННННННННННННННННН»');
gotoxy(23,10);
writeln('є sozdat є');
gotoxy(23,11);
writeln('є dobavit є');
gotoxy(23,12);
writeln('є poisk є');
gotoxy(23,13);
writeln('є udalenie є');
gotoxy(23,14);
writeln('є prosmotr є');
gotoxy(23,15);
writeln('є nazad є');
gotoxy(23,16);
writeln('ИНННННННННННННННННННННј');
Textbackground (10);
end;
Procedure Grafik;
begin
b:=1;
repeat
Grafikramka;
case b of
1:begin gotoxy(24,10); writeln(' sozdat ');end;
2:begin gotoxy(24,11); writeln(' dobavit ');end;
3:begin gotoxy(24,12); writeln(' poisk ');end;
4:begin gotoxy(24,13); writeln(' udalenie ');end;
5:begin gotoxy(24,14); Writeln(' prosmotr ');end;
6:begin gotoxy(24,15); Writeln(' nazad ');end;
end;
gotoxy(1,50);
textbackground(black);
key:=readkey;
if key=#80 then
if b<6 then b:=b+1
else b:=1;
if key=#72 then
if b>1 then b:=b-1
else b:=6;
if (b=1) and (key=#13) then cozdanie;
if (b=2) and (key=#13) then dobav;
if (b=3) and (key=#13) then poick;
if (b=4) and (key=#13) then ydalenie;
if (b=5) and (key=#13) then prosmotr;
if (b=6) and (key=#13) then break;
Until key=#27;
Clrscr;
grafikramka;
Menu;
end;
{---vkladchiki---}
procedure cozdanie2;
begin
clrscr;
shapka;
assign(f2,'c:\t.txt');
rewrite(f2);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(vklad.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
readln(vklad.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
readln(vklad.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
readln(vklad.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
readln(vklad.sum);
gotoxy(79,6);
writeln('є');
gotoxy(80,6);
readln(vklad.proc);
gotoxy(84,6);
writeln('є');
niz;
write(f2,vklad);
close(f2);
readln;
end;
procedure dobav2;
begin
clrscr;
shapka;
assign(f2,'c:\t.txt');
assign(z2,'c:\z.txt');
reset(f2);
rewrite(z2);
while not(eof(f2)) do
begin
read(f2,vklad);
write(z2,vklad);
end;
rewrite(f2);
reset(z2);
while not(eof(z2)) do
begin
read(z2,vklad);
write(f2,vklad);
end;
close(z2);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(vklad.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
readln(vklad.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
readln(vklad.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
readln(vklad.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
readln(vklad.sum);
gotoxy(79,6);
writeln('є');
gotoxy(80,6);
readln(vklad.proc);
gotoxy(84,6);
writeln('є');
niz;
write(f2,vklad);
close(f2);
readln;
end;
procedure poick2;
begin
PPOICK;
gotoxy(35,29);
readln(q22);
assign(f2,'c:\t.txt');
reset(f2);
repeat
read(f2,vklad);
if q22=vklad.kod then
begin
clrscr;
shapka;
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
writeln(vklad.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
writeln(vklad.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
writeln(vklad.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
writeln(vklad.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
writeln(vklad.sum);
gotoxy(79,6);
writeln('є');
gotoxy(80,6);
readln(vklad.proc);
gotoxy(84,6);
writeln('є');
Clrscr;
niz;
readln;
end;
until eof(f2)=true;
close(f2);
end;
procedure ydalenie2;
begin
ypoick;
gotoxy(35,29);
readln(kod);
assign(f2,'c:\t.txt');
assign(g2,'c:\t1.txt');
reset(f2);
rewrite(g2);
i:=1;
while not(eof(f2)) do
begin
read(f2,vklad);
if i<>kod then write(g2,vklad);
inc(i);
end;
erase(f2);
rename(g2,'c:\t.txt');
end;
procedure prosmotr2;
begin
clrscr;
shapka;
i:=0;
assign(f2,'c:\t.txt');
reset(f2);
if IOResult=0 then
while eof(f2)=false do
begin
inc(i);
gotoxy(1,5+i);
writeln('є');
read(f2,vklad);
gotoxy(2,5+i);
writeln(vklad.kod);
gotoxy(18,5+i);
writeln('є');
gotoxy(19,5+i);
write(vklad.FIO);
gotoxy(29,5+i);
writeln('є');
gotoxy(30,5+i);
writeln(vklad.adres);
gotoxy(45,5+i);
writeln('є');
gotoxy(46,5+i);
writeln(vklad.tel);
gotoxy(63,5+i);
writeln('є');
gotoxy(64,5+i);
writeln(vklad.sum);
gotoxy(79,5+i);
writeln('є');
gotoxy(80,6+i);
readln(vklad.proc);
gotoxy(84,6+i);
writeln('є');
end;
niz;
readln;
close(f2);
end;
procedure Uslugiramka;
begin
gotoxy(23,9);
writeln('ЙННННННННННННННННННННН»');
gotoxy(23,10);
writeln('є sozdat є');
gotoxy(23,11);
writeln('є dobavit є');
gotoxy(23,12);
writeln('є poisk є');
gotoxy(23,13);
writeln('є udalenie є');
gotoxy(23,14);
writeln('є prosmotr є');
gotoxy(23,15);
writeln('є nazad є');
gotoxy(23,16);
writeln('ИНННННННННННННННННННННј');
Textbackground (black);
end;
Procedure Uslug;
begin
b:=1;
repeat
Uslugiramka;
case b of
1:begin gotoxy(24,10); writeln(' sozdat ');end;
2:begin gotoxy(24,11); writeln(' dobavit ');end;
3:begin gotoxy(24,12); writeln(' poisk ');end;
4:begin gotoxy(24,13); writeln(' udalenie ');end;
5:begin gotoxy(24,14); Writeln(' prosmotr ');end;
6:begin gotoxy(24,15); Writeln(' nazad ');end;
end;
gotoxy(1,50);
textbackground(0);
key:=readkey;
if key=#80 then
if b<6 then b:=b+1
else b:=1;
if key=#72 then
if b>1 then b:=b-1
else b:=6;
if (b=1) and (key=#13) then cozdanie;
if (b=2) and (key=#13) then dobav;
if (b=3) and (key=#13) then poick;
if (b=4) and (key=#13) then ydalenie;
if (b=5) and (key=#13) then prosmotr;
if (b=6) and (key=#13) then break;
Until key=#27;
Clrscr;
Uslugiramka;
Menu;
end;
{---kreditori---}
procedure cozdanie3;
begin
clrscr;
{shapkaz; }
assign(f3,'c:\t.txt');
rewrite(f3);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(kredit.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
readln(kredit.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
readln(kredit.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
readln(kredit.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
readln(kredit.sum);
gotoxy(79,6);
writeln('є');
gotoxy(80,6);
readln(kredit.proc);
gotoxy(84,6);
writeln('є');
niz;
write(f3,kredit);
close(f3);
readln;
end;
procedure dobav3;
begin
clrscr;
shapka;
assign(f3,'c:\t.txt');
assign(z3,'c:\z.txt');
reset(f3);
rewrite(z3);
while not(eof(f3)) do
begin
read(f3,kredit);
write(z3,kredit);
end;
rewrite(f3);
reset(z3);
while not(eof(z3)) do
begin
read(z3,kredit);
write(f3,kredit);
end;
close(z3);
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
readln(kredit.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
readln(kredit.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
readln(kredit.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
readln(kredit.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
readln(kredit.sum);
gotoxy(79,6);
writeln('є');
gotoxy(80,6);
readln(kredit.proc);
gotoxy(84,6);
writeln('є');
niz;
write(f3,kredit);
close(f3);
readln;
end;
procedure poick3;
begin
PPOICK;
gotoxy(35,29);
readln(q33);
assign(f3,'c:\t.txt');
reset(f3);
repeat
read(f3,kredit);
if q33=vklad.kod then
begin
clrscr;
shapka;
gotoxy(1,6);
writeln('є');
gotoxy(2,6);
writeln(kredit.kod);
gotoxy(18,6);
writeln('є');
gotoxy(19,6);
writeln(kredit.FIO);
gotoxy(29,6);
writeln('є');
gotoxy(30,6);
writeln(kredit.adres);
gotoxy(45,6);
writeln('є');
gotoxy(46,6);
writeln(kredit.tel);
gotoxy(63,6);
writeln('є');
gotoxy(64,6);
writeln(kredit.sum);
gotoxy(79,6);
writeln('є');
gotoxy(80,6);
readln(kredit.proc);
gotoxy(84,6);
writeln('є');
Clrscr;
niz;
readln;
end;
until eof(f3)=true;
close(f3);
end;
procedure ydalenie3;
begin
ypoick;
gotoxy(35,29);
readln(kod);
assign(f3,'c:\t.txt');
assign(g3,'c:\t1.txt');
reset(f3);
rewrite(g3);
i:=1;
while not(eof(f3)) do
begin
read(f3,kredit);
if i<>kod then write(g3,kredit);
inc(i);
end;
erase(f3);
rename(g3,'c:\t.txt');
end;
procedure prosmotr3;
begin
clrscr;
shapka;
i:=0;
assign(f3,'c:\t.txt');
reset(f3);
if IOResult=0 then
while eof(f3)=false do
begin
inc(i);
gotoxy(1,5+i);
writeln('є');
read(f3,kredit);
gotoxy(2,5+i);
writeln(kredit.kod);
gotoxy(18,5+i);
writeln('є');
gotoxy(19,5+i);
write(kredit.FIO);
gotoxy(29,5+i);
writeln('є');
gotoxy(30,5+i);
writeln(kredit.adres);
gotoxy(45,5+i);
writeln('є');
gotoxy(46,5+i);
writeln(kredit.tel);
gotoxy(63,5+i);
writeln('є');
gotoxy(64,5+i);
writeln(kredit.sum);
gotoxy(79,5+i);
writeln('є');
gotoxy(80,5+i);
readln(kredit.proc);
gotoxy(84,5+i);
writeln('є');
end;
niz;
readln;
close(f3);
end;
procedure Zakaziramka;
begin
gotoxy(23,9);
writeln('ЙННННННННННННННННННННН»');
gotoxy(23,10);
writeln('є sozdat є');
gotoxy(23,11);
writeln('є dobavit є');
gotoxy(23,12);
writeln('є poisk є');
gotoxy(23,13);
writeln('є udalenie є');
gotoxy(23,14);
writeln('є prosmotr є');
gotoxy(23,15);
writeln('є nazad є');
gotoxy(23,16);
writeln('ИНННННННННННННННННННННј');
Textbackground (10);
end;
Procedure Zakaz;
begin
b:=1;
repeat
Zakaziramka;
case b of
1:begin gotoxy(24,10); writeln(' sozdat ');end;
2:begin gotoxy(24,11); writeln(' dobavit ');end;
3:begin gotoxy(24,12); writeln(' poisk ');end;
4:begin gotoxy(24,13); writeln(' udalenie ');end;
5:begin gotoxy(24,14); Writeln(' prosmotr ');end;
6:begin gotoxy(24,15); Writeln(' nazad ');end;
end;
gotoxy(1,50);
textbackground(black);
key:=readkey;
if key=#80 then
if b<6 then b:=b+1
else b:=1;
if key=#72 then
if b>1 then b:=b-1
else b:=6;
if (b=1) and (key=#13) then cozdanie;
if (b=2) and (key=#13) then dobav;
if (b=3) and (key=#13) then poick;
if (b=4) and (key=#13) then ydalenie;
if (b=5) and (key=#13) then prosmotr;
if (b=6) and (key=#13) then break;
Until key=#27;
Clrscr;
Zakaziramka;
Menu;
end;
{*******************************************************************}
{*******************************************************************}
{*******************************************************************}
{*******************************************************************}
{*******************************************************************}
procedure vodpar;
begin
textbackground(black);
clrscr;
textcolor(red);
gotoxy(24,24);
writeln('EXIT "ESC"');
gotoxy(17,5);
writeln('vvedite parol dlya vhoda');
gotoxy(31,12);
writeln('vvedite parol:') ;
gotoxy(25,13);
writeln('ЙНННННННННННННННННННННННННН»');gotoxy(25,14);
writeln('є є');gotoxy(25,15);
writeln('ИННННННННННННННННННННННННННј');
end;
{---------------------‚ў®¤ Ї*а®«п----------------------------}
procedure password;
var
s:string; temp_key:char; x,i,q,piz:integer;
begin
q:=0;
repeat
reset(pass_file);
read(pass_file,a1);
vodpar;
s:='';
x:=0;
q:=q+1;
gotoxy(27,14);
repeat
temp_key:=readkey;
if x<24 then
if (temp_key<>#13)and(temp_key<>#27)and(temp_key<>#8) then
begin
s:=s+temp_key;
write('*');
x:=x+1;
end;
if (temp_key=#8)and(x>0) then
begin
x:=x-1;
vodpar;
gotoxy(27,14);
delete(s,length(s),1);
for i:=1 to x do
begin
gotoxy(26+i,14);
write('*');
end;
end;
until (temp_key=#13) or(temp_key=#27);
if temp_key<>#27 then
if s=a1.ap then begin q:=3;
textbackground(6);
clrscr;
textcolor(yellow);
gotoxy(15,9);
writeln('ЙНННННННННННННННННННННННННННННННННННННННН»');
gotoxy(15,10);
writeln('є dobro pojalovat v BD ! є');
gotoxy(15,11);
writeln('ИННННННННННННННННННННННННННННННННННННННННј');
readkey;
end
else
begin
textcolor(red);
clrscr;
gotoxy(8,2);
writeln('dlya vhoda pod administratorom vvedete parol');
gotoxy(16,4);
writeln('dlya vhoda pod polzovatelem najmite "ENTER"');
gotoxy(25,13);
writeln('ЙННННННННННННННННННН»');gotoxy(25,14);
writeln('є ERROR є');gotoxy(25,15);
writeln('ИНННННННННННННННННННј');gotoxy(30,16);
writeln('otalos ',3-q,' popitki');
gotoxy(20,24);
writeln('dlya prodoljeniya najmite "ENTER"'); readkey;
end;
until(q=3 )or(temp_key<>#13);
end;
{------------------Ї®«м§®ў*⥫м------------------}
procedure gost;
begin
textbackground(black);
clrscr;
textcolor(red);
gotoxy(15,9);
writeln('ЙННННННННННННННННННННННННННННННННННННННННННН»');
gotoxy(15,10);
writeln('є Dobro pojalovat v BD !!! є');
gotoxy(15,11);
writeln('є vashi deystviya ogranicheni є');
gotoxy(15,12);
writeln('ИНННННННННННННННННННННННННННННННННННННННННННј');
readkey;
end ;
{#}
procedure nepn;
begin
clrscr;
gotoxy(25,13);
writeln('ЙНННННННННННННННННННННННННН»');
gotoxy(25,14);
writeln('є takova net v BD є');
gotoxy(25,15);
writeln('ИННННННННННННННННННННННННННј');
gotoxy(30,16);
writeln('dlya prodoljenyya najmite "ENTER"');
readkey;
vibor;
end;
{---vibor---}
procedure vibor;
var s:string; temp_key:char; x1,p1,x,i:integer;
begin
textbackground(black);clrscr;textcolor(red);
s:='';
x:=0;
gotoxy(14,6);Writeln('ЙНННННННННННННННННННННННННННННННННННННННННННННН»');
gotoxy(14,7);Writeln('є vvedite parol dlya vhoda pod administratorom є ');
gotoxy(14,8);Writeln('ИННННННННННННННННННННННННННННННННННННННННННННННј');
gotoxy(25,12);Writeln('ЙНННННННННННННННННННННН»');
gotoxy(25,13);Writeln('є1: administrator є');
gotoxy(25,14);Writeln('МНННННННННННННННННННННН№');
gotoxy(25,15);Writeln('є2: polzovatel є');
gotoxy(25,16);Writeln('ИННННННННННННННННННННННј');
gotoxy(37,17);Writeln('ЙНННННН»');
gotoxy(37,18);Writeln('є є');
gotoxy(37,19);Writeln('ИННННННј');
gotoxy(25,18);Writeln(' ->');
gotoxy(38,18);
repeat
temp_key:=readkey;
if x<1 then
if (temp_key<>#13)and(temp_key<>#27)and(temp_key<>#8) then
begin
s:=s+temp_key;
write(s);
x:=x+1;
end;
if (temp_key=#8)and(x>0) then
begin
x:=x-1;
gotoxy(51,13);
delete(s,length(s),1);
end;
val(s,x1,p1);
until (temp_key=#13)or(temp_key=#27);
if temp_key<>#27 then
if p1=0 then
if x1=1 then password else
if x1=2 then gost else nepn;
end;
{***************************************************}
procedure menu;
begin
textbackground(black);
Textcolor(red);
clrscr;
writeln('ЙНННННННННННННЛНННННННННННННННННННННЛНННННННННННННЛНННННННННЛННННННННН»');
writeln('є baza dannih є poisk є nastroyki є spravka є exit є');
writeln('ИНННННННННННННКНННННННННННННННННННННКНННННННННННННКНННННННННКНННННННННј');
gotoxy (2,22);
writeln('ЪДДДДДДДДДДДДДДДДДДДДДї');
gotoxy (2,23);
Writeln('і <- vlevo, vpravo -> і');
gotoxy (2,24);
writeln('АДДДДДДДДДДДДДДДДДДДДДЩ');
{*}
gotoxy (25,22);
writeln('ЪДДДДДДДДДДДДДДДДДДДДДї');
gotoxy (25,23);
Writeln('і vverh, vniz і');
gotoxy (25,24);
writeln('АДДДДДДДДДДДДДДДДДДДДДЩ');
{*}
gotoxy (48,22);
writeln('ЪДДДДДДДДДДДДДДДДДДДДДї');
gotoxy (48,23);
Writeln('і <ENTER> dlya voda і');
gotoxy (48,24);
writeln('АДДДДДДДДДДДДДДДДДДДДДЩ');
end;
{**********************************MENUBLACK*******************************}
Procedure ramkabaz;
begin
gotoxy (1,6);Writeln('ЙНННННННННННННННННННН»');
gotoxy (1,7);Writeln('є sotrudniki є');
gotoxy (1,8);Writeln('МНННННННННННННННННННН№');
gotoxy (1,9);Writeln('є klienti є');
gotoxy (1,10);Writeln('МНННННННННННННННННННН№');
gotoxy (1,11);Writeln('є vkladchiki є');
gotoxy (1,12);Writeln('МНННННННННННННННННННН№');
gotoxy (1,13);Writeln('є kreditori є');
gotoxy (1,14);Writeln('МНННННННННННННННННННН№');
gotoxy (1,15);Writeln('є nazad є');
gotoxy (1,16);Writeln('ИННННННННННННННННННННј');
end;
Procedure bazadan;
Begin
repeat
ramkabaz;
TextBackground (green);
Case a of
1:begin gotoxy (2,7);Writeln (' sotrudniki ');end;
2:begin gotoxy (2,9);Writeln (' klienti ');end;
3:begin gotoxy (2,11);Writeln (' vkladchiki ');end;
4:begin gotoxy (2,13);Writeln (' kreditori ');end;
5:begin gotoxy (2,15);Writeln (' nazad ');end;
end;
gotoxy (1,25);
TextBackground (0);
key:=readkey;
if key=#80 then
if a<5 then a:=a+1
else a:=1;
if key=#72 then
if a>1 then a:=a-1
else a:=5;
if (a=1) and (key=#13) then sotrud;
if (a=2) and (key=#13) then Grafik;
if (a=3) and (key=#13) then Uslug;
if (a=4) and (key=#13) then Zakaz;
if (a=5) and (key=#13) then break;
Until key=#27;
end;
Procedure ramkanastr;
Begin
gotoxy (37,6);Writeln ('ЙННННННННННННННННННННН»');
gotoxy (37,7);Writeln ('є izmenit fon є');
gotoxy (37,8);Writeln ('МННННННННННННННННННННН№');
gotoxy (37,9);Writeln ('є izmenit parol є');
gotoxy (37,10);Writeln('МННННННННННННННННННННН№');
gotoxy (37,11);Writeln('є nazad є');
gotoxy (37,12);Writeln('ИНННННННННННННННННННННј');
end;
Procedure nastr;
Begin
repeat
ramkanastr;
TextBackground (green);
Case a of
1:begin gotoxy (38,7);Writeln (' izmenit fon ');end;
2:begin gotoxy (38,9);Writeln (' izmenit parol ');end;
3:begin gotoxy (38,11);Writeln (' nazad ');end;
end;
gotoxy (1,25);
TextBackground (0);
key:=readkey;
if key=#80 then
if a<3 then a:=a+1
else a:=1;
if key=#72 then
if a>1 then a:=a-1
else a:=3;
if (a=1) and (key=#13) then ;
if (a=2) and (key=#13) then ;
if (a=3) and (key=#13) then break;
Until key=#27;
end;
Procedure ramkaspravka;
begin
gotoxy (51,6);Writeln ('ЙНННННННННННННННННННННННН»');
gotoxy (51,7);Writeln ('є o programme є');
gotoxy (51,8);Writeln ('МНННННННННННННННННННННННН№');
gotoxy (51,9);Writeln ('є sozdatel є');
gotoxy (51,10);Writeln('МНННННННННННННННННННННННН№');
gotoxy (51,11);Writeln('є nazad є');
gotoxy (51,12);Writeln('ИННННННННННННННННННННННННј');
end;
Procedure info1;
Begin
TextColor (red);
Textbackground (black);
gotoxy (1,6);
Writeln('ЙНННННННННННННННННННННННННННННННННННННННННННННННННЛ');
Writeln('є BD bila sozdana dlya HALYK BANKOV є');
Writeln('є ona slujit dlya sozdaniya, readktirovaniya, є');
Writeln('є udaleniya informacii є');
Writeln('є i takje vsyakie primochki!!! є');
Writeln('ИНННННННННННННННННННННННННННННННННННННННННННННННННј');
readln;
Clrscr;
menu;
end;
Procedure info2;
Begin
TextColor (red);
Textbackground (black);
gotoxy (1,6);
Writeln('ЙННННННННННННННННННННННННННННННННННННННННННННННННН»');
Writeln('є programma sozdana na TURBO PASCALE є');
Writeln('є razrabochik: є');
Writeln('є Melnikov I.M. є');
Writeln('є gruppa-P3G є');
Writeln('є programma bila sozdana v 2009g є');
Writeln('ИНННННННННННННННННННННННННННННННННННННННННННННННННј');
readln;
Clrscr;
menu;
end;
Procedure sparvka;
Begin
repeat
ramkaspravka;
TextBackground (green);
Case a of
1:begin gotoxy (52,7);Writeln (' o programme ');end;
2:begin gotoxy (52,9);Writeln (' sozdatel ');end;
3:begin gotoxy (52,11);Writeln (' nazad ');end;
end;
gotoxy (1,25);
TextBackground (0);
key:=readkey;
if key=#80 then
if a<3 then a:=a+1
else a:=1;
if key=#72 then
if a>1 then a:=a-1
else a:=3;
if (a=1) and (key=#13) then info1;
if (a=2) and (key=#13) then info2;
if (a=3) and (key=#13) then break;
Until key=#27;
end;
procedure exi;
begin
gotoxy (45,6);
writeln('ЪДДДДДДДДДДДДДДДДДДДДДї');
gotoxy (45,7);
writeln('Г VI HOTITE VIYTE? ґ');
gotoxy (45,9);
writeln('АДДДДДДДДДДДДДДДДДДДДДЩ');
gotoxy (45,10);
TextBackground (0);
writeln('ЪДДДДДї');
gotoxy (45,11);
Writeln('і yes і');
gotoxy (45,12);
writeln('АДДДДДЩ');
gotoxy (51,10);
writeln('ЪДДДДї');
gotoxy (51,11);
Writeln('і no і');
gotoxy (51,12);
writeln('АДДДДЩ');
end;
Procedure ex;
begin
repeat
exi;
TextBackground (green);
Case a of
1:begin gotoxy (46,11);Writeln (' yes ');end;
2:begin gotoxy (52,11);Writeln (' no ');end;
end;
gotoxy (1,25);
TextBackground (0);
key:=readkey;
if key=#77 then
if a<2 then a:=a+1
else a:=1;
if key=#75 then
if a>1 then a:=a-1
else a:=2;
if (a=1) and (key=#13) then key:=#27;
if (a=2) and (key=#13) then break;
Until key=#27;
end;
{**************************************************************************}
begin
a:=1;
b:=1;
c:=1;
bu:=false;
bu1:=false;
kol:=0;
{zastavka;}
assign(pass_file,'pass.txt');
Clrscr;
vibor;
repeat
textcolor(red);
menu;
textbackground(green);
case c of
1:begin gotoxy(2,2); writeln(' baza dannih ');
{gotoxy(2,3); writeln(' baza dannih ');}end;
2:begin gotoxy(16,2); writeln(' poisk ');
{ gotoxy(16,3); writeln(' poisk ');}end;
3:begin gotoxy(38,2); writeln(' nastroyki ');
{ gotoxy(38,3); writeln(' nastroyki ');}end;
4:begin gotoxy(52,2); writeln(' spravka ');
{ gotoxy(52,3); writeln(' spravka ');}end;
5:begin gotoxy(62,2); writeln(' exit ');
{ gotoxy(62,3); writeln(' exit ');}end;
end;
gotoxy(1,50);
textbackground(0);
key:=readkey;
if key=#77 then
if c<5 then c:=c+1
else c:=1;
if key=#75 then
if c>1 then c:=c-1
else c:=5;
if (c=1) and (key=#13) then bazadan;
if (c=2) and (key=#13) then ;
if (c=3) and (key=#13) then nastr;
if (c=4) and (key=#13) then sparvka;
if (c=5) and (key=#13) then ex;
Until key=#27;
end.