login multiuser di delphi 7 menggunakan mysql

Bagikan :

Tweet

1.       Membuat database dengan table diberi nama pengguna

2.       Isi dari tabel nya

a.       Username

b.      Pasword

c.       Hakakses

3.       Buka aplikasi Delphi

4.       Buat 2 buah form

a.       Form utama

b.      Form login

Isi dari form login

-          2 label

-          2 editbox

-          2 button

5.       Klik 2 kali di button masuk

Isikan koding berikut:

procedure TfrmLogin.btnLoginClick(Sender: TObject);

begin

frmUtama.QueryAdmin.Close;

frmUtama.QueryAdmin.SQL.Clear;

frmUtama.QueryAdmin.SQL.Add('SELECT * FROM pengguna WHERE username="'+ eUsername.Text +'" And pasword="'+ePass.Text+'"');

frmUtama.QueryAdmin.Open;

if(frmUtama.QueryAdmin.IsEmpty)Then

begin

   MessageDlg('User Atau Password Salah',mtInformation,[mbOK],0);

   Close;

   eUsername.Clear;

   ePass.Clear;

   exit;

end

else

MessageDlg('Berhasil LOGIN ...!!!',mtInformation,[mbOK],0);

frmUtama.Da1.Enabled:=True;

frmUtama.InputNilai1.Enabled:=True;

frmUtama.Laporan1.Enabled:=True;

frmUtama.Logout1.Enabled:=True;

frmUtama.Keluar1.Enabled:=True;

frmUtama.Admin1.Enabled:=True;

frmUtama.Login1.Enabled:=False;

Close;

end;

6.       Terus untuk button keluar isikan koding berikut:

procedure TfrmLogin.btnBatalClick(Sender: TObject);

begin

Close;

end;

Tag : Teknologi