Membuat Login Sederhana Pada Delphi 7

Sabtu, 07 April 2012

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

3 komentar:

  1. Buat berbintang seperti itu bagaimana yah gan? Untuk passnya

    BalasHapus
    Balasan
    1. wah sudah lama sekali gak ngoding bro, tapi kalo ga salah itu ada di properties dari text box nya, dari text biasa ganti jadi bintang dll

      Hapus

Thanks For Your Comment !! ^^:LC

LinkWithin

Related Posts Plugin for WordPress, Blogger...