Program Aplikasi Data Produk dengan menggunakan database access produk

1.Pertama muncul Form Menu Utama nya

Public Class Form1

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

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

    Private Sub PRODUKToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PRODUKToolStripMenuItem.Click

        Dim Nproduk As produk = New produk

        Nproduk.MdiParent = Me

        Nproduk.Show()

    End Sub

End Class

2.kemudian di klik Menu PRODUK maka akan muncul :

listing program nya :

Imports System.Data.OleDb

Public Class produk

    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

    Public Sub openDB()

        Dim LOKASI = "provider=microsoft.jet.OLEDB.4.0;data source=c:\KUIS\PRODUK.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub tampiltabel_produk()

        ADP = New OleDbDataAdapter("SELECT * FROM tabel_produk order by kode_produk", DB)

        DS = New DataSet

        ADP.Fill(DS, "tabel_produk")

        DataGridView1.DataSource = DS.Tables("tabel_produk")

    End Sub

    Sub buttonbaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = True

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = True

    End Sub

    Sub buttonedit()

        btnbaru.Enabled = True

        btnsimpan.Enabled = True

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = True

    End Sub

    Sub buttonsimpan()

        btnbaru.Enabled = True

        btnsimpan.Enabled = True

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = True

    End Sub

    Sub hapustext()

        kodeproduk.Text = ""

        namaproduk.Text = ""

        satuan.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        Call buttonbaru()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from tabel_produk where kode_produk='" & kodeproduk.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                namaproduk.Text = DR.Item(1)

                satuan.Text = DR.Item(2)

                harga.Text = DR.Item(3)

                jumlah.Text = DR.Item(4)

                Call buttonedit()

                MsgBox("data ditemukan !")

            Else

                xkode = kodeproduk.Text

                Call hapustext()

                kodeproduk.Text = xkode

                Call buttonsimpan()

            End If

            namaproduk.Focus()

        End If

    End Sub

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

        Call openDB()

        Call hapustext()

        Call tampiltabel_produk()

    End Sub

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

        Call hapustext()

        kodeproduk.Focus()

    End Sub

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

        SQL = "INSERT INTO tabel_produk (kode_produk, nama_produk, satuan, harga, jumlah)" & _

                     "VALUES('" & kodeproduk.Text & "','" & _

                                  namaproduk.Text & "','" & _

                                  satuan.Text & "','" & _

                                  harga.Text & "','" & _

                                  jumlah.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampiltabel_produk()

    End Sub

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

        Call hapustext()

        kodeproduk.Focus()

    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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        SQL = "DELETE FROM tabel_produk where kode_produk='" & kodeproduk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampiltabel_produk()

    End Sub

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

        SQL = "update tabel_produk set nama_produk='" & namaproduk.Text & "'," & _

                                     "satuan='" & satuan.Text & " '," & _

                                     "harga='" & harga.Text & " '," & _

                                     "jumlah='" & jumlah.Text & " '" & _

                                     "where kode_produk='" & kodeproduk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampiltabel_produk()

    End Sub

End Class

3. Berikut ini tampilan Database nya :

Sekian lah cara saya membuat program aplikasi produk dengan menggunakan database Access..

GORESAN TANGAN DIRIKU

Sedikit tentang aku...

aku adalah anak pertama dari tiga bersaudara....

aku memiliki 2 orang adik perempuan yang bernama yosi dan ghea....

ayahku seorang pengabdi negara..,dan ibu ku seorang ibu rumah tangga..

dan aku adalah seorang mahasiswi di salah satu kampus ternama.. :)

sebagai anak dari seorang pengabdi negara,aku dan adik-adikku diberi mental dan jiwa yang kuat dari ayah ku...

sedangkan dari ibu ku ia memberikan kami wejangan akhlak dan perilaku yang amat baik dari dulu,hingga sekarang....

sebagai anak tertua,aku ingin memberikan contoh dan perilaku yang baik kepada adik-adikku..

dan bisa selalu membahagiakan kedua orangtuaku..

keinginan terbesar ku saat ini adalah mewujudkan semua cita-cita dan angan-angan yang selama ini sudah aku pendam.karena,di dunia ini tidak adA yang tidak mungkin...selagi kita mau berusaha dan selalu berdoa kepada YANG MAHA KUASA.

Dan kini aku yakin,kelak semua itu akan aku dapatkan dan aku raih.....

dengan begitu pasti orang-orang disekitar ku,akan merasa bangga...

apalagi,orang tuaku akan merasa bahagia dengan semua pencapaianku...

Dan semoga ALLAH SWT  dapat mengabulkan nya...

Amiieenn... ;)

HIKMAH DIBALIK KESABARAN

Sesungguhnya Allah Azza Wa Jalla akan menyediakan tempat kembali yang mulia dan mengangkat kedudukan hamba-Nya yang sabar dan beriman ke tempat yang terpuji beserta para anbiya dan salafusshalih. Mereka inilah yang dijanjikan akan menerima catatan amal dari sisi sebelah kanan dan mendapat layanan sempurna pada akhirat kelak yaitu dalam syurga yang penuh dengan kenikmatan yang tidak dapat digambarkan dengan akal fikiran.

Hikmah sifat sabar dapat kita pelajari melalui ayat-ayat Al-Quran sebagaimana berikut:

“Orang yang beriman dan mengerjakan amal shalih kelak akan kami masukkan ke dalam syurga…” (QS An-Nisa: 122)

“Barang siapa yang membawa amal yang baik maka baginya (pahala) sepuluh kali ganda amalnya…” (QS Al-An’am: 160)

“Kecuali orang sabar (terhadap ujian) dan mengerjakan amal shalih, mereka beroleh ampunan dan pahala yang besar.” (QS Hud: 11)

Jelaslah, sabar adalah sifat yang membawa kebaikan dan kebajikan. Malah Allah Subhanahu Wa’taalla memberikan pahala bagi orang yang membuat kebajikan dengan ganjaran berkali-kali ganda. Orang yang senantiasa bersabar akan mendapat keampunan daripada Allah Asshabur terhadap segala dosa yang pernah mereka lakukan dengan pahala yang besar. Oleh karena itu, mari kita senantiasa mengingat bahwa sabar itu sebagian besar dari iman agar hidup kita senantiasa bahagia dan sejahtera.

Wallahu A’lam bishawab…

 DEFENISI SISTEM INFORMASI MANAJEMEN

 

Sistem berasal dari kata yunani (sustema) dan bahasa latin (systema) yang mempunyai arti suatu susunan yang teratur dari kegiatan - kegiatan yang saling berkaitan dan susunan prosedur - prosedur yang saling berhubungan, yang melaksanakan dan mempemudah kegiatan-kegiatan utama organisasi atau institusi.

Informasi adalah data yang telah diproses atau diolah sehingga memiliki arti atau manfaat yang berguna.

• Data adalah fakta - fakta, statistik - statistik, atau angka - angka yang dapat menimbulkan informasi.

Manajemen :

• Sebagai Subyek : Manajemen adalah orang atau orang-orang yang melaksanakan kegiatan tersebut.
• Sebagai Proses : Manajemen adalah kegiatan yang dilakukan untuk menyelesaikan suatu pekerjaan secara bersama-sama atau melibatkan orang lain demi mencapai tujuan yang sama.

Sitem Informasi Manajemen (SIM)  adalah jaringan prosedur pengolahan data yang dikembangkan dalam suatu sistem (terintegrasi) dengan maksud memberikan informasi (yang bersifat intern dan ekstern) kepada manajemen, sebagai dasar pengambil keputusan.

Manfaat SIM yaitu, mempelajari bahwa nilai dari informasi amatlah berharga, oleh karena itu harus dikelola dengan sebaik-baiknya. Sebagai seorang pengusaha (wirausaha), staf manajemen, atau lebih tingginya sebagai manajer, harus bisa menghargai dan mampu mengelola informasi bagi kemajuan usaha atau perusahaannya.

ILMU ADALAH CAHAYA

ILMU ADALAH CAHAYA

Merpati terbang Berempat

        Terbang Melayang di atas Masjid

Memberi salam hukumnya Sunat 

       Menjawab Salam hukumnya Wajib

السلام عليكم ورحمة الله وبركاته

الْحَمْدُ لِلهِ الَّذِيْ هَدَانَا ِلهَذَا وَ مَا كُنَّا لِنَهْتَدِيَ لَوْلاَ أَنْ هَدَانَا اللهُ

أَشْهَدُ أَنْ لاَ إِلَه َإِلاَّ اللهُ اْلمَلِكُ الْحَقُّ الْمُبِيْنُ وَ أَشْهَدُ أَنَّ مُحَمَّدًا رَسُوْلُ اللهِ صَادِقُ اْلوَعْدِ اْلآمِيْن

قاَلَ اللهُ تَعَالىَ فِى كِتَابِهِ اْلكَرِيْمِ : أَعُوْذُ بِاللهِ مِنَ الشَّيْطَانِ الرَّجِيْمِ , بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيْمِ : يَرْفَعِ اللهُ الَّذِيْنَ آمَنُوْا وَ الَّذِيْنَ أُوْتُوا الْعِلْمَ دَرَجَاتٍ

وَ قَالَ النَّبِيُّ صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ : طَلَبُ اْلعِلْمِ فَرِيْضَةٌ عَلىَ كُلِّ مُسْلِمِيْنَ وَ اْلمُسْلِمَاتِ            

صدق الله العظيم

Yang sama-sama kita muliakan majlis guru yang telah membina dan mendidik kita siang dan malam, kemudian yang saya hormati kakak-kakak kelas baik Tsanawiyah maupun aliyah serta teman-teman yang senasib dan sepananngungan dengan saya yang dirahmati Allah.

Puji Syukur Keharirat Allah Swt Yang telah melimpahkan Rahmat dan kurnia Nya kepada kita bersama sehingga dengan itu kita telah dapat melangkahkan kaki, mengayunkan tangan dari tempat kita masing-masing untuk hadir dimasjid yang kita cintai ini.

Kemudian Shalawat beserta Salam kepada Rasul junjungan alam, yang mana  beliau Intan permata dalam lautan, benteng rohani dalam Sorga, lubuk akar lautan budi, kebukit beliau daki kelurah beliau turuni, bercucuran keringat berhujankan anak panah demi menegakkan Kalimah Tauhid dipermukaan bumi ini yang berlafazkan  لا إله إلا الله yakninya Nabi Besar Muhammad Saw.

Baiklah Pada kesemptan kali ini saya bukanlah mengajarkan tupai pandai melompat, ayam pandai berkokok, buaya pandai berenang, akan tetapi saya teringat dengan pesan Nabi بَلِّغُوا عَنِّى وَ لَوْ آيَة  (sampaikanlah dariku meskipun sepotong ayat), Mari kita bahas sebuah ceramah singkat yang berjudul …….

ILMU ADALAH CAHAYA

Ilmu adalah cahaya, ilmu adalah mulia, ilmu adalah menjadikan yang sulit jadi mudah, ilmu adalah mengangkat derajat manusia ketempat yang tinggi disisi allah swt, sebagaimana Firman Nya dalam Surat Al-Mujadalah Ayat 11 :

يَرْفَعِ اللهُ الَّذِيْنَ آمَنُوْا مِنْكُمْ وَ الَّذِيْنَ أُوْتُوا الْعِلْمَ دَرَجَاتٍ

" Allah Akan meninggikan derajat orang-orang yang beriman diatara kamu dan yang berilmu pengetahuan beberapa derajat "

Kata Imam Alghazali dalam kitab Minhajul 'Abidin :

الْعِلْمُ فىِ الصُّدُوْرِ كَالْمِصْبَاحِ فىِ الْبَيْتِ

" Ilmu yang ada dalam dada bagaikan lampu yang ada didalam rumah "

Al-Imam Asy-Syafi’I ra. pernah menggubah sebuah Sya'ir :

تَعَلَّمْ فَلَيْسَ الْمَرْءُ يُوْلَدُ عَالِمًا وَلَيْسَ أَخُوْ عِلْمٍ كَمَنْ هُوَ جَاهِلُ
وَإِنَّ كَبِيْرَ الْقَوْمِ لاَ عِلْمَ عِنْدَهُ صَغِيْرٌ إِذَا الْتَفَّتْ عَلَيْهِ الْجَحَافِلُ
وَإِنَّ صَغِيْرَ الْقَوْمِ إِنْ كَانَ عَالِمًا كَبِيْرٌ إِذَا رُدَّتْ إِلَيْهِ الْمَحَافِل

 “Belajarlah karena tidak ada seorangpun yang dilahirkan dalam keadaan berilmu, dan tidaklah orang yang berilmu seperti orang yang bodoh. Sesungguhnya suatu kaum yang besar tetapi tidak memiliki ilmu maka sebenarnya kaum itu adalah kecil apabila terluput darinya keagungan (ilmu). Dan sesungguhnya kaum yang kecil jika memiliki ilmu maka pada hakikatnya mereka adalah kaum yang besar apabila perkumpulan mereka selalu dengan ilmu.”

Pribahasa mengatakan dengan Iman hidup akanterarah, dengan Taqwa hidup akan barakah, dengan seni hidup jadi indah, dan dengan ilmu hidup akan jadi mudah

Suatu ketika nabi sulaiman disuruh pilih oleh Allah antara harta, tahta, dan ilmu…..nabi sulaiman menjatuhkan pilihannya kepada ilmu yang pada akhirnya berkat ia memilih ilmu... harta dan tahta pun diberikan oleh Allah SWT, Rasulullah Saw telah bersabda:

مَنْ اَرَادَ الدُّنْيَا فَعَلَيْهِ بِالْعِلْمِ وَ مَنْ اَرَادَ اْلآخِرَةَ فَعَلَيْهِ بِالْعِلْمِ وَ مَنْ اَرَادَ هُمَا فَعَلَيْهِ بِالْعِلْمِ

"siapa yang ingin dunia maka jawabannya adalah ilmu dan siapa yang menghendaki akhirat jawabannya adalah ilmu dan siapa yang menghendaki kedua-duanya jawabannya juga ilmu "

Sebagai Natijah dari pembicaraan Kita ini :

1.      Ilmu adalah cahaya, marilah kita raih cahaya itu untuk menerangi kehidupan kita dunia dana akhirat.

2.      Ilmu yang diamalkan adalah laksana lampu yang hidup, dia akan menerang seluruh sisi dan penjuru.\

3.      Terakhir mari kita simak sebuah nyanyian yang disenandungkan oleh  group Raihan :

أُطْلُبُوا اْلعِلْمَ وَ لَوْ فىِ الصِّيْنِ     (Tuntutlah Ilmu walau ke negri Cina) 2x

Tentang Orang-Orang Yang Sukses

1. Mencintai yang dilakukan. Orang-orang sukses biasanya berhasil di bidang yang dicintainya. Karena senang dengan yang dilakukannya, mereka akan menjalaninya dengan riang gembira. Tanpa ada paksaan. Itulah kenapa misalnya seorang seperti Ahmadun Yosi Herfanda dan Jonru bisa menjadi penyair dan penulis hebat. Karena mereka mencintai yang dilakukannya.
   Lakukan apa yang anda cintai. Makin anda lakukan, makin bersemangat dan nikmat menjalaninya.
2. Berorientasi pada tujuan. Orang-orang sukses selalu berorientasi padatujuan. Tahu mengapa harus melakukan sesuatu. Dan memfokuskan usahanya untuk mencapai tujuan itu.
   Ketahui dimana anda sekarang dan kemana akan melangkah, dan tahu bagaimana cara mencapainya. Selanjutnya just ACTION!
3. Berkumpul di lingkungan orang sukses. Nasihat lama mengatakan kalau ingin harum berkumpullah dengan penjual minyak wangi. Berkumpul di lingkungan yang sesuai, bisa mendorong anda mencapai apa yang anda inginkan.
4. Percaya diri. Orang-orang sukses memiliki kepercayaan diri. Tanpa ragu mereka akan mengatakan kepada orang di sekelilngnya mengenai tujuan-tujuannya. Mereka mengatakan apa saja yang akan mereka lakukan dan hasilkan.
   Jangan ragu, percayalah pada diri anda. Anda bisa!
5. Bekerja keras dan cerdas. Sekalipun berbisnis internet yang tiap harinya hanya menghadap komputer, namun jangan dikira kita tak perlu kerja keras dan cerdas. Tanpa bermaksud apa-apa, sekalipun saya bisa saja tak bekerja apapun sepanjang waktu, namun tiap harinya saya tetap mengalokasikan waktu bekerja. Sekalipun ada beberapa karyawan yang membantu, saya tetap ACTION. Saya tak keberatan bangun tengah malam sekalipun untuk mengecek email, blog, dan situs web.
   Ya karena saya menyukainya. Saya mencintai apa yang saya lakukan. Saya cinta internet marketing.

Keberhasilan, kesuksesan atau apapun namanya adalah sebuah proses. Proses yang tak datang hanya dengan sekali ucap “simsalabim” maka berubahlah segalanya. Sukses adalah buah dari komitmen dan proses terus menerus untuk mencapai sebuah tujuan. Seperti besi yang ditempa dalam api, sampai akhirnya menjadi pisau atau benda lain yang lebih berguna.

Kesetiaan menjalani proses itulah kuncinya. Meski klise, namun sampai sekarang terus terbukti sangat telak terhadap hasil akhir yang ingin kita capai.

Dalam hidup segala sesuatunya memang tak selalu berjalan sempurna. Namun bukan berarti kita harus terdiam dan menyerah berpangku tangan pada nasib.

Bangkit dan mari ACTION untuk menjadi orang sukses!

Ayahku Hebat

Ayahku bukanlah ayah yang kaya, dengan pekerjaan yang mapan dan jabatan yang tinggi. Ayahku bukanlah ayah yang membahagiakan anak-anaknya dengan barang-barang mewah. Tapi ayahku adalah ayah yang sangat HEBAT. Beliau tak pernah lupa membimbing anak-anaknya mengerjakan PR, atau menemani kami belajar untuk menghadapi ulangan di sekolah. Beliau tak pernah lupa untuk mengajak kami bermain walaupun dengan permainan sederhana. Beliau selalu mengajak ibu dan anak-anaknya untuk makan di luar pada akhir pekan walaupun hanya makan mie ayam di pinggir jalan. Beliau juga tak pernah lupa mengajarkan kami berdoa.Ayahku ayah yang super, seringkali dengan sengaja ayah memasak makanan untuk kami sekeluarga. Ayahku mungkin bukan ayah yang sempurna, dengan segala kekurangannya seringkali kami jadi sasaran emosi ayah. Tapi dibalik sakitnya pukulan ayah, cambuk sabuk ayah, dan bentakan ayah ada kelembutan dan kasih sayang yang luar biasa dalam diri ayah. Ayahku ayah yang HEBAT, beliau selalu belajar dan belajar menjadi pribadi yang lebih baik. Beliau tak pernah malu untuk mengakui kesalahannya dan meminta maaf.Ayah adalah teman diskusi terhebat, beliau tahu banyak hal yang tak kudapatkan dari sekolah seperti agama, politik, matematika, dan pengetahuan umum. Ayah juga lawan main catur yang tangguh, aku tak pernah menang melawan beliau. Selain itu ayah juga sahabat terbaikku, meski aku jarang sekali bercerita tentang kehidupanku padanya, beliau tahu semua yang aku rasakan dan melalui caranya yang unik memberikan aku solusi.Ayah sering mengantarku ke sekolah, meski aku sudah masuk usia remaja, ayah juga sering mengantar aku kemanapun aku pergi. Saat aku harus pulang malam karena ekstrakulikuler, aku selalu melihat ayah ada di depan pagar sekolahku dengan sabar menungguku. Walaupun beliau sering memarahiku karena terlalu aktif di ekskul tapi ayah tak pernah absen menjemputku. Oh yaa ayahku juga pandai sekali mendongeng, waktuku dan adik-adikku kecil ayah seringkali mendongeng untuk kami sebelum tidur. Bukan dongen tentang cinderella atau putri salju yang kami dengar, tapi dongeng ciptaan ayah sendiri yang takkan pernah anak-anak lain dengar.Saat aku kuliah, aku harus nge-kost ayah adalah orang yang paling takut melepasku. Beliau selalu menelponku sekedar bertanya sudah makan atau belum, atau sekedar mengingatkanku untuk kuliah. Sering juga ayah menyuruh ibu menelponku untuk menanyakan apakah aku baik-baik saja, atau apakah uang sakuku cukup? Ayah juga sering menelponku untuk mengingatkanku menjaga diri baik-baik. Dan setiap akhir pekan aku pulang ayah menyuruh ibu memasak makanan yang enak dan sehat. Pernah juga saat aku mengerjakan tugas kuliah sampai aku tidak tidur sama sekali, tengah malam ayah bangun dan membuat susu jahe untukku, oohh how sweet .. Aku harus ke kampus untuk tes tugas akhir pratikum tapi saat itu aku sedang tak enak badan, ayah mengantarkan aku ke kampus dan menungguku sampai selesai.Meski beliau sibuk dengan segala pekerjaannya ayah tak pernah lupa memperhatikan anak-anaknya  bahkan sampai ke hal-hal yang detail. Beliau akan marah bila dalam sehari saja anak-anaknya tak memberi kabar. Beliau selalu mengajak seluruh anggota keluarga makan bersama saat kami berkumpul semua. Hmmm akan perlu banyak waktu untuk menceritakan ayah disini, ayahku adalah ayah yang HEBAT. Terima kasih Tuhan telah menganugrahkan kami ayah yang hebat. Kiranya ayah selalu sehat selalu sampai bisa melihat anak-anaknya berhasil. Amin