Program input dan penyimpanan data buku di perpustakaan dengan pascal STIMIK ASIA

Program Data_perpus_File;
Uses winCrt ;
const
garis1 = '--------------------------------------------------------------------------------';
garis2 = '================================================================================';
garsed1= '--------------------------------------------------------------------';
garsed2= '====================================================================';
gar2 = '====================================';
gar1 = '------------------------------------';
gar3 = '==========================';
garspas= ' ====================================================================';
spasi = ' ';
spasi2 = ' ';
teks1 = 'PROGRAM PERPUSTAKAAN SEKOLAH';
teks2 = ' STIMIK DAN STIE ASIA ';
teks3 = '2011';

Type
perpustakaan = Record
{type utk Buku}
KdBuku : word;
Judul : String[20];
Jenis : string[20];
Pengarang : string[20];
Penerbit : string[20];
Harga : real;
Telat : Real;
Denda : Real;
{type utk Siswa}
Nama : String[20];
End;

Var
Fileperpustakaan : File of Perpustakaan;
Data : Perpustakaan;
Pil,Ul : Char;
x,y,i : integer;

Procedure Title;
begin
gotoxy(27,1); writeln(teks1);
gotoxy(28,2); writeln(teks2);
gotoxy(38,3); writeln(teks3);
gotoxy(1,4); writeln(garis2);
end;


Procedure Menu;
Begin
Clrscr;
title;
x:=30; y:=6;
Gotoxy(35,y);Write('MENU UTAMA');
Gotoxy(34,y+1);Write('============');
Gotoxy(x,y+2);Write('1. TAMBAH DATA BUKU');
Gotoxy(x,y+3);Write('2. EDIT DATA BUKU');
Gotoxy(x,y+4);Write('3. HAPUS DATA BUKU');
Gotoxy(x,y+5);Write('4. TAMPILKAN DATA BUKU');
{ Gotoxy(x,y+6);Write('5. PEMINJAMAN BUKU');
Gotoxy(x,y+7);Write('6. PENGEMBALIAN BUKU');}
Gotoxy(x,y+6);Write('5. KELUAR PROGRAM');
Gotoxy(32,y+7);Write('Pilihan [1..5]: ');Pil:=Readkey;
End;

Procedure BukaFile;
Begin
Assign(Fileperpustakaan,'perpustakaan.txt');
{$I-};
Reset(Fileperpustakaan);
{$I+};
End;

Procedure Tambah;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;

Begin
Ul :='Y';
Lagi:='Y';
Clrscr;
BukaFile;
If IOResult<>0 Then
Rewrite(Fileperpustakaan);
Repeat
Clrscr;
title;
Ada:=False;
i:=0;
x:=28;y:=5;
Gotoxy(x+4,y);Write('TAMBAH DATA BUKU ');
Gotoxy(x+4,y+1);Write('----------------');
Gotoxy(x,y+2);Write('Kode Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(Fileperpustakaan)) Do
Begin
Seek(Fileperpustakaan,i);
Read(Fileperpustakaan,Data);
If Data.KdBuku=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin

Gotoxy(x-5,y+7);Write('Kode Buku ",NOCR," Ini Sudah ada!');
End
Else
Begin
Seek(Fileperpustakaan,Filesize(Fileperpustakaan));
Data.KdBuku:=NOCR;
Gotoxy(X,y+3);Write('Judul Buku : ');Readln(Data.judul);
Gotoxy(X,y+4);Write('Jenis Buku : ');Readln(Data.Jenis);
Gotoxy(X,y+5);Write('Pengarang : ');Readln(Data.Pengarang);
Gotoxy(X,y+6);Write('Penerbit : ');Readln(Data.Penerbit);
Gotoxy(X,y+7);Write('Harga Sewa : ');Readln(Data.Harga);
{Gotoxy(X,y+8);write('Telat Pengembalian Buku : ');Readln(data.telat);
data.denda :=data.telat*500;}
Write(Fileperpustakaan,Data);
End;
Gotoxy(x-5,y+8);Write('Apakah Mau Tambah Data Lagi [Y/T]:');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
Close(Fileperpustakaan);
End;

Procedure Edit;
Var
Lagi : Char;
Ada : Boolean;
i : Integer;
NOCR: Word;

Begin
Ul :='Y';
Lagi:='Y';
Clrscr;
title;
BukaFile;
If IOResult<>0 Then
Write('Data Masih Kosong...!')
Else
Begin
Repeat
Clrscr;
title;
Ada:=False;
i:=0;
x:=31;y:=6;
Gotoxy(x+2,y);Write('EDIT DATA BUKU');
Gotoxy(x+1,y+1);Write('----------------');
Gotoxy(x+4,y+2);Write('Kode Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(Fileperpustakaan)) Do
Begin
Seek(Fileperpustakaan,i);
Read(Fileperpustakaan,Data);
If Data.KdBuku=NOCR Then
Begin
Ada:=True;
x:=16;y:=7;
gotoxy(X+6,y+2);write('SEBELUM SESUDAH');
gotoxy(x+6,y+3);write('------- -------');
Gotoxy(X,y+4);Write('Judul Buku : ');writeln(Data.judul);
Gotoxy(X,y+5);Write('Jenis Buku : ');writeln(Data.Jenis);
Gotoxy(X,y+6);Write('Pengarang : ');writeln(Data.Pengarang);
Gotoxy(X,y+7);Write('Penerbit : ');writeln(Data.Penerbit);
Gotoxy(X,y+8);Write('Harga Sewa : ');writeln(round(Data.Harga));
End
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Data.KdBuku:=NOCR;
x:=46;y:=7;
Gotoxy(X,y+4);Write('Judul Buku : ');readln(Data.judul);
Gotoxy(X,y+5);Write('Jenis Buku : ');readln(Data.Jenis);
Gotoxy(X,y+6);Write('Pengarang : ');readln(Data.Pengarang);
Gotoxy(X,y+7);Write('Penerbit : ');readln(Data.Penerbit);
Gotoxy(X,y+8);Write('Harga Sewa : ');readln(Data.Harga);
Seek(Fileperpustakaan,i);
Write(Fileperpustakaan,Data);
End
Else
Begin
Gotoxy(20,13);Write('Nomor Mahasiswa "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(24,17);Write('Apakah Mau Edit Data Lain [Y/T]: ');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
Close(Fileperpustakaan);
End;

Procedure Hapus;
Var
FileTmp : File of Perpustakaan;
Lagi,Hapus : Char;
Ada : Boolean;
i : Integer;
NOCR : Word;

Begin
Ul :='Y';
Lagi:='Y';
Clrscr;
title;
Repeat
BukaFile;
If IOResult<>0 Then
Write('Data Masih Kosong...!')
Else
Begin
Clrscr;
title;
Assign(FileTmp,'perpustakaan.tmp');
Rewrite(FileTmp);
Ada:=False;
i:=0;
x:=31;y:=6;
Gotoxy(x+2,y);Write('HAPUS DATA BUKU');
Gotoxy(x+1,y+1);Write('-----------------');
Gotoxy(x,y+2);Write('Kode Buku : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(Fileperpustakaan)) Do
Begin
Seek(Fileperpustakaan,i);
Read(Fileperpustakaan,Data);
If Data.KdBuku=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(X,y+3);Write('Judul Buku : ');writeln(Data.judul);
Gotoxy(X,y+4);Write('Jenis Buku : ');writeln(Data.Jenis);
Gotoxy(X,y+5);Write('Pengarang : ');writeln(Data.Pengarang);
Gotoxy(X,y+6);Write('Penerbit : ');writeln(Data.Penerbit);
Gotoxy(X,y+7);Write('Harga Sewa : ');writeln(round(Data.Harga));
Gotoxy(x-8,y+9);Write('Apakah Data Ini Mau Di Hapus [Y/T]: ');Readln(Hapus);
If Upcase(Hapus)='Y' Then
Begin
For i := 1 to Filesize(Fileperpustakaan) Do
Begin
Seek(Fileperpustakaan,i-1);
Read(Fileperpustakaan,Data);
If Data.KdBuku<>NOCR Then
Write(FileTmp,Data);
End;
Close(Fileperpustakaan);
Assign(Fileperpustakaan,'perpustakaan.txt');
Erase(Fileperpustakaan);
Assign(FileTmp,'perpustakaan.tmp');
Rename(FileTmp,'perpustakaan.txt');
Gotoxy(x-8,y+9);Write(' Nomor Buku "',NOCR,'" Sudah Di Hapus! ');
End;
End
Else
Begin
Gotoxy(x-4,y+9);Write('Nomor Buku "',NOCR,'" Ini Tidak Ada!');
End;
Gotoxy(x-3,y+10);Write('Mau Hapus Data Lain [Y/T]: ');Lagi:=Upcase(Readkey);
End;
Until Lagi<>'Y';
End;

Function TotalDenda(TDN:Real;n:integer):Real;
Begin
Totaldenda:=TDN+0;
End;

Procedure Tampil;
Var
i,n : Integer;
TDN : Real;

Begin
clrscr;
title;
Ul :='Y';
TDN:=0;
BukaFile;
If IoResult <> 0 Then
begin
gotoxy(30,11);
Write('Maaf Data Masih Kosong ! ');
end
Else
Begin
Clrscr;
title;
x:=7;y:=9;
gotoxy(x+26,y-3); write('.::DATA BUKU::.');
gotoxy(x,y-2); write(garsed2);
gotoxy(x,y-1); writeln('|No|KODE| JUDUL BUKU |JENIS BUKU| PENGARANG | PENERBIT |H.SEWA|');
gotoxy(x,y); write(garsed1);
i:=0;
While Not EoF(Fileperpustakaan) Do
Begin
Inc(i);
Read(Fileperpustakaan,Data);
gotoxy(x,y+i); write('| ',i);
gotoxy(x+3,y+i); write('|'); writeln(data.kdbuku);
gotoxy(x+8,y+i); write('|'); writeln(data.judul);
gotoxy(x+24,y+i); write('|'); writeln(data.jenis);
gotoxy(x+35,y+i); write('|'); writeln(data.pengarang);
gotoxy(x+49,y+i); write('|'); writeln(data.penerbit);
gotoxy(x+60,y+i); write('|'); writeln(round(data.harga));
gotoxy(x+67,y+i); write('|');
TDN:=TDN+Data.denda;
End;
Close(Fileperpustakaan);
End;
Writeln;
writeLN(garspas);
Write(' Tekan Enter untuk Kembali Kemenu Utama');Readln;
End;

Procedure View_Denda;
begin
end;

Procedure Hapus_KdBuku;
begin
end;

Begin
Repeat
Menu;
Case Pil Of
'1' : Tambah;
'2' : Edit;
'3' : Hapus;
'4' : Tampil;
{ '5' : View_denda;
'6' : Hapus_KdBuku;}
End;
Until (Ul<>'Y') Or (Pil='5');

End.