Membuat Login Sederhana Pada Delphi 7

Kali ini LC akan menerangkan tentang bagaimana cara membuat login sederhana pada delphi 7..

pertama buka aplikasi delphi7 nya , lalu akan keluar form kosong , nah di dalam form tersebut masukkan komponen2 yang ada di dalam menu pallete diantaranya:

• 3 buah label
• 2 buah edit
• dan 2 buah button
• dan Form 2 ( di kosongkan sebagai tujuan dari login )

Seperti di gambar ini 

Setelah itu kita masukkan listing programnya ke dalam button1 ( login ), seperti ini :

procedure tform1.button1click(sender: tobject);

var

a,b:string;

begin

a:='djuneardy';

b:='saputra';

if (edit1.text=a) and (edit2.text=b) then

begin

form2.show;

end

else

begin

messagedlg('maaf username dan password anda tidak cocok', mtwarning,[mbok],0);

end;

end;

lalu masukkan listing programnya ke dalam button 2 untuk fungsi cancel / close, seperti ini :

procedure tform1.button2click(sender: tobject);

begin

application.terminate;

end;

maka ketika di run dan masukkan password sesuai dengan listing di atas ( username : djuneardy dan password : saputra ) apa bila pass benar maka akan langsung ke form 2 , dan apabila salah maka akan keluar message box menjadi seperti ini:

kalau lancar maka akan muncul form2.

lihat juga contoh program lainnya

sekian semoga bermanfaat untuk yang ingin mempelajarinya ^^:LC