Assalamualaikum Wr.Wb. , pada kesempatan kali ini saya akan menjelaskan sebuah Form website dengan ASP.net VB.net, dimana website ini sudah memiliki fitur keamanan dasar yang memanfaatkan form login yang telah disediakan oleh ASP.net Visual Studio 2012.
1. Deskripsi Program
Di sini saya membuat aplikasi atau program "Form Pendaftaran BEMKM ERESHA" yang fungsinya di peruntukan oleh mahasiswa(khususnya panitia pelaksana) untuk menyimpan data mahasiswa yang ingin mendaftarkan diri secara online dan tersusun secara sistematis. Di dalam aplikasi ini saya mencoba untuk memasukan / menampilkan hasil report ke-Ms.Word dan Ms.Excel dan mengkoneksikan ke database menggunakan Ms.Access.
2. Screenshootannya:
a. Form Login
1. Deskripsi Program
Di sini saya membuat aplikasi atau program "Form Pendaftaran BEMKM ERESHA" yang fungsinya di peruntukan oleh mahasiswa(khususnya panitia pelaksana) untuk menyimpan data mahasiswa yang ingin mendaftarkan diri secara online dan tersusun secara sistematis. Di dalam aplikasi ini saya mencoba untuk memasukan / menampilkan hasil report ke-Ms.Word dan Ms.Excel dan mengkoneksikan ke database menggunakan Ms.Access.
2. Screenshootannya:
a. Form Login
melanjutkan ke MasterPage silahkan kalian Login terlebih dahulu.
b. Master Page
Tampilan home atau beranda untuk mengakses lebih lanjut ke register atau mengecek data kita di database
c. Form Input Data
Tampilan dibawah ini ialah tampilan untuk menginput data kalian yang ingin mendaftarkan
d. Tabel Database
Tampilan dibawah ini ialah contoh dari tampilan para pendaftar yang telah disimpan di database.
e. Report to Word
Hasil report dari Ms.Word
f. Report to Excel
Hasil report dari Ms.Excel
Source Code
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports word = Microsoft.Office.Interop.Word
Imports Excel = Microsoft.Office.Interop.Excel
Public Class FormUtama
Inherits System.Web.UI.Page
Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\IKWAN\Documents\db_pendaftaran.mdb"
Dim objKoneksi As New OleDb.OleDbConnection(koneksi)
Protected Sub btSave_Click(sender As Object, e As EventArgs) Handles btSave.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql1 As String = "insert into pendaftaran values ('" & txtNIM.Text & "','" & txtNama.Text & "','" & txtTTL.Text & "', '" & txtJenisKelamin.Text & "','" & txtHP.Text & "','" & txtAgama.Text & "','" & txtAlamat.Text & "')"
Dim ocmd = New OleDbCommand(sql1, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
End Sub
Protected Sub btUpdate_Click(sender As Object, e As EventArgs) Handles btUpdate.Click
objKoneksi.Close()
objKoneksi.Open()
Dim rubah As String = "update pendaftaran set NIM,Nama, No.HP, Alamat, = '" + txtNIM.Text + txtAlamat.Text + txtHP.Text + txtNama.Text + "' where NIM='" + txtNIM.Text + "'"
Dim ocmd = New OleDbCommand(rubah, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
End Sub
Protected Sub btClear_Click(sender As Object, e As EventArgs) Handles btClear.Click
txtNIM.Text = ""
txtNama.Text = ""
txtTTL.Text = ""
txtJenisKelamin.Text = ""
txtHP.Text = ""
txtAgama.Text = ""
txtAlamat.Text = ""
End Sub
Protected Sub btDelete_Click(sender As Object, e As EventArgs) Handles btDelete.Click
objKoneksi.Close()
objKoneksi.Open()
Dim data As String = "delete from pendaftaran where NIM = '" & txtNIM.Text & "'"
Dim ocmd As New OleDbCommand(data, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
MsgBox("Data Telah Dihapus")
End Sub
Protected Sub btView_Click(sender As Object, e As EventArgs) Handles btView.Click
Response.Redirect("FormView.aspx")
End Sub
Protected Sub btSearch_Click(sender As Object, e As EventArgs) Handles btSearch.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql As String = "select * from pendaftaran where NIM like '%" & txtSearch.Text & "'"
Dim ocmd As New OleDbCommand(sql, objKoneksi)
Dim xReader As OleDbDataReader
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtNIM.Text = xReader("NIM")
txtNama.Text = xReader("Nama")
txtJenisKelamin.Text = xReader("Jenis_Kelamin")
txtHP.Text = xReader("No_HP")
txtAgama.Text = xReader("Agama")
txtAlamat.Text = xReader("Alamat")
txtTTL.Text = xReader("TTL")
Else
MsgBox("Data Tidak Ditemukan!!!")
Exit Sub
End If
objKoneksi.Close()
End Sub
Protected Sub btWord_Click(sender As Object, e As EventArgs) Handles btWord.Click
Dim aplikasi As New word.Application
Dim dokumen As New word.Document
Dim waktu As String = TimeOfDay
dokumen = aplikasi.Documents.Open("C:\Users\IKWAN\Documents\NIM.docx")
dokumen.Bookmarks("NIM").Select()
aplikasi.Selection.TypeText(txtNIM.Text)
dokumen.Bookmarks("Nama").Select()
aplikasi.Selection.TypeText(txtNama.Text)
dokumen.Bookmarks("TTL").Select()
aplikasi.Selection.TypeText(txtTTL.Text)
dokumen.Bookmarks("JenisKelamin").Select()
aplikasi.Selection.TypeText(txtJenisKelamin.Text)
dokumen.Bookmarks("NoHP").Select()
aplikasi.Selection.TypeText(txtHP.Text)
dokumen.Bookmarks("Agama").Select()
aplikasi.Selection.TypeText(txtAgama.Text)
dokumen.Bookmarks("Alamat").Select()
aplikasi.Selection.TypeText(txtAlamat.Text)
dokumen.SaveAs2("C:\Users\IKWAN\Documents\Report1.docx")
MsgBox("TERHUBUNG")
aplikasi.Visible = True
End Sub
Protected Sub btExcel_Click(sender As Object, e As EventArgs) Handles btExcel.Click
Dim aplikasiExcel As New Excel.Application
Dim fileExcelnya As Excel.Workbook
Dim waktu As String = TimeOfDay
fileExcelnya = aplikasiExcel.Workbooks.Open("C:\Users\IKWAN\Documents\Book1.xlsx")
aplikasiExcel.Range("A2").Value = txtNIM.Text
aplikasiExcel.Range("B2").Value = txtNama.Text
aplikasiExcel.Range("C2").Value = txtTTL.Text
aplikasiExcel.Range("D2").Value = txtJenisKelamin.Text
aplikasiExcel.Range("E2").Value = txtHP.Text()
aplikasiExcel.Range("F2").Value = txtAgama.Text
aplikasiExcel.Range("G2").Value = txtAlamat.Text
fileExcelnya.SaveAs("C:\Users\IKWAN\Documents\Laporan.xlsx")
MsgBox("TERHUBUNG")
aplikasiExcel.Visible = True
End Sub
End Class