Recent Posts

Tuesday, 21 August 2012

0 comments

Delphi 7 : Membuat Form Login

Pada postingan kali ini kita akan masuk dalam pembahasan pemrograman Delphi 7 yaitu membuat form Login. Jika kalian belum mempunyai program Delphi 7 (bisa di download disini). Form Login adalah tampilan aplikasi sederhana untuk proses masuk suatu ID ke suatu forum misalnya. Project ini memiliki 2 form : form 1 yaitu form login dan form 2 yaitu form hasil. Form ini akan menampilkan Form baru jika username dan passwordnya serasi dengan apa yang kita kodingkan, disini saya menginputkan isian username demz dan passwordnya tkj. Jika pada form login saya mengisi kotak username dengan demz dan passwordnya tkj, maka form ini akan membuka tampilan atau form baru, sebaliknya jika username bukan demz dan passwordnya bukan tkj maka form ini tidak akan memproses ke form selanjutnya. Contohnya bisa di download disini. Ingin mencoba silahkan Ikutilah langkah-langkah berikut ini :



Masuk ke program delphi 7


Start=>All Program=>Borland Delphi 7=>Delphi 7


Desain Form


Form1

Form2


Desain Properties


Form1
Object
Name
Caption
Label1
Label1
Username
Label2
Label2
Password
Edit1
Edit1
-
Edit2
Edit2
-
Button1
Button1
Login
Form1
Form1
Form Login

Form2
Object
Name
Caption
Label1
Label1
TERIMA KASIH ANDA TELAH BERHASIL LOGIN
Button1
Button1
Logout
Form2
Form2
Form Hasil

Listing Program

Listing Program 1
Ketika form dalam keadaan aktif jika Button Login di klik dan input benar maka akan tampil form hasil. Langkah-langkahnya :
1.    Double click button login
2.    Masukanlah kodingan program berikut ini:
procedure TForm1.Button1Click(Sender: TObject);
var
pass,nama:String;
begin
  nama:=edit1.text;
  pass:=edit2.text;
if (nama='demz') and (pass='tkj') then
begin
edit1.Clear;
edit2.Clear;
form2.show;
form1.Visible:=false;
end;
end;

Listing Program 2
Ketika form dalam keadaan aktif jika Button Logout di klik maka akan tampil form login kembali. Langkah-langkahnya :
1.    Double click button login
2.    Masukanlah kodingan program berikut ini:
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.visible:=true;
form2.Visible:=false;
end;

Jalankan Proses Running


Run=>Run atau Tekan F9 pada keyboard anda



= = SEMOGA BERMANFAAT = =

0 comments :

Best viewed on firefox 5+

Jumlah Pengunjung

Popular Posts

Project E.A.R - Marabahaya

Followers

Copyright © 2013 Design by Dadang Herdiana