SISTEM INFORMASI LAPORAN SURAT TANAH

DESAIGN

MENU

 

FORM

DATABASE

LISTING PROGRAM

Imports MySql.Data.MySqlClient

Public Class Data_suratTanah

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=TA1"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        noktp.Text = ""

        namapemohon.Text = ""

        glrdpn.Text = ""

        glrakhr.Text = ""

        tmptlahr.Text = ""

        tgl.Text = ""

        almt.Text = ""

        pkrjaan.Text = ""

        kota.Text = ""

        kodepos.Text = ""

        tlpn.Text = ""

        jns.Text = ""

        rubahtombol(True, False, False, False, True)

        noktp.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        btnbaru.Enabled = btn1

        btnsimpan.Enabled = btn2

        btnhapus.Enabled = btn4

        btnkeluar.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("no_KTP", 80, HorizontalAlignment.Center)

        lv.Columns.Add("namapemohon", 180, HorizontalAlignment.Left)

        lv.Columns.Add("gelardepan", 80, HorizontalAlignment.Left)

        lv.Columns.Add("gelarakhir", 100, HorizontalAlignment.Left)

        lv.Columns.Add("tempat_lahir", 100, HorizontalAlignment.Left)

        lv.Columns.Add("tanggal_lahir", 100, HorizontalAlignment.Left)

        lv.Columns.Add("alamat", 100, HorizontalAlignment.Left)

        lv.Columns.Add("pekerjaan", 100, HorizontalAlignment.Left)

        lv.Columns.Add("kota", 100, HorizontalAlignment.Left)

        lv.Columns.Add("kode_pos", 100, HorizontalAlignment.Left)

        lv.Columns.Add("telpon", 100, HorizontalAlignment.Left)

        lv.Columns.Add("jenis_kelamin", 100, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from TA1"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("no_KTP")

                lst.SubItems.Add(rs("namapemohon"))

                lst.SubItems.Add(rs("gelardepan"))

                lst.SubItems.Add(rs("gelarakhir"))

                lst.SubItems.Add(rs("tempat_lahir"))

                lst.SubItems.Add(rs("tgl_lahir"))

                lst.SubItems.Add(rs("alamat"))

                lst.SubItems.Add(rs("pekerjaan"))

                lst.SubItems.Add(rs("kota"))

                lst.SubItems.Add(rs("kode_pos"))

                lst.SubItems.Add(rs("telepon"))

                lst.SubItems.Add(rs("jenis_kelamin"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into TA1(no_KTP,namapemohon,gelardepan,gelarakhir,tempat_lahir,tanggal_lahir,alamat,pekerjaan,kota,kode_pos,telepon,jenis_kelamin)" & _

                    "values('" & noktp.Text & _

                    "','" & namapemohon.Text & _

                    "','" & glrdpn.Text & _

                    "','" & tmptlahr.Text & _

                    "','" & tgl.Text & _

                    "','" & almt.Text & _

                    "','" & pkrjaan.Text & _

                    "','" & kota.Text & _

                    "','" & kodepos.Text & _

                    "','" & tlpn.Text & _

                    "','" & jns.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update TA1 set namapemohon='" & namapemohon.Text & "', " & _

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

                    "gelarakhir='" & glrakhr.Text & "'" & _

                    "tempat_lahir='" & tmptlahr.Text & "'" & _

                    "tgl_lahir='" & tgl.Text & "'" & _

                    "alamat='" & almt.Text & "'" & _

                    "pekerjaan='" & pkrjaan.Text & "'" & _

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

                    "kode_pos='" & kodepos.Text & "'" & _

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

                    "jenis_kelamin='" & jns.Text & "'" & _

                    "where no_KTP='" & noktp.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from surattanah where no_KTP='" & noktp.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        noktp.Text = rs("no_KTP")

        namapemohon.Text = rs("namapemohon")

        glrdpn.Text = rs("gelardepan")

        glrakhr.Text = rs("gelarakhir")

        tmptlahr.Text = rs("tempat_lahir")

        tgl.Text = rs("tanggal_lahir")

        almt.Text = rs("alamat")

        pkrjaan.Text = rs("pekerjaan")

        kota.Text = rs("kota")

        kodepos.Text = rs("kode_pos")

        tlpn.Text = rs("telepon")

        jns.Text = rs("jenis_kelamin")

        rubahtombol(False, True, True, True, True)

        btnsimpan.Text = "EDIT"

        noktp.Enabled = False

    End Sub

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

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

    End Sub

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

        Call bersih()

        noktp.Focus()

    End Sub

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

        Call bersih()

        noktp.Focus()

    End Sub

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

        End

    End Sub

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

        If btnsimpan.Text = "SIMPAN" Then prosesdb(0) Else prosesdb(1)

    End Sub

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

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    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)

        If tombol = 13 Then

            Dim x As String

            If noktp.Text = "" Then

                MsgBox("isi kode terlebih dahulu")

            Else

                sql = "select * from TA1 where no_KTP='" & noktp.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = noktp.Text

                    bersih()

                    noktp.Text = x

                    rubahtombol(False, True, False, True, False)

                    btnsimpan.Text = "SIMPAN"

                End Try

                noktp.Focus()

                rs.Close()

            End If

        End If

    End Sub

End Class