Thursday, November 18, 2010

Membuat Aplikasi Login

Sekarang kita akan membuat suatu aplikasi login. Pertama-tama kita membuka delphi 7 caranya star>Allprogram>Borland Delphi 7>Delphi 7
Lalu secara otomatis Form 1 akan  terbuka, Maskuan 2 label baru caranya Seperti ini:


 Klik yang di lingkari
 
 
dan lakukan lagi
Untuk mengubah nama Label caranya:
Klik Label yang akan di ubah namanya> di properties cari caption> lalu ubah namanya

kemudian kita masukan edit box caranya klik seperti gambar d bawah
lalu klik d form
lakukan lagi, sampai jadi 2 edit box

sekarang masukan tombol buton caranya seperti gabar d bawah ini:
lalu klik di form

maka tampilannya seperti ini:

sekarang kita buat form 2
caranya klik file > new > Form
maka akan muncul di sana kita masukan label terserah katanya mau apa, misal "selamat anda telah berhasil login" atau yang lainya. lalu masukan button

sekarang kita balik lagi ke form 1 di sana kan sudah ada button, di klik 2 kali maka akan muncul tampilan seperti ini.

itu adalah sintask
di sana kita masukan kode ini:

procedure TForm1.Button1Click(Sender: TObject);
var
nama,pass:string;
begin
nama:=edit1.Text;
pass:=edit2.Text;
if(nama='Terserah')and(pass='Terserah')
then
begin
edit1.clear;
edit2.clear;
form2.show;
form1.visible:=false;
end;
end;
end.

keterangan: kalau yang udah ada jangan di ketik lagi ya. yang warna Merah ganti terserah anda

sekarang kita ke form 2 lagi, di sana kan sudah ada button klik 2 kali, keluar sintask masukan code di bawah ini:

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.show;
Form2.visible:=false;
end;
end
end.

selesai... huh

ter akhir kita klik run. maka prog ram akan di mulai
kurang lebih seperti ini:


udah ah cape











No comments:

Post a Comment

Powered by Blogger.