cecep&mul

1.      ***KETERANGAN***

CODINGAN INI ADALH CODING YANG DI TEMPATKAN DI (FORM 1)

Imports System.Data.OleDb

Imports System.Data

Public Class Form1

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

    End Sub

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

        Call kunci()

        Call KoneksiAcces()

    End Sub

    Private Sub hapus()

        tbnim.Text = ""

        tbnama.Text = ""

        tbalamat.Text = ""

        tbnohp.Text = ""

        tbstatus.Text = ""

        tbpekerjaan.Text = ""

        tbnim.Focus()

    End Sub

    Private Sub kunci()

        tbnim.Enabled = False

        tbnama.Enabled = False

        tbalamat.Enabled = False

        tbnohp.Enabled = False

        tbstatus.Enabled = False

        tbpekerjaan.Enabled = False

    End Sub

    Private Sub buka()

        tbnim.Enabled = True

        tbnama.Enabled = True

        tbalamat.Enabled = True

        tbnohp.Enabled = True

        tbstatus.Enabled = True

        tbpekerjaan.Enabled = True

    End Sub

    Private Sub Tampilkan()

        dadbf = New OleDbDataAdapter("select * from datamahasiswa order by nim", condbf)

        dsdbf = New DataSet

        dsdbf.Clear()

        dadbf.Fill(dsdbf, "datamahasiswa")

        dgvmahasiswa.DataSource = (dsdbf.Tables("datamahasiswa"))

        dgvmahasiswa.ReadOnly = True

    End Sub

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

        Call KoneksiAcces()

        If tbnim.Text = "" Or tbnama.Text = "" Or tbalamat.Text = "" Or tbnohp.Text = "" Or tbstatus.Text = "" Or tbpekerjaan.Text = "" Then

            MsgBox("mungkin ada yang terlewatkan dalam pengisian data??", MsgBoxStyle.Information, "cecep_agus_m(1470231120)")

        Else

            cmd = New OleDbCommand("select * from datamahasiswa where nim='" & tbnim.Text & "'", condbf)

            rddbf = cmd.ExecuteReader

            rddbf.Read()

            If Not rddbf.HasRows Then

                Dim sqltambah As String = "insert into datamahasiswa(nim,nama,alamat,no_hp,status,pekerjaan) values " & _

                "('" & tbnim.Text & "','" & tbnama.Text & "','" & tbalamat.Text & "','" & tbnohp.Text & "','" & tbstatus.Text & "','" & tbpekerjaan.Text & "')"

                cmd = New OleDbCommand(sqltambah, condbf)

                cmd.ExecuteNonQuery()

                Call Tampilkan()

            Else

                Dim sqledit As String = "update datamahasiswa set nama='" & tbnama.Text & "', " & _

                "alamat='" & tbalamat.Text & "', no_hp='" & tbnohp.Text & "' where nim='" & tbnim.Text & "'"

                cmd = New OleDbCommand(sqledit, condbf)

                cmd.ExecuteNonQuery()

                Call Tampilkan()

            End If

        End If

    End Sub

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

        MsgBox("YAKIN NIH MAU DIHAPUS ???", MsgBoxStyle.Information, "cecep_agus_m(1470231120)")

        Call hapus()

    End Sub

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

        MsgBox("BENERAN MAU KELUAR GAK BISA DITAHAN GITU!!!", MsgBoxStyle.Information, "cecep_agus_m(1470231120)")

        End

    End Sub

    Private Sub dgvmahasiswa_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvmahasiswa.CellContentClick

    End Sub

    Private Sub btnkunci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkunci.Click

        MsgBox("KAMU YAKIN MAU NGUNCI???", MsgBoxStyle.Information, "cecep_agus_m(1470231120)")

        Call kunci()

    End Sub

    Private Sub btnbuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuka.Click

        MsgBox("BUKA SEMUA KENYATAAN YANG ADA DALAM HIDUP INI WALAU PAHIT!!!", MsgBoxStyle.Information, "cecep_agus_m(1470231120)")

        Call buka()

    End Sub

End Class

2.  ***KETERANGAN***

CODINGAN INI ADALAH CODINGAN YANG DI BUAT UNTUK MENGKONEKSIKAN BUAT (MODULE)

Imports System.Data.OleDb

Imports System.Data

Module yangpentingkonek

    Public condbf As OleDbConnection

    Public dadbf As OleDbDataAdapter

    Public rddbf As OleDbDataReader

    Public dsdbf As DataSet

    Public cmd As OleDbCommand

    Public strdbf As String

    Public Sub KoneksiAcces()

        strdbf = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=dbdataalumni.accdb"

        Try

            condbf = New OleDbConnection(strdbf)

            condbf.Open()

        Catch ex As Exception

            MessageBox.Show("teliti aja terus kalo error", MsgBoxStyle.Information & ex.ToString)

        End Try

    End Sub

End Module

1.       ***KETERANGAN***

GAMBAR INI ADALAH TAMPILAN YANG HARUS KALIAN BUAT INI SBLUM DI (RUNNING)

1.       ***KETERANGAN***

GAMBAR INI ADALAH TAMPILAN YANG DI (RUNNING)

1.       ***KETERANGAN***

GAMBAR INI ADALAH TAMPILAN FROJECK YANG SAYA BUAT

TERIMAKSIH

                                                                                                                                HORMAT SAYA

                                                                                                                                CECEP AGUS M