Contoh sederhana membuat log in di delphi...

Ada contoh aplikasi dan source code untuk membuat 'Form Log In' di 'Delphi'. Tapi masih menggunakan Database Access. Ga usah bingung kalo kamu mau buat 'Form Log In' pake Database yang lain,...
Karena pada dasarnya sama saja. Yang membuat beda hanya cara koneksi dari Delphi ke Database nya.

Berikut ini ada source code yang di letakkan pada Button dengan Event On Click :

//--------------------
procedure TFLogin.Button2Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from tbl_user where user_name='+QuotedStr(Edit1.Text)+'and user_pass='+QuotedStr(Edit2.Text)+'');
ADOQuery1.Active:=true;

if ADOQuery1.RecordCount <> 0 then
begin
if ADOQuery1['status']='Administrator' then
begin
Form1.Label1.Caption:='Selamat...'+#13+'Anda Log In Sebagai Administrator....';
form1.ShowModal;
end else
begin
Form1.Label1.Caption:='Selamat...'+#13+'Anda Log In Sebagai User biasa....';
form1.ShowModal;
end;
end else
begin
Application.MessageBox('Hahahahaha....'+#13+'User Tidak Terdaftar....','Error Log In',MB_OK);
exit;
end;
end;

//--------------------

Download Contoh Log In...