RUMUS PORTAL
User:*******
procedure TForm1.Edit1KeyPress(Sender:
TObject; var Key: Char);
begin
if key =#13 then
begin
if edit1.text ='heri' then edit2.SetFocus
else showmessage ('user yang anda
masukan salah');
end;
end;
password:********
procedure TForm1.Edit2KeyPress(Sender:
TObject; var Key: Char);
begin
if key =#13 then
begin
if edit2.text='125100100' then button1.SetFocus
else showmessage ('pasword yang anda
masukan salah');
end;
end;
login:
procedure TForm1.Button1Click(Sender:
TObject);
begin
if (edit1.text='heri') and
(edit2.text='125100100')
then showmessage ('user dan pasword
benar')
else showmessage ('user dan pasword
belum diisi atau slah, cek kembali');
if (edit1.text='heri')and(edit2.text='125100100')then
form2.Show;
end;
exit
close;
Tidak ada komentar:
Posting Komentar