loading pada login

Mungkin kita sudah biasa membuat sebuah Form Login, baik terintegrasi dengan database atau tidak. Form Login sangat dibutuhkan untuk memvalidasi apakah seseorang berhak mengakses suatu program atau tidak. Saat proses validasi terjadi, akan lebih menarik bila kita tambahkan proses loading melalui sebuah progressbar.

Pada dasarnya proses loading memanfaatkan interval yang tersedia pada Ttimer

Dibutuhkan 2 Variabel untuk menggunakan ttimer

var
time, i: integer;

Untuk proses loading gunakan coding berikut pada even OnTimer TTimer atau double click TTimer

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
progressbar1.Position:=i;
if progressbar1.Position=25 then
begin
timer1.Enabled:=false;
i:=0;
showmessage('Login berhasil. Selamat datang '+euser.Text);
euser.Clear;
epass.Clear;
progressbar1.Visible:=false;
form2.Show;
hide;
end;
end;

Validasi dilakukan dengan menggunakan coding berikut

procedure TForm1.bLoginClick(Sender: TObject);
begin
if (euser.Text = 'adi') and (epass.Text = 'adi')
then begin
progressbar1.Visible:=true;
timer1.Enabled:=true;
time := 0;
end else
begin
time := time+1;
Application.MessageBox('Maaf, UserName/Password Anda Salah','Peringatan',Mb_ok);
euser.Clear;
epass.Clear;
euser.SetFocus;
if time = 2 then Begin
Application.MessageBox('1 Kesempatan Lagi Untuk Memasukkan Password !','Peringatan',Mb_ok);
euser.Clear;
epass.Clear;
euser.SetFocus;
end else
if time = 3 then begin
MessageDlg('Anda tidak memiliki izin untuk memasuki sistem ini.'+#13#10+'Sistem Kami tutup',mtWarning,[mbok],0);
Application.Terminate;
end;
end;
end;

Semoga tulisan ini bermanfaat. Source Code program dapat didownload pada link dibawah

[Download Source Code]