TUGAS KULIAH - UTS WEB PEMROGRAMAN II

eForm Karyawan

Deskripsi 

eForm Karyawan ini diperuntukan untuk memperbarui data karyawan di seuati PT. agar proses update data karyawan lebih mudah, cepat, dan paperless.

Form ini meliputi :

• ID Pegawai
• Nama
• NPWP
• Alamat
• Jabatan
• Status Perkawinan
• Golongan Darah
• No Tlp
• Tempat, dan tanggal lahir
• Email

Form ini di isi setiap setahu sekali agar data HR pada perusahaan tersebut selalu update informasi karyawannya muatan tiap data langsung terecrod dalam bentuk excel dan dapat di cetak dalam bentuk word guna kebutuhan hardcopy per karyawan

Komponen Aplikasi

• Label
• Dropdown List
• Button

Screenshoot Aplikasi

DESIGN

WEB UI

INPUT BERHASIL

DATA INPUT 2x

Print to Word

Hasil Output

SOURCE CODE

Imports System.Data
Imports System.Data.OleDb
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel




Public Class master

Inherits System.Web.UI.Page
Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Kampus\ProjWeb06TPLE004\dbPegawai.accdb"
Dim objKoneksi As New OleDb.OleDbConnection(koneksi)
Dim xReader As OleDbDataReader

Protected Sub txtID_TextChanged(sender As Object, e As EventArgs) Handles txtID.TextChanged

End Sub

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles btnClear.Click
Response.Redirect(Request.Url.AbsoluteUri)
End Sub

Protected Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Dim aplikasiExcel As New excel.Application
Dim fileExcelnya As excel.Workbook
fileExcelnya = aplikasiExcel.Workbooks.Open("D:\Kampus\ProjWeb06TPLE004\UTS.xlsx")

aplikasiExcel.Range("A2").Insert()
aplikasiExcel.Range("B2").Insert()
aplikasiExcel.Range("C2").Insert()
aplikasiExcel.Range("D2").Insert()
aplikasiExcel.Range("E2").Insert()
aplikasiExcel.Range("F2").Insert()
aplikasiExcel.Range("G2").Insert()
aplikasiExcel.Range("H2").Insert()
aplikasiExcel.Range("I2").Insert()
aplikasiExcel.Range("J2").Insert()
aplikasiExcel.Range("K2").Insert()
aplikasiExcel.Range("L2").Insert()


aplikasiExcel.Range("A2").Value = txtID.Text
aplikasiExcel.Range("B2").Value = txtNama.Text
aplikasiExcel.Range("C2").Value = txtNPWP.Text
aplikasiExcel.Range("D2").Value = txtAlamat.Text
aplikasiExcel.Range("E2").Value = txtJabatan.Text
aplikasiExcel.Range("F2").Value = txtPhone.Text
aplikasiExcel.Range("G2").Value = DDsp.SelectedItem.Text
aplikasiExcel.Range("H2").Value = DDjK.SelectedItem.Text
aplikasiExcel.Range("I2").Value = DDgol.SelectedItem.Text
aplikasiExcel.Range("J2").Value = txtTempatL.Text
aplikasiExcel.Range("K2").Value = txtTanggalL.Text
aplikasiExcel.Range("L2").Value = txtEmail.Text


fileExcelnya.Save()
MsgBox("Berhasil disimpan di Excel", MsgBoxStyle.Information, "eForm Karyawan")
aplikasiExcel.Visible = True

Response.Redirect(Request.Url.AbsoluteUri)
End Sub

Protected Sub btnPrntWord_Click(sender As Object, e As EventArgs) Handles btnPrntWord.Click
Dim Aplikasinya As New word.Application
Dim Dokumennya As word.Document

Dokumennya = Aplikasinya.Documents.Open("D:\Kampus\ProjWeb06TPLE004\PrintUTS.docx")

Dokumennya.Bookmarks("idpegawai").Select()
Aplikasinya.Selection.TypeText(txtID.Text)

Dokumennya.Bookmarks("nama").Select()
Aplikasinya.Selection.TypeText(txtNama.Text)

Dokumennya.Bookmarks("npwp").Select()
Aplikasinya.Selection.TypeText(txtNPWP.Text)

Dokumennya.Bookmarks("alamat").Select()
Aplikasinya.Selection.TypeText(txtAlamat.Text)

Dokumennya.Bookmarks("jabatan").Select()
Aplikasinya.Selection.TypeText(txtJabatan.Text)

Dokumennya.Bookmarks("phone").Select()
Aplikasinya.Selection.TypeText(txtPhone.Text)

Dokumennya.Bookmarks("status").Select()
Aplikasinya.Selection.TypeText(DDsp.SelectedItem.Text)

Dokumennya.Bookmarks("jenisKelamin").Select()
Aplikasinya.Selection.TypeText(DDjK.SelectedItem.Text)

Dokumennya.Bookmarks("golonganDarah").Select()
Aplikasinya.Selection.TypeText(DDgol.SelectedItem.Text)

Dokumennya.Bookmarks("tempat").Select()
Aplikasinya.Selection.TypeText(txtTempatL.Text)

Dokumennya.Bookmarks("tl").Select()
Aplikasinya.Selection.TypeText(txtTanggalL.Text & "-")

Dokumennya.Bookmarks("email").Select()
Aplikasinya.Selection.TypeText(txtEmail.Text)

Dokumennya.Save()
MsgBox("Berhasil di export, siap untuk di cetak")

Aplikasinya.Visible = True
End Sub
End Class