CATATAN si NOL

Public Class Latihan39 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Private Sub Latihan39_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NOTRANS070.Text & "'", A) X.Fill(dt) X.Dispose() Dim dataPrimary(1) As DataColumn dataPrimary(0) = dt.Columns("KODEBARANG") dt.PrimaryKey = dataPrimary DGV070.DataSource = dt End Sub Private Sub TOTALJUMLAH()

Public Class Latihan383940 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Public Sub nurlina() Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select * From BARANG", A) dt.Rows.Clear() X.Fill(dt) X.Dispose() End Sub Private Sub Latihan383940_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load nurlina() DGV070.DataSource = dt End Sub End Class

Public Class Latihan38 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Dim dr As DataRow Private Sub Latihan38_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NOTRANS.Text & "'", A) X.Fill(dt) X.Dispose() Dim dataPrimary(1) As DataColumn dataPrimary(0) = dt.Columns("KODEBARANG") dt.PrimaryKey = dataPrimary DGV38.DataSource = dt End Sub Private Sub TOTAL

Public Class Latihan37 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Dim dr As DataRow Private Sub Latihan37_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & nt070.Text & "'", A) X.Fill(dt) X.Dispose() Dim dataPrimary(1) As DataColumn dataPrimary(0) = dt.Columns("KODEBARANG") dt.PrimaryKey = dataPrimary dgv070.DataSource = dt End Sub Private Sub TOTAL

Public Class Latihan36 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Dim dr As DataRow Private Sub Latihan36_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & nt070.Text & "'", A) X.Fill(dt) X.Dispose() Dim dataPrimary(1) As DataColumn dataPrimary(0) = dt.Columns("KODEBARANG") dt.PrimaryKey = dataPrimary dgv070.DataSource = dt End Sub Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click 'a' If kb070.Text.Length = 0 Then MsgBox("Kod

Public Class Latihan35 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb") Dim dt As New DataTable Private Sub Latihan35_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim X As New OleDb.OleDbDataAdapter X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & nt070.Text & "'", A) X.Fill(dt) X.Dispose() dgv070.DataSource = dt End Sub Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click 'a' If kb070.Text.Length = 0 Then MsgBox("Kode barang sudah ada") Exit Sub End If If Val(unit070.Text) = 0 Then MsgBox("Masukkan Harga barang")

Public Class Latihan29 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb") Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click If kb1070.Text.Length = 0 Then MsgBox("Kode barang sudah ada") Exit Sub End If If kb2070.Text.Length = 0 Then MsgBox("Kode barang sudah ada") Exit Sub End If If nb070.Text.Length = 0 Then MsgBox("Nama barang sudah ada") Exit Sub End If If Val(hj070.Text) = 0 Then MsgBox("Harga jual sudah ada") Exit Sub End If If Val(jb070.Text) = 0 Then MsgBox("Jumlah barang sudah ada") Exit Sub End If If kb1070.Text <> kb

Oleh bidadari_Azzam Dia telah mengingatkan kita dalam kitab-Nya yang sempurna bahwa tiap-tiap yang berjiwa akan merasakan mati, bila ayat tersebut terdengar di telinga atau dibaca oleh lidah kita sendiri, hati nan tunduk pada-Nya pasti merasa bergetar hebat. Ramadhan awal tahun ini diiringi berita indah akan kelahiran bayi-bayi lucu para sahabatku. Semoga keberkahan Allah ta’ala mengiringi para bayi suci tersebut, amiin. Dan hentakan di dada begitu kerasnya tatkala kubaca berita tentang kematian seorang teman, sangat muda usianya, beserta meninggalnya dua orang bapak yang merupakan orang tua dari sahabat nun jauh di negera lain. Padahal, kontak dengan teman itu hanya via email karena satu komunitas wanita Indonesia di luar negeri, dan bapak-bapak yang telah pergi jauh ke alam lain tersebut memang belum pernah bertatap muka langsung denganku, paling-paling anaknya menunjukkan “Ini fotoku bersama ayah…”, sebatas itu. Namun tatkala kematian, berita bahwa mereka sudah ‘duluan singg

Dikisahkan ketika Allah mencipta Al-Maut (kematian) dan menyerahkan kepada Izrail, maka berkata malaikat Izrail, “Wahai Tuhanku, apakah Al-Maut itu?”. Maka Allah menyingkap rahsia Al-Maut itu dan memerintah seluruh malaikat menyaksikannya. Setelah seluruh malaikat menyaksikannya Al-Maut itu, maka tersungkurlah semuanya dalam keadaan pengsan selama seribu tahun. Setelah para malaikat sedar kembali, bertanyalah mereka, “Ya Tuhan kami, adakah makhluk yang lebih besar dari ini?” Kemudian Allah SWT berfirman: “Akulah yang menciptakannya dan Akulah yang lebih agung daripadanya. Seluruh makhluk akan merasakan Al-Maut itu”. Kemudian Allah memerintahkan Izrail mengambil Al-Maut. Walau bagaimanapun, Izrail khuatir jika tidak terdaya untuk mengambilnya sedangkan Al-Maut lebih agung daripadanya. Kemudian Allah memberikannya kekuatan, sehinggalah Al-Maut itu menetap di tangannya. Malaikat Izrail diberi kemampuan yang luar biasa oleh Allah hingga barat dan timur dapat dijangkau dengan mudah olehnya

BANDAR LAMPUNG, KOMPAS.com-  Koalisi Rakyat untuk Keadilan Perikanan menyesalkan terjadinya kasus penangkapan nelayan oleh Pemerintah Malaysia di wilayah perbatasan yang berujung pada kematian Ahmad Zailani (34), nelayan asal Deli Serdang, Sumatera Utara. "Kasus ini kian mempertegas ketidakpedulian pemerintah atas keselamatan nelayan yang mencari penghidupan di wilayah perbatasan. Hal ini diperburuk dengan sikap abai aparatur pemerintahan di bawahnya, seperti Kementerian Kelautan dan Perikanan dan Kementerian Luar Negeri," tutur Koordinator Program Kiara Abdul Halim dalam siaran persnya, Selasa (15/11/2011). Ia menambahkan, KIARA dan Kesatuan Nelayan Tradisional Indonesia (KNTI) mencatat, 52 nelayan tradisional asal Kabupaten Langkat, Sumatera Utara, pernah ditangkap dan ditahan sejak 9 April 2009 hingga September 2011. Selain itu, 47 nelayan tradisional lainnya mengaku pernah menjadi korban perompakan dan penganiayaan oleh polisi laut Malaysia. Terkait dengan isu ini, KIARA

MediaMuslim.Info  –  Dari Jabir bin Abdullah r adhiallaahuanhu   ia pernah berkata: Pada peperangan Uhud ayahku terbunuh, akupun menyingkap kain dari wajahnya dan menangis. Orang-orang melarangku namun Rasululloh  Shallallaahu ‘alaihi wa Sallam  tidak melarang, kemudian bibiku Fathimah ikut menangis lalu Nabi  Shallallaahu ‘alaihi wa Sallam  bersabda, yang artinya:  “Engkau tangisi atau tidak malaikat akan terus menaunginya dengan sayap-sayap mereka sampai kalian mengusungnya.”  (Muttafaq ‘alaih). Kemudian dari Ibnu Umar  radhiallaahuanhu  diriwayatkan bahwa ia berkata:   Saad bin Ubadah pernah sakit keras. Nabi  Shallallaahu ‘alaihi wa Sallam  datang menjenguknya bersama Abdurrahman bin Auf, Saad bin Abi Waqqash serta Abdullah bin Mas’ud  radhiallaahu anhu . Ketika beliau masuk Saad sudah dikerubungi keluarganya, beliau lalu bertanya:  “Apakah ia sudah tiada?” mereka menjawab: “Belum wahai Rasululloh. “Maka beliaupun menangis dan ketika orang-orang melihat Nabi menangis merekapun mena

Dari Wikipedia bahasa Indonesia, ensiklopedia bebas " Tuhan sudah mati " ( bahasa Jerman : " Gott ist tot ") adalah sebuah ungkapan yang banyak dikutip dari  Friedrich Nietzsche .  Ungkapan ini pertama kali muncul dalam  Die fröhliche Wissenschaft , seksi 108 (New Struggles), dalam seksi 125 (The Madman), dan untuk ketiga kalinya dalam seksi 343 (The Meaning of our Cheerfulness). Juga muncul dalam buku klasik Nietzsche  Also sprach Zarathustra , yang paling bertanggung jawab dalam memopulerkan ungkapan ini. Gagasan ini dinyatakan oleh 'The Madman' sebagai berikut: “ Tuhan sudah mati. Tuhan tetap mati. Dan kita telah membunuhnya. Bagaimanakah kita, pembunuh dari semua pembunuh, menghibur diri kita sendiri? Yang paling suci dan paling perkasa dari semua yang pernah dimiliki dunia telah berdarah hingga mati di ujung pisau kita  sendiri. Siapakah yang akan  menyapukan darahnya dari kita? Dengan air apakah kita dapat menyucikan diri kita? Pesta-pesta penebus

1. Josef Stalin Stalin adalah Sekretaris Umum Partai Komunis dari Komite Sentral Uni Soviet dari tahun 1922 sampai kematiannya di tahun 1953. DI bawah kepemimpinan Stalin, Negara bagian Ukraina menderita kelaparan sangat hebat (Holodomor), oleh kebanyakan orang hal ini dianggap akibat dari pemusnahan massal yang merupakan bagian dari kebijakan pemerintahan Stalin. Perkiraan jumlah kematian bervariasi dari 2,5 juta sampai 10 juta. Kelaparan disebabkan oleh politik dan administratif keputusan. Disamping kelaparan, Stalin memerintahkan pembersihan dalam Uni Soviet orang mana pun yang dianggap sebagai musuh negara bagian. Di total, perkiraan jumlah yang dibunuh di bawah pemerintahan Stalin berkisar antara 10 juta hingga 60 juta orang. 2. Adolf Hitler Adolf Hitler ditetapkan Kanselir Jerman pada 1933, menjadi “Fuhrer” pada 1934 sampai bunuh dirinya pada 1945. Di akhir Perang Dunia 2, Kebijakan teritorial penaklukan dan pemusnahan rasianya sudah membawa kematian dan penyiksaan jutaa

Kehidupan berlangsung tanpa disadari dari detik ke detik. Apakah anda tidak menyadari bahwa hari-hari yang anda lewati justru semakin mendekatkan anda kepada kematian sebagaimana juga yang berlaku bagi orang lain? Seperti yang tercantum dalam ayat “ Tiap-tiap yang berjiwa akan merasakan mati. Kemudian hanyalah kepada Kami kamu dikembalikan .” (QS. 29:57) tiap orang yang pernah hidup di muka bumi ini ditakdirkan untuk mati. Tanpa kecuali, mereka semua akan mati, tiap orang. Saat ini, kita tidak pernah menemukan jejak orang-orang yang telah meninggal dunia. Mereka yang saat ini masih hidup dan mereka yang akan hidup juga akan menghadapi kematian pada hari yang telah ditentukan. Walaupun demikian, masyarakat pada umumnya cenderung melihat kematian sebagai suatu peristiwa yang terjadi secara kebetulan saja. Coba renungkan seorang bayi yang baru saja membuka matanya di dunia ini dengan seseorang yang sedang mengalami sakaratul maut. Keduanya sama sekali tidak berkuasa terhadap kelahiran

Dari Wikipedia bahasa Indonesia, ensiklopedia Kematian  atau  ajal  adalah akhir dari kehidupan, ketiadaan nyawa dalam organisme biologis.  Semua makhluk hidup pada akhirnya akan mati secara permanen,  baik karena penyebab alami seperti penyakit atau karena penyebab  tidak alami seperti kecelakaan. Setelah kematian, tubuhmakhluk hidup mengalami pembusukan. Penyebab-penyebab kematian Seiring penuaan usia makhluk hidup, tubuh mereka  akan perlahan-lahan mulai berhenti bekerja. Jika tubuh tidak mampu melawan penyakit, atau tidak diobati. Kecelakaan seperti tenggelam, tertabrak, terjatuh dari ketinggian, dll. Lingkungan dengan suhu yang sangat dingin atau yang terlalu panas. Pendarahan yang diakibatkan luka yang parah. Kekurangan makanan, air, udara, dan perlindungan. Diserang dan dimakan (pembunuhan). Infeksi dari gigitan hewan berbisa maupun hewan yang terinfeksi virus berbahaya. Kematian disaat tidak terbangun dari tidur. Kematian sebelum lahir, karena perawatan janin yang ti

Belum ke kegiatan sesungguhnya udah amburadul, bagaimana kedepannya yah ??? Mungkin yang tertuanya ngak siap nih, makanya semua ngak beres. Cuma mau dengar kualisinya, yang lain ngak di dengar. Klo ngomong di dengar sih tp ngak di perhatian.... Adu bagaimana nih orang tertua kita ??? Dia kan contoh... Masa jadi begini keadaannya... Mulutnya aja yang jago bicara... Otaknya buntu..

Kerja Mading di himpuana bareng teman-teman. mana gabusnya ? kerja sama membuat pekerjaan ini lebih mudah... dn semoga kekompakan ini terjaga selamanya.

Bangga Menjadi pengurus... tapi pakah saya bisa mengaturnya ? saya berharap dapat mengembangkan yang satu ini.... akan menjadi suatu kebanggaan jika hal yang baru ini berkembang pesat, dan menjadi pelajaran jika ini gagal. bantuan dari semuanya yang dapat membantu. agar tak jatuh dan terpuruk ke tanah.. KEEP SPIRIT...

Apakah kesalahan harus langsung dimarahi ??? Diam-diam meki' , eh na tambahi.. Berbuat baek meki', eh dilanjut.. Mending menghilang..

Akhirnya selesai juga wawancara, meskipun malu tapi tetap dijalankan.. tugas yang menantang, tapi seru... Usahalah meskipun itu sulit.

Aduh... Sekarang peraturan serba rumit dan ketat.. Masa kita harus musuhan selama 4 jam. Dosa....

Dosen rapat , mahasiswa terlantarkan... Seperti hari ini, dosen pada rapat .. Tapi sepertinya semuanya senang.. Karna ngak masuk belajar... Sebenarnya ngak asik begitu, karna kita menyia-nyiakan waktu.. Ndak semua orang senag dengan dosen yang tidak masuk, tapi mereka jengkel. Seharusnya hari ini udah dapat ilmu, eh tapinya menjadi tertunda karena rapat.

Ngurusin absen di kampus udah jadi ribet, satu matah kuliah terdapat 2 samapi 3 dosen... Wah...ketat sekali... Mungkin dengan system ini, mahasiswa dapat lebih paham dan mengerti mata kuliah itu. Yang susah ketua kelasnya, bolak balik ngurusin ttd dosen, alhamdulillah sekarang udah di gedung yang sama, jadi ngak jauh bolak baliknya. Thanks to system

Bebuat baik pada orang lain merupakan hal yang terpuji dan mendapatkan amal dari ALLAH swt. Contoh berbuat baik yang muadah iallah membantu pekerjaan yang dia kerjakan. Tapi pekerjaan itu terkadang menjadi menyebalakan, dikala kita semangat-semangatnya bekerja dan kita menginginkan waktu untuk mengambil bahan itu tidak ada. Sehingga kerjaan ity menjadi terkendala. Hal yang bisa di selesaikan 2jam terpaksa menjadi 1 hari. Sungguh tidak efisien pekerjaan itu,padahal dimana-mana orang-orang menginginkan itudalam bekerja. Jadilah orang yang konsisten dalam melakukan sesuatu.

Ketemu teman-teman, ngumpul,cerita. Dimana lagi ini dosen belum pada muncul.... Mungkin masih malas ngajar kali.... Mahasiswanya jg masih malas kuliah kali.. Masih kangen kampung n rumahnya kali, sehingga masih banyak belum muncul...

cattric warna printer rusak, malah harganya mahal lagi. bagaimana caranya biar dapat cattric baru ? uang yang diberi juga baru Rp100.000, harga cattric Rp.240.000 kufikir, daripada beli cattric mending beli printer baru, harganya juga tinggal nambah dikit dari harga cattric. pusing.....

Membantu orang lain sangat menyenagkan. Senang skali... Semoga segala bantuan yang kulakukan mendapat imbalan dari allah swt. Saya ingin kekuatan untuk membantu orang lain. Maka jangan buat diriku sakit ya allah.

Berlibur dapan menenangkan syaraf dan menyegarkan kembali badan dan fikiran setelah beban pekerjaan dan perkuliahan selama satu semester ini. Berlibur sebaikx dilakukan di tempat yang indah dan menyegargan , soalnya tujuam utama berliburkan untuk penyegaran. Kita bergumpul dengan teman-teman juga dapat dikatakan berlibur, tapi saat ini dimana teman-teman sibuk dengan kerjaanx masing-masing. Sedih di hati yang timbul dimana sendiri menjalani hari libur di rumah. Main game, tidur, nonton tv , makan. Selama libur cuma itu yang dapat dilakukan.. Saya rindu dengan suasana ngumpul teman-teman, ketawa bersama.

Masalah interna itu seharusnya yang bersangkutan saja yang tau, tp kenapa juga orang luar yang tau ? Orang tak bersangkutan juga lebih tau banyak di banding yang bersangkutan. Curiga ada musuh dalam selimut... Teman makan teman, masalah di ungkap terus.... Yang berlalu biarlah berlalu ... Kita liat hari esok dg senyuman.

Aduh...... Janji jam 9.... Samapai jam 11 blum mulai ... Bagaimana bangsa ini kalau ngaret trus ??? Bagaimana bau memimpin, kalau diri sendiri tidak bisa di pimpin.

LA (LOMBA AKUNTANSI) DUA hari yang melelahkan. semuanya dikorbangkan demi kelancarannya.. suara capek terdengar di penjuru ruangan. tapi semanat masih berkobar. semangat.

Mengapa kebanykan diwaktu kita putus dengan pacar kita.... hubungan kita dengan dia menjadi renggang ? putus bukan berarti berekhir kan ? kan kita bisa menjadi saudara... kakak adek gitu jadi saya harap semuanya bisa menjadi lebih baik, setelah hubungan itu berakhir.