RANCANGAN DATA PEMOHON

RANCANGAN DATA PEMOHON PENGUKURAN TANAH MENGGUNAKAN VISUAL BASIC

Data bases, menggunakan M.Accses...

NO	FIELD NAMA	TYPE	SIZE	KET
1	NO.KTP	Text	10	Nomor KTP
2	Nama	Text	30	Nama
3	Gelar Depan	Text	10	Gelar Depan
4	Gelar Akhir	Text	10	Gelar Akhir
5	Tempat Lahir	Text	10	Tempat Lahir
6	Tanggal Lahir	Text	10	Tanggal Lahir
7	Jenis Kelamin	Text	8	Jenis Kelamin
8	Pekerjaan	Text	30	Pekerjaan
9	Alamat	Text	30	Alamat
10	Kota	Text	10	Kota
11	Kode Pos	Text	5	Kode Pos
12	Telepon	Text	8	Telepon
13	Keterangan	Text	50	Keterangan

DESAIGN...

LISTING...

Imports System.Data.OleDb

Public Class Form1

    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:\TA\pemohon.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub tampilrecorddatapemohon()

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

        DS = New DataSet

        ADP.Fill(DS, "pemohon")

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

    End Sub

    Sub butoonbaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = False

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub buttonedit()

        btnbaru.Enabled = False

        btnsimpan.Enabled = False

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub buttonsimpan()

        btnbaru.Enabled = False

        btnsimpan.Enabled = True

        btnedit.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 = ""

        jns.Text = ""

        almt.Text = ""

        pkrjaan.Text = ""

        kota.Text = ""

        kodepos.Text = ""

        tlpn.Text = ""

        Call butoonbaru()

    End Sub

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

        SQL = "DELETE FROM Data pemohon where NO='" & noktp.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecorddatapemohon()

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

        Me.Close()

    End Sub

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

        Call OPENDB()

        Call hapustext()

        Call tampilrecorddatapemohon()

    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 xno As String

        If tombol = 13 Then

            SQL = "SELECT * FROM Data pemohon where NO='" & 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)

                pkrjaan.Text = DR.Item(7)

                almt.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

                xno = noktp.Text

                Call hapustext()

                noktp.Text = xno

                Call buttonsimpan()

            End If

            namapemohon.Focus()

        End If

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

        SQL = "UPDATE Data pemohon SET NO='" & noktp.Text & "'," & _

                                "Nama='" & namapemohon.Text & "'," & _

                                "Gelar depan='" & glrdpn.Text & "'," & _

                                "Gelar akhir='" & glrakhr.Text & "'," & _

                                "Tmpt Lahir='" & tmptlahr.Text & "'," & _

                                "Tgl Lahir='" & tgl.Text & "'," & _

                                "Jenis K='" & jns.Text & "'," & _

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

                                "Alamat='" & almt.Text & "'," & _

                                "Kota='" & kota.Text & "' " & _

                                "where Kode Pos='" & kodepos.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecorddatapemohon()

    End Sub

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

        SQL = "INSERT INTO Data pemohon(NO, Nama, Gelar depan, Gelar akhir, Tmpt Lahir, Tgl Lahir, Jenis K, Pekerjaan, Alamat, Kota, Kode Pos)" & _

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

                                            namapemohon.Text & "','" & _

                                            glrdpn.Text & "','" & _

                                            glrakhr.Text & "','" & _

                                            tmptlahr.Text & "','" & _

                                            tgl.Text & "','" & _

                                            jns.Text & "','" & _

                                            pkrjaan.Text & "','" & _

                                            almt.Text & "','" & _

                                            kota.Text & "','" & _

                                            kodepos.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecorddatapemohon()

    End Sub

End Class