SISTEM INFORMASI PENDATAAN DAN PENJUALAN TANAH

SISTEM INFORMASI PENDATAAN DAN PENJUALAN TANAH

Form Pemakaian Biaya

Listing Program Pemakaian Biaya

Imports System.Data.OleDb

Public Class pemakaianbiaya

    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:\vb2\PENGUKURAN_TANAH.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub TampilRecordDATA()

        ADP = New OleDbDataAdapter("SELECT * FROM KODE_BIAYA", DB)

        DS = New DataSet

        ADP.Fill(DS, "KODE_BIAYA")

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

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnsmpan.Enabled = False

        EDIT.Enabled = False

        btnhapus.Enabled = False

        Btnbatal.Enabled = False

        Btnkluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnsmpan.Enabled = False

        EDIT.Enabled = True

        btnhapus.Enabled = True

        Btnbatal.Enabled = True

        Btnkluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnsmpan.Enabled = True

        EDIT.Enabled = False

        btnhapus.Enabled = False

        Btnbatal.Enabled = True

        Btnkluar.Enabled = False

    End Sub

    Sub HapusText()

        KDBIAYA.Text = ""

        NOBER.Text = ""

        PROSEDUR.Text = ""

        HARGA.Text = ""

        PENGUKURAN.Text = ""

        JUMLAH.Text = ""

        Call ButtonBaru()

    End Sub

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

        Call OpenDB()

        Call HapusText()

        Call TampilRecordDATA()

    End Sub

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

        Call HapusText()

        KDBIAYA.Focus()

    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click

        Call HapusText()

        KDBIAYA.Focus()

    End Sub

    Private Sub Btnkluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkluar.Click

        Me.Close()

    End Sub

    Private Sub btnsmpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsmpan.Click

        SQL = "INSERT INTO KODE_BIAYA(KODE_BIAYA, NO_BERKAS, PROSEDUR, HARGA, PENGGUKURAN, JUMLAH) " & _

                        " values('" & KDBIAYA.Text & "','" & _

                                      NOBER.Text & "','" & _

                                      PROSEDUR.Text & "','" & _

                                      HARGA.Text & "','" & _

                                      PENGUKURAN.Text & "','" & _

                                      JUMLAH.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordDATA()

    End Sub

    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click

        SQL = "UPDATE KODE_BIAYA SET NO_BERKAS='" & NOBER.Text & "'," & _

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

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

                   " PENGGUKURAN='" & PENGUKURAN.Text & "'," & _

                   " JUMLAH='" & JUMLAH.Text & "' " & _

                   " Where KODE_BIAYA='" & KDBIAYA.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordDATA()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        SQL = "DELETE FROM KODE_BIAYA Where KODE_BIAYA='" & KDBIAYA.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordDATA()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select *from KODE_BIAYA Where KODE_BIAYA='" & KDBIAYA.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                NOBER.Text = DR.Item(1)

                PROSEDUR.Text = DR.Item(2)

                HARGA.Text = DR.Item(3)

                PENGUKURAN.Text = DR.Item(4)

                JUMLAH.Text = DR.Item(5)

                Call ButtonEdit()

                MsgBox("Data ditemukan !")

            Else

                xkode = KDBIAYA.Text

                Call HapusText()

                KDBIAYA.Text = xkode

                Call ButtonSimpan()

            End If

            NOBER.Focus()

        End If

    End Sub

  
Cetak Pemakaian Biaya