Master Kendaraan

Class Kendaraan

Imports System.Data.OleDb

Public Class cls_kendaraan

    Private fno_pol As String

    Private fjenis_kend As String

    Private fmerk As String

    Private fkey As String

 

    Public Property no_pol() As String

        Get

            Return fno_pol

        End Get

        Set(ByVal value As String)

            fno_pol = value

        End Set

    End Property

    Public Property jenis_kend() As String

        Get

            Return fjenis_kend

        End Get

        Set(ByVal value As String)

            fjenis_kend = value

        End Set

    End Property

    Public Property merk() As String

        Get

            Return fmerk

        End Get

        Set(ByVal value As String)

            fmerk = value

        End Set

    End Property

    Public Property key() As String

        Get

            Return fkey

        End Get

        Set(ByVal value As String)

            fkey = value

        End Set

    End Property

Public Function autonumber() As String

        Dim query As String

        Dim strTemp As String

        Dim strVal As String

        bukaConn()

        query = "SELECT kd_plg FROM PELANGGAN ORDER BY kd_plg DESC"

        cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            strTemp = Mid(dreader.Item("kd_plg").ToString, 3, 5)

            strVal = Val(strTemp) + 1

            Return "PL" & Mid("000", 1, 4 - strVal.Length) & strVal

        Else

            Return "PL0001"

        End If

    End Function

    Public Sub baca(ByVal LV As ListView)

        LV.Items.Clear()

        Dim query As String

        Dim baris As Integer = 0

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk  FROM KENDARAAN where no_pol like '%" & Trim(Me.key) & "%' order by no_pol asc"

       

cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            While dreader.Read

                LV.Items.Add(dreader.Item("no_pol"))

                LV.Items(baris).SubItems.Add(dreader.Item("jenis_kend"))

                LV.Items(baris).SubItems.Add(dreader.Item("merk"))

                baris = baris + 1

            End While

        End If

    End Sub

    Public Function cari() As Boolean

        Dim query As String

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk FROM KENDARAAN"

        query &= "WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", no_pol)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            fno_pol = dreader.Item("no_pol")

            fjenis_kend = dreader.Item("jenis_kend")

            fmerk = dreader.Item("merk")

            Return True

        Else

            Return False

        End If

    End Function

    Public Function hapus() As Integer

        Dim query As String

        bukaConn()

        query = " DELETE FROM KENDARAAN WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function simpan() As Integer

        Dim query As String

        bukaConn()

        query = "INSERT INTO KENDARAAN (no_pol, jenis_kend, merk) values (?,?,?)"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function ubah() As Integer

        Dim query As String

        bukaConn()

        query = "UPDATE KENDARAAN SET jenis_kend=? , merk=?"

        query &= " WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function validKENDARAAN() As Boolean

        Dim sqlx As String

        sqlx = "select NO_POL from KENDARAAN WHERE NO_POL ='" & Me.fno_pol & "'"

        Dim yy As Boolean

        bukaConn()

        cmmd = New OleDbCommand(sqlx, Conn)

        dreader = cmmd.ExecuteReader

        Try

            If dreader.HasRows = True Then

                yy = False

            Else

                yy = True

            End If

            Return yy

        Finally

            dreader.Close()

        End Try

        Conn.Close()

    End Function

End Class

Form Kendaraan

Public Class Kendaraan_2

    Dim obj_kendaraan As New cls_kendaraan

    Private Sub cmdcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcari.Click

        Dim objpopup As New pop_kendaraan

        objpopup.ShowDialog()

        If objpopup.rno_kend = "" Then

            Exit Sub

        End If

        txtno_pol.Text = objpopup.rno_kend

        txtjenis.Text = objpopup.rjenis_kend

        txtmerk.Text = objpopup.rmerk

        txtno_pol.Enabled = False

        cmdsimpan.Enabled = False

        cmdubah.Enabled = True

        cmdhapus.Enabled = True

    End Sub

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

      

txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        Me.Dispose()

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        If obj_kendaraan.validKENDARAAN() = False Then

            MsgBox("NOMOR POLISI SUDAH ADA", MsgBoxStyle.Information, "INFORMASI")

            txtno_pol.Text = ""

            txtjenis.Text = ""

            txtmerk.Text = ""

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If obj_kendaraan.simpan = 1 Then

            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "INFORMASI")

        Else

            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Information, "INFORMASI")

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdubah.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If (MsgBox("Anda Yakin Ingin Mengubah ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.ubah()

            MsgBox("Data Berhasil Diubah", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click

        obj_kendaraan.no_pol = txtno_pol.Text

        If (MsgBox("Anda yakin ingin menghapus ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.hapus()

            MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbatal.Click

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

End Class

Class Kendaraan

Imports System.Data.OleDb

Public Class cls_kendaraan

    Private fno_pol As String

    Private fjenis_kend As String

    Private fmerk As String

    Private fkey As String

 

    Public Property no_pol() As String

        Get

            Return fno_pol

        End Get

        Set(ByVal value As String)

            fno_pol = value

        End Set

    End Property

    Public Property jenis_kend() As String

        Get

            Return fjenis_kend

        End Get

        Set(ByVal value As String)

            fjenis_kend = value

        End Set

    End Property

    Public Property merk() As String

        Get

            Return fmerk

        End Get

        Set(ByVal value As String)

            fmerk = value

        End Set

    End Property

    Public Property key() As String

        Get

            Return fkey

        End Get

        Set(ByVal value As String)

            fkey = value

        End Set

    End Property

Public Function autonumber() As String

        Dim query As String

        Dim strTemp As String

        Dim strVal As String

        bukaConn()

        query = "SELECT kd_plg FROM PELANGGAN ORDER BY kd_plg DESC"

        cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            strTemp = Mid(dreader.Item("kd_plg").ToString, 3, 5)

            strVal = Val(strTemp) + 1

            Return "PL" & Mid("000", 1, 4 - strVal.Length) & strVal

        Else

            Return "PL0001"

        End If

    End Function

    Public Sub baca(ByVal LV As ListView)

        LV.Items.Clear()

        Dim query As String

        Dim baris As Integer = 0

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk  FROM KENDARAAN where no_pol like '%" & Trim(Me.key) & "%' order by no_pol asc"

       

cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            While dreader.Read

                LV.Items.Add(dreader.Item("no_pol"))

                LV.Items(baris).SubItems.Add(dreader.Item("jenis_kend"))

                LV.Items(baris).SubItems.Add(dreader.Item("merk"))

                baris = baris + 1

            End While

        End If

    End Sub

    Public Function cari() As Boolean

        Dim query As String

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk FROM KENDARAAN"

        query &= "WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", no_pol)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            fno_pol = dreader.Item("no_pol")

            fjenis_kend = dreader.Item("jenis_kend")

            fmerk = dreader.Item("merk")

            Return True

        Else

            Return False

        End If

    End Function

    Public Function hapus() As Integer

        Dim query As String

        bukaConn()

        query = " DELETE FROM KENDARAAN WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function simpan() As Integer

        Dim query As String

        bukaConn()

        query = "INSERT INTO KENDARAAN (no_pol, jenis_kend, merk) values (?,?,?)"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function ubah() As Integer

        Dim query As String

        bukaConn()

        query = "UPDATE KENDARAAN SET jenis_kend=? , merk=?"

        query &= " WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function validKENDARAAN() As Boolean

        Dim sqlx As String

        sqlx = "select NO_POL from KENDARAAN WHERE NO_POL ='" & Me.fno_pol & "'"

        Dim yy As Boolean

        bukaConn()

        cmmd = New OleDbCommand(sqlx, Conn)

        dreader = cmmd.ExecuteReader

        Try

            If dreader.HasRows = True Then

                yy = False

            Else

                yy = True

            End If

            Return yy

        Finally

            dreader.Close()

        End Try

        Conn.Close()

    End Function

End Class

Form Kendaraan

Public Class Kendaraan_2

    Dim obj_kendaraan As New cls_kendaraan

    Private Sub cmdcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcari.Click

        Dim objpopup As New pop_kendaraan

        objpopup.ShowDialog()

        If objpopup.rno_kend = "" Then

            Exit Sub

        End If

        txtno_pol.Text = objpopup.rno_kend

        txtjenis.Text = objpopup.rjenis_kend

        txtmerk.Text = objpopup.rmerk

        txtno_pol.Enabled = False

        cmdsimpan.Enabled = False

        cmdubah.Enabled = True

        cmdhapus.Enabled = True

    End Sub

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

      

txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        Me.Dispose()

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        If obj_kendaraan.validKENDARAAN() = False Then

            MsgBox("NOMOR POLISI SUDAH ADA", MsgBoxStyle.Information, "INFORMASI")

            txtno_pol.Text = ""

            txtjenis.Text = ""

            txtmerk.Text = ""

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If obj_kendaraan.simpan = 1 Then

            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "INFORMASI")

        Else

            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Information, "INFORMASI")

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdubah.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If (MsgBox("Anda Yakin Ingin Mengubah ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.ubah()

            MsgBox("Data Berhasil Diubah", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click

        obj_kendaraan.no_pol = txtno_pol.Text

        If (MsgBox("Anda yakin ingin menghapus ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.hapus()

            MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbatal.Click

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

End Class

Class Kendaraan

Imports System.Data.OleDb

Public Class cls_kendaraan

    Private fno_pol As String

    Private fjenis_kend As String

    Private fmerk As String

    Private fkey As String

 

    Public Property no_pol() As String

        Get

            Return fno_pol

        End Get

        Set(ByVal value As String)

            fno_pol = value

        End Set

    End Property

    Public Property jenis_kend() As String

        Get

            Return fjenis_kend

        End Get

        Set(ByVal value As String)

            fjenis_kend = value

        End Set

    End Property

    Public Property merk() As String

        Get

            Return fmerk

        End Get

        Set(ByVal value As String)

            fmerk = value

        End Set

    End Property

    Public Property key() As String

        Get

            Return fkey

        End Get

        Set(ByVal value As String)

            fkey = value

        End Set

    End Property

Public Function autonumber() As String

        Dim query As String

        Dim strTemp As String

        Dim strVal As String

        bukaConn()

        query = "SELECT kd_plg FROM PELANGGAN ORDER BY kd_plg DESC"

        cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            strTemp = Mid(dreader.Item("kd_plg").ToString, 3, 5)

            strVal = Val(strTemp) + 1

            Return "PL" & Mid("000", 1, 4 - strVal.Length) & strVal

        Else

            Return "PL0001"

        End If

    End Function

    Public Sub baca(ByVal LV As ListView)

        LV.Items.Clear()

        Dim query As String

        Dim baris As Integer = 0

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk  FROM KENDARAAN where no_pol like '%" & Trim(Me.key) & "%' order by no_pol asc"

       

cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            While dreader.Read

                LV.Items.Add(dreader.Item("no_pol"))

                LV.Items(baris).SubItems.Add(dreader.Item("jenis_kend"))

                LV.Items(baris).SubItems.Add(dreader.Item("merk"))

                baris = baris + 1

            End While

        End If

    End Sub

    Public Function cari() As Boolean

        Dim query As String

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk FROM KENDARAAN"

        query &= "WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", no_pol)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            fno_pol = dreader.Item("no_pol")

            fjenis_kend = dreader.Item("jenis_kend")

            fmerk = dreader.Item("merk")

            Return True

        Else

            Return False

        End If

    End Function

    Public Function hapus() As Integer

        Dim query As String

        bukaConn()

        query = " DELETE FROM KENDARAAN WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function simpan() As Integer

        Dim query As String

        bukaConn()

        query = "INSERT INTO KENDARAAN (no_pol, jenis_kend, merk) values (?,?,?)"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function ubah() As Integer

        Dim query As String

        bukaConn()

        query = "UPDATE KENDARAAN SET jenis_kend=? , merk=?"

        query &= " WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function validKENDARAAN() As Boolean

        Dim sqlx As String

        sqlx = "select NO_POL from KENDARAAN WHERE NO_POL ='" & Me.fno_pol & "'"

        Dim yy As Boolean

        bukaConn()

        cmmd = New OleDbCommand(sqlx, Conn)

        dreader = cmmd.ExecuteReader

        Try

            If dreader.HasRows = True Then

                yy = False

            Else

                yy = True

            End If

            Return yy

        Finally

            dreader.Close()

        End Try

        Conn.Close()

    End Function

End Class

Form Kendaraan

Public Class Kendaraan_2

    Dim obj_kendaraan As New cls_kendaraan

    Private Sub cmdcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcari.Click

        Dim objpopup As New pop_kendaraan

        objpopup.ShowDialog()

        If objpopup.rno_kend = "" Then

            Exit Sub

        End If

        txtno_pol.Text = objpopup.rno_kend

        txtjenis.Text = objpopup.rjenis_kend

        txtmerk.Text = objpopup.rmerk

        txtno_pol.Enabled = False

        cmdsimpan.Enabled = False

        cmdubah.Enabled = True

        cmdhapus.Enabled = True

    End Sub

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

      

txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        Me.Dispose()

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        If obj_kendaraan.validKENDARAAN() = False Then

            MsgBox("NOMOR POLISI SUDAH ADA", MsgBoxStyle.Information, "INFORMASI")

            txtno_pol.Text = ""

            txtjenis.Text = ""

            txtmerk.Text = ""

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If obj_kendaraan.simpan = 1 Then

            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "INFORMASI")

        Else

            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Information, "INFORMASI")

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdubah.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If (MsgBox("Anda Yakin Ingin Mengubah ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.ubah()

            MsgBox("Data Berhasil Diubah", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click

        obj_kendaraan.no_pol = txtno_pol.Text

        If (MsgBox("Anda yakin ingin menghapus ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.hapus()

            MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbatal.Click

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

End Class

Class Kendaraan

Imports System.Data.OleDb

Public Class cls_kendaraan

    Private fno_pol As String

    Private fjenis_kend As String

    Private fmerk As String

    Private fkey As String

 

    Public Property no_pol() As String

        Get

            Return fno_pol

        End Get

        Set(ByVal value As String)

            fno_pol = value

        End Set

    End Property

    Public Property jenis_kend() As String

        Get

            Return fjenis_kend

        End Get

        Set(ByVal value As String)

            fjenis_kend = value

        End Set

    End Property

    Public Property merk() As String

        Get

            Return fmerk

        End Get

        Set(ByVal value As String)

            fmerk = value

        End Set

    End Property

    Public Property key() As String

        Get

            Return fkey

        End Get

        Set(ByVal value As String)

            fkey = value

        End Set

    End Property

Public Function autonumber() As String

        Dim query As String

        Dim strTemp As String

        Dim strVal As String

        bukaConn()

        query = "SELECT kd_plg FROM PELANGGAN ORDER BY kd_plg DESC"

        cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            strTemp = Mid(dreader.Item("kd_plg").ToString, 3, 5)

            strVal = Val(strTemp) + 1

            Return "PL" & Mid("000", 1, 4 - strVal.Length) & strVal

        Else

            Return "PL0001"

        End If

    End Function

    Public Sub baca(ByVal LV As ListView)

        LV.Items.Clear()

        Dim query As String

        Dim baris As Integer = 0

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk  FROM KENDARAAN where no_pol like '%" & Trim(Me.key) & "%' order by no_pol asc"

       

cmmd = New OleDbCommand(query, Conn)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            While dreader.Read

                LV.Items.Add(dreader.Item("no_pol"))

                LV.Items(baris).SubItems.Add(dreader.Item("jenis_kend"))

                LV.Items(baris).SubItems.Add(dreader.Item("merk"))

                baris = baris + 1

            End While

        End If

    End Sub

    Public Function cari() As Boolean

        Dim query As String

        bukaConn()

        query = "SELECT no_pol, jenis_kend, merk FROM KENDARAAN"

        query &= "WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", no_pol)

        dreader = cmmd.ExecuteReader

        If dreader.HasRows Then

            dreader.Read()

            fno_pol = dreader.Item("no_pol")

            fjenis_kend = dreader.Item("jenis_kend")

            fmerk = dreader.Item("merk")

            Return True

        Else

            Return False

        End If

    End Function

    Public Function hapus() As Integer

        Dim query As String

        bukaConn()

        query = " DELETE FROM KENDARAAN WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function simpan() As Integer

        Dim query As String

        bukaConn()

        query = "INSERT INTO KENDARAAN (no_pol, jenis_kend, merk) values (?,?,?)"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function ubah() As Integer

        Dim query As String

        bukaConn()

        query = "UPDATE KENDARAAN SET jenis_kend=? , merk=?"

        query &= " WHERE no_pol=?"

        cmmd = New OleDbCommand(query, Conn)

        cmmd.CommandType = CommandType.Text

        cmmd.Parameters.AddWithValue("jenis_kend", fjenis_kend)

        cmmd.Parameters.AddWithValue("merk", fmerk)

        cmmd.Parameters.AddWithValue("no_pol", fno_pol)

        Return cmmd.ExecuteNonQuery()

    End Function

    Public Function validKENDARAAN() As Boolean

        Dim sqlx As String

        sqlx = "select NO_POL from KENDARAAN WHERE NO_POL ='" & Me.fno_pol & "'"

        Dim yy As Boolean

        bukaConn()

        cmmd = New OleDbCommand(sqlx, Conn)

        dreader = cmmd.ExecuteReader

        Try

            If dreader.HasRows = True Then

                yy = False

            Else

                yy = True

            End If

            Return yy

        Finally

            dreader.Close()

        End Try

        Conn.Close()

    End Function

End Class

Form Kendaraan

Public Class Kendaraan_2

    Dim obj_kendaraan As New cls_kendaraan

    Private Sub cmdcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcari.Click

        Dim objpopup As New pop_kendaraan

        objpopup.ShowDialog()

        If objpopup.rno_kend = "" Then

            Exit Sub

        End If

        txtno_pol.Text = objpopup.rno_kend

        txtjenis.Text = objpopup.rjenis_kend

        txtmerk.Text = objpopup.rmerk

        txtno_pol.Enabled = False

        cmdsimpan.Enabled = False

        cmdubah.Enabled = True

        cmdhapus.Enabled = True

    End Sub

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

      

txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click

        Me.Dispose()

    End Sub

    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        If obj_kendaraan.validKENDARAAN() = False Then

            MsgBox("NOMOR POLISI SUDAH ADA", MsgBoxStyle.Information, "INFORMASI")

            txtno_pol.Text = ""

            txtjenis.Text = ""

            txtmerk.Text = ""

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If obj_kendaraan.simpan = 1 Then

            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "INFORMASI")

        Else

            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Information, "INFORMASI")

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdubah.Click

        If txtno_pol.Text = "" Or txtjenis.Text = "" Or txtmerk.Text = "" Then

            MsgBox("Data Harus Lengkap", MsgBoxStyle.Information, "INFORMASI")

            Exit Sub

        End If

        obj_kendaraan.no_pol = txtno_pol.Text

        obj_kendaraan.jenis_kend = txtjenis.Text

        obj_kendaraan.merk = txtmerk.Text

        If (MsgBox("Anda Yakin Ingin Mengubah ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.ubah()

            MsgBox("Data Berhasil Diubah", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapus.Click

        obj_kendaraan.no_pol = txtno_pol.Text

        If (MsgBox("Anda yakin ingin menghapus ?", MsgBoxStyle.YesNo, "KONFIRMASI")) = MsgBoxResult.Yes Then

            obj_kendaraan.hapus()

            MsgBox("Data berhasil dihapus", MsgBoxStyle.Information, "INFORMASI")

        Else

            txtno_pol.Focus()

        End If

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

    Private Sub cmdbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbatal.Click

        txtno_pol.Text = ""

        txtjenis.Text = ""

        txtmerk.Text = ""

        txtno_pol.Enabled = True

        txtno_pol.Focus()

        cmdsimpan.Enabled = True

        cmdubah.Enabled = False

        cmdhapus.Enabled = False

    End Sub

End Class