Contoh Pascal dengan database

Berikut ini ada contoh program pascal dengan database

konsepnya sebagai program kasir ketika ditanyakan akan menginput program dijawab dengan "Y"

maka inputan akan berulang hingga inputan dijawab dengan "T"

dan otomatis akan mencetak laporan penjualan, data inputan ketika member akan mendapat diskon 10%

Berikut gambar program ketika dijalankan

Penjelasan singkat program

Program ini menggunakan database dengan nama database.txt, sedangkan command-command yang digunakan dalam database ini adalah,

assign(database,'database.txt'); (memberi nama database)

rewrite (database); (membuat database)

            reset(database); (membuka database)

            write(database,data); (menulis database)

            close(database); (menutup database)

            read(database,data); (membaca database)

Karena data yang dimasukkan bisa banyak tergantung dari jumlah pelanggan, maka dibuat prosedur baca_data agar tidak menulis berulang-ulang.

Prosedur baca_data sebagai berikut

procedure baca_data;

begin

                        assign(database,'database.txt');{$I-}

                        reset(database);{$I+}

end;

Untuk penomoran otomatis saya menggunakan command inc(nomor) sebagai ganti command nomor:=nomor+1 dimana sebelumnya di deklarasikan bahwa nomor:=0 . Karena saya meletakkan inc(nomor) berada diatas input nomor sehingga ketika melewati command ini variabel nomor sudah berubah menjadi 1.

Untuk mempercantik tampilan saya menggunakan command gotoxy(x,y) dimana X adalah jumlah spasi dan Y adalah lokasi baris. Dengan command ini akan membuat program terlihat lebih interaktif. Sebagai contoh pada login kasir saya meletakkan inputan agar berada di tengah-tengah frame seperti berikut

gotoxy(25,1);write('===========================');

             gotoxy(25,2);write('        LOGIN KASIR');

            gotoxy(25,3);write('---------------------------');

            gotoxy(25,4);write;

            gotoxy(25,6);write;

            gotoxy(25,7);write('===========================');

             gotoxy(25,8);write('      PROGRAM KASIR');

             gotoxy(25,9);write('    TOKO SUSANTO JAYA');

            gotoxy(25,10);write('===========================');

            gotoxy(25,5);write('NAMA KASIR    : ');readln(namakasir);

Perhatikan bahwa inputan nama kasir berada baris paling bawah, tapi dengan gotoxy lokasinya bisa dirubah ke baris nomer 5.

Demikian pula saat menginputkan data, akan ada keterangan interaktif dibawahnya yang akan berubah-ubah sesuai dengan inputan.

Berikut listing programnya

program kasir;

uses wincrt;

type toko = record

     nama   : string [8];

     barang : string [7];

     member : char;

     jumlah : integer;

     harga  : real;

     diskon : real;

     total  : real;

     bayar  : real;

end;

var

database : file of toko;

data : toko;

selesai : char;

I : real;

nomor : integer;

no : integer;

namakasir : string [8];

procedure baca_data;

begin

     assign(database,'penjualan.txt');{$I-}

     reset(database);{$I+}

end;

begin

     clrscr;

     nomor:=0;

     begin

     assign(database,'database.txt');

     rewrite (database);

     reset(database);

     gotoxy(25,1);write('===========================');

     gotoxy(25,2);write('        LOGIN KASIR');

     gotoxy(25,3);write('---------------------------');

     gotoxy(25,4);write;

     gotoxy(25,6);write;

     gotoxy(25,7);write('===========================');

     gotoxy(25,8);write('      PROGRAM KASIR');

     gotoxy(25,9);write('    TOKO SUSANTO JAYA');

     gotoxy(25,10);write('===========================');

     gotoxy(25,5);write('NAMA KASIR    : ');readln(namakasir);

repeat

     clrscr;

     gotoxy(25,1);write('===========================');

     gotoxy(25,2);write('      FORM INPUT DATA');

     gotoxy(25,3);write('---------------------------');

     gotoxy(25,13);write('---------------------------');

     gotoxy(25,15);write('===========================');

     gotoxy(25,16);write('    TOKO SUSANTO JAYA ');

     gotoxy(25,17);write('===========================');

     inc(nomor);

     gotoxy(25,4);writeln('NOMOR          : ',nomor);

     gotoxy(25,14);write('MEMBER DISKON 10 %    ');

     gotoxy(25,5);write('MEMBER (Y/T)   : ');readln(data.member);

     gotoxy(25,14);write('INPUT NAMA PELANGGAN  ');

     gotoxy(25,6);write('NAMA PELANGGAN : ');readln(data.nama);

     gotoxy(25,14);write('INPUT NAMA BARANG     ');

     gotoxy(25,7);write('NAMA BARANG    : ');readln(data.barang);

     gotoxy(25,14);write('INPUT JUMLAH PEMBELIAN');

     gotoxy(25,8);write('JUMLAH         : ');readln(data.jumlah);

     gotoxy(25,14);write('INPUT HARGA BARANG    ');

     gotoxy(25,9);write('HARGA SATUAN   : ');readln(data.harga);

     data.total:=data.jumlah*data.harga;

     gotoxy(25,10);writeln('TOTAL          : ',data.total:2:0);

     if (data.member='Y') or (data.member='y') then

     data.diskon:=0.1*data.total else data.diskon:=0;

     gotoxy(25,11);write('DISKON         : ',data.diskon:0:0);

     data.bayar:=data.total-data.diskon;

     gotoxy(25,12);write('TOTAL BAYAR    : ',data.bayar:2:0);

     gotoxy(25,14);write('SELESAI INPUT ? (Y/T):');readln(selesai);

     write(database,data);

until (selesai='Y') or (selesai='y');

close(database);

end;

begin

I:=0;

baca_data;

clrscr;

     begin

     writeln('==============================================================================');

     writeln('                       LAPORAN DAFTAR BARANG PENJUALAN');

     writeln('                               TOKO SUSANTO JAYA');

     writeln('                      JALAN PELAN-PELAN BANYAK ANAK-ANAK');

     writeln('==============================================================================');

     writeln('|| NO |  NM.PLG   |  NM.BRG | JML |  HARGA  |  TOTAL  |  DISKON | TOTAL BYR ||');

     writeln('------------------------------------------------------------------------------');

     no:=0;

     while not eof (database) do

                  begin

                       inc(no);

                       read(database,data);

                       writeln('|| ',no:2,' | ',data.nama:8,'  | ',data.barang:7,' | ',

                       data.jumlah:3,' | ',data.harga:7:0,' | ',data.total:7:0,' | ',

                       data.diskon:7:0,' | ',data.bayar:9:0,' ||');

                  end;

     close(database);

     end;

     writeln('==============================================================================');

     writeln;

     writeln('                                                             KASIR');

     writeln;

     writeln;

     writeln;

     writeln('                                                           ( ',namakasir,' )');

     readln;

end;

end.