.:: Blackc0de Forum ::.
Would you like to react to this message? Create an account in a few clicks or log in to continue.

-=Explore The World From Our Binary=-
 
HomeIndeksLatest imagesPendaftaranLogin

 

 Hak Akses Mysql Delphi

Go down 
3 posters
PengirimMessage
Black.exe
Global Mod
Global Mod
Black.exe


Jumlah posting : 844
Points : 1491
Reputation : 44
Join date : 08.01.11
Age : 35

Hak Akses Mysql Delphi  Empty
PostSubyek: Hak Akses Mysql Delphi    Hak Akses Mysql Delphi  Icon_minitimeFri May 04, 2012 10:38 pm

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.
Kembali Ke Atas Go down
davidshinoda
Pro Nubie
Pro Nubie



Jumlah posting : 63
Points : 67
Reputation : 2
Join date : 21.01.12
Age : 32
Lokasi : D:\\h4cK1ng

Hak Akses Mysql Delphi  Empty
PostSubyek: Re: Hak Akses Mysql Delphi    Hak Akses Mysql Delphi  Icon_minitimeMon Nov 12, 2012 1:05 am

nice inpo om, mumpung lagi blajar delphi dan DB nie...

Hak Akses Mysql Delphi  37346
Kembali Ke Atas Go down
http://bloganakkomputer.blogspot.com
ulZaAceh
NuuBiiTooL
NuuBiiTooL
ulZaAceh


Jumlah posting : 21
Points : 23
Reputation : 0
Join date : 09.10.12
Lokasi : ACEH

Hak Akses Mysql Delphi  Empty
PostSubyek: Re: Hak Akses Mysql Delphi    Hak Akses Mysql Delphi  Icon_minitimeMon Nov 12, 2012 4:05 am

masih punyeng nea masalah pemograman delphi
tapi nice share a kk
Kembali Ke Atas Go down
http://www.ulzaaceh.com/
Sponsored content





Hak Akses Mysql Delphi  Empty
PostSubyek: Re: Hak Akses Mysql Delphi    Hak Akses Mysql Delphi  Icon_minitime

Kembali Ke Atas Go down
 
Hak Akses Mysql Delphi
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Buat Akses Poin via HP
» Tutorial chmod hak akses di Linux
» akses mikrotik dengan winbox
» Percepat akses internet dengan DNS simple
» Fokus MySQL

Permissions in this forum:Anda tidak dapat menjawab topik
.:: Blackc0de Forum ::. :: Information Technology :: Database-
Navigasi: