Membuat Login Multi User Dengan Delphi

Kali ini saya membuat tutorial tentang form multi user dengan Delphi 2010 dan dengan database mysql, dimana dalam program terdapat dua orang pengguna yang masing – masing mempunyai user dan password sendiri sehingga bisa Login.

Langsung saja ke TKP…

1.      Buat Form seperti di bawah ini..

2.      Tambahkan Komponen Zeos Access, TZConnection dan TZQuery

3.      Atur Komponen TZConnection dan TZQuery seperti di bawah ini :

-                      TZConnection

Database : contoh_login (isi dengan nama database anda, pada tutorial ini nama database yang saya buat contoh_login)

Hostname : localhost (karena kita menggunakan dalam local aja maka diisi localhost)

Protocol : mysql

User : root (karena defaul user dari MySql masih standart kita isi root)

Connection : true (kalau connection sudah bisa di true kan, maka koneksi berhasil)

-                         TZQuery

            Connection : Zconnection1 (pilih Zconnetion yang sudah kita atur tadi)

Sql : select * from admin (pada bagian sql ketikan script sql untuk melihat data dari tabel admin (tabel yang di buat untuk login))

Active : true (kalau sudah bisa di true kan berarti sudah terkoneksi)

4.      Untuk langkah selanjutnya klik 2 kali pada Zquery sehinggan akan ada jendela query muncul

5.      Klik kanan pada jendela query kemudian klik Add All Field, nanti akan ada field-field dari tabel admin(user dan password)

6.      Kemudia kita klik pada tombol login dan ketikan source code seperti berikut :

ZQuery1.Close;;

ZQuery1.SQL.Clear;

ZQuery1.SQL.Add('select * from admin where user = "'+Edit1.Text+'" and password = "'+Edit2.Text+'"') ; //edit1 = user dan edit2 = password

ZQuery1.Open;

//Pengecekan ketika user dan password yang dimasukkan benar

if not ZQuery1.IsEmpty then

  begin

    MessageDlg('user dengan login ='+ZQuery1user.Value+' berhasil Login',mtInformation,[mbok],0);

  end

  else

//pengecekan ketika user dan password yang di masukkan salah

  begin

    MessageDlg('Login gagal',mtInformation,[mbok],0);

  end;

7.      Jalankan, kemudian isikan user dan pasword yang ada di tabel admin

8.      Hasilnya seperti contoh berikut :

Data user yang ada di tabel admin :

Dan ketika program dijalankan dengan memasukkan user  = abdil dan password = abdil

Dan ketika program dijalankan dengan memasukkan user  = ada dan password = ada

Dan ketika program dijalankan dengan memasukkan user  = ada dan password = abdil

Nah begitu saja tutorial untuk membuat Login dengan multi user

Silahkan dikembangkan sendiri… sehingga bisa untuk memilih jenis login. hehehehe

Selamat mencoba……