Tapi jika agan tidak punya aplikasinya bisa download Disini
langsung aja ke Koding Menambahkan File Database di Dev Pascal...
program KBM;
uses crt;
type mahasiswa = record
nama : string;
nim : integer;
end;
var
fileMahasiswa : file of mahasiswa; //deklarasi
dataMahasiswa : mahasiswa;
pil : char;
procedure inputMahasiswa;
var
ulangi : char;
begin
assign(fileMahasiswa,'mahasiswa.txt'); //memanggil
reset(fileMahasiswa); //membuka
if ioresult<>0 then rewrite(fileMahasiswa);
seek(fileMahasiswa,filesize(fileMahasiswa)); //memindahkan kursor
repeat
clrscr;
writeln('===========================');
writeln('Program Input Mahasiswa');
writeln('===========================');
write('Nama Mahasiswa : ');readln(dataMahasiswa.nama);
write('Nim Mahasiswa : ');readln(dataMahasiswa.nim);
write(fileMahasiswa,dataMahasiswa); //simpan data
writeln;
write('Anda Ingin Input Mahasiswa Lagi (Y/T)');
repeat
ulangi:=readkey;
until (ulangi='y') or (ulangi='t');
until ulangi='t';
close(fileMahasiswa);
end;
procedure tampil;
var
x:integer;
begin
clrscr;
assign(fileMahasiswa,'mahasiswa.txt'); //memanggil
reset(fileMahasiswa); //membuka
if ioresult<>0 then rewrite(fileMahasiswa);
x:=0;
while not eof(fileMahasiswa) do
begin
x:=x+1;
read(fileMahasiswa,dataMahasiswa); //membaca data
writeln('===========================');
writeln('Program Tampil Mahasiswa');
writeln('===========================');
writeln('Mahasiswa ke-',x);
writeln('Nama : ',dataMahasiswa.nama);
writeln('Nim : ',dataMahasiswa.nim);
end;
close(fileMahasiswa);
readln;
end;
//Program Utama
begin
repeat
clrscr;
writeln('===========================');
writeln('Program Database Mahasiswa');
writeln('===========================');
writeln('1. Input Mahasiswa');
writeln('2. Tampil Mahasiswa');
writeln('3. Keluar');
writeln('===========================');
write('Input Pilihan: ');
pil:=readkey;
case pil of
'1' : inputMahasiswa;
'2' : tampil;
'3' :
begin
readln;
end;
end;
until pil='3';
end.
uses crt;
type mahasiswa = record
nama : string;
nim : integer;
end;
var
fileMahasiswa : file of mahasiswa; //deklarasi
dataMahasiswa : mahasiswa;
pil : char;
procedure inputMahasiswa;
var
ulangi : char;
begin
assign(fileMahasiswa,'mahasiswa.txt'); //memanggil
reset(fileMahasiswa); //membuka
if ioresult<>0 then rewrite(fileMahasiswa);
seek(fileMahasiswa,filesize(fileMahasiswa)); //memindahkan kursor
repeat
clrscr;
writeln('===========================');
writeln('Program Input Mahasiswa');
writeln('===========================');
write('Nama Mahasiswa : ');readln(dataMahasiswa.nama);
write('Nim Mahasiswa : ');readln(dataMahasiswa.nim);
write(fileMahasiswa,dataMahasiswa); //simpan data
writeln;
write('Anda Ingin Input Mahasiswa Lagi (Y/T)');
repeat
ulangi:=readkey;
until (ulangi='y') or (ulangi='t');
until ulangi='t';
close(fileMahasiswa);
end;
procedure tampil;
var
x:integer;
begin
clrscr;
assign(fileMahasiswa,'mahasiswa.txt'); //memanggil
reset(fileMahasiswa); //membuka
if ioresult<>0 then rewrite(fileMahasiswa);
x:=0;
while not eof(fileMahasiswa) do
begin
x:=x+1;
read(fileMahasiswa,dataMahasiswa); //membaca data
writeln('===========================');
writeln('Program Tampil Mahasiswa');
writeln('===========================');
writeln('Mahasiswa ke-',x);
writeln('Nama : ',dataMahasiswa.nama);
writeln('Nim : ',dataMahasiswa.nim);
end;
close(fileMahasiswa);
readln;
end;
//Program Utama
begin
repeat
clrscr;
writeln('===========================');
writeln('Program Database Mahasiswa');
writeln('===========================');
writeln('1. Input Mahasiswa');
writeln('2. Tampil Mahasiswa');
writeln('3. Keluar');
writeln('===========================');
write('Input Pilihan: ');
pil:=readkey;
case pil of
'1' : inputMahasiswa;
'2' : tampil;
'3' :
begin
readln;
end;
end;
until pil='3';
end.
Ini Tampilanya :
Silahkan Dicoba..
Gampang kan gan cara menambahkan File Database di Dev Pascal hehe