Paraahh...Tawuran Kembali Terjadi..

Harus dibawa kemana Negeri Tercinta kita ini...
Berita update ini baru saja saya dapatkan dari salah satu sumber terpercaya..
PARAHH....Tawuran kembali terjadi...tapi kali ini bukan antar pelajar, suku ataupun mahasiswa..
Tawuran kali ini terjadi antara Pedagang Buah.

Berita tawuran kali ini terjadi antara kedua pedagang buah disalah satu daerah padat penduduk..
Usut punya usut ternyata Tawuran dipicu oleh hal yang sangat sepele..
Berikut adalah rangkuman beritanya..

" Tawuran kembali terjadi malam tadi, Minggu 30 September 2012 dini hari waktu setempat. Masih hangat betul beberapa waktu hari yang lalu, media cetak dan elektronik diramaikan dengan berita Tawuran antar pelajar, kali ini sudah ada lagi berita yang sangat menyayat hati kita semua selaku Warga Negara Indonesia Tercinta.

Petugas berwajib berhasil  menelusuri akar dari pada permasalahan yang sampai menyebabkan Tawuran kembali terjadi, setelah diusut ternyata hanya dipicu oleh persoalan sepele dan kesalah-pahaman semata.
Saat dikonfirmasi, petugas menyampaikan secara detail mengenai penyebabnya, menurutnya bahwa Pedagang Buah Jeruk marah dan kesal lantaran dagangannya dihina...

Pedagang buah jeruk : " Jeruk manis...jerukk maniiss...jeruk manis Pak-Bu..hanya 15,000 sekilonya.."

Saat yang bersamaan ada pedagang buah lainnya,

Pedagang Asem : " Asem buuu...Asem buuu"

Rupanya Pedagang buah jeruk merasa dihina dagangan jeruk nya itu asem, padahal Pedagang Asem itu tidak bermaksud demikian, Dia berteriak " Asem " karena memang sedang berjualan Buah Asem... -:)

Heee....Just Kidding yaaa, cerita diatas hanyalah " guyon "...

Dari pada pusing mikirin TAWURAN dan berita kriminal lainnya, Mending Kitaaa  Se...de...kaaaahhhh..

||

||

||

STOOPPP Tawurannn.....!!!!!!!!

Ayooo Sedekahhh...

Kareeenaaaa...

Udaahh  deeehh...Jangan raguuu..

Sholat 5 Waktunya juga di jaga yaa..

Kalo Rajin Sholat dan Sedekah......InsyaAllah, Jadi Gak Takut dengan kata-kata dibawah ini..

Ayo Salurkan Zakat, Infaq dan Sedekah Anda...di,

Selengkapnya No Rekening Zakat, Infaq dan Sedekah

Istana Yatim, YAYASAN DARUL 'ILMI AL-FIKRI..

Kunjungi Website resminya di : http://istanayatim.com

Wassalamu'alaikum.....

Read More

STOOPPP Tawuran...Ayoo Sedekah.. :-)

STOOPPP Tawurannn.....!!!!!!!!

Ayooo Sedekahhh...

Kareeenaaaa...

Udaahh  deeehh...Jangan raguuu..

Sholat 5 Waktunya juga di jaga yaa..

Kalo Rajin Sholat dan Sedekah......InsyaAllah, Jadi Gak Takut dengan kata-kata dibawah ini..

Ayo Salurkan Zakat, Infaq dan Sedekah Anda...di,

Selengkapnya No Rekening Zakat, Infaq dan Sedekah

Istana Yatim, YAYASAN DARUL 'ILMI AL-FIKRI..

Kunjungi Website resminya di : http://istanayatim.com

Wassalamu'alaikum.....

Read More

Coding Form Login VB.Net

Tag : Cara coding form login dengan database MySql Front, Cara membuat form login VB.Net.

Susah-susah mudah..kau kudekati..kucari engkau lari..kudiam kau hampiri....heee, maaf ya basa-basi sedikit. Ok Gan, yang lagi bingung, lagi kesulitan, lagi mentok untuk membuat coding form login pada project visual basic dengan database MySql ( Conector ODBC ). Nih saya mau share sedikit cara yang udah saya coba sendiri, dan saat di running, Ok..

Okelah, simak baik-baik ya langkah-langkahnya...

1. Buat sebuah tabel pada pada Database anda dengan Nama= ' login '
    pada tabel 'login' tsb, buat field-fieldnya ( Kd_Pgw, NmPgw, username, password, Status )

2. Desian Form login

3. Coding Form Login

   

Imports System.Data.Odbc
Public Class Frm_Login
    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        Dim Query As String
        Dim xMyRead As OdbcDataReader
        Dim xMyCmd As OdbcCommand
        bukaConn()
        Query = "select *from login where username='" & TxtUser.Text & "' and password='" & TxtPass.Text & "'"
        xMyCmd = New OdbcCommand(Query, MyCn)
        xMyRead = xMyCmd.ExecuteReader

        If TxtUser.Text = "" Or TxtPass.Text = "" Then
            MsgBox("Opps..Data yang Anda masukan belum lengkap", MsgBoxStyle.Information, "Pesan")
            TxtPass.Text = ""
            TxtUser.Focus()
            Exit Sub
        Else
            Call bukaConn()
            If xMyRead.HasRows Then
                xMyRead.Read()
                Me.Visible = True
                MenuUtama.Show()                MenuUtama.Panel1.Text = xMyRead.Item("Kd_Pgw")
                MenuUtama.Panel2.Text = xMyRead.Item("NmPgw")
                MenuUtama.Panel3.Text = xMyRead.Item("Status")
                If MenuUtama.Panel3.Text = "Staff" Then                    MenuUtama.EntryDataJabatanToolStripMenuItem.Enabled = False
                 
                ElseIf MenuUtama.Panel3.Text = "Supervisor" Then                    MenuUtama.LaporanPegawaiToolStripMenuItem.Enabled = False
               
                End If
                TxtPass.Text = ""
                TxtUser.Text = ""
                TxtUser.Focus()
            Else
                MsgBox("Opps..Username & Password tidak cocok", MsgBoxStyle.Information, "Pesan")
                TxtPass.Text = ""
                TxtUser.Focus()
            End If
        End If
    End Sub
    Private Sub Frm_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TxtUser.Text = ""
        TxtPass.Text = ""
        TxtUser.Focus()
    End Sub
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    End Sub
    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        Me.Close()
    End Sub
End Class

Yang saya beri warna merah adalah batasan akses dari masing-masing jenis user ( Staff, Supervisor, Manager ). Yang saya beri warna kuning adalah aksesori pada Menu Utama, yang bahasannya lebih lengkap di bawah ini.

Lihat tampilan Menu Utama dibawah ini :

Cara Membuatnya :

1. Masuk ke Menu Utama

2. Tambahkan 'StatusStrip' dari Toolbox ke 'Menu Utama'

3. Edit Item Colecction nya = Panel1 , Panel2 , dan Panel3

4. Pada Coding-an diatas yang saya beri warna hijau adalah 'Nama' pada Modul Koneksi.

 Imports System.Data.Odbc

 Module koneksi
    Public StrConn As String
    Public MyCn As OdbcConnection

    Sub bukaConn()

        StrConn = "Dsn=2012_uas_vb4"
    'StrConn &= " database=????;"
    'StrConn &= "Server=localhost;"
        'StrConn &= "Uid=root;pwd=;"
        MyCn = New OdbcConnection(StrConn)
        If MyCn.State = ConnectionState.Closed Then
            Try
                MyCn.Open()
            Catch ex As Exception
                MsgBox(ex.Message)
                Application.Exit()
            End Try
        End If
    End Sub
 End Module

Ok Gan..semoga bermanfaat...

Salam blogwalking.....





Read More