Visual Basic koneksi dengan SQL Server 2000

Assalammualaikum Wr. Wb,

Berikut ane akan coba singgung sedikit mengenai cara koneksi Database menggunakan SQL 2000 Server.

Membuat koneksi database baik itu menggunakan Visual Basic 6.0 maupun Visual Basic .NET pada dasarnya sama. Di bawah ini akan saya coba jelaskan cara sederhana untuk membuat koneksi dengan SQL Server Database menggunakan Visual Basic 6.0. Artikel ini hanya ditujukan buat teman-teman yang ingin mengetahui cara mengkoneksikan program Visual Basic ke dalam database SQL.

Langkah pertama, buka program Visual Basic 6.0 dan buat project baru dengan memilih Standar EXE pada menu tampilan awal Visual Basic 6.0.

Langkah kedua, pilih menu project dan pilih menu References. Dalam kotak dialog References, cari “Microsoft ActiveX Data Objects 2.8 Library” atau “Microsoft ActiveX Data Objects 2.6 Library” atau “Microsoft ActiveX Data Objects 2.7 Library”. Pilih salah satu, semuanya sama saja terserah Anda. Centang library tersebut dan klik OK.

Langkah ketiga, buat modul baru dalam project kita dengan mengklik menu Project > Add Module. Pada kotak dialog yang muncul, klik Open. Dalam modul yang baru kita buat ketikkan:

Module
'Sebagai Variable General maka kita ketikkan seperti dibawah ini
Public conn As New ADODB.Connection
Public hub As New ADODB.Connection

Public rec As New ADODB.Recordset
Public rs As New ADODB.Recordset
Public isq As String


Public Sub hubungan()
'Sebagai Variable Lokal maka scriptnya dibawah ini
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub
'Akademik adalah nama Database yang kita buatkan pada SQL 2000
'AZAM-PC adalah nama server Lokal pada SQL 2000, bila ingin menggunakan server di dalam jaringan sebaiknya gunakan nama server dalam jaringan tersebut.

Selanjutnya kita masuk pada pembuatan Form
Pertama dibuatkan dahulu sebuah Variable general yang berfungsi untuk memanggil koneksi yang sudah kita buatkan di module

Public Sub hubungan()
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub

Selanjutnya membuat Variable lokal
ketikkan syntax di bawah ini untuk memanggil koneksi kedalam module,

Form_Load()
hubungan
'sebagai koneksi di dalam variable general yang sudah dibuatkan diatas
End Sub

Langkah selanjutnya tinggal memasukan variable yang sudah kita buatkan di module ke dalam variable lokal yang akan kita buat
sebagai contoh ane lampirkan dibawah ini

Private Sub Command1_Click()
If Command1.Caption = "&Tambah" Then
Call bersih
Call aktif
Command1.Caption = "&Simpan"
Command2.Enabled = False
Command3.Enabled = Fals
Command4.Caption = "&Batal"
Else
'Variable koneksi yang sebelumnya kita buatkan di Module, disini kita memanggil variable isq sebagai execute
isq = "insert into mahasiswa (NPM,Namamhs,tempatlhr,tgllhr,alamat,telp,jurusan)values ('" & Trim(Text1) & "','" & Trim(Text2) & "','" & Trim(Text3) & "','" & DTPicker1.Value & "','" & Trim(Text4) & "','" & Trim(Text5) & "','" & Trim(Text6) & "')"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
Call netral
End If
End Sub

Selanjutnya ente-ente tinggal mengembangkannya sendiri sesuai program yang ente buat gan.
Sekian postingan Ane gan,, semoga bermanfaat untuk kita semua. Dan untuk para programer senior, tetap ane minta dukungannya untuk kemajuan bersama.

Wassalamualaikum Wr. Wb

thanks for visit my blog

Read More

Pengaruh Air Putih Bagi Kesehatan

Assalamualaikum wr wb,

Mengapa sih kita perlu minum air putih 8 gelas sehari ? Ya tentu saja supaya tidak dehidrasi, tapi selain itu ternyata air putih mempunyai manfaat yang cukup banyak bagi kesehatan tubuh manusia. Kalau kita ingat pelajaran Biologi yang kita pernah pelajari atau mendengar berita dan berbagai sumber lainnya, bahwa sebagian besar tubuh kita atau sekitar 80% tubuh kita terdiri dari air, bahkan ada 2 bagian tubuh kita yang mempunyai kadar air lebih dari 80% dan ini merupakan bagian tubuh yang penting untuk hidup kita, yaitu otak sebanyak 90% sedangkan darah 95%. Karena sebegitu pentingnya tubuh manusia memerlukan banyak air, maka kita diwajibkan untuk mengkonsumsi air minimal 2 liter atau setara 8 gelas perhari, untuk perokok jumlah itu ditambah setengahnya. Bayangkan apabila kita kurang memberikan asupan air pada tubuh kita, jawabannya adalah tubuh akan menyeimbangkan diri dengan “mengambil” komponen air dalam bagian tubuh yang terdekat, yaitu darah.
Ketika air didalam darah diambil oleh komponen tubuh yang lain, otomatis kebutuhan darah akan air berkurang dan ini yang mengakibatkan darah menjadi kental, dan peredaran darah didalam tubuh akan kurang lancar. Apakah berbaya?dipastikan jawabannya iya.. pada proses ini, ginjal akan sangat menderita, karena dalam menjalankan tugasnya menyaring racun dari darah, ia akan mengalami kesulitan saat harus menyaring darah yang kental. Tak jarang darah ini akan menyebabkan perobekan pada glomerulus ginjal. Sel-sel otak adalah organ yang paling boros mengkonsumsi makanan dan oksigen Nah saat darah mengalir lewat otak, perjalanannya pun juga tak lancar sama saat ia melewati ginjal. Akibatnya otak tidak lagi “encer” bisa terbayang kan apa yang dimaksud otak tidak encer ?, dan bila anda juga mengidap penyakit jantung, maka sempurnalah penderitaan anda dengan adanya serangan stroke.

Berikut ada 8 manfaat air putih bagi tubuh dan kesehatan :

Memperlancar Sistem Percenaan : Mengkonsumsi air dalam jumlah cukup setiap hari, akan memperlancar system pencernaan, sehingga kita terhindar dari masalah pencernaan, seperti maag dan sembelit, dan untuk pembakaran kalori akan berjalan efisien.
Menghambat Pertumbuhan Sel Kanker : Air putih membantu memperlambat tumbuhnya zat-zat penyebab kanker, plus mencegah penyakit batu ginjal dan hati. Minum air putih akan membuat tubuh lebih berenergi.
Perawatan kecantikan : Kurang minum air putih, tubuh akan menyerap kandungan air dalam kulit sehingga kulit menjadi kering dan berkerut. Selain itu, air putih dapat melindungi kulit dari luar, sekaligus melembabkan dan menyehatkan kulit.
Untuk Kesuburan : Meningkatkan produksi hormon testosteron pada pria serta hormon estrogen pada wanita. Menurut basil penelitian dari sebuah lembaga riset trombosis di London, Inggris, jika seseorang selalu mandi dengan air dingin maka peredaran darahnya lancar dan tubuh terasa lebih segar dan bugar. Mandi dengan air dingin akan meningkatkan produksi sel darah putih dalam tubuh serta meningkatkan kemampuan seseorang terhadap serangan virus. Bahkan, mandi dengan air dingin di waktu pagi dapat meningkatkan produksi hormon testosteron pada pria serta hormon estrogen pada wanita. Dengan begitu kesuburan serta kegairahan seksual pun akan meningkat. Selain itu jaringan kulit membaik, kuku lebih sehat dan kuat, tak mudah retak.
Menyehatkan jantung : Air juga diyakini dapat ikut menyembuhkan penyakit jantung, rematik, kerusakan kulit, penyakit saluran papas, usus, dan penyakit kewanitaan, dll. Bahkan saat ini cukup banyak pengobatan altenatif yang memanfaatkan kemanjuran air putih.
Sebagai obat stroke : Air panas tak hanya digunakan untuk mengobati berbagai penyakit kulit, tapi juga efektif untuk mengobati lumpuh, seperti karena stroke. Sebab, air tersebut dapat membantu memperkuat kembali otot-otot dan ligamen serta memperlancar sistem peredaran darah dan sistem pernapasan. Efek panas menyebabkan pelebaran pembuluh darah, meningkatkan sirkulasi darah dan oksigenisasi jaringan, sehingga mencegah kekakuan otot, menghilangkan rasa nyeri serta menenangkan pikiran.
Menguruskan badan : Air putih juga bersifat menghilangkan kotoran-kotoran dalam tubuh yang akan lebih cepat keluar lewat urine. Bagi yang ingin menguruskan badan pun, minum air hangat sebelum makan (sehingga merasa agak kenyang) merupakan satu cara untuk mengurangi jumlah makanan yang masuk. Apalagi air tidak mengandung kalori, gula, ataupun lemak. Namun yang terbaik adalah minum air putih pada suhu sedang, tidak terlalu panas, dan tidak terlalu dingin. Mau kurus?, minum air putih saja.
Tubuh lebih bugar : Jumlah air yang menurun dalam tubuh, fungsi organ-organ tubuh juga akan menurun dan lebih mudah terganggu oleh bakteri, virus, dll. Namun, tubuh manusia mempunyai mekanisme dalam mempertahankan keseimbangan asupan air yang masuk dan yang dikeluarkan. Rasa haus pada setiap orang merupakan mekanisme normal dalam mempertahankan asupan air dalam tubuh. Air yang dibutuhkan tubuh kira-kira 2-2,5 l (8 – 10 gelas) per hari. Jumlah kebutuhan air ini sudah termasuk asupan air dari makanan (seperti dari kuah sup, soto, dll), minuman seperti susu, teh, kopi, sirup dll. Selain itu, asupan air juga diperoleh dari hasil metabolisme makanan yang dikonsumsi dan metabolisme jaringan di dalam tubuh.

Kita sebagai manusia pasti mempunyai aktivitas yang berbeda-beda, semakin banyak aktivitas yang anda lakukan, semakin banyak pula kebutuhan tubuh anda. Untuk itu, pakar kesehatan mengingatkan agar jangan hanya minum bila terasa haus.
Sedangkan untuk anda yang lebih banyak beraktivitas didalam ruangan ber AC, dianjurkan untuk minum lebih banyak, karena udara yang dingin membuat tubuh cepat mengalami dehidrasi. Selain itu juga dapat membantu kelembaban kulit.

Posting by http://remaja-bintara.blogspot.com

Read More

Pengaruh Sinyal HP bagi kesehatan

Pada era globalisasi saat ini, penggunaan handphone sudah menjadi gaya hidup masyarakat baik masyarakat perkotaan maupun masyarakat pedesaan. Tidak peduli dari kalangan bawah maupun kalangan atas, anak-anak kecil sampai orang tua, penggunaan handphone sudah menjadi semacam kebutuhan pokok (primer). Memang handphone memberikan banyak manfaat bagi penggunanya terutama dalam hal komunikasi tetapi bukan berarti handphone tidak memiliki efek samping yang merugikan bagi penggunanya.

Mungkin pernah kita mendengar bahwa radiasi dari sinyal yang ditimbulkan oleh handphone bisa berdampak buruk bagi kesehatan. Sejumlah penelitian yang dilakukan oleh 12 lembaga reset, 7 diantaranya ada di Eropa selama 4 tahun 1996, Universitas of Washington, Seattle menemukan bahwa EMR dalam bentuk energi gelombang radio rendah terbukti bisa merusak DNA manusia. Kelompok riset Jerman, Verum mencoba mempelajari efek radiai handphone terhadap sel-sel tubuh manusia. Hasilnya sel-sel tubuh yang terkena paparan gelombang elektromagnetik seperti pada handphone mengalami kerusakan yang signifikan.Bahkan mutasi sel-sel ini bisa menjadi penyebab timbulnya kanker.

Pancaran radiasi yang digunakan dalam penelitian berada pada level 0,3-2 watt/kg, sementara pada handphone memancarkan sinyal radio atau SAR (Spesifik Absortion Rate) yang berada pada level 2 watt/kg. FCC menentukan besarnya SAR untuk handphone adalah maksimal sebesar 1,6 W/kg. Beberapa akibat buruk yang biasa terjadi pada tubuh manusia menurut sejumlah penelitian antara lain meningkatkan resiko terkena tumor telinga , kanker otak, berpengaruh buruk pada jaringan otak, mengakibatkan meningioma, neurioma akustik, acoustic melanoma dan kanker ludah.

International EMF (Electromagnetic Field) Collaborative melaporkan hasil penelitiannya yang dilakukan di 13 negara di wilayah Eropa Barat bahwa radiasi handphone membawa dampak yang berpengaruh terhadap kesehatan khususnya kesehatan anak. Lloyd Morgan peneliti EMF Collaborative mengatakan: Sejumlah negara sudah siap memblokir penggunaan handphone bagi anak-anak, bahkan Prancis sudah mengeluarkan instruksi agar penggunaan handphone bagi anak-anak hanya digunakan untuk mengirimkan pesan saja.

Morgan juga mengungkapkan bahwa percakapan menggunakan handphone dalam jangka waktu yang lama akan meningkatkan resiko seorang anak atau remaja terserang kanker otak. Selain itu mengantongi handphone dalam kantong celana atau membiatkan anak-anak tidur didekat handphone yang aktif juga dapat menggangu kesehatan.

Selain itu, terdapat juga penelitian yang dilakukan Vini Gautam Khurana, ahli bedah saraf dari Universitas Nasional Australia. Selama 15 bulan, Khurana menelaah lebih dari 100 penelitian yang telah dilakukan berbagai lembaga, tentang keselamatan penggunaan telepon seluler. Hasil penelitian itulah yang menimbulkan gelombang reaksi besar hingga sekarang, karena Khurana menyatakan penggunaan telepon seluler akan memicu epidemi tumor otak, yang akan membunuh lebih banyak orang ketimbang rokok. Menurut riset profesor peraih 14 penghargaan medis ini, penggunaan telepon seluler langsung dari handset lebih dari 10 tahun akan menggandakan risiko terkena kanker otak.
Meletakkan handphone di dekat kita pada saat kita tidur juga sangat berbahaya bagi kesehatan kita. Seorang ilmuwan kimia Jerman yang bernama Froydehayem Folenhurst mengatakan bahwa meninggalkan handphone atau perangkat pengiriman apapun atau menerima sinyal di kamar-kamar tidur akan mengakibatkan kondisi sulit tidur, resah dan bahkan tidak bisa tidur, serta kerusakan pada otak sehingga dalam jangka waktu lama akan berdampak kepada kerusakan sistem kekebalan dalam tubuh. Dia menekankan dalam jumpa pers bahwa ada dua ukuran frekuensi sinyal (radiasi) yang memancar dari seluler, yang pertama 900MHz dan kedua 1.8MHz yang mempengaruhi badan manusia dengan bahaya yang bermacam-macam.

Ilmuwan Jerman ini mengindikasikan bahwa handphone mungkin memancarkan energi yang lebih tinggi dari yang diperbolehkan (standard) terhadap syaraf-syaraf di bagian kepala setiap detakan yang dikirimkannya yang mana terpancar dari Handphone yang bernomor radiasi elektromegnetik yang berfrekuensi 900MHz per beberapa detik. Waktu perdetiknya mencapai 546 micro detik, dan rata-rata pengulangan detak adalah 215Hz.

Penelitian menunjukan juga bahwa frekuensi yang berlebihan dari perangkat elektromagnetik ini mungkin akan menyebabkan beberapa bahaya kepada otak manusia. Dia menafsirkan dengungan telinga itu disebabkan oleh energi yang berlebihan yang masuk kedalam tubuh manusia melalui seringnya berhadapan dengan gelombang elektromagnetik yang berlebihan. Professor yang menemukan seluk-beluk handphone berkata bahwa radiasi handphone menembus sel-sel otak kurang lebih 215 kali tiap detik, satu hal yang menyebabkan meningkatnya prosentase gejala kanker dalam tubuh 4% dari rata-rata kebiasaan.

Banyak kaum wanita maupun kaum pria sering menggantungkan handphonenya di depan dada atau menaruhnya di saku kiri atas kemeja dan menempel erat dengan jantung, bahkan hal tersebut sedang ngetrend di kalangan anak-anak remaja jaman sekarang. Padahal hal tersebut tidak baik buat kesehatan tubuh mereka karena handphone yang dalam keadaan hidup dan digantung di depan dada atau menaruhnya di saku kiri atas kemeja dan menempel erat dengan jantung dapat memberi pengaruh tertentu terhadap jantung atau bahkan bisa merusak jantung, serta juga berdampak negative terhadap fungsi endoktrin pada wanita, terutama bagi kesehatan wanita hamil karena sinar radiasi yang ditimbulkan oleh handphone bisa merusak janin yang terdapat dalam kandungan wanita tersebut.

Pernah terjadi seorang wanita berturut-turut mengalami keguguran ketika usia janin berusia 2-3 bulan. Pasangan suami istri ini mengecek kehamilan berikutnya dan mendapati bahwa janin mengalami kerusakan sel berkesinambungan sampai janin mati. Dokter mengatakan bahwa rahim wanita ini telah terinfeksi oleh radiasi handphone sehingga membuat janin didalamnya tidak bisa bertahan lama untuk hidup dan berkembang. Rahimnya telah mati jadi tidak mungkin bagi dia untuk memiliki janin yang hidup pula. Selidik punya selidik, wanita ini ternyata memiliki kebiasaan menyimpan handphone di jaket kerja dia yang posisinya tepat dekat rahim selama beberapa tahun.

Wanita yang menggunakan handphone ketika hamil memiliki kecenderungan melahirkan anak-anak dengan masalah tingkah laku, berdasarkan suatu studi terhadap lebih dari 13.000 anak-anak. Selain itu, wanita hamil yang memakai handphone yang meskipun hanya 2 atau 3 kali dalam sehari, cukup untuk menimbulkan resiko bayi mereka terkena penyakit hiperaktif dan bisa mengalami kesulitan dalam pemahaman/proses belajar, emosi dan sosialisasi anak pada saat sekolah. Bahkan lebih beresiko lagi apabila sang anak sendiri juga menggunakan HP sebelum berusia 7 tahun.

Maka dari itu, jangan lagi kita meremehkan resiko dari radiasi handphone karena akibatnya bisa fatal bagi kesehatan tubuh kita. Jauhkanlah handphone dari kita sebisa mungkin ketika kita tidak sedang memakainya dan jangan meletakkan handphone dekat dengan ginjal, jantung, dan dikantung celana karena bisa merusak ginjal, jantung, dan sistem reproduksi sebaiknya simpan di dalam tas yang dibawa. Serta jangan meletakkan handphone dekat dengan kita ketika tidur. Jauhkan juga barang-barang elektronik lainnya (radio, televise, laptop) dari tempat kita tidur karena radiasi dari barang-barang elektronik tersebut juga bisa membahayakan kesehatan kita dalam jangka panjang. Radiasi yang ada mengganggu proses reproduksi hormone oleh tubuh kita pada saat tidur. Jauhkan juga handphone dari anak-anak karena otak mereka yang masih muda sangat sensitive terhadap radiasi handphone jika terkena cukup lama. Terlebih lagi bayi jauh lebih sensitive lagi bahkan beberapa tidak bisa menahannya.

Percakapan handphone yang terlampau lama juga tidak baik. Ahli menyarankan, tidak baik berhubungan telepon terlalu lama, jika memang demikian bisa mempertimbangkan memakai telepon tetap atau memakai alat pendengar, jika terpaksa harus berhubungan dalam jangka waktu yang lama juga harus mendengar secara bergantian di kiri kanan telinga setiap 1-2 menit.

So bagaiman guys,,masih bertahan untuk berpacaran lewat udara atau membatasi kebiasaan??

Artikel diambil dari berbagai sumber
Foto diambil dari http://www.solusihp.com

Read More

Wahai Jiwa

Wahai Jiwa,
Bersapalah engkau pada dunia
Wahai jiwa,
Berkatalah engkau pada takdir

Karena akalmu tak sudi menemani mereka-mereka yang pupus jiwa
Karena teduhmu tak ada lagi tuk berdiri di depan pusara-pusara mimpimu

Wahai Jiwa,
Sadarkah engkau akan keimananmu yang senja
dan bukanlah engkau bernyanyi dalam iringan taubat!!
Sungguh durja itu kembali pada hitammu
menemanimu yang lepaskan kesombongan

Wahai Jiwa,
Kau melenggang bebas tanpa batas dan hilang aturan
Berdiri menantang diatas rendahmu
Tak sadar diri akan Matimu
Tak ingat Tuhan yang engkau pernah dengar ketika pertama kali kau bernafas

Wahai Jiwa,
Ketika kau tersadar akan ESA sang khalik
Lalu kau tiba pada penghujung Usiamu
kau tak ubahnya seonggok bangkai kering
Menunggu tuk disapu dosa-dosamu oleh kebajikan setitikmu

Wahai Jiwa,
Ingatlah engkau akan "HAMBA"
Yang tersemat pada takdirmu
Ingatlah engkau akan-NYA

Dan ingatlah engkau,
Karena setarikan nafasmu pun
Kau takkan pernah bisa mengganti Akhiratmu yang indah
Dengan nikmatnya dosamu!!

Wahai Jiwa,,,

Azam

Read More

Jihad pada Imaji

Bismillah,,

Dalam rekaan jiwa ini, selalu tersaji dunia semu para musafir
Dalam dekapan raga ini, tersaji selalu bayangan dusta para pendosa

Diamkah kami pada takdir, aku rasa tidak!

Dan...
Bukan, bukan kamu yang berada disana
seorang akhwad dengan pakaian surgawi
yang terdiam menatap para musafir itu

Berlalu lalang dengan sejuta ingin mereka,mimpi mereka juga tanya mereka
yang seolah menjadi jubah para musafir itu dalam keseharian, membuat mereka nyaman bersembunyi dalam Keimanan mereka
hingga gelap pun mereka takkan sudi melepas jubah itu, atau hanya sekedar menanggalkan Keimanan mereka tuk akhwad yang terdiam disana

Karena sesunggunya bagi mereka, tiada yang lebih menenangkan mereka dari hitamnya masa lalu mereka
selain berdiri disana di bawah tiang-tiang keimanan mereka bersama seorang akhwad yang diutus ke dunia untuk menemani sujud mereka
menemani dzikir mereka juga tengadah doa di sepertiga malam mereka.

///

Akhwad itu berkata melihat kejenuhan ikhwan yang berdiri di hadapnya "Terkapar aku pada sebuah keindahan surgawi yang melekat pada jubah-jubah kalian hai musafir"
Hingga ia terhenti pada pintu itu, membuka pintu-pintu hati yang tertutup rapat oleh lisan, terjaga erat oleh Iman
dan Tertata rapi lewat Al-Qur'an

Lalu ia tergoyahkan hati pada tangan semu, yang mengadah ke langit seraya berucap
"Ya ALLOH, apakah ini yang engkau tuliskan dalam kitab suci-MU? Inikah Bidadari Penghuni surga yang engkau janjikan
pada kami yang selalu berada pada Keimanan kami padamu Ya Rabb?"

Imajinya seolah baku pada takdir,
Dunia yang mempertemukan mereka telah berganti dalam khayal akan hari setelah Akad

Yang hanya kan ada Di bawah restu-MU Ya ALLOH

Azam,,

Read More

Entri Mahasiswa Dengan SQL 2000

Assalammualaikum Wr Wb,, Jumpa lagi pada postingan lanjutan Visual Basic dasar dalam membuat program Entri Mahasiswa. Dimana pada postingan sebelumnya yaitu Program Entri Jurusan, sudah dijabarkan Scriptnya.
Kini saya akan mengulas sedikit tentang pembuatan Program Entri Mahasiswa dengan Visual Basic yang terkoneksi Sql 2000. Tapi ini hanya script sederhana, yang masih banyak kekurangan pada tampilan maupun programnya.

Langkah Pertama kita buatkan dahulu Table untuk menyimpan record pada database Akademik yang sudah dibuat sebelumnya di Sql 2000, mudahnya kita namakan saja Table Mahasiswa




Sebagai koneksi database Sql 2000 dengan Form pada Visual Basic, maka langkah awalnya dan
tidak boleh terlewatkan adalah
membuat module.
Dan dibawah ini syntax pada module

Module
Public conn As New ADODB.Connection
Public hub As New ADODB.Connection

Public rec As New ADODB.Recordset
Public rs As New ADODB.Recordset
Public isq As String

Public Sub hubungan()
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub
Public Sub formattampil()
Set rs = New ADODB.Recordset
rs.AddNew "rovider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub


Lalu kita masuk pada pembuatan Form




Untuk Menampilkan Form dengan database yang kita koneksikan ke Sql Server
Dimana koneksi tersebut terdapat di Table Jurusan
maka dibuatkan Form Activate
Private Sub Form_Activate()
bersih
isq = "select count(kd_jurusan) as jumdata from jurusan"
formattampil
isq = "select*from jurusan"
tampildata
End Sub

Untuk Memanggil koneksi yang sudah kita buat di Modul
Maka kita harus membuat Private Sub Form Load
dan berikut Syntax untuk Form Load

Private Sub Form_Load()
hubungan
formattampil
tampiljurusan
End Sub

Untuk membuat tampilan text yang sudah ada di Form menjadi kosong, maka terlebih dahulu dibuatkan
Private Sub Bersih agar kursor langsung berada di Test pertama
Private Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

Text1.SetFocus
Command1.Caption = "&Tambah"
Command2.Caption = "&Ubah"

End Sub

Kemudian jangan lupa untuk membuat Private Sub lokal yang berguna untuk mengembalikan tampilan Form
setelah proses Entry dijalankan
dan Dibawah ini syntaxnya

Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
DTPicker1.Enabled = True
List1.Enabled = True
Combo1.Enabled = True
End Sub

Juga untuk mengembalikan Fungsi semua Command kembali normal, maka syntaxnya ada dibawah ini

Private Sub netral()
Command1.Caption = "&Tambah"
Command4.Caption = "&Ubah"
Command3.Caption = "&Hapus"
Command4.Caption = "&Keluar"

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
List1.Visible = False
End Sub

Kemudian kita mulai masuk pada Syntax entri data Mahasiswa



Pertama di buatkan dulu syntax pada Command 1 yang berfungsi untuk menambah/membuat
Record baru ke database Mahasiswa



Private Sub Command1_Click()
If Command1.Caption = "&Tambah" Then
Call bersih
Call aktif
Command1.Caption = "&Simpan"
Command2.Enabled = False
Command3.Enabled = Fals
Command4.Caption = "&Batal"
Else
isq = "insert into mahasiswa (NPM,Namamhs,tempatlhr,tgllhr,alamat,telp,jurusan)values ('" & Trim(Text1) & "','" & Trim(Text2) & "','" & Trim(Text3) & "','" & Format(DTPicker1.Value, "mm/dd/yyyy") & "','" & Trim(Text4) & "','" & Trim(Text5) & "','" & Trim(Text6) & "')"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
Call netral
End If
End Sub

Setelah itu tampilan akan kembali normal setelah kita Klick Button Simpan



Untuk Merubah record yang sudah ada di database, kita perlu membuatkan Syntaxnya pada Command 2



dibawah ini Syntaxnya

Private Sub Command2_Click()
If Command2.Caption = "&Ubah" Then
Call bersih
Command2.Caption = "&Simpan"
Command1.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
isq = "update mahasiswa set Namamhs='" & Trim(Text2) & "',Tempatlhr='" & Trim(Text3) & "',TglLhr='" & Format(DTPicker1.Value, "mm/dd/yyyy") & "' ,alamat='" & Trim(Text4) & "',Telp='"&tTrim(Text5) &"',Jurusan='" & Trim(Text6) & "' where NPM='" & Trim(Text1) & "'"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
Call netral
End If
End Sub



Untuk menghapus Record pada database Mahasiswa yang sudah dibuat, maka dibuatkan dahulu Syntaxnya
dan dibawah ini adalah Syntax pada Command 3 untuk Hapus record

Private Sub Command3_Click()
If Command3.Caption = "&Hapus" Then
bersih
Command3.Caption = "&Oke"
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "&Batal"

Else
isq = "delete from mahasiswa where NPM like '" & Text1.Text & "'"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
netral
End If
End Sub

Private Sub Command 4 berguna untuk Keluar dari Program yang sedang dijalankan

Private Sub Command4_Click()
If Command4.Caption = "&Keluar" Then
Unload Me
Else
Call netral
Call bersih
End If
End Sub

Ketika membuat program Entri data untuk koneksi ke Database Sql 2000,
biasanya admin menggunakan MSFHFlexygrid sebagai table bantu untuk menampilkan Record Entry
dan terlebih dahulu dibuatkan format tampilan table MSF tersebut

Private Sub formattampil()
isq = "select count(NPM) as jumdata from mahasiswa"
Set rs = conn.Execute(isq)
List1.Clear
List1.Visible = False

If Not rs.EOF Then
MSF1.Rows = rs!jumdata + 1
End If
MSF1.Cols = 8

MSF1.ColWidth(0) = 400
MSF1.ColWidth(1) = 1000
MSF1.ColWidth(2) = 1500
MSF1.ColWidth(3) = 1000
MSF1.ColWidth(4) = 1200
MSF1.ColWidth(5) = 3000
MSF1.ColWidth(6) = 1000
MSF1.ColWidth(7) = 1000

MSF1.TextMatrix(0, 0) = "NO"
MSF1.TextMatrix(0, 1) = "NPM"
MSF1.TextMatrix(0, 2) = "nama"
MSF1.TextMatrix(0, 3) = "Tempat lahir"
MSF1.TextMatrix(0, 4) = "Tanggal Lahir"
MSF1.TextMatrix(0, 5) = "Alamat"
MSF1.TextMatrix(0, 6) = "Telephone"
MSF1.TextMatrix(0, 7) = "Jurusan"

tampildata
End Sub

Dibawah Ini syntax untuk koneksi database Jurusan ke Combo Button pada Visual Basic,
agar kita bisa memilih kode jurusan di command button



Private Sub tampiljurusan()
isq = "select* from jurusan"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
.MoveFirst
Do While Not .EOF
Combo1.AddItem !kd_jurusan & "" & !nama_jurusan
.MoveNext
Loop

End If
End With
End Sub

Dibawah Ini syntax untuk koneksi database Mahasiswa ke table MSF pada Visual Basic
Private Sub tampildata()
Dim r As Integer
r = 1
isq = "select *from mahasiswa"
Set rs = conn.Execute(isq)

With rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
MSF1.TextMatrix(r, 0) = r
MSF1.TextMatrix(r, 1) = Trim(!NPM)
MSF1.TextMatrix(r, 2) = Trim(!Namamhs)
MSF1.TextMatrix(r, 3) = Trim(!tempatlhr)
MSF1.TextMatrix(r, 4) = Trim(!tgllhr)
MSF1.TextMatrix(r, 5) = Trim(!alamat)
MSF1.TextMatrix(r, 6) = Trim(!telp)
MSF1.TextMatrix(r, 7) = Trim(!jurusan)

r = r + 1
.MoveNext
Loop
Else
End If
End With
End Sub

Lalu untuk mencari kode jurusan, kita tambahkan List 1

Private Sub List1_Click()
Text6.Text = Left(List1, 3)
List1.Visible = False
End Sub

Lalu untuk menampilkan jurusan yang kita pilih di List 1 agar tampil di Table Msf yang ada,



maka dibuatkan terlebih dahulu Private Sub lokal.
dimana jika text 6 kita ketik nama jurusan maka list satu akan munculkan Kode jurusannya
Private Sub Text6_Change()
isq = "select* from jurusan where nama_jurusan like '%" & Trim(Text6) & "%'"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
List1.Clear
List1.Visible = True
.MoveFirst
Do While Not .EOF
List1.AddItem !kd_jurusan & "" & !nama_jurusan
.MoveNext
Loop

End If
End With
End Sub

Untuk menampilkan pesan bila data record yang kita entri sudah ada ataupun sebaliknya
maka kita bisa membuatkannya melalui Message Box

Dibawah ini scriptnya

Private Sub text1_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
isq = "select* from mahasiswa where npm='" & Trim(Text1) & "'"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
"jika data ada dan dalam proses tambah data"
If Command1.Caption = "&Simpan" Then
MsgBox "Data Sudah Ada", vbCritical + vbOKOnly, "Tambah Data"
bersih

Dan tampilannya akan seperti ini



Else
"jika data ada dalam proses ubah dan hapus"
"data, data di tampilkan"
Text2.Text = !namamhs
Text2.SetFocus
End If
Else
"jika data tidak ada dan dalam proses tambah data"
If Command1.Caption = "&Simpan" Then
Text2.SetFocus
Else
"jika data ada dalam proses ubah dan hapus"
MsgBox "Anda Belum Beruntung", vbCritical + vbOKOnly, "Data Tidak Ada"
bersih

Dan tampilan akan seperti ini


End If
End If
End With

End If

End Sub



Sekian postingan saya kali ini,,untuk Para programer senior Mohon bantuannya dalam kesempurnaan pembuatan program diatas.
Jumpa lagi pada Postingan selanjutnya,,thanks for visit my blog
Wassalammualaikum Wr Wb.

Read More

Keindahan Islam dalam pergaulan Laki-laki dan Wanita

Keindahan Islam dalam pergaulan Laki-laki dan Wanita

Sebagaimana telah diketahui bersama, bahwa Allah Ta’ala telah menciptakan manusia ini dalam dua jenis, pria dan wanita. Dan sebagaimana telah diketahui pula bahwa kaum pria pasti membutuhkan kaum wanita, bahkan tidaklah akan sempurna kepriaan/kejantananan kaum pria kecuali dengan adanya wanita yang menjadi pasangan hidupnya. Begitu juga kaum wanita, mereka pasti membutuhkan kaum pria, dan kewanitaannya tidaklah akan sempurna melainkan dengan adanya seorang pria yang menjadi pasangan hidupnya. Mereka saling membutuhkan, saling melengkapi, dan saling memenuhi kebutuhan pasangannya.

Maha suci Allah Yang telah menjadikan kelemahan masing-masing jenis sebagai simbol kesempurnaannya bagi pasangannya. Kaum pria memiliki kelemahan dalam banyak hal, misalnya ia tidak dapat mengandung, kurang sabar mengatur dan merawat anak dan rumah, kurang bisa berdandan, bersuara keras dan kasar, kurang bisa lemah lembut, akan tetapi kekurangan-kekurangannya ini merupakan kesempurnaan bagi wanita yang menjadi pasangannya. Sehingga bila ada pria yang lemah lembut, bersuara merdu, jalannya melenggak-lenggok, suka memasak, senantiasa berdandan biasanya dikatakan sebagai pria yang kurang normal, atau yang sering disebut dengan waria. Begitu juga sebaliknya, kaum wanita memiliki kelemahan berupa, tidak perkasa, bersuara lantang/keras, kurang bisa tegas, mudah takut, selalu datang bulan, kurang gesit, dan seterusnya. Akan tetapi berbagai kekurangannya ini merupakan kesempurnaan bagi pria yang menjadi pasangannya, sehingga bila ada wanita yang berpenampilan perkasa, bersuara keras, dan tidak suka berdandang maka biasanya disebut dengan tomboy.

Walau demikian, syari’at Al Qur’an tidaklah membiarkan mereka berpasangan bebas, dan dengan cara apapun. Sebab, yang diciptakan dalam keadaan berpasang-pasang semacam ini bukan hanya manusia, tetapi ada mahluk-mahluk lain yang diciptakan demikian juga, misalnya binatang. Binatang juga diciptakan dalam keadaan berpasang-pasang, jantan dan betina, dan mereka saling berpasangan pula.

Oleh karena itu, syari’at Al Qur’an mengatur hubungan antara pria dan wanita dengan syari’at yang dapat menjaga martabat mereka sebagai mahluk yang mulia dan membedakan hubungan sesama mereka dari hubungan binatang sesama binatang. Manusia adalah mahluk yang telah dimuliakan oleh Allah di atas mahluk-mahluk selain mereka, oleh karena itu hendaknya kita sebagai manusia menjaga kehormatan ini dengan cara menjalankan syari’at Al Qur’an yang telah menetapkan kehormatan kita tersebut:

“Dan sesungguhnya telah Kami muliakan anak-anak Adam, Kami angkut mereka di daratan dan di lautan, Kami beri mereka rezeki dari yang baik-baik dan Kami lebihkan mereka dengan kelebihan yang sempurna atas kebanyakan makhluk yang telah Kami ciptakan.” (QS. Al Isra’: 70)

Syari’at Al Qur’an hanya membenarkan dua cara bagi manusia untuk menjalin hubungan dengan lawan jenisnya:

A. Cara perbudakan

Cara ini hanya dapat dilakukan melalui peperangan antara umat Islam melawan orang-orang kafir, dan bila kaum muslimin berhasil menawan sebagian dari mereka, baik lelaki atau wanita, maka pemimpin umat Islam berhak untuk memperbudak mereka, dan juga berhak untuk meminta tebusan atau membebaskan mereka tanpa syarat.

B. Pernikahan

Hanya dengan dua cara inilah manusia dibenarkan untuk menjalin hubungan dengna pasangannya. dan hanya dengan dua cara inilah tujuan disyari’atkannya hubungan dengan lawan jenis akan dapat dicapai dengan baik. Oleh karena itu Allah Ta’ala berfirman dalam Al Qur’an,

“Dan diantara tanda-tanda kekuasaan-Nya ialah Dia menciptakan untukmu istri-istri dari jenismu sendiri, supaya kamu menyatu dan merasa tentram kepadanya. Dan dijadikan-Nya diantaramu rasa kasih dan sayang. Sesungguhnya pada yang demikian itu benar-benar terdapat tanda-tanda bagi kaum yang berfikir.” (QS. Ar Rum: 21)

Dan Rasulullah shollallahu ‘alaihi wasallam menjelaskan akan syari’at yang mengatur hubungan antara lawan jenis ini dengan sabdanya,

“Tidaklah pernah didapatkan suatu hal yang berguna bagi doa orang yang saling mencintai serupa dengan pernikahan.” (HR. Ibnu Majah, Al Hakim, Al Baihaqi dan dishahihkan oleh Al Albani)

Adapun berbagai hubungan selain cara ini, maka tidaklah dibenarkan dalam syari’at Al Qur’an, oleh karena itu Rasulullah shollallahu ‘alaihi wasallam bersabda,

“Janganlah sekali-kali seorang lelaki menyendiri dengan seorang wanita, kecuali bila wanita itu ditemani oleh lelaki mahramnya.” (Muttafaqun ‘alaih)

Pada hadits lain Rasulullah shollallahu ‘alaihi wasallam menjelaskan alasan larangan ini,

“Janganlah salah seorang dari kamu berduaan dengan seorang wanita, karena setanlah yang akan menjadi orang ketiganya.” (HR. Ahmad, At Tirmizi, An Nasa’i dan dishahihkan oleh Al Albani)

Bukan hanya syari’at Al Qur’an yang mencela berbagai hubungan lawan jenis diluar pernikahan, bahkan masyarakat kitapun dengan tegas mencela hubungan tersebut, sampai-sampai mereka menyamakan hubungan tersebut dengan hubungan yang dilakukan oleh mahluk selain manusia, yaitu binatang. Mereka menjuluki hubungan di luar pernikahan dengan sebutan “kumpul kebo”. Julukan ini benar adanya, sebab yang membedakan antara hubungan lawan jenis yang dilakukan oleh binatang dan yang dilakukan oleh manusia ialah syari’at pernikahan. Dan pernikahan dalam syari’at Al Qur’an harus melalui proses dan memenuhi kriteria tertentu, sehingga bila suatu hubungan tidak memenuhi kriteria tersebut, maka tidaklah ada bedanya hubungan tersebut dengan hubungan yang dilakukan oleh binatang.

Penulis: Ustadz Muhammad Arifin Badri

Read More

Nikah Muda !!! Nekad atau Tekad

Assalammualaikum Wr Wb, Para kawula muda yang tengah berada dalam kebimbangan tentang Hukum pernikahan Usia Muda dalam pandangan islam.
Ada baiknya kita telaah dulu artikel dibawah ini, juga artikel2 lain dari sumber-sumber yang terpercaya, berikut ane lampirkan salah satu Artikel yang mengangkat Pandangan Islam dalam urusan Menikah Muda.

Bismillahirrahmanirrahim,

Alhamdulillah, Pertama-tama, saya ingin mendudukkan terlebih dahulu, sedikit kesalahpahaman sebagian kalangan kaum muslim, tentang makna dari kata syar’i atau disyariatkan.

Kata syar’i, atau yang lazim diterjemahkan dengan disyariatkan, punya dua kemungkinan makna:
1. Ditetapkan sebagai syariat.
2. Dibenarkan menurut syariat.

Mengacu pada pertanyaan di atas, mana yang dimaksud antara dua makna tersebut? Apakah maknanya ditetapkan sebagai syariat? Atau dibenarkan menurut syariat? Keduanya memiliki indikasi makna yang berbeda, oleh sebab itu akan berbeda pula jawaban dari pertanyaan tersebut.

Bila maksudnya ditetapkan sebagai syariat, maka artinya ada hukum tertentu yang berlaku pada “menikah di usia muda ini”, entah itu mubah –yang maknanya bisa dibenarkan dalam syariat–, sunnah, atau wajib.

Bila artinya dibenarkan dalam syariat, maka artinya secara hukum Islam memperbolehkannya, tapi tidaklah dianjurkan, apalagi diwajibkan. Dan, memang demikianlah adanya. Menikah di usia muda, secara hukum asal diperbolehkan. Namun juga tidak dianjurkan, apalagi diwajibkan. Tapi, bila dikaitkan dengan situasi dan kondisi pada orang yang akan menikah, hukumnya bisa bervariasi.

Hukum asal itu berasal dari sabda Nabi -shollallohu ‘alaihi wa sallam- yang sangat populer,
“Wahai kawula muda. Barangsiapa diantara kalian yang sudah memiliki “baa-ah” (kemampuan seksual), hendaknya ia menikah. Sesungguhnya yang demikian itu lebih dapat memelihara pandangan mata dan kemaluan. Barangsiapa yang belum mampu, hendaknya ia berpuasa. Sesungguhnya puasa itu adalah obat baginya.” [1]

Yakni, menikah itu diperintahkan, saat seseorang sudah memiliki kemampuan seksual sesungguhnya. Artinya, mulai saat itu –saat seseorang sudah baligh–, ia sudah menerima perintah menikah.

Mulai dari remaja hingga dewasa, seorang muslim sudah menerima syariat untuk menikah. Hukum itu kian menguat, bila kemampuan, potensi, dan hasrat seksual semakin meningkat. Sehingga suatu saat bisa dianjurkan atau disunnahkan, dan bisa juga diwajibkan.

Saat ia sudah dianjurkan atau bahkan diwajibkan, maka ukuran apakah seseorang masih tergolong muda atau bahkan terlalu muda, atau sudah cukup umur untuk menikah –dalam kaca mata syariat Islam– tidaklah menjadi ukuran. Hukum tetap berlaku dengan alasan hukumnya. Muda dan tua bukanlah alasan hukum dalam menikah.

Namun, bila dalam “kemudaan”, seseorang punya kendala untuk menikah, seperti soal aturan kenegaraan –bila di negaranya menikah muda dilarang–, belum mengerti hukum-hukum dan adab pasutri, belum mampu mencari nafkah, atau hal-hal lain, maka itu termasuk kondisi di mana seseorang “belum bisa” segera menikah. Di saat itulah ia disyariatkan berpuasa, untuk menahan hasrat seksualnya.

Hal itu juga berlaku, bila ia sudah dewasa namun memiliki beberapa kendala yang menyebabkan ia sulit untuk menikah, atau sulit mendapatkan orang lain yang sudi menikahkan dia dengan putrinya –kalau ia seorang pria–, atau sulit mendapatkan orang yang mau menikahkan dirinya dengan putranya.

Jadi dalam usia apapun, bila seseorang masih terkendala menikah, atau ada mudharat besar bila ia segera menikah, maka hukum penundaan menikah demi maslahat itu tetap berlaku bagi dirinya.
“Barangsiapa yang belum mampu, hendaknya ia berpuasa. Sesungguhnya puasa itu adalah obat baginya…”

Kewajiban menolong orang tua, terlebih bagi anak lelaki, berlaku seumur hidupnya. Seorang anak wajib menolong dan membantu orang tuanya, untuk urusan dunia dan akhirat, sebagaimana orang tua berkewajiban mengurus, merawat, dan membesarkan anak-anaknya dahulu.

Sementara, kewajiban terhadap istri adalah kewajiban baru bagi seseorang, yang juga harus dipenuhi. Lalu, mana yang harus didahulukan?

Keduanya tidak boleh diadu/dibenturkan. Kalau seseorang belum mampu menghidupi istri karena harus menolong orang tuanya, dan ia masih mampu menahan hasrat menikahnya, maka ia harus menunda menikah. Karena bila dipaksakan, ia harus mengorbankan salah satu dari kewajiban tersebut.

Tapi, bila ia mau menikah dan merasa mampu untuk menanggung kedua kewajiban tersebut, ia boleh menikah segera. Apalagi, bila hasrat menikah begitu besar, dan bila tidak menikah dikhawatirkan ia terjerumus pada perbuatan haram, maka ia wajib segera menikah.

Bila orang tua bisa sekadar dibantu nafkahnya, maka seorang suami bisa lebih banyak menafkahi istri, dengan tetap membantu orang tuanya. Bila orang tuanya tidak berpenghasilan, maka anak-anaknya, termasuk dia, harus bersama-sama bekerja sama menanggung kewajiban memenuhi kebutuhan orang tua mereka. Bila seseorang hanya bisa melakukannya dengan mengajak orang tuanya hidup satu atap dengan dirinya dan juga istrinya, maka itu harus dilakukan.

Hanya saja, orang tua yang baik tentunya akan mengalah, tidak membebani anak dan juga menantunya. Tapi secara hukum, anak –terutama anak laki-laki yang memang bertugas mencari nafkah– wajib memperhatikan kebutuhan orang tuanya, meskipun ia sudah menikah.

Adapun anak perempuan, bisa membantu sebatas yang dia mampu. Ia juga bisa mengajak suaminya, untuk membantu orang tuanya, bila orang tuanya memang membutuhkan bantuannya. Terutama sekali, bila orang tuanya hanya memiliki anak tunggal. Dan kebetulan, sang orang tua juga miskin dan tidak berkemampuan.

Menikah dengan tetap belajar, boleh-boleh saja, asalkan belajar di sekolah itu tidak mengganggu jalannya rumah tangga secara baik, aman, terkendali, tenteram, dan menyenangkan. Tujuan-tujuan berumah tangga, termasuk memiliki anak, juga jangan , hanya karena urusan belajar di sekolah.

Karena persoalannya, kewajiban membina rumah tangga yang diwadahi dengan sakinah(ketentraman), untuk membuahkan mawaddah dan rahmah (cinta dan kasih sayang) adalah kewajiban yang pasti di depan mata. Sementara sekolah, hanya salah satu dari bentuk kewajiban umum yang biasanya berhukum fardhu kifayah, tidak boleh rumah tangga dikorbankan karena sekolah.

Kalau yang dijadikan tujuan sekolah adalah mencari ilmu semata, maka menuntut ilmu toh bisa dilakukan tanpa ruang sekolah. Bisa dengan membaca buku, makalah, dan artikel di internet, dengan dialog dan diskusi bersama teman, menghadiri seminar, pengajian, dan sejenisnya. Sehingga, sekolah tidak boleh “dipaksakan”.

Agar terhindar dari fitnah? Di sini, kata fitnah sengaja saya miringkan, karena yang dimaksud di sini adalah fitnah bahasa Arab, yang salah satu maknanya adalah godaan atau musibah. Bagaimana cara menghindari bencana, dan agar seorang wanita tidak menjadi godaan bagi kaum pria saat bersekolah, sementara ia sudah berumah tangga?

Kuncinya adalah pada upaya memilih sekolah yang paling aman –dalam pandangan syariat–, bila memang diputuskan si istri tetap bersekolah. Kalau di pesantren, pilihlah pesantren yang para pengajarnya adalah wanita saja. Yang pergaulannya baik. Yang dasar akidah dan metode memahami Islamnya bersih dari syubhat, kebid’ahan, dan kesesatan. Bila pendidikan umum, carilah yang interaksi dengan lawan jenis dapat dibatasi, sehingga tidak terjadi keharaman dalam proses belajar mengajar tersebut.

Sulit? Tentu saja. Bahkan, secara jujur saya nyatakan, sulit mencari balai pendidikan umum sekarang ini –terutama di negri kita– yang aman bagi kaum wanita untuk belajar di dalamnya, tanpa menjadi godaan bagi kaum pria, tanpa menjerumuskan dirinya pada hal-hal yang dilarang dalam Islam, dan dalam pergaulan pria dengan kaum wanita.

Meski demikian, balai-balai pendidikan yang relatif aman, kini juga mulai banyak bermunculan, seiring dengan kesadaran umat Islam terhadap ajaran Islam sesungguhnya. Namun, saya pribadi menganjurkan: bila sudah memutuskan berumah tangga, sebaiknya fokuskan perhatian pada pembinaan rumah tangga. Bila masih ingin sekolah, tunda saja pernikahannya.
Wallahu A’lamu Bishshawaab…..

Catatan Kaki:
[1] Diriwayatkan oleh al Bukhari dalam Shahih-nya, dalam kitab an Nikah, bab: Orang yang belum mampu menikah, hendaknya berpuasa, hadits No. 5066. Diriwayatkan oleh Muslim dalam Shahih-nya, kitab an Nikah, bab: Dianjurkannya menikah bagi orang yang bergolak nafsunya, hadits No. 1400.

Posting by http://majalahsakinah.com

Read More

KEISTIMEWAAN SURAH AL-WAQIAH

Assalammualaikum Wr Wb,

Surah Al-Waqi’ah (سورة الواقعة) adalah surah yang ke-56 dalam Al-Quran, terletak pada juz ke 27 dan terdiri dari 96 ayat. Surat yang diturunkan selepas Surah Taahaa ini dinamakan dengan Al-Waaqi’ah (Hari Kiamat), diambil dari perkataan Al-Waaqi’ah yang terdapat pada ayat pertama. Di dalam surah Al-Waqi’ah ini menerangkan tentang hari kiamat, balasan yang diterima oleh orang-orang mukmin dan orang-orang kafir. Diterangkan pula penciptaan manusia, tumbuh-tumbuhan, dan api, sebagai bukti kekuasaan Allah dan adanya hari kebangkitan.

Apa yang hebatnya surah Al-Waqiah ini, dengan amalan membacanya ia memberikan beberapa khasiat dan kelebihan tersendiri.


Sabda Rasulullah SAW:

* “Surah al-Waqiah adalah surah kekayaan. Hendaklah kamu membacanya dan ajarkanlah ia kepada anak-anak kamu.” (Riwayat Ibn Mardawaih daripada Anas: Kasyf al-Khafa’).

* “Sesiapa yang membaca surah al-Waqiah pada setiap malam ia tidak akan ditimpa kefakiran.” (Riwayat daripada Ibn Mas‘ud: al-Azkar, al-Jami al-Soghir).

* “Ajarkanlah surah Al-Waqi’ah kepada isteri-isterimu. Kerana sesungguhnya ia adalah surah Kekayaan.” (Hadis riwayat Ibnu Ady)

Menurut fatwa sebgian Ulama menyatakan:

* “Barangsiapa membaca surah Al-Waqi’ah pada setiap hari dan malam dalam satu majlis sebanyak 40 kali, selama 40 hari pula, maka Allah akan memudahkan rezekinya dengan tanpa kesukaran dan mengalir terus dari berbagai penjuru serta berkah pula.”


Diantara fadhilah-fadhilah membaca surat Al-Waqi’ah adalah:

1. Jika dibaca setiap malam sebagai wirid, maka tidak akan tertimpa kesulitan.

Rasulullah bersabda :

Man qara’a suratal-Waqi’ati kulla lailatil lam tusibhu faqah, wa suratul-Waqi’ati suratul-gina faqra’uha wa ’allimuha aulada-kum.

Ertinya:
“Barangsiapa membaca surat Al-Waqi’ah tiap malam, maka tidak akan menimpa kepadanya kepapaan. Dan surat Al-Waqi’ah adalah surat kaya, maka bacalah dan ajarkanlah kepada anak-anak kamu.”

2. Berkata Masruq: “Siapa ingin mengetahui cerita orang-orang terdahulu dan orang-orang terkemudian, serta cerita ahli surga dan ahli neraka, penduduk dunia dan akhirat, maka bacalah surat Al-Waqi’ah”. (Tafsir Jamal, Juz IV halaman 269)

3. Imam Ja’far ra. berkata: “Barangsiapa membaca surat Al-Waqi’ah pada waktu pagi ketika keluar dari rumahnya untuk bekerja, atau untuk mencari kebutuhan. Maka Allah Ta’ala mempermudah rezekinya dan mendatangkan hajatnya. Dan barangsiapa membaca surat Al-Waqi’ah pada waktu pagi dan petang, maka ia tidak akan kelaparan atau kehausan, dan tidak akan takut terhadap orang yang akan memfitnah, sedangkan fitnahannya kembali pada orang itu”. (Khazinatul Asrar Kubra, hal. 360)

4. Disebutkan dalam Khawashul Qur’an, siapa yang membaca surat Al-Waqi’ah sebanyak 41 kali dalam satu majlis, maka didatangkan hajatnya, terutama urusan rezeki. Dan barangsiapa membaca surat Al-Waqi’ah sesudah sholat Asar sebanyak 14 kali dalam satu majlis, maka didatangkan hajatnya, terutama urusan rezeki. Aturan tersebut adalah mujarab. Jika menginginkan datangnya rezeki dari Allah dengan tak terkira-kira datangnya, maka bbacalah surat Al-Waqi’ah selama 40 hari berturut-turut jangan terputus, dan setiap harinya dibaca 40 kali.

5. Dengan mewiridkan surat Al-Waqi’ah sebagai bacaan rutin setiap hari dan malam, maka Allah menjauhkan kefakiran selamanya. Sa’d Al Mufti mengatakan, bahwa hadist ini shahih.

Rasulullah bersabda:

Man qara’a suratal-Waqi’ati lam yaftaqir abada.

Ertinya:
“Barangsiapa (membiasakan) membaca surat Al-Waqi’ah, maka ia tidak akan kefakiran selamanya.”

Anda boleh baca surah Al-Waqiah di sini beserta maksudnya. Baca dan hayati. Semoga mendapat hidayah dari bacaan tersebut. Amin.

Bacaan yang mempersona dan menginsafkan dibawah disampaikan oleh Mishary Rashid Al Afasy yang merupakan Imam Masjid Nabawi Madinah.

Semoga kita selalu dalam lindungan juga Keberkahannya, Ammin

Wassalam

Read More

Entri Jurusan Dengan SQL 2000

Assalamualaikum, wr wb. Hai sobat smua, ini adalah posting pertama ane, pada blog ane yg sederhana ini, posting pertama ane ini, berkaitan dengan tugas ane,, yaitu membuat program dengan Visual Basic 6.0 dengan database mnggunakan SQL Server 2000, Lansung aja gan try it.. !! buat para master ane mohon bantuannya.. karena ane masih new comers.. Selamat Membaca dan mencoba semoga bermanfaat...

Screenshoot1

Screenshoot2

Screenshoot3

Screenshoot4

Screenshoot5

Screenshoot6

Screenshoot7

Screenshoot8

Screenshoot9

Script untuk membuat program diatas:

Private sub Form_load
Berfungsi untuk menghubungkan Form dengan Module yang berguna sebagai koneksi ke database

Private Sub form_load()
hubungan
End Sub

Private Sub Command1
Berfungsi untuk menambah data atau record ke dalam database

Private Sub Command1_Click()
If Command1.Caption = "&Tambah" Then
bersih
Command1.Caption = "&Simpan"
Command2.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
isq = "insert into jurusan(kd_jurusan,nama_jurusan) values('" & Trim(Text1) & "','" & Trim(Text2) & "')"
Set rs = conn.Execute(isq)
bersih
formattampil
End If
End Sub

Private Sub Command2
Berfungsi Untuk mengubah atau edit Record dalam database yang sudah dibuat

Private Sub Command2_Click()
If Command2.Caption = "&Ubah" Then
bersih
Command2.Caption = "&Simpan"
Command1.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
isq = "Update jurusan set Nama_jurusan='" & Trim(Text2) & "'where kd_jurusan='" & Trim(Text1) & "'"
Set rs = conn.Execute(isq)
bersih
formattampil
End If
End Sub

Private Sub Command3
Berfungsi untuk Menghapus Record yang ada di dalam database yang sudah dibuat

Private Sub Command3_Click()
If Command3.Caption = "&Hapus" Then
bersih
Command3.Caption = "&Oke"
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "&Batal"
Else
If Len(Text1) = 3 And Len(Text2) > 0 Then

Else
isq = "delete from jurusan where kd_jurusan='" & Trim(Text1) & "'"
Set rs = conn.Execute(isq)
bersih
formattampil
End If
End If
End Sub

Private Sub Command4
Berfungsi untuk Keluar dari program yang sedang dijalankan

Private Sub Command4_Click()
If Command4.Caption = "&keluar" Then
Unload Me
Else
netral
bersih
End If
End Sub

Private Sub Netral
Untuk Mengembalikan Kondisi Form setelah Entri data selesai dijalankan

Private Sub netral()
Command1.Caption = "&Simpan"
Command4.Caption = "&Ubah"
Command3.Caption = "&Hapus"
Command4.Caption = "&keluar"

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True

End Sub

Private Sub Form_Activate
Berfungsi untuk menormalkan kondisi form yang sedang dijalankan

Private Sub Form_Activate()
bersih
formattampil
End Sub

Private Sub Bersih
Untuk Mengkondisikan Kursor ke text 1

Private Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command1.Caption = "&Tambah"
Command2.Caption = "&Ubah"
End Sub

Private Sub Formattampil
Untuk memformat Tabel yang di buat dalam program


Private Sub formattampil()
isq = "select count(kd_jurusan) as jumdata from Jurusan"
Set rs = conn.Execute(isq)

If Not rs.EOF Then
MSF1.Rows = rs!jumdata + 1
End If
MSF1.Cols = 3

MSF1.ColWidth(0) = 500
MSF1.ColWidth(1) = 1500
MSF1.ColWidth(2) = 3000

MSF1.TextMatrix(0, 0) = "No"
MSF1.TextMatrix(0, 1) = "Kode Jurusan"
MSF1.TextMatrix(0, 2) = "Nama Jurusan"


Private Sub tampildata
Untuk mengkondisikan Record yang di entry ke database ke dalam Msf 1 atau tabel dalam Program

tampildata
End Sub
Private Sub tampildata()
Dim r As Integer
r = 1
isq = "select*from jurusan"
Set rs = conn.Execute(isq)
With rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
MSF1.TextMatrix(r, 0) = r
MSF1.TextMatrix(r, 1) = Trim(!kd_jurusan)
MSF1.TextMatrix(r, 2) = Trim(!nama_jurusan)
r = r + 1
.MoveNext
Loop
Else
End If
End With
End Sub

Private Sub Text 1
Untuk menampilkan Mesagge Box ketika Tombol Enter kita tekan, dimana Data yang di cari tidak ada dalam record ataupun sebaliknya


Private Sub text1_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
isq = "select* from jurusan where kd_jurusan='" & Trim(Text1) & "'"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
'jika data ada dan dalam proses tambah data
If Command1.Caption = "&Simpan" Then
MsgBox "Data Sudah Ada", vbCritical + vbOKOnly, "Tambah Data"
bersih
Else
'jika data ada dalam proses ubah dan hapus
'data, data di tampilkan
Text2.Text = !nama_jurusan
Text2.SetFocus
End If
Else
'jika data tidak ada dan dalam proses tambah data
If Command1.Caption = "&Simpan" Then
Text2.SetFocus
Else
'jika data ada dalam proses ubah dan hapus
MsgBox "Data Tidak Ada", vbCritical + vbOKOnly, "Ubah/Hapus"
bersih
End If
End If
End With

End If

End Sub

Module
Ketika membuat program entry data menggunakan Database SQl, maka kita harus membuat koneksi lewat sebuah Module

Script Module dalam Program :

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public hub As New ADODB.Recordset

Public Sub hubungan()
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub


Sekian posting ane gan,, kita berjumpa lagi di posting ane berikutnya,, jangan lupa tinggalkan jejaknya ya, gan kasih komentarnya,, Smoga bermanfaat.. Thanks for visit my blog..
wassalamualaikum wr wb.

Read More