SISTEM INFORMASI PENDATAAN DAN PENJUALAN TANAH

SISTEM INFORMASI PENDATAAN DAN PENJUALAN TANAH

Form Sertifikat Baru

Listing Program Sertifikat Baru

Imports System.Data.OleDb

Public Class SertifikatBaru

    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 TampilRecordsertifikat()

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

        DS = New DataSet

        ADP.Fill(DS, "SERTIFIKAT")

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

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnsmpn.Enabled = False

        edit.Enabled = False

        btnhps.Enabled = False

        btnbtl.Enabled = False

        btnkluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnsmpn.Enabled = False

        edit.Enabled = True

        btnhps.Enabled = True

        btnbtl.Enabled = True

        btnkluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnsmpn.Enabled = True

        edit.Enabled = False

        btnhps.Enabled = False

        btnbtl.Enabled = True

        btnkluar.Enabled = False

    End Sub

    Sub HapusText()

        NOSERT.Text = ""

        no_berkas.Text = ""

        tnggl.Text = ""

        dibuat_oleh.Text = ""

        KEC.Text = ""

        desa_lama.Text = ""

        desa_baru.Text = ""

        JALAN.Text = ""

        BLOK.Text = ""

        RT.Text = ""

        jumlah_surat_ukur.Text = ""

        STATUS.Text = ""

        luas_tanah.Text = ""

        PERUNTUK.Text = ""

        PENGGUNA.Text = ""

        Call ButtonBaru()

    End Sub

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

        Call OpenDB()

        Call HapusText()

        Call TampilRecordsertifikat()

    End Sub

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

        Call HapusText()

        NOSERT.Focus()

    End Sub

    Private Sub btnbtl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbtl.Click

        Call HapusText()

        NOSERT.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 btnsmpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsmpn.Click

        SQL = "INSERT INTO SERTIFIKAT(NO_SERTIFIKAT, NO_BERKAS, TANGGAL, DIBUAT_OLEH, KECAMATAN, DESA_LAMA, DESA_BARU, JALAN, BLOK, RT_RW, JUMLAH_SU, STATUS_TANAH, LUAS, PERUNTUKAN, PENGGUNA) " & _

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

                                      no_berkas.Text & "','" & _

                                      tnggl.Text & "','" & _

                                      dibuat_oleh.Text & "','" & _

                                      KEC.Text & "','" & _

                                      desa_lama.Text & "','" & _

                                      desa_baru.Text & "','" & _

                                      JALAN.Text & "','" & _

                                      BLOK.Text & "','" & _

                                      RT.Text & "','" & _

                                      jumlah_surat_ukur.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordsertifikat()

    End Sub

    Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhps.Click

        SQL = "DELETE FROM SERTIFIKAT Where NO_SERTIFIKAT='" & NOSERT.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordsertifikat()

    End Sub

    Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click

        SQL = "UPDATE SERTIFIKAT SET NO_BERKAS='" & no_berkas.Text & "'," & _

                   " TANGGAL='" & tnggl.Text & "'," & _

                   " DIBUAT_OLEH='" & dibuat_oleh.Text & "'," & _

                   " KECAMATAN='" & KEC.Text & "'," & _

                   " DESA_LAMA='" & desa_lama.Text & "'," & _

                   " DESA_BARU='" & desa_baru.Text & "'," & _

                   " JALAM='" & JALAN.Text & "'," & _

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

                   " RT_RW='" & RT.Text & "'," & _

                   " JUMLAH_SU='" & jumlah_surat_ukur.Text & "'," & _

                   " STASTUS_TANAH='" & STATUS.Text & "'," & _

                   " LUAS='" & luas_tanah.TabIndex & "'," & _

                   " PERUNTUKAN='" & PERUNTUK.Text & "'," & _

                   " PENGGUNA='" & PENGGUNA.Text & "' " & _

                   " Where NO_SERTIFIKAT='" & NOSERT.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordsertifikat()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select *from SERTIFIKAT Where NO_SERTIFIKAT='" & NOSERT.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                no_berkas.Text = DR.Item(1)

                tnggl.Text = DR.Item(2)

                dibuat_oleh.Text = DR.Item(3)

                KEC.Text = DR.Item(4)

                desa_lama.Text = DR.Item(5)

                desa_baru.Text = DR.Item(6)

                JALAN.Text = DR.Item(7)

                BLOK.Text = DR.Item(8)

                RT.Text = DR.Item(9)

                jumlah_surat_ukur.Text = DR.Item(10)

                STATUS.Text = DR.Item(11)

                luas_tanah.Text = DR.Item(12)

                Call ButtonEdit()

                MsgBox("Data ditemukan !")

            Else

                xkode = NOSERT.Text

                Call HapusText()

                NOSERT.Text = xkode

                Call ButtonSimpan()

            End If

            no_berkas.Focus()

        End If

    End Sub

   End Class

 Cetak Sertifikat Baru