CARA MEMBUAT LOGIN DI DELPHI

    Adapun langkah - langkah untuk membuat form login di delphi yaitu sebagai berikut :

         1 .       Siapkan 2 form dimana 1 form untuk login dan 1 form untuk menu utama

2               2.    Buatlah database dengan dengan rincian sbb :

a.       Nama tabel : login

b.      Field : -  username : admin

-   Password :  123

3        3.      Desain form sebagai berikut

4       4.      Setting beberapa kontrol dengan ketentuan sebagai berikut :

ADOConnection1	ConnectionString Connected LoginPromt	Database1 True False
ADOQuery1	Active Connection SQL	True ADOConnection1 Select * from login
Edit1	Name Text	Edit1 -
Edit2	Name Text PasswordChar	Edit2 - *

5 

         5.      Selanjutnya Klik 2x pada button Login dan masukkan script berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

with ADOQUERY1 do

  begin

    Close;

    SQL.Clear;

    SQL.Text:='select * from Login where username='+quotedstr(Edit1.Text);

    Open;

  end;

if adoquery1.RecordCount = 0 then

  begin

    MessageDlg('Username tidak ada!'+#13+

    'Silakan ulangi.', mtWarning, [mbOK], 0);

    Edit1.Text:='';

    Edit2.Text:='';

    Edit1.SetFocus;

  end

else

if adoquery1.FieldByName('password').AsString <> Edit2.Text then

  begin

    MessageDlg('Username atau Password salah!'+#13+

    'Silakan Ulangi.', mtWarning, [mbOK], 0);

    Edit1.Text:='';

    Edit2.Text:='';

    Edit1.SetFocus;

  end

else

  begin

    MessageDlg('Login berhasil!.',

    mtInformation, [mbOK], 0);

    FORM1.Hide;

    FORM2.Show ;

  end

end;

end.

6     6.       Kemudian  klik File > Use unit kemudian pilih unit 2, untuk menghubungkan antara form 1 dan form 2

7     7.       Jalankan program anda.

             

                   Sekian tentang cara membuat login pada delphi semoga dapat bermanfaat.