Wednesday, January 4, 2012

Cara Membuat Form Login

Klik new form
Pada Palete standar pilih Button dan letakan pada form sebanyak 4.
Button 1 pada Properties Caption ubah menjadi user id, Button 2,3,4 juga pada captionnya di ubah menjadi password, login, keluar.
Double klik pada Button Login, kemudian isi seperti berikut :

procedure TULogin.Button1Click(Sender: TObject);
begin
if  (Edit1.Text <>'Adm') or (Edit2.Text<>'Adm') then
begin
 ShowMessage('ID atau password salah!');
    Edit1.Text:='';
    Edit2.Text:='';
    Edit1.SetFocus;
    Exit;
end
else
 TMenuutama1.Show;
 ULogin.Visible:=false;
 End;

Double klik Button Keluar, kemudian isi seperti berikut :

procedure TULogin.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

Kemudian simpan form.


1 comment: