Membuat Form Login Pada delphi7 menggunakan database Mysql dengan bantuan Zeos

Membuat Form Login Pada delphi7 menggunakan database Mysql dengan bantuan Zeos ~ Form login merupakan suatu componen yang dapat berfungsi untuk membatasi akses ke sebuah program.Dan tidak semua aplikasi atau program dapat digunakan secara umum.Maka dari itu Login ini sangat bermanfaat agar dapat membatasi hak akses seseorang,serta merupakan salah satu cara agar data aman.Pada kesempatan kali ini,penulis akan membagi pengetahuan tentang tata cara pembuatan form login menggunakan database Mysql dengan bantuan komponen zeos.Form login ini dapat
menggunakan beberapa database,salah satunya mysql,Acces dll.tapi untuk kesempatan kali ini,kita akan membahas dengan database Mysql.
Untuk lebih jelasnya,ikuti langkah-langkah berikut ini :

Buatlah database untuk user adminnya menggunakan Mysq seperti gambar dibawah ini :

Setelah database anda selesai,designlah form Login dimana tempat untuk pengimputan user name beserta passwordx,seperti gambar dibawah ini :

Kemudian hubungkan form login dengan database admin menggunakan Komponen Zconnection dan Komponen ZQuery (dikomponen zeos)

Kemudian ubah propertiesnya
Zconnection
* Database (isi sesuai dengan nama database admin yang sudah dibuat)
* HostName (LocalHost)
* Port (3306)
* Protocol (Mysql)
* User (root)
* Connected (true)
ZQuery
* Connection (Zconnection)
* SQL (Select * From namatabel)
* Active (True)

Catatan :
Nach jika eser name dan password yang dimasukkan benar akan mengarah ke form berikutnya,dan jika user name dan password salah akan muncul comfirmasi pengimputan ulang (Logikanya)..

Buatlah satu form yang berfungsi sebagai form tujuan seperti gambar dibawah ini :

ket :
Ini merupakan form utama/utama tapi tidak digunakan sebagai FormMidi.karena dalam delphi tidak bisa menggunakan dua form induk.











 




Nach untuk menghubungkannya ketikkan kode berikut ini di button login :

procedure TForm1.Button1Click(Sender: TObject);
begin
with zquery1 do begin
SQL.Clear;
SQL.Add('select * from login where username='+QuotedStr(edit1.Text));
open;
end;
//end with
//jika tidak ditemukan data yang dicari
//maka tampilkan pesan
if ZQuery1.RecordCount=0
then
Application.MessageBox('Maaf user name tidak ditemukan','informasi',MB_OK or MB_ICONINFORMATION)
else
begin
if ZQuery1.FieldByName('password').AsString<>Edit2.Text
then
Application.MessageBox('mastikan password yang anda masukkan benar','error',MB_OK or MB_ICONERROR)
else
begin
hide;
form2.Show;
end;
end;
end;

Button Exit

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

Nach anda tinggal tes dengan menekan tombol F9 atau Run...

Semoga dapat membantu,dan baca artikel selanjutnya untuk mempelajari Componen Zeos.
Salam berbagi...