SISTEM INFORMASI PENDATAAN DAN PENJUALAN TANAH

SISTEM INFORMASI PENDATAAN DAN PENJUALAN TANAH

Desaign Menu utama

Listing Menu utama

Public Class MenuUtama

    Private Sub DataSuratTanahToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataSuratTanahToolStripMenuItem.Click

        DATA_PEMOHON.Show()

    End Sub

    Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub DATABIAYAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATABIAYAToolStripMenuItem.Click

        pemakaianbiaya.Show()

    End Sub

    Private Sub DATATRANSAKSIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATRANSAKSIToolStripMenuItem.Click

        DataTransaksi.Show()

    End Sub

    Private Sub DATAPEMOHONToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPEMOHONToolStripMenuItem.Click

        Dim laporan As New cetak_pemohon

        LAPPEMOHON.CRV.ReportSource = laporan

        LAPPEMOHON.Show()

    End Sub

    Private Sub DATASERTIFIKTAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATASERTIFIKTAToolStripMenuItem.Click

        Dim laporas As New cetak_sertifikat

        LAPSERTIFIKAT.CRV.ReportSource = laporas

        LAPSERTIFIKAT.Show()

    End Sub

    Private Sub DATAHAKTANGGUNGANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAHAKTANGGUNGANToolStripMenuItem.Click

        Dim laporan As New cetak_hak

        LAPHAK.CRV.ReportSource = laporan

        LAPHAK.Show()

    End Sub

    Private Sub BALIKNAMAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BALIKNAMAToolStripMenuItem.Click

        Dim laporan As New cetak_baliknama

        LAPBALIKNAMA.CRV.ReportSource = laporan

        LAPBALIKNAMA.Show()

    End Sub

    Private Sub DATABIAYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATABIAYToolStripMenuItem.Click

        Dim laporan As New cetak_biaya

        LAPBIAYA.CRV.ReportSource = laporan

        LAPBIAYA.Show()

    End Sub

    Private Sub DATATRANSAKSIToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATRANSAKSIToolStripMenuItem1.Click

        Dim laporan As New cetak_transaksi

        LAPTRANSAKSI.CRV.ReportSource = laporan

        LAPTRANSAKSI.Show()

    End Sub

    Private Sub BALIKNAMAToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BALIKNAMAToolStripMenuItem1.Click

        Baliknama.Show()

    End Sub

    Private Sub DATAHAKTANGGUNGANToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAHAKTANGGUNGANToolStripMenuItem1.Click

        hak_tanggunggan.Show()

    End Sub

    Private Sub DATASERTIFIKATToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATASERTIFIKATToolStripMenuItem.Click

        SertifikatBaru.Show()

    End Sub

End Class

 
Desaign form Data Pemohon

Listing Program Pemohon

Imports System.Data.OleDb

Public Class DATA_PEMOHON

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

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

        DS = New DataSet

        ADP.Fill(DS, "TANAH")

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

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = False

        EDIT.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnsimpan.Enabled = False

        EDIT.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnsimpan.Enabled = True

        EDIT.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        noktp.Text = ""

        namapemohon.Text = ""

        glrdpn.Text = ""

        glrakhr.Text = ""

        tmptlahr.Text = ""

        tgl.Text = ""

        almt.Text = ""

        pkrjaan.Text = ""

        jns.Text = ""

        kota.Text = ""

        kodepos.Text = ""

        tlpn.Text = ""

        Call ButtonBaru()

    End Sub

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

        Call OpenDB()

        Call HapusText()

        Call TampilRecordPEMOHON()

    End Sub

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

        Call HapusText()

        noktp.Focus()

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call HapusText()

        noktp.Focus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        SQL = "INSERT INTO TANAH(NO_KTP, NAMA_PEMOHON, GELAR_DEPAN, GELARAKHIR, TEMPAT_LAHIR, TANGGAL_LAHIR, JENIS_KELAMIN, ALAMAT, PEKERJAAN, KOTA, KODE_POS, TELEPON) " & _

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

                                      namapemohon.Text & "','" & _

                                      glrdpn.Text & "','" & _

                                      glrakhr.Text & "','" & _

                                      tmptlahr.Text & "','" & _

                                      tgl.Text & "','" & _

                                      jns.Text & "','" & _

                                      almt.Text & "','" & _

                                      pkrjaan.Text & "','" & _

                                      kota.Text & "','" & _

                                      kodepos.Text & "','" & _

                                      tlpn.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbatal_Click(sender, e)

        Call TampilRecordPEMOHON()

    End Sub

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

        SQL = "UPDATE TANAH SET NAMA_PEMOHON='" & namapemohon.Text & "'," & _

                   " GELAR_DEPAN='" & glrdpn.Text & "'," & _

                   " GELARAKHIR='" & glrakhr.Text & "'," & _

                   " TEMPAT_LAHIR='" & tmptlahr.Text & "'," & _

                   " TANGGAL_LAHIR='" & tgl.Text & "'," & _

                   " JENIS_KELAMIN='" & jns.Text & "'," & _

                   " ALAMAT='" & pkrjaan.Text & "'," & _

                   " KOTA='" & kota.Text & "'," & _

                   " KODE_POS='" & kodepos.Text & "'," & _

                   " TELEPON='" & tlpn.Text & "' " & _

                   " Where NO_KTP='" & noktp.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordPEMOHON()

    End Sub

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

        SQL = "DELETE FROM TANAH Where NO_KTP='" & noktp.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call TampilRecordPEMOHON()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select *from TANAH Where NO_KTP='" & noktp.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                namapemohon.Text = DR.Item(1)

                glrdpn.Text = DR.Item(2)

                glrakhr.Text = DR.Item(3)

                tmptlahr.Text = DR.Item(4)

                tgl.Text = DR.Item(5)

                jns.Text = DR.Item(6)

                almt.Text = DR.Item(7)

                pkrjaan.Text = DR.Item(8)

                kota.Text = DR.Item(9)

                kodepos.Text = DR.Item(10)

                tlpn.Text = DR.Item(11)

                Call ButtonEdit()

                MsgBox("Data ditemukan !")

            Else

                xkode = noktp.Text

                Call HapusText()

                noktp.Text = xkode

                Call ButtonSimpan()

            End If

            jns.Focus()

        End If

    End Sub

End Class

 

Cetak Pemohon