Membuat Form Login dengan Delphi7

Assalamu 'alaikum Wr.Wb

Program Delphi mungkin sudah tidak asing lagi buat temen" yang sekolah atau kuliahnya mengambil bidang TI, yah....Delphi7 sekarang merupakan program yang sering d'gunakan temen" dalam menyusun sebuah Tugas Akhir yang ada hubungan'y dengan data aplikasi dekstop.

berikut saya mau share kan....gmna cara buat form login,diimana dalam setiap membuat aplikasi dekstop pasti awalnya kita d'harus kan buat login dlu....
OK...langsung saja ini contoh programnya,...semoga bermanfaat.

 

LISTING PROGRAM

 procedure TForm2.Button1Click(Sender: TObject);

var
user,user_id,pas,pas_id:string;
begin
user:='achink';
pas:='mencarimu';
user_id:=edit1.Text;
pas_id:=edit2.Text;

if (user=user_id)and(pas=pas_id) then
Form1.Show

else
application.MessageBox('Password Salah...!!','Information',MB_ICONQUESTION or MB_OK);
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
Form2.Hide
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
end;

procedure TForm2.Button3Click(Sender: TObject);
var
keluar:integer;
begin
keluar:=Application.MessageBox('Anda Yakin Mau Keluar....?','Konfirmasi',MB_ICONQUESTION or MB_YESNO);
if keluar=idyes then
application.Terminate;
end;