Apabila kita membuat aplikasi yang disitu terdapat hak akses untuk masing-masing user, maka kita bisa membuatnya dengan berbagai macam cara. Bisa dengan membuat tabel privilage untuk masing-masing form, bisa menggunakan file yang ditaruh diluar *.exe dan kita panggil saat run mode, bisa kita masukan privilage ke dalam coding program secara langsung atau kita memanfaatkan hak akses dan privilage yang terdapat pada MySQL Server.
OK langsung saja ke TeKaPe.....
Pertama-tama tentunya kita harus mempunyai database terlebih dahulu, misalkan kita membuat tabel mhs : NIM, Nama pada DB test (menggunakan AppServ).
[You must be registered and logged in to see this image.]Kemudian kita bisa membuat hak akses untuk user yang akan memakai DB test tersebut.
[You must be registered and logged in to see this image.]Misalkan admin dia mempunyai hak grand all, siA hanya dikasih privilage untuk select saja, siB dikasih privilage untuk select dan insert saja dst...
[You must be registered and logged in to see this image.]kita juga bisa membuat privilage per-database dan per-table atas user yang kita buat sebelumnya..
[You must be registered and logged in to see this image.]OK pembuatan hak akses telah selesai, sekarang kita beralih ke delphi. disini saya menggunakan komponen MyDAC untuk melakukan koneksi ke MySQL.
Susun komponen seperti gambar dibawah.
[You must be registered and logged in to see this image.]Pada projek delphi tersebut terdapat 2 buah proses, pertama adalah proses untuk koneksi ke DB dan ke proses kedua adalah proses insert data, nanti kita bisa membandingkan apabila kita masuk sebagai user yang berbeda apa yang akan terjadi.
Proses koneksi DB
db.Connected := false;
db.DatabaseName := edit1.Text;
db.UserName := edit2.Text;
db.UserPassword := edit3.Text;
db.Host:= edit4.Text;
db.Port := strtoint(edit5.Text);
db.Connected := true;
Proses Insert data
try
q.SQL.Clear;
q.SQL.Add('insert into mhs values(:a, :s)');
q.ParamByName('a').Value := edit6.Text;
q.ParamByName('s').Value := edit7.Text;
q.ExecSQL;
except
showmessage('Privilage tidak mengijinkan');
end;
q.SQL.Clear;
q.SQL.Add('select * from mhs');
q.Active := true;
apabila kita masuk sebgai root maka kita bisa melakukan input data, tetapi apabila kita masuk sebgai karyawan maka kita tidak bisa melakukan input data. try... exception... berguna apabila proses input tidak bisa maka peringatan privilage tidak mengijinkan yang akan muncul.
Subyek: Hak Akses Mysql Delphi 
Fri May 04, 2012 10:38 pm
