News Array dan Record menggunakan delphi7

Setelah kemarin kita sukses mempelajari sedikit tentang Array dan Record menggunakan delphi kita saya akan mencoba membuat program untuk PERPUSTAKAAN dengan tampilan lebih menarik dari sebelumnya dan tentunya masih sangat kurangjika ei bandingkan dengan master2 programer yang ada
baiklah sepertinya sudah dulu basa - basi nya mari kita llai dengan membuat form seperti di bawah ini

setelah selesai membuat tampilan form di atas marilah kita isikan beberapa listing program agarform di atas dapat di gunakan sebagaimana mestinya

bisa juga download hasilnya

-->Di sini

pada form klik2 kali dan tuliskan listing program ini:
____________________________________________________________________________________
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;
____________________________________________________________________________________




pada button 1 kita isikan program seperti ini:
__________________________________________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
type tabel_peminjam = record
seri: longint;
buku: string;
penerbit: string;
end;
var
data : array [1..10] of tabel_peminjam;
x, jumlah : integer;
nama, prodi, tgl_pinjam, tgl_kembali,tahun, bulan, petugas : string;

begin
nama := Edit1.Text;
prodi := Edit2.Text;
tgl_pinjam := Edit3.Text;
tgl_kembali := Edit4.Text;
jumlah:= strtoint(Edit5.Text);
tahun := Edit7.Text;
bulan := Edit6.Text;
petugas := Edit8.Text;

Memo1.Lines.Add ('petugas : ' + petugas);
Memo1.Lines.Add ('nama : '+ nama );
Memo1.Lines.Add ('prodi : ' + prodi);
Memo1.Lines.Add ('Tanggal pinjam : ' + tgl_pinjam +' '+ bulan +' '+ tahun);
Memo1.Lines.Add ('Tanggal kembali : ' + tgl_kembali+' '+ bulan +' '+ tahun);
Memo1.Lines.Add ('jumlah : ' +inttostr(jumlah));


for x:= 1 to jumlah do
begin
data[x].seri:=StrToInt(InputBox('NO SERI BUKU','Masukkan NO SERI BUKU',''));;
data[x].buku:=(InputBox('NAMA BUKU','Masukkan NAMA BUKU',''));;
data[x].penerbit:=(InputBox('PENERBIT','Masukkan PENERBIT',''));;
Memo1.Lines.append ('-------------------------------------------------');
Memo1.Lines.append ('NO SERI BUKU : '+IntTostr(data[x].seri));
Memo1.Lines.append ('NAMA BUKU : '+ data[x].buku);
Memo1.Lines.append ('PENERBIT : '+ data[x].penerbit);
Memo1.Lines.append ('-------------------------------------------------');
end;
end;
____________________________________________________________________________________

kemudian pada button2 tuiskan listing programini :
____________________________________________________________________________________
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
Edit4.Text:=' ';
Edit5.Text:=' ';
end;
____________________________________________________________________________________
untuk memastikan program tersebut berfungsi atu tidak tekan tombol F9 atau klik icon RUN yg berwarna hijau

jika berhasilmaka tampilannya akan seperti contoh berikut ini :

Hasil program perpustakaan

terimakasih