Tugas UAS Pemograman Visual
Nama : Dewi Purnama Sari
NIM : 161011700036
TUGAS UAS PEMOGRAMAN VISUAL
========================================================================
Assalamualaikum Wr. Wb
Kali ini saya akan menjelaskan proses pembuatan aplikasi untuk menginput data pegawai. Tujuan saya membuat aplikasi ini adalah yang pertama untuk memenuhi nilai UAS yang diberikan oleh Dosen. Pembuatan Aplikasi ini saya buat agar dapat mudah memasukan data pegawai dan juga dapat merubah jika ID atau Nama pegawai tersebut salah penginputan.
Picture Box berfungsi untuk melampirkan atau menampilkan foto pegawai tersebut, pembuatan aplikasi ini saya buat menggunakan Visual Studio. Untuk pembuatan aplikasi ini langkah pertama yang harus kita lakukan adalah mendesign tampilan awal seperti berikut :
Dalam pembuatan aplikasi ini, saya menggunakan beberapa tools seperti :
1. Label
2. TextBox
3. Button
4. Picture Box
Setelah design sudah dibuat, langkah selanjutnya adalah kita buat databasenya terlebih dahulu. Sebelumnya disini untuk penggunaan databasenya menggunakan Microsoft Access, Contohnya seperti berikut :
Setelah database kita buat langkah selanjutnya adalah kita koneksikan antara aplikasi yang kita buat dengan database yang sudah kita buat sebelumnya, untuk source code akan saya lampirkan di bagian bawah blog ini.
Jika, kodingan sudah benar dan database sudah terkoneksi ke dalam program aplikasi yang kita buat. Selanjutnya kita akan RUN aplikasi yang sudah kita buat dan berikut hasil dari aplikasi setelah kita RUN :
Tampilan Awal pada saat di Run, Disini kita simulasikan untuk menginput data pegawai kita isi sesuai dengan kebutuhan. Contohnya seperti berikut :
Ketika Data berhasil diinput maka akan muncul jendela yang akan memberitahukan bahwa data berhasil diinput, berikut tampilannya :
Dan setelah data berhasil diinput maka akan muncul pada tabel dibawahnya dan akan tersimpan juga pada database yang kita buat.
========================================================================
Berikut untuk source code aplikasi yang saya buat :
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\Dewi\Documents\Visual Studio 2012\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) Handles Button4.Click
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()
End Sub
Private Sub TxtID_TextChanged(sender As Object, e As EventArgs) Handles TxtID.TextChanged
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
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
========================================================================
Selebihnya mohon maaf jika ada kesalahan dalam penulisan atau aplikasi yang saya buat belum maksimal atau belum sempurna, semoga bisa menjadi salah satu yang mendapatkan nilai terbaik.
Terima Kasih
Wassalamualaikum Wr Wb
Komentar
Posting Komentar