Yorumla.Net  


Geri Git   Yorumla.Net > Bilgisayar ve Teknoloji > Programlama > Pascal
Bu sayfay tekrar ykle Stok Takip
Kayt Konular Okundu aretle

Yorumla.Net Forum'a Hogeldiniz

! FORUMDAN YARARLANMAK N YE OLUN !

Yeni Konu Gnder  Yantla
 
LinkBack Konu Aralar Grnm Modlar
Eski 11-21-2007, 14:40   #1 (permalink)
ye Bilgileri
rak
 
kronika kullancsnn avatar
 
Giri: Oct 2006
ehir : Belirtilmedi
Ya: 24
Mesaj: 11,161
Rep Gc: 2139
Rep Puan : 212555
Rep Seviyesi: kronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstar
Varsaylan Stok Takip


uses 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,fteltring;
usnotring;
kno:integer;
miktar:integer;
tfiyat:integer;
l:char;
end;
type
kayit=record
staditring;
stmiktari:integer;
alfiyati:longint;
snotring;
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
aratring;
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('Aranlan Nitelikte Kayit Yok!!!');
tus:=readkey;
end;
procedure silme;
var
aratring;
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 Menye D”nmek I‡in "Enter"e Basin...');
dev:=readkey;
gotoxy(15,28);write('SATIS KAYDEDILDI!!!');
gotoxy(10,29);write('Ana Menye 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 Menye 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[i]);
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'ilme;
'5'atis;
'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('Ltfen 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.






...Umut Kanatl Kelebek Kadn...
kronika evrimii   Alnt Yaparak Cevapla

kronika Kullancsna Teekkur Edenler
kronik vaka (02-11-2008)
Eski 02-11-2008, 18:13   #2 (permalink)
ye Bilgileri
Forumcu
 
kronik vaka kullancsnn avatar
 
Giri: Oct 2007
ehir : Ktahya
Ya: 24
Mesaj: 2,905
Rep Gc: 808
Rep Puan : 80430
Rep Seviyesi: kronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstarkronik vaka Repstar
Varsaylan
Alnt:
&h!o$$$& tarafndan gnderildi Mesaj Grntle
'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 šššššš',
bu kod bana bii mi ima ediyo, yoksa bana m yle geliyo

Hayalim var...
midim ok...
Sebebim var...
Dnm YOK!..
...αмαℓα...
son 40...
kronik vaka evrimii   Alnt Yaparak Cevapla
Eski 02-11-2008, 18:16   #3 (permalink)
ye Bilgileri
rak
 
kronika kullancsnn avatar
 
Giri: Oct 2006
ehir : Belirtilmedi
Ya: 24
Mesaj: 11,161
Rep Gc: 2139
Rep Puan : 212555
Rep Seviyesi: kronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstarkronika Repstar
Varsaylan
ANA MEN demeye alyo orda






...Umut Kanatl Kelebek Kadn...
kronika evrimii   Alnt Yaparak Cevapla
Yantla

« nceki Konu | Sonraki Konu »

u an bu konuyu grntleyen kullanc says: 1 (0 ye ve 1 misafir)
 
Konu Aralar
Grnm Modlar
Dzenli Mod Dzenli Mod



Saat 00:46.

Bize Ulan - Yorumla.net - Ariv - En st

Powered by vBulletin Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.2.0

Hosting Hizmetleri TOPlist Forums Directory

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207