ALpMontana
КЯaL´da TaNıMaM КuяaL´da
Pascalda Stok Takip;
ses crt;
const
menu : Array[1..29] of string[50]=(' ',
' ',
'AAAAAA N N AAAAAA M M EEEEE N N § §',
'A A N N N A A MMMMMMM E N N N š š',
'AAAAAA N N N AAAAAA M M M Eßß N N N š š',
'A A N NN A A M M EEEEE N NN šššššš',
' ',
'------------------------------------------------',
' ',
' --------------------------- ',
' | ANA MENš | ',
' --------------------------- ',
' | 1.STOK GIRISI | ',
' | | ',
' | 2.STOK LISTELEME | ',
' | | ',
' | 3.STOK ARAMA | ',
' | | ',
' | 4.STOK SILME | ',
' | | ',
' | 5.STOK SATIS | ',
' | | ',
' | 6.MUSTERI LISTESI | ',
' | | ',
' | 7.CIKIS | ',
' | | ',
' --------------------------- ',
' | SECIMINIZ...: | ',
' --------------------------- ');
TYPE
musteri=record
fadi,fadresi,ftel:string;
usno:string;
kno:integer;
miktar:integer;
tfiyat:integer;
l:char;
end;
type
kayit=record
stadi:string;
stmiktari:integer;
alfiyati:longint;
sno:string;
satfiyati:integer;
f:char;
end;
var
kay:kayit;
dosya:file of kayit;
dd:file of musteri;
stok:musteri;
dev:char;
tus,sec:char;
a,i,s,kod:integer;
k,j:integer;
procedure StokGiris;
begin
assign(dosya,'stok.dat');
reset(dosya);
kod:=Ioresult;
if kod<>0 then rewrite(dosya);
clrscr;
gotoxy(5,5);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,6);write('³ ³');
gotoxy(5,7);write('³ SERI NUMARASI....: ³');
gotoxy(5,8);write('³ ³');
gotoxy(5,9);write('³ STOK ADI.........: ³');
gotoxy(5,10);write('³ ³');
gotoxy(5,11);write('³ STOK MIKTARI.....: ³');
gotoxy(5,12);write('³ ³');
gotoxy(5,13);write('³ ALIS FIYATI......: YTL ³');
gotoxy(5,14);write('³ ³');
gotoxy(5,15);write('³ SATIS FIYATI.....: YTL ³');
gotoxy(5,16);write('³ ³');
gotoxy(5,17);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(5,19);write('-------------------------------------------');
gotoxy(5,20);write('| DEVAM ETMEK ISTIYORMUSUNUZ[E/H]..: |');
gotoxy(5,21);write('-------------------------------------------');
repeat
gotoxy(27,7);write(' ');
gotoxy(27,9);write(' ');
gotoxy(27,11);write(' ');
gotoxy(27,13);write(' ');
gotoxy(27,15);write(' ');
gotoxy(41,20);write(' ');
gotoxy(27,7);readln(kay.sno);
gotoxy(27,9);readln(kay.stadi);
gotoxy(27,11);readln(kay.stmiktari);
gotoxy(27,13);readln(kay.alfiyati);
gotoxy(27,15);readln(kay.satfiyati);
gotoxy(41,20);readln(dev);
kay.f:='*';
seek(dosya,filesize(dosya));
write(dosya,kay);
close(dosya);
until dev in ['H','h'];
end;
procedure listele;
var
r:word;
begin
clrscr;
assign(dosya,'stok.dat');
reset(dosya);
kod:=ioresult;
if kod<>0 then rewrite(dosya);
gotoxy(3,2);write('-----------------------------------------------------------------------------');
gotoxy(3,3);write('³S.NO³ SERI NO ³ STOK ADI ³ STOK MIKTARI ³ ALIS FIYATI ³ SATIS FIYATI ³');
gotoxy(3,4);write('³----³------------³-------------³--------------³-------------³--------------³');
gotoxy(3,5);write('³-01-³ ³ ³ ³ ³ ³');
gotoxy(3,6);write('³-02-³ ³ ³ ³ ³ ³');
gotoxy(3,7);write('³-03-³ ³ ³ ³ ³ ³');
gotoxy(3,8);write('³-04-³ ³ ³ ³ ³ ³');
gotoxy(3,9);write('³-05-³ ³ ³ ³ ³ ³');
gotoxy(3,10);write('³-06-³ ³ ³ ³ ³ ³');
gotoxy(3,11);write('³-07-³ ³ ³ ³ ³ ³');
gotoxy(3,12);write('³-08-³ ³ ³ ³ ³ ³');
gotoxy(3,13);write('³-09-³ ³ ³ ³ ³ ³');
gotoxy(3,14);write('³-10-³ ³ ³ ³ ³ ³');
gotoxy(3,15);write('³-11-³ ³ ³ ³ ³ ³');
gotoxy(3,16);write('³-12-³ ³ ³ ³ ³ ³');
gotoxy(3,17);write('³-13-³ ³ ³ ³ ³ ³');
gotoxy(3,18);write('³-14-³ ³ ³ ³ ³ ³');
gotoxy(3,19);write('³-15-³ ³ ³ ³ ³ ³');
gotoxy(3,20);write('³-16-³ ³ ³ ³ ³ ³');
gotoxy(3,21);write('³-17-³ ³ ³ ³ ³ ³');
gotoxy(3,22);write('³-18-³ ³ ³ ³ ³ ³');
gotoxy(3,23);write('³-19-³ ³ ³ ³ ³ ³');
gotoxy(3,24);write('³-20-³ ³ ³ ³ ³ ³');
gotoxy(3,25);write('³-21-³ ³ ³ ³ ³ ³');
gotoxy(3,26);write('³-22-³ ³ ³ ³ ³ ³');
gotoxy(3,27);write('³-23-³ ³ ³ ³ ³ ³');
gotoxy(3,28);write('³-24-³ ³ ³ ³ ³ ³');
gotoxy(3,29);write('³-25-³ ³ ³ ³ ³ ³');
gotoxy(3,30);write('³-26-³ ³ ³ ³ ³ ³');
gotoxy(3,31);write('³-27-³ ³ ³ ³ ³ ³');
gotoxy(3,32);write('³-28-³ ³ ³ ³ ³ ³');
gotoxy(3,33);write('³-29-³ ³ ³ ³ ³ ³');
gotoxy(3,34);write('³-30-³ ³ ³ ³ ³ ³');
gotoxy(3,35);write('³-31-³ ³ ³ ³ ³ ³');
gotoxy(3,36);write('³-32-³ ³ ³ ³ ³ ³');
gotoxy(3,37);write('³-33-³ ³ ³ ³ ³ ³');
gotoxy(3,38);write('³-34-³ ³ ³ ³ ³ ³');
gotoxy(3,39);write('³-35-³ ³ ³ ³ ³ ³');
gotoxy(3,40);write('³-36-³ ³ ³ ³ ³ ³');
gotoxy(3,41);write('³-37-³ ³ ³ ³ ³ ³');
gotoxy(3,42);write('³-39-³ ³ ³ ³ ³ ³');
gotoxy(3,43);write('³-40-³ ³ ³ ³ ³ ³');
gotoxy(3,44);write('³-41-³ ³ ³ ³ ³ ³');
gotoxy(3,45);write('³-42-³ ³ ³ ³ ³ ³');
gotoxy(3,46);write('³-43-³ ³ ³ ³ ³ ³');
gotoxy(3,47);write('ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
r:=0;
s:=4;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f='*' then
begin
r:=r+1;
s:=s+1;
gotoxy(9,s);write(kay.sno);
gotoxy(22,s);writeln(kay.stadi);
gotoxy(51,s);writeln(kay.alfiyati);
gotoxy(65,s);writeln(kay.satfiyati);
kay.stmiktari:=kay.stmiktari-stok.miktar;
gotoxy(36,s);writeln(kay.stmiktari);
end;
end;
repeat
gotoxy(22,48);write('KAYITLARIN LISTELENMESI TAMAMLANDI!!!');
gotoxy(20,50);write('Ana Menuye Gitmek Icin "Enter"e Basin...');dev:=readkey;
until dev=#13;
close(dosya);
end;
procedure arama;
var
ara:string;
begin
assign(dosya,'stok.dat');
reset(dosya);
kod:=Ioresult;
if kod<>0 then
begin
gotoxy(10,15);write('Kayitlarda Dosya Yok!!!');
tus:=readkey;
exit;
end;
clrscr;
gotoxy(5,3);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,4);write('³ ARANACAK STOGUN SERI NUMARASI...: ³');
gotoxy(5,5);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(40,4);readln(ara);
if ara=" then exit;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (kay.f='*') and (kay.sno=ara) then
begin
gotoxy(7,10);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(7,11);write('³ SERI NUMARASI......: ³');
gotoxy(7,12);write('³ ³');
gotoxy(7,13);write('³ STOK ADI...........: ³');
gotoxy(7,14);write('³ ³');
gotoxy(7,15);write('³ STOK MIKTARI.......: ³');
gotoxy(7,16);write('³ ³');
gotoxy(7,17);write('³ ALIS FIYATI........: YTL ³');
gotoxy(7,18);write('³ ³');
gotoxy(7,19);write('³ SATIS FIYATI.......: YTL ³');
gotoxy(7,20);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(30,11);write(kay.sno);
gotoxy(30,13);write(kay.stadi);
gotoxy(30,15);write(kay.stmiktari);
gotoxy(30,17);write(kay.alfiyati);
gotoxy(30,19);write(kay.satfiyati);
gotoxy(7,23);write('Aranan Kayit Bu Mu[E/H]...:');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E' then exit;
end;
end;
clrscr;
gotoxy(22,14);write('Aran�lan Nitelikte Kayit Yok!!!');
tus:=readkey;
end;
procedure silme;
var
ara:string;
begin
assign(dosya,'stok.dat');
reset(dosya);
clrscr;
gotoxy(5,3);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,4);write('³ SILINECEK KAYDIN SERI NUMARASINI GIRINIZ...: ³');
gotoxy(5,5);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(51,4);readln(ara);
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (ara=kay.sno) or (kay.f='*') then
begin
clrscr;
gotoxy(7,10);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(7,11);write('³ SERI NUMARASI......: ³');
gotoxy(7,12);write('³ ³');
gotoxy(7,13);write('³ STOK ADI...........: ³');
gotoxy(7,14);write('³ ³');
gotoxy(7,15);write('³ STOK MIKTARI.......: ³');
gotoxy(7,16);write('³ ³');
gotoxy(7,17);write('³ ALIS FIYATI........: YTL ³');
gotoxy(7,18);write('³ ³');
gotoxy(7,19);write('³ SATIS FIYATI.......: YTL ³');
gotoxy(7,20);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(30,11);write(kay.sno);
gotoxy(30,13);write(kay.stadi);
gotoxy(30,15);write(kay.stmiktari);
gotoxy(30,17);write(kay.alfiyati);
gotoxy(30,19);write(kay.satfiyati);
gotoxy(7,23);write('Silinecek Kayit Bu Mu[E/H]..:');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E' then
begin
kay.f:='s';
seek(dosya,i);
write(dosya,kay);
clrscr;
gotoxy(7,23);write('Kayit Silindi!!!');
close(dosya);
tus:=readkey;
exit;
end;
end;
end;
gotoxy(7,23);write('Aranilan Nitelikte Kayit Yok!!!');
close(dosya);
tus:=readkey;
end;
procedure satis;
begin
assign(dd,'musteri.dat');
reset(dd);
kod:=Ioresult;
if kod<>0 then rewrite(dd);
clrscr;
gotoxy(5,7);write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,8);write('³ FIRMA ADI............: ³');
gotoxy(5,9);write('³ ³');
gotoxy(5,10);write('³ FIRMA ADRESI.........: ³');
gotoxy(5,11);write('³ ³');
gotoxy(5,12);write('³ FIRMA TELEFONU.......: ³');
gotoxy(5,13);write('³ ³');
gotoxy(5,14);write('³ URUN SERI NUMARASI...: ³');
gotoxy(5,15);write('³ ³');
gotoxy(5,16);write('³ URUN ADI.............: ³');
gotoxy(5,17);write('³ ³');
gotoxy(5,18);write('³ KALAN URUN MIKTARI...: ³');
gotoxy(5,19);write('³ ³');
gotoxy(5,20);write('³ URUN FIYATI..........: YTL ³');
gotoxy(5,21);write('³ ³');
gotoxy(5,22);write('³ SATILAN MIKTAR.......: ³');
gotoxy(5,23);write('³ ³');
gotoxy(5,24);write('³ TOPLAM FIYATI........: YTL ³');
gotoxy(5,25);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(29,8);readln(stok.fadi);
gotoxy(29,10);readln(stok.fadresi);
gotoxy(29,12);readln(stok.ftel);
gotoxy(29,14);readln(stok.usno);
if stok.usno=kay.sno then
begin
repeat
gotoxy(29,16);write(kay.stadi);
gotoxy(29,18);write(kay.stmiktari);
gotoxy(29,20);write(kay.satfiyati);
gotoxy(29,22);readln(stok.miktar);
stok.tfiyat:=stok.miktar*kay.satfiyati;
gotoxy(29,24);write(stok.tfiyat);
kay.stmiktari:=kay.stmiktari-stok.miktar;
stok.l:='*';
seek(dd,filesize(dd));
write(dd,stok);
gotoxy(15,28);write('SATIS KAYDEDILDI!!!');
gotoxy(10,29);write('Ana Men�ye D”nmek I‡in "Enter"e Basin...');
dev:=readkey;
gotoxy(15,28);write('SATIS KAYDEDILDI!!!');
gotoxy(10,29);write('Ana Men�ye D”nmek I‡in "Enter"e Basin...');
dev:=readkey;
until dev=#13;
end
else
repeat
clrscr;
gotoxy(10,10);write('Satmak Istediginiz Seri No ya Ait Kayit Bulunamad�');
gotoxy(12,13);write('™nce Stok Kaydi Yapip Sonra Satis Yapiniz...');
gotoxy(25,16);write('TESEKKURLER');
gotoxy(13,23);write('Ana Men�ye D”nmek I‡in "Enter"e Basin...');
dev:=readkey;
until dev=#13;
close(dd);
end;
procedure mliste;
var
r:word;
begin
assign(dd,'musteri.dat');
reset(dd);
kod:=Ioresult;
if kod<>0 then rewrite(dd);
clrscr;
gotoxy(1,2);write('---------------------------------------------------------------------------');
gotoxy(1,3);write('³FIRMA ADI ³ FIRMA ADRESI ³FIRMA TEL³ SERi NO ³MIKT.³OD.PARA³');
gotoxy(1,4);write('³----------------³---------------------³---------³----------³-----³-------³');
gotoxy(1,5);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,6);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,7);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,8);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,9);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,10);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,11);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,12);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,13);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,14);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,15);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,16);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,17);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,18);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,19);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,20);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,21);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,22);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,23);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,24);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,25);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,26);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,27);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,28);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,29);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,30);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,31);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,32);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,33);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,34);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,35);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,36);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,37);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,38);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,39);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,40);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,41);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,42);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,43);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,44);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,45);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,46);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,47);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÙ');
r:=1;
s:=4;
for i:=0 to filesize(dd)-1 do
begin
seek(dd,i);
read(dd,stok);
if stok.l='*' then;
begin
s:=s+1;
r:=r+1;
gotoxy(2,s);write(stok.fadi);
gotoxy(19,s);writeln(stok.fadresi);
gotoxy(41,s);writeln(stok.ftel);
gotoxy(51,s);writeln(stok.usno);
gotoxy(62,s);writeln(stok.miktar);
gotoxy(68,s);writeln(stok.tfiyat);
end;
end;
repeat
gotoxy(22,48);write('KAYITLARIN LISTELENMESI TAMAMLANDI!!!');
gotoxy(20,50);write('Ana Menuye Gitmek Icin "Enter"e Basin...');tus:=readkey;
until tus=#13;
close(dd);
end;
begin
textbackground(green);
textcolor(blue);
clrscr;
gotoxy(1,1);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(1,2);write('³Şßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßݳ');
gotoxy(1,3);write('³Ş ݳ');
gotoxy(1,4);write('³Ş ßßßß²ßßßß İ³');
gotoxy(1,5);write('³Ş ² ² ² ²ßßßß² ²ßßßßß ßßßßßß² ² ² ݳ');
gotoxy(1,6);write('³Ş ² ² ² ² ² ² ²ßßßßß² ² ² ݳ');
gotoxy(1,7);write('³Ş ß ßßßßßßß ß ß ßßßßßß ßßßßßßß ßßßßßß² ݳ');
gotoxy(1,8);write('³Ş ² ݳ');
gotoxy(1,9);write('³Ş ² ݳ');
gotoxy(1,10);write('³Ş ßßßßßßß İ³');
gotoxy(1,11);write('³Ş ݳ');
gotoxy(1,12);write('³Ş ݳ');
gotoxy(1,13);write('³Ş ²ßßßßßßß İ³');
gotoxy(1,14);write('³Ş ² ݳ');
gotoxy(1,15);write('³Ş ²ßßßß ²ßßßßßÜ ²ßßßßßß ²ßßßßß² ² ² ݳ');
gotoxy(1,16);write('³Ş ² ² ßßßßßß² ² ² ² ² ݳ');
gotoxy(1,17);write('³Ş ßßßßßßßß ß ßßßßßßß ßßßßßßß ßßßßßß² ݳ');
gotoxy(1,18);write('³Ş ² ݳ');
gotoxy(1,19);write('³Ş ² ݳ');
gotoxy(1,20);write('³Ş ßßßßßßß İ³');
gotoxy(1,21);write('³Şßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßݳ');
gotoxy(1,22);write('³Ş ݳ');
gotoxy(1,23);write('³Ş ²ßßßßßßßß ² ² ݳ');
gotoxy(1,24);write('³Ş ² ² ² Üß İ³');
gotoxy(1,25);write('³Ş ßßßßßßßß² ßßßß²ßßßß ²ßßßßßß² ²Üß İ³');
gotoxy(1,26);write('³Ş ² ² ² ² ² ßÜ İ³');
gotoxy(1,27);write('³Ş ßßßßßßßßß ß ßßßßßßßß ß ßß İ³');
gotoxy(1,28);write('³Ş ݳ');
gotoxy(1,29);write('³Ş ݳ');
gotoxy(1,30);write('³Ş ݳ');
gotoxy(1,31);write('³Ş ݳ');
gotoxy(1,32);write('³Ş ݳ');
gotoxy(1,33);write('³Ş ݳ');
gotoxy(1,34);write('³Ş ßßßß²ßßßß ² ß İ³');
gotoxy(1,35);write('³Ş ² ßßßßß² ² Üß ² ²ßßßßß² ݳ');
gotoxy(1,36);write('³Ş ² ²ßßßß² ²ßÜ ² ²ÜÜÜÜܲ ݳ');
gotoxy(1,37);write('³Ş ß ßßßßßß ß ßß ß ² ݳ');
gotoxy(1,38);write('³Ş ² ݳ');
gotoxy(1,39);write('³Ş ß İ³');
gotoxy(1,40);write('³Ş ݳ');
gotoxy(1,41);write('³Ş ݳ');
gotoxy(1,42);write('³Ş ݳ');
gotoxy(1,43);write('³Ş ݳ');
gotoxy(1,44);write('³Ş ݳ');
gotoxy(1,45);write('³Ş ݳ');
gotoxy(1,46);write('³Ş ݳ');
gotoxy(1,47);write('³Ş ݳ');
gotoxy(1,48);write('³ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß³');
gotoxy(1,49);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
tus:=readkey;
textcolor(yellow);
textbackground(blue);
repeat
clrscr;
for i:=1 to 29 do
begin
textcolor(yellow);
textbackground(blue);
gotoxy(15,i);
writeln(menu);
end;
repeat
gotoxy(42,28);sec:=readkey;
until sec in['1','2','3','4','5','6','7'];
case sec of
'1':StokGiris;
'2':listele;
'3':arama;
'4':silme;
'5':satis;
'6':mliste;
'7':begin
clrscr;
gotoxy(12,18);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(12,19);write('³ ³');
gotoxy(12,20);write('³ ³');
gotoxy(12,21);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(25,25);write('Ayarlariniz Kaydediliyor...');
gotoxy(25,27);write('L�tfen Bekleyiniz...');
i:=12;
for j:=1 to 50 do
begin
i:=i+1;
delay(50);
gotoxy(i,19);write('Û');
gotoxy(i,20);write('Û');
end;
gotoxy(25,30);write('Kaydetme Islemi Tamamlandi!!!!');
gotoxy(25,32);write('Cikmak Icin Herhangi Bir Tusa Basiniz...');
readkey;
exit;
end;
end;
until 1=2;
end.
ses crt;
const
menu : Array[1..29] of string[50]=(' ',
' ',
'AAAAAA N N AAAAAA M M EEEEE N N § §',
'A A N N N A A MMMMMMM E N N N š š',
'AAAAAA N N N AAAAAA M M M Eßß N N N š š',
'A A N NN A A M M EEEEE N NN šššššš',
' ',
'------------------------------------------------',
' ',
' --------------------------- ',
' | ANA MENš | ',
' --------------------------- ',
' | 1.STOK GIRISI | ',
' | | ',
' | 2.STOK LISTELEME | ',
' | | ',
' | 3.STOK ARAMA | ',
' | | ',
' | 4.STOK SILME | ',
' | | ',
' | 5.STOK SATIS | ',
' | | ',
' | 6.MUSTERI LISTESI | ',
' | | ',
' | 7.CIKIS | ',
' | | ',
' --------------------------- ',
' | SECIMINIZ...: | ',
' --------------------------- ');
TYPE
musteri=record
fadi,fadresi,ftel:string;
usno:string;
kno:integer;
miktar:integer;
tfiyat:integer;
l:char;
end;
type
kayit=record
stadi:string;
stmiktari:integer;
alfiyati:longint;
sno:string;
satfiyati:integer;
f:char;
end;
var
kay:kayit;
dosya:file of kayit;
dd:file of musteri;
stok:musteri;
dev:char;
tus,sec:char;
a,i,s,kod:integer;
k,j:integer;
procedure StokGiris;
begin
assign(dosya,'stok.dat');
reset(dosya);
kod:=Ioresult;
if kod<>0 then rewrite(dosya);
clrscr;
gotoxy(5,5);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,6);write('³ ³');
gotoxy(5,7);write('³ SERI NUMARASI....: ³');
gotoxy(5,8);write('³ ³');
gotoxy(5,9);write('³ STOK ADI.........: ³');
gotoxy(5,10);write('³ ³');
gotoxy(5,11);write('³ STOK MIKTARI.....: ³');
gotoxy(5,12);write('³ ³');
gotoxy(5,13);write('³ ALIS FIYATI......: YTL ³');
gotoxy(5,14);write('³ ³');
gotoxy(5,15);write('³ SATIS FIYATI.....: YTL ³');
gotoxy(5,16);write('³ ³');
gotoxy(5,17);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(5,19);write('-------------------------------------------');
gotoxy(5,20);write('| DEVAM ETMEK ISTIYORMUSUNUZ[E/H]..: |');
gotoxy(5,21);write('-------------------------------------------');
repeat
gotoxy(27,7);write(' ');
gotoxy(27,9);write(' ');
gotoxy(27,11);write(' ');
gotoxy(27,13);write(' ');
gotoxy(27,15);write(' ');
gotoxy(41,20);write(' ');
gotoxy(27,7);readln(kay.sno);
gotoxy(27,9);readln(kay.stadi);
gotoxy(27,11);readln(kay.stmiktari);
gotoxy(27,13);readln(kay.alfiyati);
gotoxy(27,15);readln(kay.satfiyati);
gotoxy(41,20);readln(dev);
kay.f:='*';
seek(dosya,filesize(dosya));
write(dosya,kay);
close(dosya);
until dev in ['H','h'];
end;
procedure listele;
var
r:word;
begin
clrscr;
assign(dosya,'stok.dat');
reset(dosya);
kod:=ioresult;
if kod<>0 then rewrite(dosya);
gotoxy(3,2);write('-----------------------------------------------------------------------------');
gotoxy(3,3);write('³S.NO³ SERI NO ³ STOK ADI ³ STOK MIKTARI ³ ALIS FIYATI ³ SATIS FIYATI ³');
gotoxy(3,4);write('³----³------------³-------------³--------------³-------------³--------------³');
gotoxy(3,5);write('³-01-³ ³ ³ ³ ³ ³');
gotoxy(3,6);write('³-02-³ ³ ³ ³ ³ ³');
gotoxy(3,7);write('³-03-³ ³ ³ ³ ³ ³');
gotoxy(3,8);write('³-04-³ ³ ³ ³ ³ ³');
gotoxy(3,9);write('³-05-³ ³ ³ ³ ³ ³');
gotoxy(3,10);write('³-06-³ ³ ³ ³ ³ ³');
gotoxy(3,11);write('³-07-³ ³ ³ ³ ³ ³');
gotoxy(3,12);write('³-08-³ ³ ³ ³ ³ ³');
gotoxy(3,13);write('³-09-³ ³ ³ ³ ³ ³');
gotoxy(3,14);write('³-10-³ ³ ³ ³ ³ ³');
gotoxy(3,15);write('³-11-³ ³ ³ ³ ³ ³');
gotoxy(3,16);write('³-12-³ ³ ³ ³ ³ ³');
gotoxy(3,17);write('³-13-³ ³ ³ ³ ³ ³');
gotoxy(3,18);write('³-14-³ ³ ³ ³ ³ ³');
gotoxy(3,19);write('³-15-³ ³ ³ ³ ³ ³');
gotoxy(3,20);write('³-16-³ ³ ³ ³ ³ ³');
gotoxy(3,21);write('³-17-³ ³ ³ ³ ³ ³');
gotoxy(3,22);write('³-18-³ ³ ³ ³ ³ ³');
gotoxy(3,23);write('³-19-³ ³ ³ ³ ³ ³');
gotoxy(3,24);write('³-20-³ ³ ³ ³ ³ ³');
gotoxy(3,25);write('³-21-³ ³ ³ ³ ³ ³');
gotoxy(3,26);write('³-22-³ ³ ³ ³ ³ ³');
gotoxy(3,27);write('³-23-³ ³ ³ ³ ³ ³');
gotoxy(3,28);write('³-24-³ ³ ³ ³ ³ ³');
gotoxy(3,29);write('³-25-³ ³ ³ ³ ³ ³');
gotoxy(3,30);write('³-26-³ ³ ³ ³ ³ ³');
gotoxy(3,31);write('³-27-³ ³ ³ ³ ³ ³');
gotoxy(3,32);write('³-28-³ ³ ³ ³ ³ ³');
gotoxy(3,33);write('³-29-³ ³ ³ ³ ³ ³');
gotoxy(3,34);write('³-30-³ ³ ³ ³ ³ ³');
gotoxy(3,35);write('³-31-³ ³ ³ ³ ³ ³');
gotoxy(3,36);write('³-32-³ ³ ³ ³ ³ ³');
gotoxy(3,37);write('³-33-³ ³ ³ ³ ³ ³');
gotoxy(3,38);write('³-34-³ ³ ³ ³ ³ ³');
gotoxy(3,39);write('³-35-³ ³ ³ ³ ³ ³');
gotoxy(3,40);write('³-36-³ ³ ³ ³ ³ ³');
gotoxy(3,41);write('³-37-³ ³ ³ ³ ³ ³');
gotoxy(3,42);write('³-39-³ ³ ³ ³ ³ ³');
gotoxy(3,43);write('³-40-³ ³ ³ ³ ³ ³');
gotoxy(3,44);write('³-41-³ ³ ³ ³ ³ ³');
gotoxy(3,45);write('³-42-³ ³ ³ ³ ³ ³');
gotoxy(3,46);write('³-43-³ ³ ³ ³ ³ ³');
gotoxy(3,47);write('ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
r:=0;
s:=4;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f='*' then
begin
r:=r+1;
s:=s+1;
gotoxy(9,s);write(kay.sno);
gotoxy(22,s);writeln(kay.stadi);
gotoxy(51,s);writeln(kay.alfiyati);
gotoxy(65,s);writeln(kay.satfiyati);
kay.stmiktari:=kay.stmiktari-stok.miktar;
gotoxy(36,s);writeln(kay.stmiktari);
end;
end;
repeat
gotoxy(22,48);write('KAYITLARIN LISTELENMESI TAMAMLANDI!!!');
gotoxy(20,50);write('Ana Menuye Gitmek Icin "Enter"e Basin...');dev:=readkey;
until dev=#13;
close(dosya);
end;
procedure arama;
var
ara:string;
begin
assign(dosya,'stok.dat');
reset(dosya);
kod:=Ioresult;
if kod<>0 then
begin
gotoxy(10,15);write('Kayitlarda Dosya Yok!!!');
tus:=readkey;
exit;
end;
clrscr;
gotoxy(5,3);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,4);write('³ ARANACAK STOGUN SERI NUMARASI...: ³');
gotoxy(5,5);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(40,4);readln(ara);
if ara=" then exit;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (kay.f='*') and (kay.sno=ara) then
begin
gotoxy(7,10);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(7,11);write('³ SERI NUMARASI......: ³');
gotoxy(7,12);write('³ ³');
gotoxy(7,13);write('³ STOK ADI...........: ³');
gotoxy(7,14);write('³ ³');
gotoxy(7,15);write('³ STOK MIKTARI.......: ³');
gotoxy(7,16);write('³ ³');
gotoxy(7,17);write('³ ALIS FIYATI........: YTL ³');
gotoxy(7,18);write('³ ³');
gotoxy(7,19);write('³ SATIS FIYATI.......: YTL ³');
gotoxy(7,20);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(30,11);write(kay.sno);
gotoxy(30,13);write(kay.stadi);
gotoxy(30,15);write(kay.stmiktari);
gotoxy(30,17);write(kay.alfiyati);
gotoxy(30,19);write(kay.satfiyati);
gotoxy(7,23);write('Aranan Kayit Bu Mu[E/H]...:');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E' then exit;
end;
end;
clrscr;
gotoxy(22,14);write('Aran�lan Nitelikte Kayit Yok!!!');
tus:=readkey;
end;
procedure silme;
var
ara:string;
begin
assign(dosya,'stok.dat');
reset(dosya);
clrscr;
gotoxy(5,3);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,4);write('³ SILINECEK KAYDIN SERI NUMARASINI GIRINIZ...: ³');
gotoxy(5,5);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(51,4);readln(ara);
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (ara=kay.sno) or (kay.f='*') then
begin
clrscr;
gotoxy(7,10);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(7,11);write('³ SERI NUMARASI......: ³');
gotoxy(7,12);write('³ ³');
gotoxy(7,13);write('³ STOK ADI...........: ³');
gotoxy(7,14);write('³ ³');
gotoxy(7,15);write('³ STOK MIKTARI.......: ³');
gotoxy(7,16);write('³ ³');
gotoxy(7,17);write('³ ALIS FIYATI........: YTL ³');
gotoxy(7,18);write('³ ³');
gotoxy(7,19);write('³ SATIS FIYATI.......: YTL ³');
gotoxy(7,20);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(30,11);write(kay.sno);
gotoxy(30,13);write(kay.stadi);
gotoxy(30,15);write(kay.stmiktari);
gotoxy(30,17);write(kay.alfiyati);
gotoxy(30,19);write(kay.satfiyati);
gotoxy(7,23);write('Silinecek Kayit Bu Mu[E/H]..:');
repeat
tus:=upcase(readkey);
until tus in['E','H'];
if tus='E' then
begin
kay.f:='s';
seek(dosya,i);
write(dosya,kay);
clrscr;
gotoxy(7,23);write('Kayit Silindi!!!');
close(dosya);
tus:=readkey;
exit;
end;
end;
end;
gotoxy(7,23);write('Aranilan Nitelikte Kayit Yok!!!');
close(dosya);
tus:=readkey;
end;
procedure satis;
begin
assign(dd,'musteri.dat');
reset(dd);
kod:=Ioresult;
if kod<>0 then rewrite(dd);
clrscr;
gotoxy(5,7);write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(5,8);write('³ FIRMA ADI............: ³');
gotoxy(5,9);write('³ ³');
gotoxy(5,10);write('³ FIRMA ADRESI.........: ³');
gotoxy(5,11);write('³ ³');
gotoxy(5,12);write('³ FIRMA TELEFONU.......: ³');
gotoxy(5,13);write('³ ³');
gotoxy(5,14);write('³ URUN SERI NUMARASI...: ³');
gotoxy(5,15);write('³ ³');
gotoxy(5,16);write('³ URUN ADI.............: ³');
gotoxy(5,17);write('³ ³');
gotoxy(5,18);write('³ KALAN URUN MIKTARI...: ³');
gotoxy(5,19);write('³ ³');
gotoxy(5,20);write('³ URUN FIYATI..........: YTL ³');
gotoxy(5,21);write('³ ³');
gotoxy(5,22);write('³ SATILAN MIKTAR.......: ³');
gotoxy(5,23);write('³ ³');
gotoxy(5,24);write('³ TOPLAM FIYATI........: YTL ³');
gotoxy(5,25);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(29,8);readln(stok.fadi);
gotoxy(29,10);readln(stok.fadresi);
gotoxy(29,12);readln(stok.ftel);
gotoxy(29,14);readln(stok.usno);
if stok.usno=kay.sno then
begin
repeat
gotoxy(29,16);write(kay.stadi);
gotoxy(29,18);write(kay.stmiktari);
gotoxy(29,20);write(kay.satfiyati);
gotoxy(29,22);readln(stok.miktar);
stok.tfiyat:=stok.miktar*kay.satfiyati;
gotoxy(29,24);write(stok.tfiyat);
kay.stmiktari:=kay.stmiktari-stok.miktar;
stok.l:='*';
seek(dd,filesize(dd));
write(dd,stok);
gotoxy(15,28);write('SATIS KAYDEDILDI!!!');
gotoxy(10,29);write('Ana Men�ye D”nmek I‡in "Enter"e Basin...');
dev:=readkey;
gotoxy(15,28);write('SATIS KAYDEDILDI!!!');
gotoxy(10,29);write('Ana Men�ye D”nmek I‡in "Enter"e Basin...');
dev:=readkey;
until dev=#13;
end
else
repeat
clrscr;
gotoxy(10,10);write('Satmak Istediginiz Seri No ya Ait Kayit Bulunamad�');
gotoxy(12,13);write('™nce Stok Kaydi Yapip Sonra Satis Yapiniz...');
gotoxy(25,16);write('TESEKKURLER');
gotoxy(13,23);write('Ana Men�ye D”nmek I‡in "Enter"e Basin...');
dev:=readkey;
until dev=#13;
close(dd);
end;
procedure mliste;
var
r:word;
begin
assign(dd,'musteri.dat');
reset(dd);
kod:=Ioresult;
if kod<>0 then rewrite(dd);
clrscr;
gotoxy(1,2);write('---------------------------------------------------------------------------');
gotoxy(1,3);write('³FIRMA ADI ³ FIRMA ADRESI ³FIRMA TEL³ SERi NO ³MIKT.³OD.PARA³');
gotoxy(1,4);write('³----------------³---------------------³---------³----------³-----³-------³');
gotoxy(1,5);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,6);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,7);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,8);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,9);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,10);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,11);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,12);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,13);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,14);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,15);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,16);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,17);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,18);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,19);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,20);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,21);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,22);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,23);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,24);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,25);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,26);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,27);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,28);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,29);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,30);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,31);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,32);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,33);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,34);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,35);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,36);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,37);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,38);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,39);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,40);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,41);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,42);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,43);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,44);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,45);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,46);write('³ ³ ³ ³ ³ ³ ³');
gotoxy(1,47);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÙ');
r:=1;
s:=4;
for i:=0 to filesize(dd)-1 do
begin
seek(dd,i);
read(dd,stok);
if stok.l='*' then;
begin
s:=s+1;
r:=r+1;
gotoxy(2,s);write(stok.fadi);
gotoxy(19,s);writeln(stok.fadresi);
gotoxy(41,s);writeln(stok.ftel);
gotoxy(51,s);writeln(stok.usno);
gotoxy(62,s);writeln(stok.miktar);
gotoxy(68,s);writeln(stok.tfiyat);
end;
end;
repeat
gotoxy(22,48);write('KAYITLARIN LISTELENMESI TAMAMLANDI!!!');
gotoxy(20,50);write('Ana Menuye Gitmek Icin "Enter"e Basin...');tus:=readkey;
until tus=#13;
close(dd);
end;
begin
textbackground(green);
textcolor(blue);
clrscr;
gotoxy(1,1);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(1,2);write('³Şßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßݳ');
gotoxy(1,3);write('³Ş ݳ');
gotoxy(1,4);write('³Ş ßßßß²ßßßß İ³');
gotoxy(1,5);write('³Ş ² ² ² ²ßßßß² ²ßßßßß ßßßßßß² ² ² ݳ');
gotoxy(1,6);write('³Ş ² ² ² ² ² ² ²ßßßßß² ² ² ݳ');
gotoxy(1,7);write('³Ş ß ßßßßßßß ß ß ßßßßßß ßßßßßßß ßßßßßß² ݳ');
gotoxy(1,8);write('³Ş ² ݳ');
gotoxy(1,9);write('³Ş ² ݳ');
gotoxy(1,10);write('³Ş ßßßßßßß İ³');
gotoxy(1,11);write('³Ş ݳ');
gotoxy(1,12);write('³Ş ݳ');
gotoxy(1,13);write('³Ş ²ßßßßßßß İ³');
gotoxy(1,14);write('³Ş ² ݳ');
gotoxy(1,15);write('³Ş ²ßßßß ²ßßßßßÜ ²ßßßßßß ²ßßßßß² ² ² ݳ');
gotoxy(1,16);write('³Ş ² ² ßßßßßß² ² ² ² ² ݳ');
gotoxy(1,17);write('³Ş ßßßßßßßß ß ßßßßßßß ßßßßßßß ßßßßßß² ݳ');
gotoxy(1,18);write('³Ş ² ݳ');
gotoxy(1,19);write('³Ş ² ݳ');
gotoxy(1,20);write('³Ş ßßßßßßß İ³');
gotoxy(1,21);write('³Şßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßݳ');
gotoxy(1,22);write('³Ş ݳ');
gotoxy(1,23);write('³Ş ²ßßßßßßßß ² ² ݳ');
gotoxy(1,24);write('³Ş ² ² ² Üß İ³');
gotoxy(1,25);write('³Ş ßßßßßßßß² ßßßß²ßßßß ²ßßßßßß² ²Üß İ³');
gotoxy(1,26);write('³Ş ² ² ² ² ² ßÜ İ³');
gotoxy(1,27);write('³Ş ßßßßßßßßß ß ßßßßßßßß ß ßß İ³');
gotoxy(1,28);write('³Ş ݳ');
gotoxy(1,29);write('³Ş ݳ');
gotoxy(1,30);write('³Ş ݳ');
gotoxy(1,31);write('³Ş ݳ');
gotoxy(1,32);write('³Ş ݳ');
gotoxy(1,33);write('³Ş ݳ');
gotoxy(1,34);write('³Ş ßßßß²ßßßß ² ß İ³');
gotoxy(1,35);write('³Ş ² ßßßßß² ² Üß ² ²ßßßßß² ݳ');
gotoxy(1,36);write('³Ş ² ²ßßßß² ²ßÜ ² ²ÜÜÜÜܲ ݳ');
gotoxy(1,37);write('³Ş ß ßßßßßß ß ßß ß ² ݳ');
gotoxy(1,38);write('³Ş ² ݳ');
gotoxy(1,39);write('³Ş ß İ³');
gotoxy(1,40);write('³Ş ݳ');
gotoxy(1,41);write('³Ş ݳ');
gotoxy(1,42);write('³Ş ݳ');
gotoxy(1,43);write('³Ş ݳ');
gotoxy(1,44);write('³Ş ݳ');
gotoxy(1,45);write('³Ş ݳ');
gotoxy(1,46);write('³Ş ݳ');
gotoxy(1,47);write('³Ş ݳ');
gotoxy(1,48);write('³ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß³');
gotoxy(1,49);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
tus:=readkey;
textcolor(yellow);
textbackground(blue);
repeat
clrscr;
for i:=1 to 29 do
begin
textcolor(yellow);
textbackground(blue);
gotoxy(15,i);
writeln(menu);
end;
repeat
gotoxy(42,28);sec:=readkey;
until sec in['1','2','3','4','5','6','7'];
case sec of
'1':StokGiris;
'2':listele;
'3':arama;
'4':silme;
'5':satis;
'6':mliste;
'7':begin
clrscr;
gotoxy(12,18);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(12,19);write('³ ³');
gotoxy(12,20);write('³ ³');
gotoxy(12,21);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
gotoxy(25,25);write('Ayarlariniz Kaydediliyor...');
gotoxy(25,27);write('L�tfen Bekleyiniz...');
i:=12;
for j:=1 to 50 do
begin
i:=i+1;
delay(50);
gotoxy(i,19);write('Û');
gotoxy(i,20);write('Û');
end;
gotoxy(25,30);write('Kaydetme Islemi Tamamlandi!!!!');
gotoxy(25,32);write('Cikmak Icin Herhangi Bir Tusa Basiniz...');
readkey;
exit;
end;
end;
until 1=2;
end.
