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...

Title : Membuat Form Login Pada delphi7 menggunakan database Mysql dengan bantuan Zeos
Description : Membuat Form Login Pada delphi7 menggunakan database Mysql dengan bantuan Zeos ~ Form login merupakan suatu componen yang dapat berfungsi...

6 Responses to "Membuat Form Login Pada delphi7 menggunakan database Mysql dengan bantuan Zeos"

Unknown said...

kok Zconnection nya gag mau aktif ya pada properties connected nya..
ada pesan error nya begini
"SQL Error: Clien does not support authentication protocol requested by server; consider upgrading MySql client"

mohon bantuan nya om..
ke email saya aja ya om..
makasih :)
anggaplutonik@gmail.com

Abdurrohman Al-Indunisy said...

sukses gannn, terima kasih :)

Materi Dalam Hidup said...

Terima Kasih Kembali,sudah berkunjung.. :D

Materi Dalam Hidup said...

Kalau di lihat dari Error'nya..ad masalah pada protocol properties Zconnection'nya..
coba ganti dengan "mysql" tanpa tanda petik..


terima kasih,

Abdurrohman Al-Indunisy said...

@adhye asmadi hehe sangat membantu gan :D
@rachman hakim connectednya biarin false aja gpp gan. ane juga gitu aplikasinya tetep bisa jalan.

Anonymous said...

lebih singkat dengan kode ini.. semoga bisa jadi referensi :)

begin
with ZQuery1 do begin
SQL.Clear;
SQL.Add('SELECT * FROM user WHERE username='+QuotedStr(edit_user.Text)+' AND password='+QuotedStr(edit_pass.Text));
Open;
end;
if ZQuery1.RecordCount=0
then
begin
Application.MessageBox('Username atau password Anda salah.','Informasi',MB_OK or MB_ICONINFORMATION);
edit_pass.Clear;
edit_user.SetFocus;
end
else
Application.MessageBox('Selamat Datang','Sukses',MB_OK or MB_ICONINFORMATION)
end;

Statistik

free counters