Delphi membuat Login Password

Program Login Password :

Untuk Form 1
var
Form1: TForm1;
i:integer;

implementation

uses Unit2;
{$R *.dfm}

procedure TForm1.btncancelClick(Sender: TObject);
begin
close;
end;

procedure TForm1.btnloginClick(Sender: TObject);
begin
if edit1.Text ='ratih' then
if edit2.Text ='ratih' then
timer1.Enabled:=true
else
showmessage('password yang anda masukkan salah')
else
showmessage('username yang anda masukkan salah')
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
progressbar1.Position :=i;
if progressbar1.Position =50 then
begin
timer1.Enabled:=false;
i:=0;
form2.Show;
form1.Hide;
end;
end;
end.

Untuk Form 2
procedure TForm2.btnexitClick(Sender: TObject);
begin
application.Terminate ; // keluar dari aplikasi
end;
Ketika dijalankan dan ketika user tidak mengetikkan username 'ratih' dan password 'ratih' maka akan muncul peringatan. Jika benar maka timer1 menjalankan progressbar sampai posisinya bernilai 50. setelah itu muncul form2, form1 tidak ditampilkan.

[code language="html"]procedure Tpasswordform.FormActivate(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;[/code]

[8]    Simpan file form passwordform anda dengan nama uPasswd.PAS

[9]    Sorot kembali form userform anda. Tambahkan uses uPasswd pada klausa uses seperti tampak pada kode berikut :

[code language="html"]uses
Windows, Messages, ……… ,StdCtrls, uPasswd;[/code]

[10]    Sorot komponen tombol Test Password. Ketik kode berikut untuk event handler onclick sebagai berikut :

[code language="html"]procedure Tuserform.Button1Click(Sender: TObject);
begin
if passwordform.ShowModal=mrOK then
begin
if ((uppercase(edit1.text)=uppercase(passwordform.Edit1.text)) and
(uppercase(edit2.text)=uppercase(passwordform.Edit2.text))) then
showmessage('Username dan Password cocok')
else
showmessage('Username dan Password tidak cocok');
end
else
showmessage ('Pemasukan password batal');
end;[/code]

procedure TForm1.Button1Click(Sender: TObject);
var
s: String[255];
c: array[0..255] of Byte absolute s;
i: Integer;
begin

{Encode Password}

s := Edit1.Text;
for i := 1 to Ord(s[0]) do c[i] := 23 xor c[i];
Label5.Caption := s;

{Decode Password}

s := Label5.Caption;
for i := 1 to Length(s) do s[i] := Char(23 xor Ord(c[i]));
Label6.Caption := s;
end;

End;

Tweet