Trik Membuat Form Multi User dengan Delphi TANPA DATABASE

Kreasi dalam membuat Form Login di delphi sangatlah banyak, entah itu menggunakan database ataupun tidak yang terpenting adalah Validasi terhadap user yang ingin login ke menu utama / main menu dalam program maka sudah seharusnya kita membuat Form Login yang berfungsi sebagai  Filter User siapa saja yang berhak menggunakan fitur tertentu dan siapa saja yang tidak berhak menggunakan fitur tertentu. Dalam tutorial ini akan menjelaskan secara garis besar bagaimana pembuatan form login multiuser tanpa database, kenapa tanpa database ? karena menurut saya pribadi, pembuatan menu login yang mempunyai database mysql, access, ataupun database bawaan dari delphi  mudah dan rentan di hack, si user tinggal mencari tempat dimana database itu disimpan dan merubahnya sesuai dengan yang diinginkan apabila Anda belum berpengalaman dalam memproteksi database program Anda sebaiknya Username dan Password Ada di dalam script Program.

       Langsung saja kita buat program Form Login Berdasarkan Level User dengan Delphi TANPA DATABASE ini. Pertama - tama Anda harus menyiapkan design form, seperti di bawah atau bebas sesuai dengan yang Anda inginkan, yang terpenting adalah dua form yaitu form login dan menu utama dengan banyak button apabila Anda belum tahu cara mendesain form ada baiknya terlebih dahulu klik disini.

Menu Login dan Menu Utama pembuatan Form Login Multiuser Level

Setelah Anda mendesain form seperti gambar di atas, maka masukan coding / script seperti di bawah

1. Klik Form1 dan tekan di keyboard tombol alt+F11 (ALT dan F11 ) lalu enter.

2. Klik Form2 dan tekan di keyboard tombol alt+F11 (ALT dan F11 ) lalu enter.

3. Klik Form1 dan lihat di properties event onshow klik 2x.

lalu masukan script seperti di bawah ini :

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.SetFocus;
radiobutton1.Caption:='&Administrator';
radiobutton2.Caption:='&User';

bitbtn1.Kind:=bkOK;
end;

4. Klik 2x bitbtn1 dan masukan script di bawah ini :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text='USER') and (edit2.Text='123') and (radiobutton2.Checked=true) then
begin
form1.Hide;
form2.Show;
form2.Label1.Caption:='Welcome';
form2.Label2.Caption:=edit1.Text;
form2.Button1.Caption:='Daftar Tabel';
form2.Button2.Caption:='Daftar User';
form2.Button3.Caption:='Edit Tabel';
form2.Button4.Caption:='EditDataUser';
form2.Button5.Caption:='EdithakAkses';
form2.Button6.Caption:='Edittransaksi';
form2.Button3.Enabled:=false;
form2.Button4.Enabled:=false;
form2.Button5.Enabled:=false;
form2.Button6.Enabled:=false;
form2.Color:=clWhite;
end
else
if (edit1.Text='ADMIN') and (edit2.Text='EKO') and (radiobutton1.Checked=true) then
begin
form1.Hide;
form2.Show;
form2.Label1.Caption:='Welcome';
form2.Label2.Caption:=edit1.Text;
form2.Button1.Caption:='Daftar Tabel';
form2.Button2.Caption:='Daftar User';
form2.Button3.Caption:='Edit Tabel';
form2.Button4.Caption:='EditDataUser';
form2.Button5.Caption:='EdithakAkses';
form2.Button6.Caption:='Edittransaksi';
form2.Color:=clWhite;
end
else
ShowMessage('User / Password / Level Anda salah');
edit1.Clear;
edit2.Clear;
exit;
end;

Inilah saat user mencoba login dan kita bisa lihat hanya 2 button yang bisa di klik.

Tampilan Login User

 

Inilah tampilan saat Admin mencoba login, Anda bisa lihat semua button aktif.

Tampilan Login Admin

Itulah fungsi mendisable fitur untuk user biasa dan untuk admin mendapatkan semua hak akses.

Keterangan :

Login admin :

Username = ADMIN ( Case sensitive )

Password = EKO ( Case sensitive )

Login User :

Username = USER ( Case sensitive )

Password = 123 ( Case sensitive )

Download Source Code / Program Ini klik disini

Semoga membantu.

Tag | cara membuat form login dibatasi peruser dengan delphi 7 | cara mudah membuat form validasi login user di delphi 7 | tips membuat login form hak akses terbatas untuk user |