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).
Kemudian kita bisa membuat hak akses untuk user yang akan memakai DB test tersebut.
Misalkan
admin dia mempunyai hak grand all, siA hanya dikasih privilage untuk
select saja, siB dikasih privilage untuk select dan insert saja dst...
kita juga bisa membuat privilage per-database dan per-table atas user yang kita buat sebelumnya..
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.
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.
Popular Posts
-
Saya tidak perlu menjelaskan satu persatu fungsi script yang anda download. Untuk melihat hasilnya cukup copy dan paste ke addressbar scr...
-
Posted by : TEAM ECHO.OR.ID VIVA PROGRAMMER LAS VEGAS! ======================= Pada bulan Januari lalu, Zynga kembali melakukan patch...
-
Apabila kita membuat aplikasi yang disitu terdapat hak akses untuk masing-masing user, maka kita bisa membuatnya dengan berbagai macam car...
-
Ada beberapa cara yang dapat digunakan untuk mereset Password pada Bios. Dari cara manual dengan bongkar pasang batere sampai cara u...
-
Berikut cuplikan streaming Majelis Nurul Musthofa secara LIVE Siaran akan dimulai sesuai jadwal Majelis Nurul Musthofa &l...
-
Untuk meng-crackpassword langkah pertama adalah mendapatkan hash. Run terminal and type: G4x:~ noadmin$ nidump passwd . -- anda akan mel...
-
Buat yang belum bisa untuk install ulang OS di Computernya dan blum tau gimana cara memperbaiki kesalahan-kesalahan dan eror yang te...
-
Ada kalanya saat tiduran sambil mendengarkan musik di winamp pengen ganti lagu tapi males bangun. Atau ingin meremote powerpoint tapi tidak...
-
Tutor : 1. Buka zkyE SpeciaL WinMod v.2.1 2. Buka PBLauncer 3. Start 4. Klik Inject WM 5. Keluar Notice trus ok.. Semoga bermanfaat...
-
[*] Fitur : 1 Hit SG Gosong [*]Cara Penggunaan : Setelah file terinjek, akan muncul notice.. saat notice itu muncul jangan menyentuh mo...
Recent Posts
Categories
- Ayo Dance (4)
- Bahan-Bahan Cheat (5)
- Computer (4)
- Cross Fire (1)
- Facebook (19)
- Game (3)
- Hacking Dan Cracking Software (18)
- Point Blank (59)
- Program (6)
- Programming (1)
- RF-Online (1)
- Software (17)
- Source Code (1)
- Streaming (3)
- Tips Trik (33)
- Trik Handphone (5)
- Visual Basic (1)
- Website (3)
0 Komentar:
Posting Komentar