Senin, 18 Maret 2013

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
Diposting oleh di Tidak ada komentar:
Langganan: Komentar (Atom)