Mahasiswa Tuntut Polda Sumbar Tuntaskan Kasus Shaka

Mahasiswa Tuntut Polda Tuntaskan Kasus Shaka | Gho Blog's - Puluhan mahasiswa yang tergabung da­lam Aliansi Mahasiswa untuk Keadilan (AMUK), Selasa (29/1)  menggelar longmarch dan aksi penyampaian pernyataan di depan kantor Kepo­lisian Daerah (Polda) Sumbar. Mereka menun­tut Polda Sumbar mengusut tuntas aksi kekerasan yang dilakukan Ipda DPS terhadap mahasiswa UPI.

Sempat ditolak bertemu Kapol­da maupun Wakapolda Sumbar, puluhan mahasiswa yang terdiri dari perwakilan BEM UPI, LAM & PK Unand, PHP Unand, BEM ATIP, HIMA IAIN, FMN Sumbar, HIMA IKOM Unes, dan UBH tersebut, sempat mem­blokir jalan Sudirman.

Aksi tersebut membuat lalu lintas dikawasan tersebut macet total, sebelum aparat kepolisian mengambil inisiatif menutup jalan. Sehingga dengan leluasa mereka berbaris rapi menghadang jalan.

Di tengah terik matahari siang itu, mereka menuntut polisi menun­tut tuntas kasus Shaka dan Agung. Selain itu,  penjara­kan dan pecat pelaku penyiksaan terhadap korban Shaka dan Agung. Polda Sumbar juga dimin­ta untuk men­copot Kapolsek Padang Timur dari jabatannya, dan meminta pihak kepolisisan menghentikan inti­midasi terha­dap korban, saksi, dan keluarga.

“Sampai kini, intimidasi terha­dap keluarga korban masih terus terjadi,” kata juru bicara AMUK, Like kepada wartawan, Selasa (29/1). Dia meminta polisi tegas mengusut kasus tersebut. Aksi turun ke jalan katanya, akan terus dilakukan sampai kepoli­sian menindak tegas oknum polisi pelaku kekerasan.

Sebelumnya, Shaka Musti Diguna (20) dan temannya Agung mendapat perlakuan tidak bersa­ha­bat dari Polsek Padang Timur saat menggelar razia sepeda motor di daerah tersebut. Mereka dipukul oleh oknum polisi karena dianggap melawan.

Pengakuan Shaka, dia tidak hanya dipukul tetapi juga dipaksa menanggalkan celana. Oknum polisi tersebut juga menyita dompet korban yang berisi uang Rp300 ribu, satu unit sepeda motor jenis Honda Supra Fit dengan nomor polisi BA 3369 AL, 2 buah kartu ATM, serta 2 buah STNK tanpa alasan yang jelas.

Koordinator Divisi Pemba­haruan Hukum dan Peradilan LBH Pa­dang, Era Purnama Sari menyata­kan mengecam tindakan aparat tersebut.  Dia menyayang­kan kondisi mental aparat kepo­lisian di Sumatera Barat, yang dinilai sudah sangat mempri­hatinkan. Sejak awal Januari 2013  hingga kemarin, sudah terjadi 6 tindakan kekerasan yang di lakukan aparat kepolisan, terhadap warga sipil. “Apakah masih pantas polisi kita sebut sebagagi pelayan masya­rakat?” tanya Era. (Sumber)

Cara Membuat Program Laporan Dengan Seleksi Data Pada Visual Basic 6.0 Dan Crystal Report 8.5

Cara Membuat Program Laporan Dengan Seleksi Data Pada Visual Basic 6.0 Dan Crystal Report 8.5 | Gho Blog's - Seperti yang pernah saya janjikan sebelumnya, kali ini kita akan membahas lebih lanjut tentang bagaimana cara membuat laporan dengan seleksi data.

Mungkin sobat bingung apa yang dimaksud dengan seleksi data. Saya narasikan secara sederhana dan singkat sebagai berikut :

Kita akan membuat program laporan data siswa berdasarkan kelasnya, jadi laporan yang akan tampil di Crystal  Report nantinya adalah data siswa berdasarkan kelas yang sobat pilih melalui program Visual Basic. Maksudnya, jika sobat memilih kelas XII-IPA-1 melalui Visual Basic maka di Crystal Report yang tampil hanyalah data-data siswa kelas XII-IPA-1 saja, sedangkan kelas lainnya tidak akan tampil.

Kalau sobat masih bingung, kita langsung cobakan saja membuat programnya, jika sudah selesai nanti, saya yakin sobat akan mengerti dengan sendirinya. Sekarang, silakan sobat ikuti langkah-langkah berikut ini :

• Buatlah sebuah database menggunakan MS Office Access 2003 (Jika menggunakan MS Access 2003 keatas, pastikan disimpan dengan format 2003 yaitu *.mdb). Beri nama database trsebut dengan nama latihan.mdb.
• Simapanlah database tersebut pada sebuah folder yang nantinya pada folder tersebut kita juga akan menyimpan program laporan dan project Visual Basic.
• Buat satu buah File/tabel dengan nama tbbelajar dengan field-field sebagai berikut :

• Masukkan beberapa buah record kedalam file tersebut. Sobat bisa melakukan secara manual atau dengan membuat program Entry di Visual Basic 6.0 terlebih dahulu. Untuk membuat program entry, silakan sobat buka kembali tutorial sebelumnya.
• Sebagai contoh, coba sobat masukkan data-data berikut ini kedalam file/tabel tbbelajar yang sobat buat tadi :

• Jika sudah, buatlah disain di Crystal Report 8.5 seperti gambar dibawah ini. Disini saya tidak lagi menjelaskan langkah-langkah membuat disainnya. Untuk sobat yang belum tahu caranya silakan buka kembali tutorial saya yang berjudul Cara Membuat Program Laporan Dengan Crystal Report 8.5 Dan Visual Basic 6.0. Berikut disain yang harus sobat bikin :

• Setelah itu simpan disain tersebut dalam satu folder dengan database yang sobat buat tadi.
• Agar program tidak error saat dipindah folderkan nantinya, klik menu Database, pilih Set Location kemudian klik tombol Same As Report dan klik tombol Done.

Disain Visual Basic 6.0

Kemudian buat sebuah project baru di Visual Basic 6.0 (Gunakan VB Enterprise Edition Controls).
Kita harus mengaktifkan Crystal Report Control yang berada di Visual Basic terlebih dahulu. Caranya klik menu Project kemudian pilih Componets.
Cari Crystal Report Control yang berada di list, beri tanda check list kemudian klik OK.

• Buat disain di form Visual Basic seperti gambar dibawah ini :

• Buatlah sebuah Module dengan cara, Klik menu Project kemudian pilih Add Module dan masukkan script berikut ini pada Module tersebut :

Global conn As ADODB.Connection Global rssiswa As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\latihan.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

• Sekarang kita kembali ke Form Laporannya, aturlah Interval Timer 1 menjadi 360. Kemudian double klik pada Timer 1 dan masukkan script berikut tepat diantara Private Sub Timer1_Timer() dengan End Sub :

Label4.Caption = Format(Date, "dd MMMM YYYY")

• Setelah itu, double klik pada form, dan masukkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub :

koneksi On Error GoTo kosong: Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "select * from tbbelajar", conn, , , adCmdText rssiswa.MoveFirst Max = rssiswa.RecordCount For X = 1 To Max Combo1.AddItem rssiswa.Fields(5) rssiswa.MoveNext Next kosong: If (Err.Number = 3021) Then MsgBox "File Siswa Masih Kosong", vbOKOnly, "Informasi" Exit Sub End If

• Terakhir, double klik pada tombol Cetak dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub :

On Error GoTo pesan: If Combo1.Text = "Pilih Kelas" Then MsgBox "Kelas Belum Dipilih", vbInformation, "Informasi" Else If Text1.Text = "" Or Text2.Text = "" Then MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbInformation, "Warning" Else CrystalReport1.ReportFileName = App.Path & "\lap-per-kelas.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.SelectionFormula = "{tbbelajar.kelas}= '" & Combo1.Text & "'" CrystalReport1.WindowState = crptMaximized CrystalReport1.Formulas(0) = "namakepsek='" & Text1.Text & "'" CrystalReport1.Formulas(1) = "nip='" & Text2.Text & "'" CrystalReport1.Action = 0 pesan: If (Err.Number = 20533) Then MsgBox "Data Base Tidak Bisa Diakses...!", vbInformation, App.Title Exit Sub End If End If End If

Bagaimana..., tidak terlalu sulit kan...?

Kalau sobat masih bingung, sobat bisa download contoh programnya disini :

Atau :

Sekian dulu tutorial dari saya yang berjudul Cara Membuat Program Laporan Dengan Seleksi Data Pada Visual Basic 6.0 Dan Crystal Report 8.5. Selamat mencoba dan semoga bermanfaat.

Video Penggalian Kembali Makam Syuhada Suriah | Jenazah Masih Utuh Dan Wangi

Video Penggalian Kembali Makam Syuhada Suriah | Jenazah Masih Utuh Dan Wangi | Gho Blog's - Situs berita Islam Asy-Syam melaporkan penduduk desa Tariq Sad, kota Balad, propinsi Dara'a Suriah membongkar kembali kuburan darurat dua warga yang syahid, Nama mereka adalah Anas Musalimah dan Walid 'Ayash. Keduanya gugur oleh bombardir tentara thaghut suriah di desa itu. Akibat gencarnya bombardir dan sulitnya proses evakuasi, kedua syahid ini dikuburkan secara darurat di halaman rumah seorang warga.

Setelah bombardir agak mereda, beberapa hari kemudian penduduk desa membongkar kuburan darurat itu guna memindahkan kedua syahid ke pemakaman umum pada Kamis (20/12/2012). Warga desa membongkar kembali kuburan keduanya dengan cangkul dan sekop. Saat kedua jenazah diangkat, bau minyak wangi tercium sangat harum oleh seluruh warga dan wartawan yang mengikuti proses pembongkaran makam.

"Para syuhada' ini masih hidup dan suci dalam kuburan mereka. Bau minyak misk tercium sangat harum dari jenazah mereka," lapor wartawan situs Asy-Syam yang meliput langsung proses pembongkaran makam kedua syahid tersebut.

Wahai muslim lihatlah jenazah muslim ini yang insya Allah syahid. Setelah beberapa hari dikubur namun tidak membusuk justru jenazahnya lemas dan tidak kaku. terlihat seperti orang tidur saja. dan wartawan dari situs Asy-Syam mengatakan tercium aroma wangi misk yang sangat harum ketika membongkar makam mereka.

SUBHANALLAH!

"Dan janganlah sekali-kali engkau menyangka orang-orang yang terbunuh di jalan Allah itu mati, justru mereka adalah orang-orang yang hidup di sisi Rabb mereka dan mereka senantiasa dikaruniai rezeki." (QS. Ali Imran: 169)

Berikut ini videonya :

3 x 0.5 Menit Yang Sangat Penting

3 x 0.5 Menit Yang Sangat Penting | Gho Blog's - Para ahli sering berpesan: Setiap orang harus memperhatikan 3 x setengah menit. "3 x setengah menit" adalah sesuatu yang sangat singkat, tetapi akan banyak mengurangi angka kematian secara tiba-tiba! Kenapa demikian...?

Sering kali terjadi seseorang siangnya masih sehat walafiat, tetapi malam nya tiba-tiba ada kabar dia meninggal. Tidak jarang kita mendengar cerita orang, kemarin saya masih ngobrol dengan dia, kenapa tiba-tiba dia meninggal...?

Penyebabnya bisa salah satunya adalah ketika bangun malam untuk ke kamar mandi sering dilakukan secara terlalu cepat. Begitu bangun dan langsung berdiri, otak akan kekurangan darah. Mengapa perlu "3 x setengah menit..?"

Karena pola ECG (Electro Cardiogram) seseorang akan normal pada siang hari, tetapi ketika bangun tengah malam untuk melaksanakan hajat misalnya dan dia langsung bangun dengan tiba-tiba, gambar ECG itu dapat berubah? Kenapa demikian?

Karena dengan tiba-tiba bangun, otak akan menjadi anaemic, dan mengalami gagal jantung karena kekurangan darah.

Dianjurkan oleh para ahli untuk menjalankah "3 x setengah menit", yakni:

1. Bila terbangun jangan langsung turun dari tempat tidur, tetapi berbaringlah selama setengah menit;
2. Duduk di tempat tidur selama setengah menit; 
3. Turunkan kaki, duduk di tepi ranjang selama setengah menit.

Setelah lewat 3x setengah menit yang dilakukan tanpa harus membayar session pun tersebut, otak tidak akan anaemic, dan jantung tidak akan mengalami kegagalan, mengurangi kemungkinan jatuh dan meninggal ketika bangun tengah malam seperti yang sering kita dengar.

Pernah setelah membaca tulisan ini, seorang usia lanjut menangis menyesali kenapa dia tidak mengetahui hal ini jauh-jauh hari.

Dua tahun lalu dia bangun tengah malam untuk buang air kecil, dikamar mandi tiba-tiba merasa dunia seperti berputar dan kemudian dia jatuh, akibatnya dia sekarang mengalami kelumpuhan dan tidak bisa meninggalkan tempat tidur lagi. Kalau saja dia mengetahui hal ini, tidak harus menderita selama ini.

Inilah 5 Gadget Yang Dapat Menimbulkan Penyakit Berbahaya

Inilah 5 Gadget Yang Dapat Menimbulkan Penyakit Berbahaya | Gho Blog's - Seiring kemajuan teknologi, kita semakin tak bisaterpisahkan dari berbagai gadget. Walau demikian, ada baiknya kita memegang kendali dan membatasi waktu agar tak tergantung sepenuhnya pada semua perangkat elektronik.

Menurut beberapa penelitian, gadget bisa mengundang penyakit bila dipakai terlalu berlebihan.

Berikut ini 5 di antaranya :

1. Laptop

Riset yang dilakukan oleh National Institute of Occupational Safety and Healty Los Angeles menghasilkan sebuah fakta tentang penyakit yang diderita pengguna laptop. Penyakit ini bernama Computer Vision Syndrom. Kelainan ini terjadi jika kita terlalu lama memfokuskan mata ke layar komputer. Gejala yang ditimbulkan, pandangan kabur, nyeri dikepala, sakit leher, mata terasa lelah, kering dan iritasi. Selain itu, laptop yang diletakkan di paha dapat membakar paha seperti daging panggang. Hal ini dikarenakan panas yang keluar dari laptop. Kasus terparah adalah kanker kulit.

2. Komputer

Penyakit yang timbul, menurut Davis, adalah masalah jantung dan obesitas karena kurang gerak. Kejang otot juga pernah terjadi karena terlalu lama menggunakan mouse atau salah posisi mengetik.

3. IPods

Davis menjelaskan penelitiannya yangmengatakan bahwa mendengarkan musik dengan iPods selama satu jam setengah dapat mengganggu pendengaran, bahkan pada kasus terparah adalah tuli.

4. Smart phone

Radiasi dari ponsel dapat menimbulkaninsomnia, stres, darah tinggi, tumor otak, hingga kanker. Disamping itu, sering chatting, borwsing, dan aktifitas lainnya secara bersamaan akan melemahkan kerja otak serta meningkatkan kecemasan. Mengetik pesan terlalu sering pun mampu menimbulkan memar dan tremor pada jari hingga pergelangan tangan.

5. Game player

Nyeri pungung dan bahu merupakan efek yang paling umum dirasakan, namun ini akhirnya berakibat pada pertumbuhan tulang yang tidak sempurna, seperti bungkuk. Game akan terserang penyakit tendonitis akut, yaitu peradangan pada jaringan yang menghubungkan otot dan tulang. (Sumber)

Mahasiswa Korban Pemukulan Polisi Mengadu Ke LBH Setelah Mendapat Teror Dari Pelaku

Mahasiswa Korban Pemukulan Polisi Mengadu Ke LBH Setelah Mendapat Teror Dari Pelaku | Gho Blog's - Hanya karena tidak memakai helm, oknum polisi yang berdinas di Polsek Padang Timur, Kota Padang tak hanya menilang tapi juga memukul Shaka (19) mahasiswa sebuah PTS di Padang, Jumat (25/1). Akibatnya berbuntut ke Propam Polresta Padang. 

Orangtua Shaka mengadu ke Propam karena tak terima anaknya dipukul oleh aparat pengayom publik tersebut. "Oknum Polsek Padang Timur inisial DPS mestinya tak perlu memukul karena pelanggaran anak saya hanya tak pakai helm," ujar Muchtar, orangtua Shaka.

Shaka Musti dipukuli oleh DPS yang saat itu tidak pakai baju dinas. "Atas kejadian ini saya bersama Shaka sudah melapor ke Propam Polresta Padang," ujar Muchtar lagi kepada pers di Polresta Padang.

Namun karena mendapatkan telepon ancaman, keluarga Shaka pun mengadu ke LBH Padang. Menurut  kuasa hukum korban dari LBH Padang, Roni Saputra, pihaknya akan mengawal kasus pemukulan ini.

"Ini untuk tegaknya hukum di institusi Polri, bahwa polisi itu pengayom masyarakat, tidak main tangan. 

Oknum polisi yang memukul itu menjabat Kanit Reskrim pula di Polsek Padang Timur itu," ujar Roni.

Roni menyesalkan adanya teror ke korban dan keluarganya melalui handphone supaya tidak memperpanjang kasus ini. "Saya akan kawal kasus ini supaya diproses," kata Roni. (Sumber)

Oknum Polisi Pelaku Pemukulan Mahasiswa UPI "YPYK" Padang Dipanggil Provost

Oknum Polisi Pelaku Pemukulan Mahasiswa UPI "YPYK" Padang Dipanggil Provost | Gho Blog's - Pelaku dugaan pemukulan kepada Shaka Musti (19), mahasiswa Universitas Putra Indonesia (UPI) Padang, telah dipanggil Provost Polresta Padang. "Sudah kita panggil dan saat ini masih dalam tahap penyelidikan," ujar Kanit Provost Polresta Padang, AKP Warman, Jumat (25/1) malam di Markas Polresta Padang.

Kasus dugaan pemukulan yang diduga dilakukan oknum yang menjabat Kanit Polsek Padang Timur, DPS, terjadi pada Selasa lalu. "Setelah pemanggilannya, kita akan memintai keterangan beberapa saksi juga," ujar Warman.

Saat ini, AKP Warman belum bisa memastikan apakah DPS sudah ditetapkan sebagai tersangka atau belum. "Masih penyelidikan, belum ada tersangka, masih penyelidikan dan pengembangan kasus tersebut," ujarnya.

Terjadinya peristiwa pemukulan terhadap mahasiswa UPI menyebar di jejaring sosial facebook telah mengusik anggota Komisi III DPR RI Taslim Chaniago yang tengah pulang ke daerah pemilihan. "Provost harus usut tuntas kasus dugaan penganiayaan itu, jangan sampai tiba diperut dikempeskan tiba di mata dipicingkan, ingat siapa saja sama di mata hukum," ujar Taslim.

Sementara Ipda DPS mulai tersudut dan mengakui dirinya sudah dipanggil Provost Polresta Padang.

"Sudah dimintai keterangan terkait laporan dua mahasiswa tersebut," ujarnya.

Bahkan kata DPS, sore setelah kejadian (Selasa, Red) dia  telah meminta maaf terhadap kedua korban. "Korban juga sudah memafkan bahkan sepeda motor dan surat-surat telah diserahkan kepada korban dan korban pun pergi meninggalkan Polsek Padang Timur," ujarnya.

Tapi, kata DPS, pada malam harinya kedua korban kembali mendatangi Mapolsek Padang Timur. Kedatangan korban itu juga didampingi kakaknya yang merupakan anggota TNI. "Kembali malam itu saya jelaskan dan meminta maaf kembali kepada korban," ujar DPS.

Tapi kakak korban tidak menerima dan tetap melaporkan DPS ke Provost Polresta Padang. Bahkan bersama orangtuanya juga mengadu dan menunjuk LBH Padang sebagai kuasa hukumnya.

Menurut Wakil Direktur LBH Padang sekaligus kuasa hukum korban, Roni Saputra, Ipda DPS sudah dilaporkan ke Polda Sumbar. "Kita sudah melapor sore tadi ke SPKT Polda Sumbar dengan nomor  LP/I/2013-SPKT Sbr, tertanggal 25 Januari 2013, diterima Aipda Hengki Darmawan," ujar Roni, Jum'at (25/1). (Sumber)

Mahasiswa Dipukul Oknum Polisi Saat Razia

Mahasiswa Dipukul Oknum Polisi Saat Razia | Gho Blog's - Shaka Musti Diguna (21), mahasiswa salah satu perguruan tinggi ternama di Kota Pa­dang mengaku dipukuli be­berapa oknum anggota Polsek Padang  Timur, ketika ter­jaring razia kendaraan ber­motor yang digelar di depan Mapolsek Padang Timur, Selasa (22/1) pukul 14.15 WIB.

Tidak terima dengan tin­dakan penganiayaan yang dilakukan terhadapnya, Sha­ka pun  melaporkan kejadian itu ke Unit Propam Poresta Pa­dang, Rabu (23/1) dengan no­mor surat LP/03/1/2013/Propam.

Shaka menceritakan, saat razia gabungan digelar, ia mengendarai sepeda motor bersama salah seorang temannya, Agung. Ia ber­hen­ti 50 meter sebelum lokasi razia karena menyadari tidak memakai helm dan kaca spion.

Kejadian ini pun dilihat oleh salah seorang oknum polisi yang tidak mengenakan seragam dan memintanya berhenti. Karena khawatir motornya dicuri, Shaka pun memasukkan kunci kontak sepeda motor ke dalam sakunya.

“Karena saya tidak tahu siapa orangnya, saya masukkan kunci ke kantong. Saya khawatir ia hanya oknum yang mengaku sebagai polisi yang bisa saja membawa lari sepeda motor saya,” kata Shaka saat datang ke redaksi Haluan, Kamis (24/1).

Tidak lama kemudian datang lagi seorang oknum polisi yang langsung memukul Shaka dengan siku kanannya.  Berikutnya datang lagi, seorang pria tanpa pakaian seragam polisi memukul Agung, yang belakangan diketahui Shaka bahwa orang itu adalah Kanit Reskrim Polresta Padang Timur Ipda Daniel Simangunsong.

Kemudian, kata Shaka, aksi pemukulan masih berlanjut ketika dia ditanyai dan dintegrogasi sampai pukul 16.30 WIB. Selama berada di Mapolsek ini keduanya beberapa kali kembali menerima pukulan yang mengakibatkan  luka lebam di wajah, dan trauma akibat diintimidasi. “Bahkan sempat diancam akan di DO dari kampus,” katanya.

Kejadian ini berakhir ketika keduanya menyerahkan permasa­lahan ini kepada polisi dengan meminta motor beserta STNK, SIM, dan kunci motor dikembalikan. “Namun saya  masih belum terima atas pemukulan yang dilakukan aparat  terhadap saya dan teman saya,” ujar Shaka.

Masalahnya belum selesai sampai di situ. Warga sekitar yang melihat Shaka luka lebam, mengan­jurkan Shaka kembali ke Mapolsek Padang Timur menanyakan alasan mengapa  dia dipukuli. Saat itu dia ditemani Agung dan salah seorang anggota TNI berpangkat Praka.

Seusai mendatangi Mapolsek, Shaka pun masih diintimidasi dan dipukuli, serta diminta mening­galkan dompetnya dan mengambil sepeda motor yang dibawanya siang tadi dengan berjalan kaki.

Merasa tidak terima dengan tindak penganiayaan yang dia alami,  keesokan harinya, Shaka melaporkan kejadian ini ke Polresta Padang. Sampai saat ini motor beserta dompet, KTP, dan SIM masih ditahan Kanit Reskrim Polresta Padang Timur Ipda Daniel Simangunsong.

Kapolsek Padang Timur Kompol Erman ketika dihubungi tidak mengangkat telepon. Selain itu, Kanit Reskrim Ipda Daniel Sima­ngun­song menolak memberikan keterangan. (http://harianhaluan.com)

Cara Membuat Program Login Dengan Batasan Hak Akses Pada Pemrograman Visual Basic 6.0

Cara Membuat Program Login Dengan Batasan Hak Akses Pada Pemrograman Visual Basic 6.0 | Gho Blog's - Kali ini kita lanjutin lagi tutorial pemrograman Visual Basic 6.0. Yang akan kita bahas adalah bagaimana cara membuat program login dengan batasan hak akses. Letak batasannya sendiri ada pada akses menu untuk tiap-tiap user akan berbeda-beda tergantung dari level user tersebut.

Disini saya akan memberi contoh sederhana pemrogramannya. Pada program yang akan kita coba buat ini saya membagi aksesnya menjadi dua yaitu :

1. Level Admin =>> Bisa mengakses menu secara keseluruhan (Entry dan Laporan)
2. Level User =>> Hanya bisa mengakses menu Laporan saja.

Sebelumnya kita harus membuat program menu utama terlebih dahulu. Saya pernah memposting tutorial tentang pembuatan program menu menggunakan menu editor, jadi program itu yang akan kita gunakan pada posting kali ini.

Untuk sobat yang belum mengikuti posting terdahulu, sobat bisa download saja program menu nya melalui link berikut ini :

• Via Gho Blog's Download Area : (Download Project)
• Via Mediafire : (Download Project)

Jika sudah didownload, sobat extract saja isi file yang sobat download tadi. Setelah itu ikuti langkah-langkah berikut ini :

• Buat sebuah database dengan Microsoft Office Access 2003 (Jika menggunakan MS Access 2007 keatas simpan database dengan format 2003 yaitu *.mdb). Simpan database dalam satu folder dengan program menu yang sobat download tadi dan beri nama database tersebut "dblogin.mdb".
• Buatlah sebuah tabel / file dengan field-field seperti gambar dibawah ini :

• Beri nama tabel/file tersebut dengan nama "datauser".
• Masukkan 2 buah data ke dalam tabel datauser seperti berikut ini :

1. username : adm001, password : 1234, level : Admin
2. username : us001, password : 4321, level : User

• Kemudian Save dan Tutup/Close database tersebut.

Langkah selanjutnya, kita akan membuat program nya, silakan sobat ikuti langkah-langkah berikut :

• Bukalah project yang sobat download tadi.
• Tambahkan dulu Component ADODC nya jika belum tersedia dibagian Tools yang berada disebelah kiri. Caranya, klik menu Project => Pilih Components => Cari dan beri tanda Check List pada Microsoft ADO Data Control 6.0 (OLEDB) => Klik Tombol OK.
• Tambahkan satu buah form baru (Form7) dan buatlah design seperti gambar berikut ini :

• Untuk Text2.Text, aturlah PasswordChar pada properties menggunakan tanda bintang(*) seperti gambar berikut ini :

• Kemudian Aturlah Visible pada Label 4 menjadi False. seperti gambar berikut :

• Selanjutnya, buatlah satu buah Module dengan cara : Klik menu Project => pilih Add Module => Klik tombol Open. Kemudian masukkan script berikut pada Module tersebut :

Global conn As ADODB.Connection Global rslog As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\dblogin.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

• Selanjutnya kita akan membuat program untuk batasan hak akses. Caranya, masukkan script berikut di bagian codding pada form yang kita buat tadi.

Private Sub akses() If Label4.Caption = "Admin" Then Form1.ent.Visible = True Form1.lap.Visible = True Else If Label4.Caption = "User" Then Form1.ent.Visible = False Form1.lap.Visible = True End If End If End Sub

• Kemudian double klik pada form, dan masukkan script berikut tepat diantara Private Sub Form_Load()  dengan End Sub 

koneksi

• Selanjutnya, double klik pada Text2.Text dan masukkan script berikut tepat diantara Private Sub Text2_Change() dengan End Sub

Set rslog = New ADODB.Recordset rslog.LockType = adLockOptimistic rslog.CursorType = adOpenDynamic rslog.Open "select * from datauser", conn, , , adCmdText rslog.Filter = " password= '" & Text2.Text & "'" If Not rslog.EOF Then Label4.Caption = rslog.Fields(3) End If

• Terakhir, double klik pada tombol Login dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub

Set rslog = New ADODB.Recordset rslog.LockType = adLockOptimistic rslog.CursorType = adOpenDynamic rslog.Open "select * from datauser", conn, , , adCmdText If rslog.RecordCount > 0 Then rslog.MoveFirst rslog.Find "username ='" & Text1.Text & "'" rslog.Find "password ='" & Text2.Text & "'" If rslog.AbsolutePosition <> adPosEOF Then Call akses Unload Me Form1.Show Else MsgBox "user / Password Yang Anda Masukkan Salah", vbOKOnly, "Info" End If End If

• Aturlah Form Login (Form7) menjadi form yang pertama kali dijalankan saat program di running. dengan cara klik menu Project => pilih Project1 Properties => pilih Form7 pada Startup Object => klik tombol OK.

Sekarang coba jalankan program yang kita buat ini. Pertama cobalah login sedagai admin dengan data berikut :

• Username : adm001
• Password : 1234

Karena level admin diberikan hak akses untuk bisa menggunkan seluruh menu yang tersedia, maka tidak akan terlihat perubahaan pada form Menu. Sekarang coba sobat login sebagai User dengan data berikut ini :

• Username : us001
• Password : 4321

Sekarang sobat bisa lihat menu entry pada form menu menghilang. Hal ini karena kita mengatur level user hanya bisa mengakses menu laporan saja.

Jika sobat masih bingung dengan pembahasan kali ini, sobat bisa download program nya melalui link berikut ini untuk lebih memahaminya :

Atau :

Sekian dulu tutorial Visual Basic 6.0 yang berjudul Cara Membuat Program Login Dengan Batasan Hak Akses Pada Pemrograman Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.

Pacarmu Kini Belum Tentu Jodohmu Nanti

Pacarmu Kini Belum Tentu Jodohmu Nanti | Gho Blog's - Seorang PACAR itu kebanyakan hanya hadir sebagai penghias hidup seseorang. Dia hanya singgah sebentar yang terkadang menyisakan kepahitan dan penyesalan yang berkepanjangan.

Sedangkan JODOH adalah teman hidup yang telah digariskan Allah untuk menjadi pasangan pendamping hidup kita sepanjang hayat hingga kematian yang memisahkan.

Seseorang yang engkau anggap pacarmu belum tentu menjadi jodohmu!

Jadi jangan terlalu berharap banyak padanya hingga engkau rela menyerahkan segalanya demi apa yang engkau sebut cinta.

Ribuan korban selalu berjatuhan. Dan terus berjatuhan setiap harinya. Tapi anehnya, terlalu sedikit dari kita yang bisa mengambil hikmah dari kejadian-kejadi an yang terjadi di sekitar kita.

Tanya kenapa?

Karena lemahnya iman! Itulah jawaban yang paling pantas!

Keimanan yang seharusnya menjadi tameng malah ditukar dengan nafsu yang selalu menggerogoti pikiran kita.

Masihkah kita mengagungkan hubungan yang nyata-nyata dilarang Agama?

Ingatlah..

Hanya pasangan halalmu yang paling berhak untuk memilikimu. Lahir batin. Luar dalam. Bukan pacarmu yang setiap waktu bisa saja pergi meninggalkanmu.

Renungkanlah sebelum terlambat dan berakhir dengan sebuah penyesalan. (zilzaal.blogspot.com)

Cara Membuat Program Laporan Dengan Crystal Report 8.5 Dan Visual Basic 6.0

Cara Membuat Program Laporan Dengan Crystal Report 8.5 Dan Visual Basic 6.0 | Gho Blog's - Apa kabar sobat semua...? Setelah sebelumnya kita pernah membahas tutorial Visual Basic 6.0 seputar simpan, edit, delete dengan menggunakan tools-tools yang ada, kita juga sudah pernah membahas bagaimana cara membuat menu. Kali ini saya akan mencoba membagikan lagi tutorial pemrograman Visual Basic 6.0 yang berhubungan dengan program laporan.

Untuk pembuatan program laporan, saya menggunakan software Crystal Report 8.5 sebagai media design yang nantinya akan terhubung dengan program Visual Basic 6.0. Untuk tahap awal, kita coba dulu membuat laporan dari satu buah tabel saja. Nanti pada kesempatan lainnya baru kita bahas bagaimana membuat laporan menggunakan 2-3 tabel dalam satu disain dan bagaimana membuat laporan berdasarkan seleksi data.

Daripada sobat membuat project baru, sobat bisa download saja project sebelumnya Disini. Karena kita akan melanjutkan dari project tersebut, jadi sobat cukup menambahkan sebuah form saja.

Untuk membuat laporan, silakan sobat ikuti langkah-langkah berikut ini :

• Jalankan software Crystal Report 8.5 di komputer sobat
• Setelah kotak dialog Welcome to Crystal Report terbuka pilih As a Blank Report kemudian klik OK.

• Setelah itu pilih Database Files, kemudian double klik pada Find Database File.

• Cari letak database dari project yang sobat download tadi, jika sudah ketemu klik latihan.mdb kemudian klik Open.

• Setelah itu klik tbbelajar hingga muncul tanda check list hijau, kemudian klik Add dan klik tombol Close.

• Maka akan terbuka form design Crystal Report dan kotak dialog Field Explorer. Pilih Database Fields, kemudian klik tbbelajar maka akan tampil seluruh fields dari tabel tbbelajar.

• Disini sobat bisa melakukan Drag and Drop field-field tersebut dan letakkan pada bagian Details di lembar form Crystal Report.

• Lakukan hingga semua field tersusun rapi pada lembaran design Crystal Repot. Sobat bisa mengatur panjang dari tiap-tiap field dengan cara menarik garis putus-putus field tersebut.

• Untuk bagian Page Header, sobat bisa mengedit dan mengganti tulisannya dengan cara double klik pada field yang berada di Page Header kemudian Blok dan hapus tulisan tersebut dan ganti sesuai selera sobat. Sobat bisa menggunakan tools yang tersedia pada menu untuk mengubah tulisan pada Page Header.

• Jika sudah maka hasilnya akan seperti ini 

• Untuk Field tanggal lahir kita akan merubah format menjadi DD-MMMM-YYYY. Caranya, klik kanan pada fields tgl_lahir kemudian pilih Format Field.

• Pada kotak dialog Format Editor, pilih Tab Date / Time. Cari pada list yang tersedia format tanggal yang sobat inginkan dan klik OK.

• Selanjutnya, kita akan membuat tabel. Caranya, klik menu Insert kemudian pilih Line. Buatlah garis untuk tiap batas secara hati-hati agar terlihat rapi. Jika sudah maka hasilnya seperti berikut ini : 

• Untuk melihat hasil design, sobat bisa klik icon Print Preview yang berada di menu bar.

• Jika rasanya sudah rapi, selanjtnya kita akan membuat judul laporan yang akan kita letakkan pada bagian Report Header. Disini, sobat bisa mengatur ruangnya dengan menarik garis abu-abu yang berada di lembaran design.

• Untuk membuat judul, klik menu Insert kemudian pilih Text Object dan letakan di bagian Report Header. Ketikkan kata-kata yang ingin sobat buat pada Text Object tersebut. Sobat juga bisa mengatur besar kecil huruf menggunakan tools seperti menggunakan MS Word. Disini sobat juga bisa menambahkan gambar agar terlihat lebih bagus lagi laporan yang sobat buat. Caranya, klik menu Insert kemudian pilih Picture, cari gambar yang ingin sobat masukkan kemudian klik Open. Jika sudah maka hasilnya akan seperti berikut ini.

• Selanjutnya kita akan menambahkan sedikit keterangan pada bagian bawah laporan (Page Footer). Kita akan menambahkan dua buah Formula Field yaitu "namakepsek" dan "nip". Mungkin sobat bingung apa guna dari Formula Field tersebut. Sobat akan tahu sendiri nanti setelah program ini selesai dikerjakan. untuk membuat Formula Field ikuti langkah berikut :
• Pada kotak dialog Field Explorer pilih Formula Fields kemudian klik icon New.

• Kemudian pada kotak Formula Name ketikkan kata namakepsek kemudian klik OK.

• Pada kotak dialog Formula Editor, klik saja tombo Close dan jika muncul pesan untuk menyimpan klik tombol Yes.

• Buatlah satu buah Formula Fields dengan nama "nip" menggunakan cara yang sama sebelumnya.
• Kembali ke kotak Field Explorer. Pilih Special Fields kemudian Drag And Drop Print Date dan letakkan pada bagian Page Footer seperti gambar dibawah ini :

• Untuk nama kota : Tanjungpinang dan Kepala Sekolah sobat bisa menggunakan Text Object seperti membuat judul sebelumnya.
• Kembali ke Formula Fields, Drag And Drop formula namakepsek dan nip, kemudian letakkan pada bagian Page Footer seperti gambar berikut ini :

• Berilah garis antara namakepsek dengan nip menggunakan Line. Formula yang kita buat ini akan terhubung langsung dengan form Visual Basic nantinya.
• Kemudian Save design Crystal Report ini dengan nama lap-data-siswa.rpt dan letakan satu folder dengan project Visual Basic 6.0 yang sobat download tadi. 
• Bukalah project Visual basic yang sobat download, kemudian tambahkan satu buah form.
• Kemudian kita harus mengaktifkan Crystal Report Control yang berada di Visual Basic terlebih dahulu. Caranya klik menu Project kemudian pili Componets.
• Cari Crystal Report Control yang berada di list, beri tanda check list kemudian klik OK.

• Buatlah design form seperti gambar berikut ini :

• Atur Interval Timer1 menjadi 360
• Double klik pada Timer1 kemudian masukkan script berikut tepat diantara Private Sub Timer1_Timer() dengan End Sub

Label4.Caption = Format(Date, "dd MMMM YYYY")

• Kemudian double klik pada Tombol Cetak dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub

If Text1.Text = "" Or Text2.Text = "" Then MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbInformation, "Warning" Else CrystalReport1.ReportFileName = App.Path & "\lap-data-siswa.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.WindowState = crptMaximized CrystalReport1.Formulas(0) = "namakepsek='" & Text1.Text & "'" CrystalReport1.Formulas(1) = "nip='" & Text2.Text & "'" CrystalReport1.Action = 0 pesan: If (Err.Number = 20533) Then MsgBox "Data Base Tidak Bisa Diakses...!", vbInformation, App.Title Exit Sub End If End If

Catatan :

Program laporan ini akan error jika dipindah folder atau dipindahkan ke partisi lain. Untuk mengatasinya, ikuti langkah berikut ini :

1. Buka design Crystal Report yang telah dibuat.
2. Klik menu Database kemudian pilih Set Location
3. Kemudian klik tombol Same As Report dan klik tombol Done.

Untuk lebih lanjut, jika sobat mengalami kendala pada toturial kali ini sobat bisa mendownload contoh program jadinya melalui link dibawah ini :

Atau :

Sekian dulu tutorial saya yang berjudul Cara Membuat Program Laporan Dengan Crystal Report 8.5 Dan Visual Basic 6.0. Semoga bermanfaat dan selamat mencoba.

Masuk Islam Gara-Gara Celana Dalam

Masuk Islam Gara-Gara Celana Dalam | Gho Blog's - Mungkin kedengaran aneh dan janggal. Hidayah memang bisa datang kapan saja dan pada siapa saja. Selama ini mungkin kita lebih sering mendengar masuk islamnya seorang non muslim kedalam islam di sebabkan hal-hal luar biasa dan penting. Seperti dokter Miller seorang penginjil Kanada yang masuk islam setelah menjumpai I’jaz Qur’an dari berbagai segi.

Tapi yang ini benar-benar tidak biasa. Ya,…masuk islam gara-gara pakaian dalam.

Fakta ini dikisahkan Doktor Sholeh Pengajar di sebuah perguruan Tinggi Islam di Saudi, saat ditugaskan ke Inggris. Ada seorang perempuan tua yang biasa mencuci pakaian para mahasiswa Inggris termasuk pakaian dalam mereka. 

Suatu hari wanita tua ini menceritakan keheranannya selama bertugas pada Doktor Sholeh, perihal adanya pakaian dalam yang ‘aneh’. Ada beberapa pakaian dalam yang tidak berbau seperti mahasiswa umumnya, apa sebabnya? Maka ustadz ini menceritakan karena pemiliknya adalah muslim, agama kami mengajarkan bersuci setiap selesai buang air kecil maupun buang air besar, tidak seperti mereka yang tidak perhatian dalam masalah seperti ini. 

Betapa terkesan ibu tua ini dan tidak lama kemudian ia mengikrarkan syahadat, masuk islam dengan perantaraan pakaian dalam!!! 

 Di kutip dari : Majalah Al-Qawwam edisi 15, dzul qa’dah 1427 H Badiah, Riyadh.