UAS PEMROGRAMAN VISUAL

TUGAS UTS PEMROGRAMAN VISUAL

TUGAS UAS

ACHMAD ALDYANSYAH

PEMROGRAMAN VISUAL

161011700068

APLIKASI CRUD PROFIL PEGAWAI

===============================================

Assalamualikum warohmatullohi wabarokatuh.

           Saya ACHMAD ALDYANSYAH ingin memenuhi tugas UAS untuk meatakuliah Pemrograman Visual. Dengan ini asya akan membuat projek Sistem Informasi mulai dari 1.Deskripsi dan Analisa kebutuhan,ScreenShoot,Run,Source Code.Dengan judul program saya adalah "Profil Pegawai".Dan Disini saya membuat program CRUD maka disini saya membuat program dengan Visual Studio

1.Deskripsi

          Aplikasi Profil Pegawai dimana sebuah aplikasi tersebut untuk mempermudah kebutuhan Admin dan Staff 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 Konesi untuk mengkoneksi ke database.

1)Form Profil Pegawai

2.Screen Shoot Design,Run dan Source Code

       2.1 Screen Shoot Design dan Source Code

Terdapat komponen dari Form Pegawai yaitu :

1. TerdapatEnam Buah Label (label1=idpegawai,label2=namapegawai,label3=jabatanpegawai,label4=golonganpegawai,label5=lokasipict,label6=Fotopegawai)
2. Terdapat Lima Buah Tex Box (textbox1=txtidpegawai,textbox2=txtnamapegawai,textbox3=txtjabatan,textbox4=txtgol,textbox5=txtlokasifoto)
3. Terdapat Enam Buah Button (button1=btnsimpan,button2=btncari,button3=btnupdate,button4=btnhapus,button5=btnkeluar,button6=btnfoto)
4. Terdapat Satu Buah Picture Box (PictureBox1)
5. Terdapat Satu buah DataGridView1 (DataGridView1)

Dari form tersebut mempunyai Sorce Code sebagai berikut

Imports System.Data.OleDb

Public Class FormInputData

    '

    Sub KosongkanData()

        txtidpegawai.Clear()

        txtnamapegawai.Clear()

        txtjabatan.Clear()

        txtgol.Clear()

        Txtlokasipict.Clear()

        txtidpegawai.Focus()

    End Sub

    Sub DataBaru()

        txtnamapegawai.Clear()

        txtjabatan.Clear()

        txtgol.Clear()

        Txtlokasipict.Clear()

        txtnamapegawai.Focus()

    End Sub

    Sub Ketemu()

        txtnamapegawai.Text = dr.Item(1)

        txtjabatan.Text = dr.Item(2)

        txtgol.Text = dr.Item(3)

        Txtlokasipict.Text = dr.Item(4)

        txtidpegawai.Focus()

    End Sub

    Sub TampilGrid()

        da = New OleDbDataAdapter("SELECT * FROM DATA", conn)

        ds = New DataSet

        da.Fill(ds)

        DataGridView1.DataSource = ds.Tables(0)

        DataGridView1.ReadOnly = True

    End Sub

    Private Sub FormInputData_Load(sender As Object, e As EventArgs) Handles Me.Load

        Call Koneksi()

        Call KosongkanData()

        Call TampilGrid()

    End Sub

    Private Sub TxtNik_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtidpegawai.KeyPress

        If e.KeyChar = Chr(13) Then

            Call Koneksi()

            cmd = New OleDbCommand("SELECT * FROM DATA WHERE idpegawai='" & txtidpegawai.Text & "'", conn)

            dr = cmd.ExecuteReader

            dr.Read()

            If Not dr.HasRows Then

                Call DataBaru()

            Else

                Call Ketemu()

            End If

        End If

    End Sub

    Private Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click

        cmd = New OleDbCommand("SELECT * FROM DATA WHERE idpegawai='" & txtidpegawai.Text & "'", conn)

        dr = cmd.ExecuteReader

        dr.Read()

        Try

            If Not dr.HasRows Then

                Dim simpan As String = "INSERT INTO DATA VALUES('" & txtidpegawai.Text & "','" & txtnamapegawai.Text & "','" & txtjabatan.Text & "','" & txtgol.Text & "','" & Txtlokasipict.Text & "')"

                cmd = New OleDbCommand(simpan, conn)

                cmd.ExecuteNonQuery()

                MsgBox("DATA PEGAWAI BERHASIL DISIMPAN!!!")

                TampilGrid()

            Else

                TampilGrid()

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Call KosongkanData()

    End Sub

    Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click

        If txtidpegawai.Text = "" Then

            MsgBox("Kode NIK Harus diisi dulu", MsgBoxStyle.Information)

            txtidpegawai.Focus()

            Exit Sub

        Else

            If MessageBox.Show("Yakin akan di hapus ?", "Perhatian", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

                Dim hapus As String = "DELETE * FROM DATA WHERE idpegawai='" & txtidpegawai.Text & "'"

                cmd = New OleDbCommand(hapus, conn)

                cmd.ExecuteNonQuery()

                MsgBox("Data Berhasil di Hapus", MsgBoxStyle.Information)

                Call KosongkanData()

                Call TampilGrid()

            Else

                Call KosongkanData()

            End If

        End If

    End Sub

    Private Sub BtnBatal_Click(sender As Object, e As EventArgs) Handles BtnBatal.Click

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

        OpenFileDialog1.DefaultExt = "*.jpg"

        OpenFileDialog1.ShowDialog()

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

        Txtlokasipict.Text = OpenFileDialog1.FileName

    End Sub

    Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click

        Close()

    End Sub

    Private Sub TxtNama_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtnamapegawai.KeyPress

        If e.KeyChar = Chr(13) Then

            txtjabatan.Focus()

        End If

    End Sub

    Private Sub TxtStatus_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtgol.KeyPress

        If e.KeyChar = Chr(13) Then

            Txtlokasipict.Focus()

        End If

    End Sub

    Private Sub TxtPekerjaan_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Txtlokasipict.KeyPress

        If e.KeyChar = Chr(13) Then

            BtnSimpan.Focus()

        End If

    End Sub

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

        Call Koneksi()

        cmd = New OleDb.OleDbCommand("SELECT * FROM DATA WHERE idpegawai='" & txtidpegawai.Text & "'", conn)

        dr = cmd.ExecuteReader

            dr.Read()

            If dr.HasRows Then

                Call Ketemu()

            End If

    End Sub

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

        cmd = New OleDbCommand("SELECT * FROM DATA WHERE idpegawai='" & txtidpegawai.Text & "'", conn)

        dr = cmd.ExecuteReader

        dr.Read()

        Try

            If Not dr.HasRows Then

                TampilGrid()

            Else

                Dim edit As String = "UPDATE DATA SET namapegawai='" & txtnamapegawai.Text & "',jabatanpegawai='" & txtjabatan.Text & "',golpegawai='" & txtgol.Text & "',lokasifoto='" & Txtlokasipict.Text & "' where idpegawai='" & txtidpegawai.Text & "'"

                cmd = New OleDbCommand(edit, conn)

                cmd.ExecuteNonQuery()

                MsgBox("DATA PEGAWAI BERHASIL DI UPDATE!!!")

                TampilGrid()

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Call KosongkanData()

    End Sub

End Class

2.2 DATA BASE

KONEKSI TERSEBUT MEMPUNYA SORCE CODE

Imports System.Data.OleDb

Module ModKoneksi

    Public conn As OleDbConnection

    Public cmd As OleDbCommand

    Public da As OleDbDataAdapter

    Public dr As OleDbDataReader

    Public ds As DataSet

    Sub Koneksi()

        conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "/dbpegawai.accdb")

        conn.Open()

    End Sub

End Module

2.3 RUNNING PROGRAM

3. PENUTUP

Sekian Dari Pejelasan saya Jika ada kata-kata yang Kurang Mohon Di maafkan .Dan Mohon di koregsi lagi jika ada kurang.Sekian TERIMA KASIH.