program fileku;
uses wincrt;
type
brgrec= record
kdbrg : string [5];
nmbrg : string [5];
hrgbrg : integer;
jumbrg: integer;
end;
var
rbrg : brgrec;
fbrg : file of brgrec;
vkdbrg: string [5];
lagi, jawab : char;
ketemu : boolean;
begin
assign (fbrg,'barang.dat');
{$I-}
reset (fbrg);
{$I+}
if ioresult <> 0 then rewrite (fbrg);
lagi :='Y' ;
while lagi = 'Y' do
begin
gotoxy (15,1); writeln ('Tambah Data');
gotoxy (5,4); write ('Kode Barang : ');
gotoxy (5,6); write ('Nama Barang : ');
gotoxy (5,8); write ('Harga barang : ');
gotoxy (5,10); writeln ('Jumlah Barang : ');
gotoxy (21,4); readln (vkdbrg);
ketemu:= false;
seek (fbrg,0);
while not eof (fbrg) and not ketemu do
begin
read (fbrg,rbrg);
if rbrg.kdbrg = vkdbrg then
begin
gotoxy (25,18); writeln ('Data Sudah Ada !');
readln;
gotoxy (25,18); writeln (' ');
ketemu:= true;
end;
end;
if not ketemu then
begin
rbrg.kdbrg := vkdbrg;
jawab := 'T' ;
while jawab = 'T' do
begin
gotoxy (21,6); readln (rbrg.nmbrg);
gotoxy (21,8); readln (rbrg.hrgbrg);
gotoxy (21,10); readln (rbrg.jumbrg);
gotoxy (30,20); write (' Data Telah Benar (Y/T)?');
readln (jawab);
end;
seek (fbrg,filesize (fbrg));
write (fbrg,rbrg);
end;
gotoxy (25,20); write ('Ingin Memasukan Lagi (Y/T)?');
readln (lagi);
end;
close (fbrg);
readln;
donewincrt;
end.
Tidak ada komentar:
Posting Komentar