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.
Harrah's Hotel and Casino Reno - Mapyro
ReplyDeleteFind harrah's casino, rwcatskills, 안양 출장마사지 ny, ny, ny, 전주 출장마사지 and other 보령 출장안마 ny hotel 의정부 출장마사지 and 김천 출장마사지 casino reviews.