Program Rental Mobil dengan Database Ms.Access - Visual Basic

     Program ini menangani peminjaman dan pengembalian mobil dengan menggunakan Ms. Access sebagai databasenya. Yang saya buat ini dengan database ms.access nya dengan nama DBRENTALL.MDB (Dengan format penyimpanan 2002-2003 / .mdb) dan disimpan didalam folder Debug (Buka nama_folder_programnya > nama_folder_program > bin > debug). Contoh punya saya dengan nama program VBnya RENTAL_DB, jadi menyinpan Database nya buka folder program RENTAL_DB > RENTAL_DB > bin > Debug.

Atur popertinya sebagai berikut :

Kode kodingnya (scripnya) :

Public Class Form1

    Public SQLSTR As String

    Public KONEKSI As New OleDb.OleDbConnection

    Public CMD As New OleDb.OleDbCommand

    Public DA As New OleDb.OleDbDataAdapter

    Public DT As New DataTable

    Public KONEKSISTRING As String

    Public LOKASI As String

    Public SQL As String

    Public XBAYAR As Double

    Dim XSEWA As Integer

    Private Sub BLANKFORM()

        TXTNOMOR.Text = ""

        TXTNAMA.Text = ""

        TXTJENIS.Text = ""

        TXTHARI.Text = 0

        TXTLAMA.Text = 0

        TXTBAYAR.Text = 0

        TXTNOMOR.Focus()

    End Sub

    Private Sub DGV()

        SQL = "SELECT * FROM DBSEWA"

        DA = New OleDb.OleDbDataAdapter(SQL, KONEKSI)

        DT.Clear()

        DA.Fill(DT)

        DGVDATA.DataSource = DT

    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        DGV()

        BLANKFORM()

    End Sub

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

        Me.Text = "DATA RENTAL MOBIL"

        LOKASI = System.Environment.CurrentDirectory

        KONEKSISTRING = "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & LOKASI & "\RENTALL.MDB"

        KONEKSI = New OleDb.OleDbConnection(KONEKSISTRING)

        KONEKSI.Open()

    End Sub

    Private Sub TXTNOMOR_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTNOMOR.Leave

        SQL = "SELECT * FROM DBSEWA WHERE NOMOR='" & TXTNOMOR.Text & "'"

        DA = New OleDb.OleDbDataAdapter(SQL, KONEKSI)

        DT.Clear()

        DA.Fill(DT)

        DGVDATA.DataSource = DT

        If DT.Rows.Count > 0 Then

            TXTNAMA.Text = DGVDATA.Rows.Item(DGVDATA.CurrentRow.Index).Cells(1).Value

            TXTJENIS.Text = DGVDATA.Rows.Item(DGVDATA.CurrentRow.Index).Cells(2).Value

            TXTHARI.Text = DGVDATA.Rows.Item(DGVDATA.CurrentRow.Index).Cells(3).Value

            TXTPINJAM.Text = DGVDATA.Rows.Item(DGVDATA.CurrentRow.Index).Cells(4).Value

            TXTKEMBALI.Text = DGVDATA.Rows.Item(DGVDATA.CurrentRow.Index).Cells(5).Value

            TXTLAMA.Text = DGVDATA.Rows.Item(DGVDATA.CurrentRow.Index).Cells(6).Value

            TXTBAYAR.Text = DGVDATA.Rows.Item(DGVDATA.CurrentRow.Index).Cells(7).Value

        End If

        DGV()

    End Sub

    Private Sub TXTJENIS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTJENIS.SelectedIndexChanged

        Select Case TXTJENIS.Text

            Case "Bus"

                XSEWA = 800000

            Case "Sedan"

                XSEWA = 400000

            Case "Kijang"

                XSEWA = 200000

            Case "Carry"

                XSEWA = 100000

        End Select

        TXTHARI.Text = Format(XSEWA, "Rp #,#")

        TXTBAYAR.Text = Format(XSEWA * TXTLAMA.Text, "Rp #,#")

        TXTPINJAM.Focus()

    End Sub

    Private Sub TXTPINJAM_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTPINJAM.ValueChanged

        TXTLAMA.Text = DateDiff(DateInterval.Day, TXTPINJAM.Value.Date, TXTKEMBALI.Value.Date)

        XBAYAR = Format(XSEWA * TXTLAMA.Text, "Rp #,#")

        TXTBAYAR.Text = Format(XBAYAR, "Rp #,#")

    End Sub

    Private Sub TXTKEMBALI_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTKEMBALI.ValueChanged

        TXTLAMA.Text = DateDiff(DateInterval.Day, TXTPINJAM.Value.Date, TXTKEMBALI.Value.Date)

        XBAYAR = Format(XSEWA * TXTLAMA.Text, "Rp #,#")

        TXTBAYAR.Text = Format(XBAYAR, "Rp #,#")

    End Sub

    Private Sub BTBLANK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTBLANK.Click

        BLANKFORM()

    End Sub

    Private Sub BTSIMPAN_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTSIMPAN.Click

        SQL = "SELECT * FROM DBSEWA WHERE NOMOR='" & TXTNOMOR.Text & "'"

        DA = New OleDb.OleDbDataAdapter(SQL, KONEKSI)

        DT.Clear()

        DA.Fill(DT)

        DGVDATA.DataSource = DT

        If DT.Rows.Count > 0 Then

            SQL = "UPDATE DBSEWA SET NOMOR='" & TXTNOMOR.Text & "',NAMA='" & TXTNAMA.Text & "',JENIS='" & TXTJENIS.Text _

                   & "',SEWA=" & XSEWA & ",PINJAM='" & Format(Now.Date, "dd-MM-yyy") & "',KEMBALI='" & Format(Now.Date, "dd-MM-yyy") & "',LAMA=" & TXTLAMA.Text _

                   & ",BAYAR=" & XBAYAR & " WHERE NOMOR='" & TXTNOMOR.Text & "'"

            CMD = New OleDb.OleDbCommand(SQL, KONEKSI)

            CMD.ExecuteNonQuery()

        Else

            SQL = "INSERT INTO DBSEWA VALUES ('" & TXTNOMOR.Text & "','" & TXTNAMA.Text & "','" & TXTJENIS.Text _

                & "'," & XSEWA & ",'" & TXTPINJAM.Text & "','" & TXTKEMBALI.Text & "'," & TXTLAMA.Text & "," & XBAYAR & ")"

            CMD = New OleDb.OleDbCommand(SQL, KONEKSI)

            CMD.ExecuteNonQuery()

        End If

        BLANKFORM()

        DGV()

    End Sub

    Private Sub BTHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTHAPUS.Click

        Dim X As String

        Dim XNOMOR As String

        XNOMOR = TXTNOMOR.Text

        X = MsgBox("Data NOMOR SEWA" & XNOMOR & "JADI DIHAPUS !", MsgBoxStyle.YesNo)

        If X = vbYes Then

            SQL = "DELETE FROM DBSEWA WHERE NOMOR ='" & XNOMOR & "'"

            CMD = New OleDb.OleDbCommand(SQL, KONEKSI)

            CMD.ExecuteNonQuery()

        End If

        BLANKFORM()

        DGV()

    End Sub

    Private Sub BTCLOSE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCLOSE.Click

        Close()

    End Sub

End Class

Berbagi :