Kata Bijak Mario Teguh Terbaru 2013

Standar

Yang kau sukai belum tentu baik bagimu.
Jika untuk mendapatkan yang kau sukai, engkau sering gagal dan menua dalam kekecewaan, maka sebaiknya engkau belajar menyukai yang tak kau sukai.
Lalu temukanlah kesukaan untuk menjadikan dirimu produktif, agar engkau menjadi pribadi dengan kedamaian dan kesejahteraan yang kau sukai.
Sadarilah, Tuhan sering menggunakan yang tak kau sukai sebagai penuntun bagimu.

Engkau yang sedang dibakar oleh kemarahan, ingatlah …Rasa marah adalah rahmat untuk mentenagai ketegasan mengubah keadaan menjadi lebih baik, bukan untuk menghinakan diri dan merusak hubungan baik dengan sesama.
Engkau pribadi yang baik.
Gunakanlah rasa marahmu untuk menghebatkan diri dan kehidupanmu.

Rasa takut hanya akan membuatmu lemah dan kehilangan kepercayaan diri, hadapilah rasa takut itu dan truslah melangkah.

Agar terhindar dari menyakiti orang lain jagalah ucapan dan sikap kita shingga persahabatan tetap erat.

Terkadang kmu harus mnutup pintu hati sementara untuk skedar meyakinkan dirimu bahwa hanya iya yg tepat boleh membukanya.

Jangan tergesa-gesa dalam melakukan sesuatu fokus saja dng rencana yg sudah kamu buat sesuai prioritasnya.

Ada saatnya kita cicara, ada saatnya kita mendengar, kita bicara agar orang lain dapat mengerti, kita mendengar agar kita bisa memahami.

Perbuatan salah adalah biasa bagi manusia, tapi perbuatan pura-pura itulah sbenarnya yg mnimbulkan permusuhan dan penghianatan.

kamu tak akan bisa mengubah keslahan kmarin, tapi kamu akan bisa memulai yg baru dng cermin kesalahan kmarin

Temukan kebahagiaan hari ini dng bersyukur dari hal” kecil yg akan mnuntun km esok meraih hal” besar

Terkadang kata2 yg kita ucapkan akan memberi bekas mendalam di hati dan slalu di ingat, brusahan untuk berkata yg baik.

Atas setiap masalah-masalah yang dihadapkan dengan doa, akan selalu ada jalan keluar yang tak terduga-duga.

Bersyukurlah jika kau sudah di titik terendah dalam hidup, karena tidak ada pilihan lain selain menuju titik tertinggi.

Derita masa lalu-mu itu terlalu jauh untuk menyentuhmu hari ini, tapi pengulangan kenangan dan rasa sakitnya-lah yang bisa melemahkanmu.

Jika dia menyakitimu, tetap doakan dia. Jangan membalas kejahatan dengan kejahatan krn kamu bukan penjahat.

Seseorang akan lebih berarti dalam hidupmu bila ia tidak hanya memberikan kasih sayang tapi juga kekuatan mengubahmu menjadi baik.

Berlakulah baik, agar segera terlihat apakah dia jiwa baik yang disiapkan oleh Tuhanmu, atau orang palsu yang harus kau tinggalkan.

Wahai Wanita, Lupakanlah mencari pria yang terbaik, tetapi fokuslah pada dirimu tuk menjadi wanita Terbaik..Hormatilah dirimu, jika engkau ingin mendapatkan cinta yang menghormatimu.

Tidak perlu merasa takut kehilangan seseorang, karena masih ada banyak orang di sekililingmu yang takut kehilanganmu.

Cinta akan terasa indah jika saling menyayangi, saling percaya, dan saling setia
Pria sejati tidak akan selingkuh karena menghargai pasangannya-
Cinta itu tidak selalu menuntut kesempurnaan. Cinta itu ketika kita dapat menutupi kekurangan seseorang dalam kebersamaan.

Tuhan, gantikanlah kepedihan ini dengan kesenangan, jadikan kesedihan itu awal kebahagiaan & sirnakan rasa takut ini menjadi rasa tentram
Betapa pun sulitnya perjalananmu, selalu ingatlah Tuhan, agar keselamatanmu selalu terpelihara.

Semua tak akan ada artinya jika hanya sebatas kata-kata belaka. Semua tak akan ada hasilnya jika hanya sebatas memendam rasa.

Jangan hanya melihat Fisik karena cinta bukan sekedar memuji.

Golongan Manusia yang Dirindukan Surga

Standar

Rasulullah Saw bersabda: “Surga akan merindukan 4 golongan, yakni orang yang gemar membaca Alqur’an, kedua: golongan orang yang pandai menjaga ucapannya, ketiga: golongan orang yang mau memberikan kepada mereka yang sedang lapar, dan keempat adalah golongan orang-orang yang mau berpuasa Ramadan”.
hadits tersebut tentunya kita tahu bahwa jika kita menginginkan bagian dari ahli surga maka marilah kita bersegera untuk ambil bagian dari keempat golongan tersebut. Paling tidak jika ada kesempatan melakukan salah satu diantara keempat hal tersebut kita berupaya sekuat tenaga untuk melakukannya.

Golongan orang yang gemar membaca al Qur’an
Ketahuilah bahwa Syafa’at sebenarnya dibagi ke dalam dua bagian, Syafa’at dari Rasulullah Saw dan Syafa’at Alqur’an. Artinya bahwa setiap umat Muhammad Saw yang tergolong orang mukmin akan mendapatkan dua kesempatan untuk diselematkan. Paling tidak dengan membaca Alqur’an kita dapat Syafa’at dari Alqur’an tersebut dan jika tidak bisa demikian, paling tidak hati kita tidak condong pada yang lain dalam ibadah kecuali hanya menyembah Allah Swt. Rasulullah Saw bersabda: Barangsiapa yang mau membaca Al Qur’an, maka sesungguhnya ia akan menjadi penolong baginya kelak di hari kiamat.

Menjaga Lisan
Penjagaan lisan menjadi satu diantara hal penting dalam hidup kita, yang dengannya kita akan selamat dan darinya pula kita bisa beruntung dan mendapatkan pahala. Lisan yang baik adalah ketika ia berkata-kata yakni dengan kata yang penuh dengan ‘ibrah, santun dan penuh dengan ajakan kebaikan serta jauh dari ghibah, fitnah, menggunjing dan berbohong. Maka benar kata-kata bijak dari ‘ulama bahwa : “Keselamatan mansusia terletak pada penjagaan lisannya”.
Rasulullah bersabda juga bersabda : yang dinamakan seorang Muslim adalah jika ia mau menyelamatkan saudara muslimnya dari ucapan buruk dan tangan-tangan angkara.

Memberi Makan Orang Yang lapar
Bahwa barang siapa yang mau menyisakan sebagian hartanya guna membeli sedikit makanan untuk saudaranya atau orang-orang yang sedang kelaparan, maka surga akan merindukan orang yang seperti ini. Pada hal lain di ungkapkan bahwa seorang pemberi makanan kepada mereka yang sedang kelaparan seperti ini dipuji oleh Allah dan Rasul-Nya sebagai perbuatan baik yang berbalas pahala. Sungguh Allah dan RasulNya sangat menyukai perbuatan yang demikian. Kedermawanan seperti itu walau seolah sepele namun berat timbangan kebaikannya kelak di akhirat. Dalam hal ini Rasulullah Saw bersabda : ’’Seorang yang dermawan akan dekat dengan Allah, dekat dihati manusia, didekatkan dengan surga dan jauh dari api neraka. Sebaliknya, orang yang bakhil akan jauh dari Allah, jauh dari manusia dan jauh dari surga serta dekat dengan siksa api neraka”.

Orang yang berpuasa Ramadan
Bahwa setiap hamba Allah SWT yang mau berpuasa Ramadan, ia akan mendapatkan berbagai macam keistimewaan, tak terkecuali pahala yang berlipat dari satu kebaikan yang ia kerjakan di bulan ini. Hal tersebut mengingat bahwa bulan Ramadan adalah sebuah bulan yang memiliki ribuan keistimewaan dibanding bulan-bulan lain. Diantaranya, 1) seseorang yang mau menyambut bulan ini dengan keceriaan dan suka cita saja kelak di hari kiamat Allah akan mengharamkannya dari siksa api neraka, 2). bahwa seluruh aktifitas positif yang dikerjakan selama berpuasa di dalam bulan Ramadan ini pahala yang diberikan berlipat ganda dibanding pada bulan lain, 3). Bahwa Allah sangat mencintai orang-orang yang mau berpuasa Ramadan yang di dalamnya terdapat dua kabar gembira yakni saat ia berbuka puasa dan saat nanti di akhirat dipertemukan dengan Allah Swt.
Sebagaimana sabda Rasulullah Saw:  ‘’Bersabda bahwa bagi seseorang yang melaknakan puasa, maka ia akan memperoleh dua kebahagiaan (kegembiraan); yakni pertama saat ia berbuka puasa dan yang kedua saat ia bertemu dengan Allah Saw kelak di akhirat”. (*)

 

http://www.malang-post.com/mnuebesngalam/70514-golongan-manusia-yang-dirindukan-surga

Bukti Keistimewaan Wanita Dalam Islam

Standar

Siapa yang dapat memungkiri bahwa islam memanglah rahmat bagi semesta alam. Islam adalah juga satu- satunya agama yang menentramkan lahir dan batin manusia. Barang siapa yang mengikutinya, maka kemuliaan akan melingkupinya. Barang siapa menyelaminya, maka kedamaian yang akan selalu menyertainya.

 

Islam, menyematkan kemuliaan dalam diri seorang wanita. Sang pesona dunia ini, diajarkan Oleh Allah Subhanahu Wata’ala  untuk tetap menjadi indah dan yang terindahkan. Namun sayang, banyak manusia yang lemah iman dan lemah ilmu yang justru tidak bisa menikmati dan menyadari keindahan itu dalam hati mereka.

 

Dan begitulah, Allah telah menutup hati, dan indrawi mereka, dalam begitu kencangnya fitnah yang tujuan akhirnya sangat jelas, yaitu melucuti keindahan wanita itu sendiri, dengan cara merendahkan mereka layaknya hewan, atau bahkan lebih rendah dari itu. Naudzubillah…

 

Di dalam islam, wanita di perintahkan oleh Allah untuk menutup Aurat para wanita. Sungguh sesuatu yg mahal harganya akan dijaga bahkan disimpan dan di rawat dengan sangat hati- hati dan di hadiahkan pula tempat  teraman dan terbaik. Apakah pernah kita melihat seseorang membuang intan begitu saja di jalanan?.

 

Jilbab adalah identitas kemuliaan seorang muslimah, dan sekaligus benteng mereka dari berbagai gangguan orang- orang jahat yang mempunyai niat jahat kepada mereka. Maka maha benarlah Allah dalam firmannya,

Yang demikian itu supaya mereka lebih mudah untuk dikenal, karena itu mereka tidak diganggu.” (Q.S. Al-Ahzab: 59)

Dan di dalam Islam, seorang wanita jika dihadapkan kepada suaminya, memanglah ketaatan yang harus dilakukannya. Namun, seorang laki- laki wajib pula taat kepada ibunya 3 kali lebih utama dari sang ayah?. Maka perhatikan baik- baik wasiat rasulullah Salallahu Alaihi Wassalam, berikut ini…

 

“Dari Abu Hurairah radhiyallaahu ‘anhu, beliau berkata, “Seseorang datang kepada Rasulullah shalallahu ‘alaihi wasallam dan berkata, ‘Wahai Rasulullah, kepada siapakah aku harus berbakti pertama kali?’ Nabi shalallaahu ‘alaihi wasallam menjawab, ‘Ibumu!’ Dan orang tersebut kembali bertanya, ‘Kemudian siapa lagi?’ Nabi shalallaahu ‘alaihi wasallam menjawab, ‘Ibumu!’ Orang tersebut bertanya kembali, ‘Kemudian siapa lagi?’ Beliau menjawab, ‘Ibumu.’ Orang tersebut bertanya kembali, ‘Kemudian siapa lagi,’ Nabi shalallahu ‘alaihi wasallam menjawab, ‘Kemudian ayahmu.’” (HR. Bukhari Muslim)

 

Diantara banyak fitnah yang di hembuskan oleh para musuh- musuh islam, adalah hal yang menyangkut poligami. Mereka mengatas namakan penderitaan wanita yang di dramatisir sedemikian rupa, agar terlihat lebih simpatik. Bahkan sebenarnya betapa kasihan mereka tentang hal ini. Tingkah polah mereka semakin membuktikan kekurangan akal pada diri mereka. Apakah sudah sampai pada mereka bahwa bila seorang lelaki khawatir tidak dapat berlaku adil dalam berpoligami, maka dituntunkan kepadanya untuk hanya menikahi satu wanita. Dan ini termasuk pemuliaan pada wanita di mana pemenuhan haknya dan keadilan suami terhadapnya diperhatikan oleh Islam, seperti Allah firmankan di dalam Al Quran,

 

“Namun bila kalian khawatir tidak dapat berbuat adil maka nikahilah satu wanita saja.” (QS. An Nisa: 3)

Begitu di muliakannya wanita dalam islam, bahkan para suami, yaitu manusia yang paling berhak atas istri- istri mereka, tetap diperintahkan oleh Allah untuk tidak boleh berbuat sewenang- wenang kepada istri mereka.

“Dan bergaullah kalian (para suami) dengan mereka (para istri) secara patut.” (An-Nisa`: 19)

 

Hal tersebut tetap berlaku walaupun sang suami dalam keadaan tidak menyukai istrinya. Seperti firman Allah berikut ini

“Kemudian bila kalian tidak menyukai mereka maka bersabarlah karena mungkin kalian tidak menyukai sesuatu padahal Allah menjadikan padanya kebaikan yang banyak.” (An-Nisa`: 19)

 

Dan Memanglah,  kasih sayang islam begitu sangat melingkupi kaum yang memang diciptakan Allah lebih lemah dari pada laki- laki ini. Maka dari itu, ketika wanita menerima warisan, memanglah wanita mendapat jatah kurang dari laki- laki. Bukan karena tidak adanya keadilan Allah disana, tapi sungguh harta yang jumlahnya kurang dari para laki- laki itu hanya menjadi milik pribadinya dan para wanita tidak perlu menyerahkannya suaminya. Sedangkan saat para lelaki atau suami menerima warisan, maka sudah menjadi kewajiban laki- laki itu untuk menggunakan hartanya demi kebutuhan seluruh keluarga, anak- anak dan istrinya.

 

Dalam lemahnya fisik dan kurangnya Akal karena lebih di dominasi perasaanya, wanita memang haruslah tetap melalui sebuah fase perjuangan terbesar yang membuatnya harus bersusah payah. Ya, selama mereka mengandung dan melahirkan anak, adalah perjuangan yang begitu sangat menguras waktu emosi, pikiran, tenaga dll.  Tetapi Kasih sayang Allah memang tiada batas. Ketika para wanita hamil, setiap saat mereka akan didoakan oleh segala makhluk, malaikat dan seluruh makhluk Allah di mukabumi ini, dan ketika kematian ternyata datang atas mereka saat melahirkan, maka syahid akan Insyaallah akan di raihnya.

 

Dari Jâbir ibn ‘Atîk, Rasulullah saw. bersabda: “Mati syahîd ada tujuh, selain mati terbunuh dalam perang fîsabilillah, yaitu: (1) mati karena penyakit thâ‘ûn (semacam penyakit kelenjar), (2) mati karena tenggelam ,(3) mati karena penyakit lambung ,(4) mati karena sakit perut, (5) mati karena terbakar, (6) mati karena tertimpa reruntuhan, dan (7) perempuan yang mati karena hamil/melahirkan.”

 

Pahala mati syahîd layak diberikan kepada ibu hamil/melahirkan dan meninggal, karena proses melahirkan adalah proses mengadu nyawa dan sama dengan perang membela agama Allah. Selain itu, kaum wanita berperan besar dalam pengembangbiakan keturunan. Dengan bersedianya seorang wanita untuk hamil, berarti ia telah mengemban amanat dan mewujudkan proses penyempurnaan sifat kefeminimannya.

 

Tidak itu saja, keistimewaan seorang wanita adalah ketika mereka diperbolehkan untuk memasuki pintu Syurga melalui mana pintu manapun yang disukainya. Dan untuk semua itu, para wanita cukuplah melalui 4 syarat saja : Sholat 5 waktu, puasa di bulan Ramadhan, taat suaminya dan menjaga kehormatannya.

 

“Apabila seorang isteri telah mendirikan sholat lima waktu dan berpuasa bulan Ramadhan dan memelihara kehormatannya dan mentaati suaminya, maka diucapkan kepadanya: Masuklah Surga dari pintu surga mana saja yang kamu kehendaki.”

(Riwayat Ahmad dan Thabrani)

 

Maka sudah selayaknya, para pemilik mulut lancang yang tanpa ilmu mendengungkan topeng “kemerdekaan” bagi kaum wanita itu, menginsyafkan perbuatan mereka karena telah habis- habisan menyalakan propaganda untuk membenarkan yang salah dan menyalahkan yang benar, sehingga wanita banyak yang terjerumus sebagai korban dari rencana mereka, dan kemudian membenci aturan islam. 

 

Mereka yang tiada segan menfitnah agama mulia ini dengan dalih memerdekakan muslimah dari belenggu. Entah belenggu semacam apa yang mereka maksud, namun satu yang pasti bahwa kedengkian mereka atas islam, adalah sudah menjadi sebuah kepastian.

 

Sungguh, bahkan cara Islam memuliakan wanita itu lebih dari sekedar benar- benar tampak bagi logika waras manusia. Lalu satu pertanyaan pun akhirnya muncul bagi kita para wanita, “maka nikmat Rabb kamu manakah yang kamu dustakan?” (QS Ar-Rahman: 13).

 

https://www.facebook.com/notes/jilbab-cantiq-malang/bukti-keistimewaan-wanita-dalam-islam-voa-islamcom/10150668709724370?ref=nf

Mario Teguh Golden Ways (Kata-kata Motivasi)

Standar
“Orang yang ikhlas, jujur, bersahaja, dan apa adanya – biasanya lebih enteng jodoh, daripada yang jaim, sok gengsi dan rewel.

Mungkin itu penjelasan mengapa ada wanita super cantik yang kalah cepat berjodoh dengan wanita yang sederhana kecantikannya.

Mario Teguh

———————-

Tapi,

Wanita yang cantik dalam kesederhanaannya adalah wanita cantik yang sesungguhnya.

Wanita yang baru terlihat cantik setelah berhias, emm … bagaimana yah?

Anda deh yang menyimpulkan …”

— Mario Teguh

“Bersedihlah sebentar, tapi pastikanlah engkau berbahagia lebih lama.

Mario Teguh

“Kita lebih cepat melihat kesulitan, daripada melihat kemudahan.

Itu sebabnya kita mudah berkecil hati.

Berprasangka baik terhadap niat Tuhan bagi kehidupan Anda, akan meringankan dada dan melapangkan nafas Anda.

Cobalah, tidak ada ruginya bersikap baik.

Mario Teguh – Loving you all as always

 

 

“JANGAN MEMANJAKAN GENGSI

Apa pun pekerjaan Anda, kalau Anda syukuri dan kerjakan dengan rajin dan jujur, sesungguhnya Tuhan Maha Kaya dan Maha Penyantun.

1. Saya pernah berkenalan dengan tukang las (welder) yang gajinya lebih tinggi dari seorang General Manager.

2. Saya juga mengetahui ada pengusaha toilet pasar inpres yang punya BMW, Mercy, Jaguar, dan macam-macam lagi.

3. Ada juga pengusaha penitipan motor dan helm di pasar yang rumahnya banyak.

4. Saya juga tahu seorang pengusaha gorengan pinggir jalan, yang sekarang memiliki lebih dari 500 gerobak. Kaya nggak dia?

5. Maka alangkah memalukannya jika ada anak muda yang sehat dan berpendidikan, tapi malas dan suka mengeluh.

 

 

 

6. Lebih baik menjadi pengusaha toilet pasar yang sukses, daripada sok gengsi tapi hidup di kotak sebesar toil-toil.

Tuhan menambahkan nikmatNya kepada orang yang mensyukuri yang ada padanya dan mengupayakan yang lebih baik lagi, bagi kesejahteraan dan kebahagiaan keluarga dan sesamanya.

Jangan memanjakan gengsi. Gengsi tidak memberi makan, malah memiskinkan.

Mario Teguh – Loving you all as always

 

 

“Perasaan marah, dendam, benci, dan ingin membalas adalah racun jiwa.

Kasihi dan selamatkanlah dirimu, dan bergaullah dengan jiwa-jiwa baik yang meyakini hakmu untuk menjadi pribadi yang berhasil.

Engkau akan menemukan kekuatan di dalam hatimu yang damai.

Mario Teguh – Loving you all as always

 

Kata Bijak Mario Teguh

Standar
Membawa tugas membahagiakan keluarga adalah beban yang ringan karena Anda mencintai mereka Aku tak punya waktu untuk membenci orang yang membenciku, karena aku terlalu sibuk mencintai mereka yang mencintaiku. Apa pun yang tidak akan menjadikan Anda kuat dan mandiri di masa depan, tinggalkan. Tidak sedikit orang yang galau, karena keinginan besarnya duduk di atas keberaniannya yang kecil. Keberanian adalah harga yang harus kita bayar untuk hidup dengan kuat dan mapan. Wanita gampang menangis itu karena air matanya adalah ‘kata’ untuk meminta dirimu untuk menemaninya Orang yang tertarik dengan dirinya sendiri tidak bisa dibosankan oleh apa pun. Jangan takut untuk memulai cinta yang baru. Lepaskan dirimu dari perihnya masa lalu, kamu akan temukan seseorang yang mampu membahagiakanmu. Menghina pasangan Anda sama dengan menghina diri Anda sendiri. Hargai pasangan Anda. Love is always suspicious. Cinta itu selalu curiga. Itu salah satu bukti bahwa cinta harus memiliki. Masa lalu yang menyedihkan ada untuk dijadikan sebagai pelajaran agar kesalahan yang sama tidak kembali terulang. Yang dekat saja bisa lepas kendali, apalagi yang jauh. Periksa semua yang dekat, sebelum mencari yang jauh. Kadang mengalah dan meminta maaf itu lebih baik daripada menjelaskan segalanya kepada orang yang tak mau mengerti Kadang kita terjatuh hanya supaya bisa lebih kuat untuk bangkit dan melompat lebih tinggi. Percayalah pada rencana Tuhan. Kadang hal-hal buruk Tuhan hadirkan ke dalam hidupmu untuk mengingatkanmu pada hal-hal baik yang lupa kamu syukuri. Tidak ada kebahagiaan dalam kelemahan. Jangan lagi berlama-lama dalam kelemahan hidup. Jika kamu menyerah hanya karena kata-kata orang lain yang ingin menjatuhkanmu, berarti kamu gagal dan orang itu berhasil. Orang yang tidak takut mati miskin karena kejujuran, tidak akan miskin Tuhan menciptakan kedua mata kita di depan karena kita harus terus melihat ke depan, bukan ke belakang dan terpaku pada masa lalu. Jodoh memang dipilihkan oleh Tuhan. Jika engkau menghebatkan diri, akan dipilihkan bagimu jodoh yang hebat. Betapa ringan langkah kita jika diawali doa dan senyuman karena itu menggambarkan ketulusan hati yang kuat dalam menghadapi banyak hal. Jika kamu melihatnya dengan positif, masa lalu tidak ada yang buruk. Yang ada hanya masa lalu yang indah dan pelajaran yang berharga. Engkau harus tegas menghadapi masalah, daripada gelisah membayangkan penyiksaannya terhadapmu Untuk mencintai, kamu harus memiliki kekuatan. Kekuatan melawan amarah dengan kesabaran dan kekuatan memaafkan dengan ketulusan. Siapa bilang orang minder tidak bisa sukses? Orang minder yang rajin, mengalahkan orang percaya diri yang NATO. Love refuses to be not the only one. Cinta menolak menjadi bukan yang satu-satunya. Kebohongan mungkin bisa menutupi kebenaran, tapi tidak menghilangkannya. Hanya masalah waktu hingga kebenaran terungkap. Disaat orang lain meragukan kemampuan kita, disitulah kekuatan kita mestinya semakin tumbuh Katakanlah: Ini hidupku. Aku penentu kebesaran hidupku. It is my decision and my action, or nothing at all! Kebohongan yang paling celaka adalah membohongi diri sendiri. Jangan mengacuhkan kata hati, biarkan mereka katakan apapun yang mereka sukai Seseorang yang mampu bangkit setelah jatuh adalah orang yang lebih kuat daripada seseorang yang tidak pernah jatuh sama sekali. Jangan hanya mencari yang terbaik. Jadilah orang yang cukup pantas untuk dicintai, maka yang terbaik akan kamu temukan. Kadang keberhasilan baru akan tiba setelah kesulitan dialami. Maka jangan menyerah dalam menggapai keberhasilan walau kesulitan menghadang. Kesabaran dan Usaha Keras akan sanggup Menghilangkan Kesulitan dan Melenyapkan Rintangan Orang yang masuk dalam kesulitan harus tahu penyebabnya jika ingin keluar dari kesulitan tersebut Jangan biarkan ucapanmu dijadikan senjata untuk menyakiti orang lain. Pergunakan ucapanmu untuk kebaikanmu dan orang lain. Memaksakan kehendak adalah ciri dari ketidakmampuan untuk berkarisma Menyegerakan pemaafan adalah keputusan besar untuk menyelamatkan batin Keceriaan seorang insan memancarkan kemuliaan yang turut membahagiakan orang yang melihatnya Jangan karena penolakan orang lain membuat dirimu salah ambil keputusan Rencanakanlah yang anda akan lakukan, dan lakukanlah yang telah anda rencanakan Hati yang damai tak akan membiarkan dirinya memikirkan hal-hal yang tak pantas Memaknai positif setiap kegagalan karena ada pembelajaran penting untuk bertambah dewasa Hati yang ikhlas selalu melupakan kebaikan yang telah ia lakukan kepada siapapun Memaksakan kehendak adalah ciri dari ketidakmampuan untuk berkarisma Orang masa depan memang pejalan jauh, bila yang diimpikannya itu belum pernah dicapai atau dicoba orang lain, dia justru lebih bersemangat. Jangan biarkan ucapanmu dijadikan senjata untuk menyakiti orang lain. Pergunakan ucapanmu untuk kebaikanmu dan orang lain Ketika doa-doamu belum terjawab. Mungkin Tuhan menundanya dan penundaan bukan berarti ditolak. Engkau yang dekat dengan Tuhan, tak perlu lagi mengeluh, karena Tuhan mendengar pintamu bahkan jauh sebelum engkau meminta. Tuhan, jadikanlah kekasih kecilMu ini jiwa yang tabah dalam kesulitan dan penuh syukur dalam rezeki yang baik. Aamiin

Sumber Artikel : http://googel22.blogspot.com/2012/08/kata-bijak-mario-teguh.html .

Sistem informasi penggajian karyawan

Standar

BELAJAR BAHASA PEMROGRAMAN

FORM MENU UTAMA

Image

relasi

 

 

LISTING  PROGRAM

Public Class Form1

Private Sub JABATANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATANToolStripMenuItem.Click

JABATAN.Show()

JABATAN.MdiParent = Me

End Sub

Private Sub PELAMARoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PELAMARToolStripMenuItem.Click

PELAMAR.Show()

PELAMAR.MdiParent = Me

End Sub

Private Sub KARYAWANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KARYAWANToolStripMenuItem.Click

KARYAWAN.Show()

KARYAWAN.MdiParent = Me

End Sub

Private Sub SELEKSI_NILAIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SELEKSINILAIToolStripMenuItem.Click

SELEKSI_NILAI.Show()

SELEKSI_NILAI.MdiParent = Me

End Sub

Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARPROGRAMToolStripMenuItem.Click

Me.Close()

End Sub

Private Sub LjabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LjabatanToolStripMenuItem.Click

Form2.Show()

Dim laporan As New CrystalReport2

Form2.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LpelamarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LpelamarToolStripMenuItem.Click

Form3.Show()

Dim laporan As New CrystalReport1

Form3.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LToolStripMenuItem.Click

Form4.Show()

Dim laporan As New CrystalReport3

Form4.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LkaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LkaryawanToolStripMenuItem.Click

Form5.Show()

Dim laporan As New CrystalReport4

Form5.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LaprelasiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaprelasiToolStripMenuItem.Click

Form6.Show()

Dim laporan As New CrystalReport5

Form6.CrystalReportViewer1.ReportSource = laporan

End Sub

End Class

FORM  MENU  JABATAN

LISTING  PROGRAM

Public Class Form1

Private Sub JABATANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATANToolStripMenuItem.Click

JABATAN.Show()

JABATAN.MdiParent = Me

End Sub

Private Sub PELAMARoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PELAMARToolStripMenuItem.Click

PELAMAR.Show()

PELAMAR.MdiParent = Me

End Sub

Private Sub KARYAWANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KARYAWANToolStripMenuItem.Click

KARYAWAN.Show()

KARYAWAN.MdiParent = Me

End Sub

Private Sub SELEKSI_NILAIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SELEKSINILAIToolStripMenuItem.Click

SELEKSI_NILAI.Show()

SELEKSI_NILAI.MdiParent = Me

End Sub

Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARPROGRAMToolStripMenuItem.Click

Me.Close()

End Sub

Private Sub LjabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LjabatanToolStripMenuItem.Click

Form2.Show()

Dim laporan As New CrystalReport2

Form2.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LpelamarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LpelamarToolStripMenuItem.Click

Form3.Show()

Dim laporan As New CrystalReport1

Form3.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LToolStripMenuItem.Click

Form4.Show()

Dim laporan As New CrystalReport3

Form4.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LkaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LkaryawanToolStripMenuItem.Click

Form5.Show()

Dim laporan As New CrystalReport4

Form5.CrystalReportViewer1.ReportSource = laporan

End Sub

Private Sub LaprelasiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaprelasiToolStripMenuItem.Click

Form6.Show()

Dim laporan As New CrystalReport5

Form6.CrystalReportViewer1.ReportSource = laporan

End Sub

End Class

FORM  MENU  JABATAN

Image

Image

LISTING PROGRAM

Imports System.Data.OleDb

Public Class JABATAN

Public DB As OleDbConnection

Public CMD As OleDbCommand

Public ADP As OleDbDataAdapter

Public DR As OleDbDataReader

Public DS As New DataSet

Dim SQL As String

Sub tampilRecordJABATAN()

ADP = New OleDbDataAdapter(“SELECT * FROM JABATAN”, DB)

DS = New DataSet

ADP.Fill(DS, “JABATAN”)

DataGridView1.DataSource = DS.Tables(“JABATAN”)

End Sub

Sub butoonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub butoonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = True

btnhapus.Enabled = True

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub butoonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub hapustext()

kode.Text = “”

bagian.Text = “”

nama_jabatan.Text = “”

Call butoonbaru()

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

SQL = “DELETE FROM JABATAN Where kode='” & kode.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilRecordJABATAN()

End Sub

Public Sub OPENDB()

Dim LOKASI = “Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2\santy.mdb”

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Private Sub JABATAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call OPENDB()

Call tampilRecordJABATAN()

End Sub

Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

Dim xkd As String = “”

Dim xbagian As String = “”

If tombol = 13 Then

SQL = “SELECT * FROM JABATAN Where kode='” & kode.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

kode.Text = DR.Item(1)

nama_jabatan.Text = DR.Item(2)

‘bagian.Text = DR.Item(3)

Call butoonedit()

MsgBox(“DATA DITEMUKAN!”)

Else

xkode = kode.Text

Call hapustext()

kode.Text = xkode

Call butoonsimpan()

End If

nama_jabatan.Focus()

End If

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

SQL = “UPDATE JABATAN SET kode='” & kode.Text & “‘ ” & _

“nama_jabatan='” & nama_jabatan.Text & “‘ ” & _

“bagian='” & bagian.Text & “‘ ” & _

“Where kode ='” & kode.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilRecordJABATAN()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

kode.Focus()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

SQL = “INSERT INTO JABATAN (kode,nama_jabatan,bagian)” & _

“Values (‘” & kode.Text & “‘,'” & _

nama_jabatan.Text & “‘,'” & _

bagian.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilRecordJABATAN()

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

kode.Focus()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

End Class

FORM  MENU  PELAMAR

Image

Image

LISTING PROGRAM

Imports System.Data.OleDb

Public Class PELAMAR

Public DB As OleDbConnection

Public CMD As OleDbCommand

Public ADP As OleDbDataAdapter

Public DR As OleDbDataReader

Public DS As New DataSet

Dim SQL As String

Sub tampilPELAMAR()

ADP = New OleDbDataAdapter(“SELECT * FROM PELAMAR”, DB)

DS = New DataSet

ADP.Fill(DS, “PELAMAR”)

DataGridView1.DataSource = DS.Tables(“PELAMAR”)

End Sub

Sub butoonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub butoonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = True

btnhapus.Enabled = True

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub butoonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub hapustext()

kodepelamar.Text = “”

nama.Text = “”

Call butoonbaru()

End Sub

Public Sub OPENDB()

Dim LOKASI = “Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2\santy.mdb”

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Private Sub pelamar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call OPENDB()

Call tampilPELAMAR()

End Sub

Private Sub kodepelamar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodepelamar.KeyPress

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

Dim xkd As String = “”

Dim xbagian As String = “”

If tombol = 13 Then

SQL = “SELECT * FROM PELAMAR Where kode_pelamar='” & kodepelamar.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

kodepelamar.Text = DR.Item(1)

nama.Text = DR.Item(2)

alamat.Text = DR.Item(3)

‘pendidikan.Text=DR.Item(4)

Call butoonedit()

MsgBox(“DATA DITEMUKAN!”)

Else

xkode = kodepelamar.Text

Call hapustext()

kodepelamar.Text = xkode

Call butoonsimpan()

End If

nama.Focus()

End If

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

SQL = “UPDATE PELAMAR SET kode_pelamar='” & kodepelamar.Text & “‘ ” & _

“nama='” & nama.Text & “‘ ” & _

“alamat='” & alamat.Text & “‘ ” & _

“pendidikan='” & pendidikan.Text & “‘ ” & _

“Where kode_pelamar ='” & kodepelamar.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilPELAMAR()

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

kodepelamar.Focus()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

SQL = “INSERT INTO PELAMAR(kode_pelamar,nama,alamat,pendidikan)” & _

“Values (‘” & kodepelamar.Text & “‘,'” & _

nama.Text & “‘,'” & _

alamat.Text & “‘,'” & _

pendidikan.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilPELAMAR()

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

SQL = “DELETE FROM PELAMAR Where kode_pelamar='” & kodepelamar.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilPELAMAR()

End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

kodepelamar.Focus()

End Sub

End Class

FORM  MENU  SELEKSI_NILAI

Image

Image

LISTING  PROGRAM

Imports System.Data.OleDb

Public Class SELEKSI_NILAI

Public DB As OleDbConnection

Public CMD As OleDbCommand

Public ADP As OleDbDataAdapter

Public DR As OleDbDataReader

Public DS As New DataSet

Dim SQL As String

Sub tampilSELEKSI_NILAI()

ADP = New OleDbDataAdapter(“SELECT * FROM SELEKSI_NILAI”, DB)

DS = New DataSet

ADP.Fill(DS, “SELEKSI_NILAI”)

DataGridView1.DataSource = DS.Tables(“SELEKSI_NILAI”)

End Sub

Sub butoonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub butoonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = True

btnhapus.Enabled = True

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub butoonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub hapustext()

no_seleksi.Text = “”

kode_posisi.Text = “”

tanggal.Text = “”

Call butoonbaru()

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

SQL = “DELETE FROM SELEKSI_NILAI Where No_seleksi='” & no_seleksi.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilSELEKSI_NILAI()

End Sub

Public Sub openDB()

Dim LOKASI = “Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2\santy.mdb”

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Private Sub SELEKSI_NILAI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call openDB()

Call hapustext()

Call tampilSELEKSI_NILAI()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

SQL = “INSERT INTO SELEKSI_NILAI (No_seleksi,kode_posisi,tanggal)” & _

“Values (‘” & no_seleksi.Text & “‘,'” & _

kode_posisi.Text & “‘,'” & _

tanggal.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilSELEKSI_NILAI()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

no_seleksi.Focus()

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

SQL = “UPDATE SELEKSI_NILAI SET No seleksi='” & no_seleksi.Text & “‘,” & _

“kode posisi='” & kode_posisi.Text & “‘,” & _

“tanggal='” & tanggal.Text & “‘,” & _

“Where No_seleksi='” & no_seleksi.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilSELEKSI_NILAI()

End Sub

Private Sub no_seleksi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_seleksi.KeyPress

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

Dim xkd As String = “”

Dim xseleksi_nilai As String = “”

If tombol = 13 Then

SQL = “SELECT * FROM SELEKSI_NILAI Where No_seleksi='” & no_seleksi.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

no_seleksi.Text = DR.Item(1)

kode_posisi.Text = DR.Item(2)

‘tanggal.Text = DR.Item(3)

Call butoonedit()

MsgBox(“DATA DITEMUKAN!”)

Else

xkode = no_seleksi.Text

Call hapustext()

no_seleksi.Text = xkode

Call butoonsimpan()

End If

kode_posisi.Focus()

End If

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

no_seleksi.Focus()

End Sub

End Class

FROM MENU KARYAWAN

Image

Image

LISTING  PROGRAM

Imports System.Data.OleDb

Public Class KARYAWAN

Public DB As OleDbConnection

Public CMD As OleDbCommand

Public ADP As OleDbDataAdapter

Public DR As OleDbDataReader

Public DS As New DataSet

Dim SQL As String

Sub tampilKARYAWAN()

ADP = New OleDbDataAdapter(“SELECT * FROM KARYAWAN”, DB)

DS = New DataSet

ADP.Fill(DS, “KARYAWAN”)

DataGridView1.DataSource = DS.Tables(“KARYAWAN”)

End Sub

Sub butoonbaru()

btnbaru.Enabled = True

btnsimpan.Enabled = False

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = False

btnkeluar.Enabled = True

End Sub

Sub butoonedit()

btnbaru.Enabled = False

btnsimpan.Enabled = False

btnedit.Enabled = True

btnhapus.Enabled = True

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub butoonsimpan()

btnbaru.Enabled = False

btnsimpan.Enabled = True

btnedit.Enabled = False

btnhapus.Enabled = False

btnbatal.Enabled = True

btnkeluar.Enabled = False

End Sub

Sub hapustext()

nik.Text = “”

posisi_jabatan.Text = “”

nama_jabatan.Text = “”

bagian.Text = “”

jenis_kelamin.Text = “”

Call butoonbaru()

End Sub

Public Sub OPENDB()

Dim LOKASI = “Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2\santy.mdb”

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Private Sub KARYAWAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call OPENDB()

Call tampilKARYAWAN()

End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

Private Sub NIK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nik.KeyPress

Dim tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

Dim xkd As String = “”

Dim xbagian As String = “”

If tombol = 13 Then

SQL = “SELECT * FROM KARYAWAN Where NIK='” & nik.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

nik.Text = DR.Item(1)

posisi_jabatan.Text = DR.Item(2)

nama_jabatan.Text = DR.Item(3)

bagian.Text = DR.Item(4)

jenis_kelamin.Text = DR.Item(5)

Call butoonedit()

MsgBox(“DATA DITEMUKAN!”)

Else

xkode = nik.Text

Call hapustext()

nik.Text = xkode

Call butoonsimpan()

End If

posisi_jabatan.Focus()

End If

End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call hapustext()

nik.Focus()

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

SQL = “INSERT INTO KARYAWAN (NIK, POSISI_JABATAN, NAMA_JABATAN,BAGIAN, JENIS_KELAMIN)” & _

“Values (‘” & nik.Text & “‘,'” & _

posisi_jabatan.Text & “‘,'” & _

nama_jabatan.Text & “‘,'” & _

bagian.Text & “‘,'” & _

jenis_kelamin.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilKARYAWAN()

End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

SQL = “UPDATE KARYAWAN SET nama_jabatan='” & nama_jabatan.Text & “‘,” & _

“posisi_jabatan='” & posisi_jabatan.Text & “‘,” & _

“jenis-kelamin='” & jenis_kelamin.Text & “‘,” & _

“bagian='” & bagian.Text & “‘ ” & _

“Where nik='” & nik.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilKARYAWAN()

Call hapustext()

End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

SQL = “DELETE FROM KARYAWAN Where nik='” & nik.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call btnbaru_Click(sender, e)

Call tampilKARYAWAN()

End Sub

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call hapustext()

nik.Focus()

End Sub

End Class

 

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Standar

SISTEM INFORMASI PEREKRUTAN KARYAWAN PADA PT.WIRASTAMA ABADI

FORM MENU DATA PELAMAR

Image

LISTING PROGRAM

Imports MySql.Data.MySqlClient

Public Class Form1

Public db As New MySql.Data.MySqlClient.MySqlConnection

Public sql As String

Public cmd As MySqlCommand

Public rs As MySqlDataReader

Sub opendb()

sql = “server=localhost;uid=root;pwd;database=pelamar”

Try

db.ConnectionString = sql

db.Open()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Sub bersih()

kodepelamar.Text = “”

nama.Text = “”

alamat.Text = “”

pendidikan.Text = “”

RubahButton(True, False, False, False, True)

kodepelamar.Enabled = True

End Sub

Sub RubahButton(ByVal Btn1 As Boolean, ByVal Btn2 As Boolean, ByVal Btn3 As Boolean, ByVal Btn4 As Boolean, ByVal Btn5 As Boolean)

BtnBaru.Enabled = Btn1

BtnSimpan.Enabled = Btn2

BtnHapus.Enabled = Btn3

btnbatal.Enabled = Btn4

btnkeluar.Enabled = Btn5

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

End Sub

Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

Call bersih()

kodepelamar.Focus()

End Sub

Private Sub kodepelamar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodepelamar.KeyPress

Dim tombol As Integer = Asc(e.KeyChar)

If tombol = 13 Then

Dim x As String

If kodepelamar.Text = “” Then

MsgBox(“Isi kode terlebih dahulu”)

Else

sql = “select * from pelamar where kode_pelamar='” & kodepelamar.Text & “‘”

cmd = New MySqlCommand(sql, db)

rs = cmd.ExecuteReader

Try

Call ShowDB()

Catch ex As Exception

x = kodepelamar.Text

bersih()

kodepelamar.Text = x

RubahButton(False, True, False, True, False)

btnsimpan.Text = “Simpan”

End Try

nama.Focus()

rs.Close()

End If

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call opendb()

Call bersih()

Call BuatTabel()

Call IsiTabel()

End Sub

Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

Call bersih()

kodepelamar.Focus()

End Sub

Sub prosesdb(ByVal log As Integer)

Dim pesan As String = “”

Select Case log

Case 0

sql = “Insert into data pelamar(kode pelamar,nama,alamat,pendidikan)” & _

” values(‘” & kodepelamar.Text & _

“‘,'” & nama.Text & _

“‘,'” & alamat.Text & _

“‘,'” & pendidikan.Text & “‘)”

pesan = “Data Telah Tersimpan”

Case 1

sql = “update data pelamar set Nama='” & nama.Text & “‘, ” & _

“alamat='” & alamat.Text & “‘,” & _

“pendidikan='” & pendidikan.Text & “‘ ” & _

“where kode pelamar='” & kodepelamar.Text & “‘”

pesan = “Data Telah Terupdate”

Case 2

sql = “Delete from data pelamar where ='” & kodepelamar.Text & “‘”

pesan = “Data Telah Dihapus”

End Select

Try

cmd = New MySqlCommand(sql, db)

cmd.ExecuteNonQuery()

MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, “Konfirmasi”)

Call bersih()

Call IsiTabel()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Sub ShowDB()

rs.Read()

kodepelamar.Text = rs(“kode pelamar”)

nama.Text = rs(“Nama”)

alamat.Text = rs(“jenjang”)

pendidikan.Text = rs(“jurusan”)

RubahButton(False, True, True, True, False)

btnsimpan.Text = “Edit”

kodepelamar.Enabled = False

End Sub

Sub BuatTabel()

Lv.Columns.Add(“kode pelamar”, 80, HorizontalAlignment.Center)

Lv.Columns.Add(“Nama”, 180, HorizontalAlignment.Left)

Lv.Columns.Add(“alamat”, 80, HorizontalAlignment.Left)

Lv.Columns.Add(“pendidikan”, 100, HorizontalAlignment.Left)

Lv.GridLines = True

Lv.FullRowSelect = True

Lv.View = View.Details

End Sub

Sub IsiTabel()

Lv.Items.Clear()

sql = “Select * from kode_pelamar”

cmd = New MySqlCommand(sql, db)

rs = cmd.ExecuteReader

Try

While rs.Read

Dim lst As New ListViewItem

lst.Text = rs(“kode pelamar”)

lst.SubItems.Add(rs(“Nama”))

lst.SubItems.Add(rs(“alamat”))

lst.SubItems.Add(rs(“pendidikan”))

Lv.Items.Add(lst)

End While

Catch ex As Exception

MsgBox(ex.Message)

End Try

rs.Close()

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

Dim x As String

x = MsgBox(“Anda Yakin Akan dihapus”, MsgBoxStyle.Information + MsgBoxStyle.YesNo, “Hapus”)

If x = vbYes Then

Call prosesdb(2)

End If

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

If btnsimpan.Text = “Simpan” Then prosesdb(0) Else prosesdb(1)

End Sub

End Class

FORM MENU

Image

LISTING PROGRAM

Public Class Form2

Private Sub DataPelamarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPelamarToolStripMenuItem.Click

Form1.Show()

End Sub

Private Sub LapdataPelamarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapdataPelamarToolStripMenuItem.Click

Dim laporan As New Rptpelamar

cetak.CrystalReportViewer1.ReportSource = laporan

cetak.Show()

End Sub

Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

End

End Sub

End Class

FORM  MENU CETAK

Image

HASILNYA

Image

DATABASENYA

Image

 

DEMIKIANLAH POSTINGAN SAYA NAMA:SUSANTI NPM: 1102086

Selamat Belajar VB Net