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 bawah1. 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);
beginedit1.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);
beginif (edit1.Text='USER') and (edit2.Text='123') and (radiobutton2.Checked=true) thenbeginform1.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;
endelseif (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;
endelseShowMessage('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 )