Seputar laptop - Source Code Tambah Data dalam Pascal

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

Berikut ini source code data mahasiswa dengan memakai 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.

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 perihal Source Code Tambah Data dalam Pascal, biar bermanfaat.

Sumber http://www.materi-it.com/