TUGAS UAS PEMROGRAMAN VISUAL STUDIO

Saya Julian Nauval Roid ingin mengerjakan pekerjaan UAS untuk matakuliah pemrograman visual.denga ini saya membuat Deskripsi Screenshoot run dan source code dalam visual Studio.

1.Deskripsi

Aplikasi Profil Pegawai dimana sebuah aplikasi tersebut untuk mempermudah kebutuhan pengguna dengan hemat tenaga, waktu, dan pikiran. Dengan aplikasi tersebut saya dapat memperjelas step-step pembuatan aplikasi tersebut dengan sejelas mengungkin (Insya Allah) .Terdapat 1 Form pada Aplikasi tersebut, yaitu Form Profil Pegawai dan mempunyai Koneksiii untuk mengkoneksi ke database Access.

2.Screen Shoot Design,Run dan Source Code

Terdapat komponen dari Form 1 yaitu :

1.           Lima Buah Button

2.           Sembilan buah Label

3.           Lima  Buah TextBox

4.           1 Buah Picture  Box

Dari form tersebut mempunyai Sorce Code dan Sudah Termasuk Koneksi Database

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Public conn As OleDbConnection

    Public cmd As OleDbCommand

    Public da As OleDbDataAdapter

    Public dr As OleDbDataReader

    Public ds As DataSet

    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Squalent\Documents\Visual Studio 2015\Projects\FormBiodata\FormBiodata\bin\Debug\db_biodata.mdb"

    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

    Dim xReader As OleDbDataReader

    Sub KosongkanData()

        txtlokasifoto.Clear()

        TxtID.Clear()

        txtnamapegawai.Clear()

        txtjabatan.Clear()

        txtgol.Clear()

        TxtID.Focus()

    End Sub

    Sub DataBaru()

        txtlokasifoto.Clear()

        TxtID.Clear()

        txtnamapegawai.Clear()

        txtjabatan.Clear()

        txtgol.Clear()

        TxtID.Focus()

    End Sub

    Sub Ketemu()

        TxtID.Text = dr.Item(1)

        txtnamapegawai.Text = dr.Item(2)

        txtjabatan = dr.Item(3)

        txtgol.Text = dr.Item(4)

        TxtID.Focus()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        OpenFileDialog1.Filter = "JpegFile|*.jpg|Bitmap File|*.bmp|*.png|*.*"

        OpenFileDialog1.DefaultExt = "*.jpg"

        OpenFileDialog1.ShowDialog()

        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

        txtlokasifoto.Text = OpenFileDialog1.FileName

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO Table2 values('" & TxtID.Text & "','" & txtnamapegawai.Text & "','" & txtjabatan.Text & "','" & txtgol.Text & "','" & txtlokasifoto.Text & "') "

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

        Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM Table2 where idpegawai='" + TxtID.Text + "'", objekKoneksi)

        xReader = ocmd.ExecuteReader()

        If xReader.HasRows Then

            xReader.Read()

            TxtID.Text = xReader("idpegawai")

            txtnamapegawai.Text = xReader("namapegawai")

            txtgol.Text = xReader("golongan")

            txtjabatan.Text = xReader("jabatan")

            txtlokasifoto.Text = xReader("lokasifoto")

        Else

            TxtID.Text = "ID Tidak DItemukan "

            Exit Sub

        End If

        xReader.Close()

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs)

        KosongkanData()

    End Sub

    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

        Dim ocmd As New OleDb.OleDbCommand("DELETE * FROM Table2 where idpegawai='" + TxtID.Text + "'", objekKoneksi)

        xReader = ocmd.ExecuteReader()

        If xReader.HasRows Then

            xReader.Read()

            TxtID.Text = xReader("idpegawai")

            txtnamapegawai.Text = xReader("namapegawai")

            txtgol.Text = xReader("golongan")

            txtjabatan.Text = xReader("jabatan")

            txtlokasifoto.Text = xReader("lokasifoto")

        Else

            Exit Sub

        End If

        xReader.Close()

        MsgBox("MENGHAPUS SUKSES")

    End Sub

    Private Sub TxtID_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtID.KeyPress

        If e.KeyChar = Chr(13) Then

            cmd = New OleDbCommand("SELECT * FROM DATA WHERE NIK='" & TxtID.Text & "'", objekKoneksi)

            dr = cmd.ExecuteReader

            dr.Read()

            If Not dr.HasRows Then

                Call DataBaru()

            Else

                Call Ketemu()

            End If

        End If

    End Sub

    Private Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click

        If TxtID.Text = "" Then

            MsgBox("ID PENDAFTARAN BELUM DIISI")

            TxtID.Focus()

            Exit Sub

        Else

            Dim Ubah As String = "UPDATE Table2 set " & "namapegawai='" & txtnamapegawai.Text & "'," & "golongan='" & txtgol.Text & "'," & "jabatan='" & txtjabatan.Text & "'," & "lokasifoto='" & txtlokasifoto.Text & "'" & "where idpegawai='" & TxtID.Text & "'"

            cmd = New OleDbCommand(Ubah, objekKoneksi)

            cmd.ExecuteNonQuery()

            MsgBox("UBAH DATA SUKSES", MsgBoxStyle.Information, "INFORMASI")

            Call KosongkanData()

            TxtID.Focus()

        End If

    End Sub

End Class

  

3. RUNNING