Source Code Tambah Data dalam Pascal

Source Code Tambah Data dalam Pascal - Program berikut ini membahas tentang dasar untuk menambahkan data dalam pascal, biasanya database yang digunakan hanya berupa file berextrnsi .dat.

Berikut ini source code data mahasiswa dengan menggunakan compiler dev-pascal :

program tambah_data;
uses crt;
type
   mhs=record
      npm: string[7];
      nama: string[25];
      nilai: real;
   end;

var
   fmhs: file of mhs;
   rmhs: mhs;
   lagi: char;
begin
   assign(fmhs,'mhs.dat');
   {$I-}
   reset(fmhs);
   {$I+};
      if ioresult<>0 then rewrite(fmhs);
      seek(fmhs,filesize(fmhs));
   lagi:='y';
   while upcase(lagi)='Y' do
   begin
   clrscr;
      with rmhs do
      begin
         gotoxy(5,6)  ;write('Nomor Pokok Mahasiswa : ');
         gotoxy(5,8)  ;write('Nama Mahasiswa        : ');
         gotoxy(5,10) ;write('Nilai Mahasiswa       : ');
         gotoxy(30,6) ;readln(npm);
         gotoxy(30,8) ;readln(nama);
         gotoxy(30,10);readln(nilai);
      end;
   write(fmhs,rmhs);
   gotoxy(5,15) ;write('Masukan data lagi [Y/T] ? ');
   readln(lagi);
   end;
   close(fmhs);
end.

Source code di atas hanya berupa menambahkan data untuk menampilkan data lanjut ke Program Tampil Data Mahasiswa dalam Pascal.

assign(fmhs,'mhs.dat');

Tips untuk menyimpan Database

Terlebih dahulu buat lah file kosong dalam notepad yang berextensi mhs.dat

Sekian aartikel tentang Source Code Tambah Data dalam Pascal, semoga bermanfaat.