murat335
New member
- Katılım
- 10 Eyl 2005
- Mesajlar
- 874
- Reaction score
- 0
- Puanları
- 0
- Yaş
- 43
memoli50 arkadaşım senin için tabi istiyenlerinde hizmetinde ........
market programı
exesiyle birlikte
link:http://rapidshare.de/files/27965341/247_SanalMarket__murat335__.rar.html
kodları incelemek istiyenler
market programı
exesiyle birlikte
link:http://rapidshare.de/files/27965341/247_SanalMarket__murat335__.rar.html
kodları incelemek istiyenler
PHP:
program Market_Proje;
uses printer,dos,crt;
type
kayit=Record
stok_turu : string[10] ;
stok_kodu : string[06] ;
stok_adi : string[15] ;
stok_birim : string[10] ;
stok_atar : string[10] ;
adet,afiat,sfiat,kar : longint ;
f : char ;
end;
var
dosya : File of kayit ;
kay : kayit ;
i,kod : integer ;
tus : char ;
k,r,h,t,l : byte ;
y,m,d,dow : word ;
adet,top : longint ;
x,u,s,hund: word ;
function LeadingZero(w : Word) : String;
var
s : String;
begin
str(w:0,s);
if length(s)=1 then
s:='0'+s;
leadingzero:=s;
end;
const
days : array [0..6] of String[9] =
('Pazar','Pazartesi','Sal','€arŸamba','PerŸembe','Cuma','Cumartesi');
procedure cerceve(x1,y1,x2,y2:byte);
var
i : integer ;
cizgi : string[80] ;
begin
fillchar(cizgi,x2-x1,#196);
cizgi[0]:=chr(x2-x1-1);
gotoxy(x1,y1);write(chr(218),cizgi,chr(191));
for i:=y1+1 to y2-1 do
begin
gotoxy(x1,i);write(chr(179));
gotoxy(x2,i);write(chr(179));
end;
gotoxy(x1,y2);write(chr(192),cizgi,chr(217));
end;
procedure Stok_Fatura;
begin
clrscr;
textcolor(11);
gotoxy(12,03);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(12,04);write('³ ˜SO PAZARLAMA A. ³ TAR˜H: ³');
gotoxy(12,05);write('³ ˜SMA˜L DEM˜RBA ³ GšN : ³');
gotoxy(12,06);write('³ TEL:0(354)2121003 ³ SAAT : ³');
gotoxy(12,07);write('ÃÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(12,08);write('³ ADET ³ STOK C˜NS˜ ³ B˜R˜M F˜ATI ³ TOPLAM šCRET ³');
gotoxy(12,09);write('ÃÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(12,10);write('³ ³ ³ ³ ³');
gotoxy(12,11);write('³ ³ ³ ³ ³');
gotoxy(12,12);write('³ ³ ³ ³ ³');
gotoxy(12,13);write('³ ³ ³ ³ ³');
gotoxy(12,14);write('³ ³ ³ ³ ³');
gotoxy(12,15);write('³ ³ ³ ³ ³');
gotoxy(12,16);write('³ ³ ³ ³ ³');
gotoxy(12,17);write('³ ³ ³ ³ ³');
gotoxy(12,18);write('³ ³ ³ ³ ³');
gotoxy(12,19);write('ÃÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(12,20);write('³ TOPLAM BOR€ ³ ³');
gotoxy(12,21);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
cerceve(12,22,67,24);
GetTime(x,u,s,hund);
gotoxy(56,6);writeln(",LeadingZero(x),':',
LeadingZero(u),':',LeadingZero(s),'.',LeadingZero(hund));
GetDate(y,m,d,dow);
gotoxy(56,4);writeln(",",d:0,'/',m:0,'/',y:0);
gotoxy(56,5);write(days[dow]);
gotoxy(15,10);write(adet);
gotoxy(22,10);write(kay.stok_adi);
gotoxy(36,10);write(kay.sfiat);
top:=adet*kay.sfiat;
gotoxy(52,20);write(top);
gotoxy(52,10);write(top);
gotoxy(16,23);write('Menye d”nmek i‡in bir tuŸa basnz...');
tus:=readkey;exit;
end;
procedure Stok_Kayit;
begin
textcolor(11);
Assign(dosya,'MARKET.DAT');
{$i-}Reset(dosya);kod:=IOResult;{$i+}
if kod <>0 then
Rewrite(dosya);
begin
clrscr;
cerceve(1,1,80,24);
cerceve(5,3,75,5);
cerceve(5,6,75,19);
cerceve(5,20,75,22);
gotoxy(08,04);write('STOK G˜R˜˜');
GetDate(y,m,d,dow);
gotoxy(53,04);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
textcolor(7);
gotoxy(22,08);write('Stok Tr.............:');
gotoxy(22,09);write('Stok Kodu.............:');
gotoxy(22,10);write('Stok Ad..............:');
gotoxy(22,11);write('Stok Alm Tarihi......:');
gotoxy(22,12);write('Stok Birimi...........:');
gotoxy(22,13);write('Stok Miktar..........:');
gotoxy(22,14);write('Stok AlŸ Fiat.......:');
gotoxy(22,15);write('Stok SatŸ Fiat......:');
gotoxy(22,16);write('Stok Kƒri.............:');
gotoxy(22,21);write('Stok Dosyaya Yazlsn m? [E/H]');
textcolor(14);
gotoxy(22,08);write('Stok Tr.............:');
textcolor(11);
gotoxy(46,08);readln(kay.stok_turu);
if kay.stok_turu=" then exit;
textcolor(14);
gotoxy(22,09);write('Stok Kodu.............:');
textcolor(11);
gotoxy(46,09);readln(kay.stok_kodu);
textcolor(14);
gotoxy(22,10);write('Stok Ad..............:');
textcolor(11);
gotoxy(46,10);readln(kay.stok_adi);
textcolor(14);
gotoxy(22,11);write('Stok Alm Tarihi......:');
textcolor(11);
gotoxy(46,11);readln(kay.stok_atar);
textcolor(14);
gotoxy(22,12);write('Stok Birimi...........:');
textcolor(11);
gotoxy(46,12);readln(kay.stok_birim);
textcolor(14);
gotoxy(22,13);write('Stok Miktar..........:');
textcolor(11);
gotoxy(46,13);readln(kay.adet);
textcolor(14);
gotoxy(22,14);write('Stok AlŸ Fiat.......:');
textcolor(11);
gotoxy(46,14);readln(kay.afiat);
textcolor(14);
gotoxy(22,15);write('Stok SatŸ Fiat......:');
textcolor(11);
gotoxy(46,15);readln(kay.sfiat);
textcolor(14);
gotoxy(22,16);write('Stok Kƒri.............:');
textcolor(11);
kay.kar:=(kay.sfiat-kay.afiat);
gotoxy(46,16);write(kay.kar);
textcolor(14);
gotoxy(22,21);write('Stok Dosyaya Yazlsn m? [E/H]');
repeat
gotoxy(54,21);tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
begin
kay.f:='*';
seek(dosya,filesize(dosya));
write(dosya,kay);
end;
close(dosya);
end;
end;
procedure Stok_Liste;
var
ara : string ;
s : integer ;
sec : char ;
begin
clrscr;
textcolor(11);
cerceve(21,4,59,20);
cerceve(25,05,55,07);
cerceve(25,08,55,16);
cerceve(25,17,55,19);
gotoxy(32,06);write('L˜STELEME B™LšMš');
gotoxy(28,09);write('[1]-TšM L˜STE [ EKRAN ]');
gotoxy(28,11);write('[2]-TšM L˜STE [ YAZICI ]');
gotoxy(28,13);write('[3]-GRUPLARA G™RE L˜STE');
gotoxy(28,15);write('[4]-PROGRAM SONU');
gotoxy(28,18);write('Se‡iminiz [1..4] :');
gotoxy(47,18);readln(sec);
case sec of
'1':begin
textcolor(11);
Assign(dosya,'MARKET.DAT');
{$i-}Reset(dosya);i:=IOResult;{$i+}
if i<>0 then
begin
clrscr;
gotoxy(30,10);write('DOSYA YOK...');
tus:=readkey;exit;
end;
clrscr;
cerceve(1,1,80,24);
gotoxy(1,3);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
textbackground(5);
textcolor(0);
gotoxy(2,4);write('KOD STOK ADI STOK TšRš '+
'M˜KTARI A-F˜ATI S-F˜ATI STOK KAR˜');
textbackground(0);
textcolor(11);
gotoxy(2,5);write('------------------------------'+
'------------------------------------------------');
gotoxy(1,22);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(4,2);write('STOK L˜STELEME');
GetDate(y,m,d,dow);
gotoxy(59,02);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
s:=5;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f='*' then
begin
s:=s+1;
gotoxy(2,s);write(kay.stok_kodu);
gotoxy(09,s);write(kay.stok_adi);
gotoxy(25,s);write(kay.stok_turu);
gotoxy(38,s);write(kay.adet);
gotoxy(48,s);write(kay.afiat);
gotoxy(60,s);write(kay.sfiat);
gotoxy(71,s);write(kay.kar);
end;
if s>=21 then
begin
gotoxy(21,23);write('Di§er Sayfa ˜‡in Bir TuŸa Basnz...');
tus:=readkey;
clrscr;
cerceve(1,1,80,24);
gotoxy(1,3);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
textbackground(5);
textcolor(0);
gotoxy(2,4);write('KOD STOK ADI STOK TšRš '+
'M˜KTARI A-F˜ATI S-F˜ATI STOK KAR˜');
textbackground(0);
textcolor(11);
gotoxy(2,5);write('------------------------------'+
'------------------------------------------------');
gotoxy(1,22);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(4,2);write('STOK L˜STELEME');
GetDate(y,m,d,dow);
gotoxy(59,02);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
s:=5;
end;
end;
gotoxy(7,23);write('Listelenecek kaytlar bitti. Devam etmek i‡in bir ®TUA¯ basnz...');
tus:=readkey;exit;
close(dosya);
end;
'2':begin
textcolor(11);
Assign(dosya,'MARKET.DAT');
{$i-}Reset(dosya);i:=IOResult;{$i+}
if i<>0 then
begin
clrscr;
gotoxy(30,10);write('DOSYA YOK...');
tus:=readkey;exit;
end;
clrscr;
cerceve(6,1,73,24);
gotoxy(7,2);write(lst,'KOD STOK ADI M˜KTARI A-F˜ATI '+
' S-F˜ATI STOK KAR˜');
gotoxy(7,3);write(lst,'----------------------------------'+
'--------------------------------');
s:=3;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f='*' then
begin
s:=s+1;
gotoxy(07,s);write(lst,kay.stok_kodu);
gotoxy(14,s);write(lst,kay.stok_adi);
gotoxy(26,s);write(lst,kay.adet);
gotoxy(38,s);write(lst,kay.afiat);
gotoxy(51,s);write(lst,kay.sfiat);
gotoxy(63,s);write(lst,kay.kar);
end;
if s>=21 then
begin
gotoxy(21,23);write('Yeni Sayfay Ayarlayp, Bir TuŸa basnz..');
tus:=readkey;
clrscr;
cerceve(6,1,73,24);
gotoxy(7,2);write(lst,'KOD STOK ADI M˜KTARI A-F˜ATI '+
' S-F˜ATI STOK KAR˜');
gotoxy(7,3);write(lst,'----------------------------------'+
'--------------------------------');
s:=3;
end;
end;
gotoxy(24,23);write('Listelenecek kaytlar bitti...');
tus:=readkey;exit;
close(dosya);
end;
'3':begin
textcolor(11);
Assign(dosya,'MARKET.DAT');
{$i-}Reset(dosya);i:=IOResult;{$i+}
clrscr;
cerceve(10,12,70,14);
gotoxy(12,13);write('Listelenecek Stok Cinsi : ');readln(ara);
if ara=" then
begin
close(dosya);exit;
end;
if i<>0 then
begin
clrscr;
gotoxy(32,10);write('DOSYA YOK...');
tus:=readkey;exit;
end;
clrscr;
cerceve(1,1,80,24);
gotoxy(1,3);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
textbackground(5);
textcolor(0);
gotoxy(2,4);write('KOD STOK ADI STOK TšRš '+
'M˜KTARI A-F˜ATI S-F˜ATI STOK KAR˜');
textbackground(0);
textcolor(11);
gotoxy(2,5);write('------------------------------'+
'------------------------------------------------');
gotoxy(1,22);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(2,2);write('Stok Cinsi : ',ara);
GetDate(y,m,d,dow);
gotoxy(59,02);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
s:=5;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (kay.f='*') and (kay.stok_turu=ara) then
begin
s:=s+1;
gotoxy(2,s);write(kay.stok_kodu);
gotoxy(09,s);write(kay.stok_adi);
gotoxy(25,s);write(kay.stok_atar);
gotoxy(38,s);write(kay.adet);
gotoxy(48,s);write(kay.afiat);
gotoxy(60,s);write(kay.sfiat);
gotoxy(71,s);write(kay.kar);
end;
if s>=21 then
begin
gotoxy(21,23);write('Di§er Sayfa ˜‡in Bir TuŸa Basnz...');
tus:=readkey;
clrscr;
cerceve(1,1,80,24);
gotoxy(1,3);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
textbackground(5);
textcolor(0);
gotoxy(2,4);write('KOD STOK ADI STOK TšRš '+
'M˜KTARI A-F˜ATI S-F˜ATI STOK KAR˜');
textbackground(0);
textcolor(11);
gotoxy(2,5);write('------------------------------'+
'------------------------------------------------');
gotoxy(1,22);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'+
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(2,2);write('Stok Cinsi : ',ara);
GetDate(y,m,d,dow);
gotoxy(59,02);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
s:=5;
end;
end;
gotoxy(7,23);write('Listelenecek kaytlar bitti. Devam etmek i‡in bir ®TUA¯ basnz...');
tus:=readkey;exit;
close(dosya);
end;
'4':begin
exit;
end;
end;
end;
procedure Stok_Ekleme;
begin
textcolor(11);
Assign(dosya,'MARKET.DAT');
{$i-}Reset(dosya);kod:=IOResult;{$i+}
if kod <>0 then
Rewrite(dosya);
begin
clrscr;
cerceve(1,1,80,24);
cerceve(5,3,75,5);
cerceve(5,6,75,19);
cerceve(5,20,75,22);
gotoxy(08,04);write('STOK EKLEME');
GetDate(y,m,d,dow);
gotoxy(53,04);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
textcolor(7);
gotoxy(22,08);write('Stok Tr.............:');
gotoxy(22,09);write('Stok Kodu.............:');
gotoxy(22,10);write('Stok Ad..............:');
gotoxy(22,11);write('Stok Alm Tarihi......:');
gotoxy(22,12);write('Stok Birimi...........:');
gotoxy(22,13);write('Stok Miktar..........:');
gotoxy(22,14);write('Stok AlŸ Fiat.......:');
gotoxy(22,15);write('Stok SatŸ Fiat......:');
gotoxy(22,16);write('Stok Kƒri.............:');
gotoxy(22,21);write('Stok Dosyaya Eklensin mi? [E/H]');
textcolor(14);
gotoxy(22,08);write('Stok Tr.............:');
textcolor(11);
gotoxy(46,08);readln(kay.stok_turu);
if kay.stok_turu=" then exit;
textcolor(14);
gotoxy(22,09);write('Stok Kodu.............:');
textcolor(11);
gotoxy(46,09);readln(kay.stok_kodu);
textcolor(14);
gotoxy(22,10);write('Stok Ad..............:');
textcolor(11);
gotoxy(46,10);readln(kay.stok_adi);
textcolor(14);
gotoxy(22,11);write('Stok Alm Tarihi......:');
textcolor(11);
gotoxy(46,11);readln(kay.stok_atar);
textcolor(14);
gotoxy(22,12);write('Stok Birimi...........:');
textcolor(11);
gotoxy(46,12);readln(kay.stok_birim);
textcolor(14);
gotoxy(22,13);write('Stok Miktar..........:');
textcolor(11);
gotoxy(46,13);readln(kay.adet);
textcolor(14);
gotoxy(22,14);write('Stok AlŸ Fiat.......:');
textcolor(11);
gotoxy(46,14);readln(kay.afiat);
textcolor(14);
gotoxy(22,15);write('Stok SatŸ Fiat......:');
textcolor(11);
gotoxy(46,15);readln(kay.sfiat);
textcolor(14);
gotoxy(22,16);write('Stok Kƒri.............:');
textcolor(11);
kay.kar:=(kay.sfiat-kay.afiat);
gotoxy(46,16);write(kay.kar);
textcolor(14);
gotoxy(22,21);write('Stok Dosyaya Eklensin mi? [E/H]');
repeat
gotoxy(54,21);tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
begin
kay.f:='*';
seek(dosya,filesize(dosya));
write(dosya,kay);
end;
close(dosya);
end;
end;
procedure Stok_Duzeltme;
var
ara:string[30];
begin
textcolor(11);
Assign(dosya,'MARKET.DAT');
{$i-}Reset(dosya);kod:=IOResult;{$i+}
if kod <>0 then
begin
gotoxy(32,10);write('...DOSYA YOK...');
tus:=readkey;exit;
end;
clrscr;
cerceve(10,12,70,14);
gotoxy(12,13);write('Duzeltilecek Kaydn Stok Kodu : ');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.stok_kodu=ara) then
begin
clrscr;
cerceve(1,1,80,24);
cerceve(5,3,75,5);
cerceve(5,6,75,19);
cerceve(5,20,75,22);
gotoxy(08,04);write('STOK DUZELTME');
GetDate(y,m,d,dow);
gotoxy(53,04);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
gotoxy(22,09);write('Stok Tr.............: ',kay.stok_turu );
gotoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu );
gotoxy(22,11);write('Stok Ad..............: ',kay.stok_adi );
gotoxy(22,12);write('Stok Alm Tarihi......: ',kay.stok_atar );
gotoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim);
gotoxy(22,14);write('Stok Miktar..........: ',kay.adet );
gotoxy(22,15);write('Stok AlŸ Fiat.......: ',kay.afiat );
gotoxy(22,16);write('Stok SatŸ Fiat......: ',kay.sfiat );
gotoxy(22,17);write('Stok Kƒri.............: ',kay.kar );
gotoxy(22,21);write('Dzeltilecek Stok Bu nu? [E/H]');
repeat
gotoxy(53,21);tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
repeat
clrscr;
cerceve(1,1,80,24);
cerceve(5,3,75,5);
cerceve(5,6,75,19);
cerceve(5,20,75,22);
gotoxy(08,04);write('STOK DUZELTME');
GetDate(y,m,d,dow);
gotoxy(53,04);writeln(",days[dow] ,' ',d:0,'/',m:0,'/',y:0);
gotoxy(22,09);write('[1]-Stok Tr.............: ',kay.stok_turu );
gotoxy(22,10);write('[2]-Stok Kodu.............: ',kay.stok_kodu );
gotoxy(22,11);write('[3]-Stok Ad..............: ',kay.stok_adi );
gotoxy(22,12);write('[4]-Stok Alm Tarihi......: ',kay.stok_atar );
gotoxy(22,13);write('[5]-Stok Birimi...........: ',kay.stok_birim);
gotoxy(22,14);write('[6]-Stok Miktar..........: ',kay.adet );
gotoxy(22,15);write('[7]-Stok AlŸ Fiat.......: ',kay.afiat );
gotoxy(22,16);write('[8]-Stok SatŸ Fiat......: ',kay.sfiat );
gotoxy(22,17);write('[9]-˜Ÿlem Sonu ' );
kay.kar:=(kay.sfiat-kay.afiat);
gotoxy(22,21);write('[Esc=˜ptal] Se‡iminiz [1..9] :');
repeat
gotoxy(52,21);tus:=readkey;
until tus in ['1'..'9',#27];
if tus>=#27 then
case tus of
'1':begin
clrscr;
cerceve(10,12,70,14);
gotoxy(12,13);write('Stok Tr : ');
readln(kay.stok_turu);
end;
'2':begin
clrscr;
cerceve(10,12,70,14);
&nb
