Program Tampilan Data Delphi

Sekarang saya lagi bingung mau posting apa,, tapi akhirnya aku dapet ide untuk membuat program menampilkan data mahasiswa di suatu universitas menggunakan delphi,,

Dimana dalam program ini akan menyimpan databasenya di tempat sementara program itu sendiri, dengan menggunakan message box delphi sebagai penampilnya,,,

Oke sahabat dalam tutorial kali ini formnya dibuat lebih komplit, pertama desain form seperti dibawah ini


Dan jika tombol proses di tekan akan muncul message box :


Untuk Listing programnya:

var 
FMahasiswa: TFMahasiswa; 
judul : string; 
i : integer; 

implementation 

{$R *.dfm} 

procedure  TFMahasiswa.ENimKeyPress(Sender: TObject; var Key: Char); 
begin 
if key = #13 then 
ENama.SetFocus; 
if not (key in ['0'..'9',#13,#8]) then 
key := #0; 
end; 

procedure  TFMahasiswa.ENamaKeyPress(Sender: TObject; var Key: Char); 
begin 
if key = #13 then 
ETTL.SetFocus; 
if not (key in ['a'..'z','A'..'Z',#13,#8,#32]) then 
key := #0; 
end; 

procedure  TFMahasiswa.CheckBoxLainClick(Sender: TObject); 
begin 
if CheckBoxLain.Checked = true then 
begin 
ELain.Enabled := true; 
ELain.Visible := true; 
end 
else 

begin 
ELain.Enabled := false; 
ELain.Visible := false; 
end; 
end; 

procedure  TFMahasiswa.BBersihClick(Sender: TObject); 
begin 
ENim.Text:=''; 
ENama.Text:=''; 
ETTL.Text:=''; 
ELain.Text:=''; 
ComboBoxAgama.Text:=''; 
RGJK.ItemIndex:=-1; 
ComboBoxPendidkan.Text:=''; 
ComboBoxStudi.Text:=''; 
CheckBoxOlahraga.Checked:=false; 
CheckBoxKomputer.Checked:=false; 
CheckBoxKesenian.Checked:=false; 
CheckBoxLain.Checked:=false; 
RGPerkawinan.ItemIndex:=-1; 
RGBiaya.ItemIndex:=-1; 

ENim.SetFocus; 
end; 

procedure  TFMahasiswa.BFotoClick(Sender: TObject); 
var 
namafile : string; 
begin 
if OpenPictureDialog1.Execute = false then exit; 
namafile := OpenPictureDialog1.FileName; 

Image1.Picture.LoadFromFile(namafile); 
end; 

procedure  TFMahasiswa.BProsesClick(Sender: TObject); 
var 
JumlahBaris,Indeks : integer; 
TglLahir : tdate; 
biaya,perkawinan,jk,hobby : string; 
begin 
if CheckBoxOlahraga.Checked then 
hobby := 'Olahraga'; 

if CheckBoxKomputer.Checked and (hobby <> '') then 
hobby := hobby+',komputer' 
else 
if CheckBoxKomputer.Checked and (hobby = '') then 
hobby := 'komputer'; 

if CheckBoxKesenian.Checked and (hobby <> '') then 
hobby := hobby+',kesenian' 
else 

if CheckBoxKesenian.Checked and (hobby = '') then 
hobby := 'kesenian'; 

if CheckBoxLain.Checked and (hobby <> '') then 
hobby := hobby + ','+ELain.Text 
else 
if CheckBoxLain.Checked and (hobby = '') then 
hobby := ELain.Text; 

if RGJK.ItemIndex =0 then 
jk := 'Laki-laki' 
else 
jk := 'Perempuan'; 


if RGPerkawinan.ItemIndex = 0 then 
perkawinan := 'Belum Menikah' 
else if RGPerkawinan.ItemIndex =1 then 
perkawinan := 'Menikah' 
else if RGPerkawinan.ItemIndex =2 then 
perkawinan := 'janda' 
else 
perkawinan := 'Duda'; 

if RGBiaya.ItemIndex = 0 then 
biaya := 'Ditanggung sendiri' 
else if RGBiaya.ItemIndex = 1 then 
biaya := 'Orangtua / keluarga' 
else 
biaya := 'Bea Siswa'; 

TglLahir := DPTLahir.Date; 

FMahasiswa.Height := 483; 
Panel2.Top := 20; 
ProgressBar1.Visible := true; 
JumlahBaris := 5000; 
ProgressBar1.Min := 0; 
ProgressBar1.Max := JumlahBaris; 
ProgressBar1.Position := 0; 

for Indeks := 1 to JumlahBaris do 
ProgressBar1.Position := Indeks; 
MessageDlg('DATA MAHASISWA SUDAH TERSIMPAN.' + chr(10) + ' ' + chr(10) + 
'Nim : ' + ENim.Text + chr(10) + 
'Nama : ' + ENama.Text + chr(10) + 
'Tempat/Tanggal Lahir : ' + ETTL.Text + ' / ' + DateToStr(TglLahir) 
+ chr(10) + 
'Agama : ' + ComboBoxAgama.Text + chr(10) + 
'Jenis Kelamin : ' + jk + chr(10) + 
'Jenjang Pendidikan : ' + ComboBoxPendidkan.Text + chr(10) + 
'Program Studi : ' + ComboBoxStudi.Text + chr(10) + 
'Minat/Bakat : ' + hobby + chr(10) + 
'Status Perkawinan : ' + perkawinan+chr(10) + 
'Biaya Kuliah : ' + biaya,mtInformation,[mbok],0); 

Image1.Picture := nil; 
ProgressBar1.Position :=0; 
ProgressBar1.Visible :=false; 
Panel2.Top := 20; 
FMahasiswa.Height := 513; 
end; 

procedure  TFMahasiswa.FormCreate(Sender: TObject); 
begin 
judul := 'Form Data Mahasiswa STMIK Pontianak'; 
i := 0; 
end; 

procedure  TFMahasiswa.BKeluarClick(Sender: TObject); 
begin 
if MessageDlg('Anda ingin keluar ?', mtConfirmation, [mbyes,mbno],0)
= mryes then 
begin 
MessageDlg('Terima kasih anda telah menggunakan program ini', mtInformation, 
[mbOK], 0); 
Application.Terminate; 
end; 
end; 

procedure  TFMahasiswa.Timer1Timer(Sender: TObject); 
begin 
if i > Length(judul) then 
i := 0; 

i := i +1; 
FMahasiswa.Caption := copy(judul,1,i); 
end; 

Memang sangat panjang listingnya yaaaa,,,(heheheeee) tanganku sampe capek,,, tapi ini demi pembaca setiaku,,,,.Jika ada kesulitan atau ingin bertanya silahkan bertanya dengan memasuukan komentar,,,