Langsung saja pada pokok pembahasan nya saja.
1. Deskripsi Program
Website ini dibuat dengan
tujuan untuk memberikan kemudahan bagi para pencari informasi seputar Perguruan
Tinggi Lokal. Dimana Website ini di desain dengan simpel agar mudah dalam
penggunaannya.
Website ini sudah dilengkapi
dengan fitur Database, Report To Word, Report To Excel dan sistem CRUDS, agar
memudahkan dalam proses pengelolaan data. Dan sistem pengamanan dasar yaitu
berupa form Login.
2. Flowchart
2. Flowchart
b. Master Page
c. Form Input Data
d. Tabel Database
f. Report To Excel
Fitur Button Search |
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 FormInput
Inherits System.Web.UI.Page
Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VBDatabase\DBKampus.mdb"
Dim objKoneksi As New OleDb.OleDbConnection(koneksi)
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles btnsave.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql1 As String = "insert into tbldata values ('" & txtkode.Text & "','" & txtnama.Text & "','" & txtkategori.Text & "', '" & txtalamat.Text & "','" & txtnomor.Text & "')"
Dim ocmd = New OleDbCommand(sql1, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
Response.Redirect("FormView.aspx")
End Sub
Protected Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
objKoneksi.Close()
objKoneksi.Open()
Dim rubah As String = "update tbldata set Kategori,Kode, Nama_Perguruan, Alamat, No_Telp = '" + txtkategori.Text + txtalamat.Text + txtkode.Text + txtnama.Text + txtnomor.Text + "' where Kode='" + txtkode.Text + "'"
Dim ocmd = New OleDbCommand(rubah, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
Response.Redirect("FormView.aspx")
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtkode.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtkategori.Text = ""
txtnomor.Text = ""
End Sub
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql4 As String = "delete from tbldata where Kode = '" & txtkode.Text & "'"
Dim ocmd As New OleDbCommand(sql4, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
MsgBox("Data Telah Dihapus")
Response.Redirect("FormView.aspx")
End Sub
Protected Sub txtcari_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql As String = "select * from tbldata where Kode like '%" & txtcariID.Text & "'"
Dim ocmd As New OleDbCommand(sql, objKoneksi)
Dim xReader As OleDbDataReader
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtkode.Text = xReader("Kode")
txtnama.Text = xReader("Nama_Perguruan")
txtalamat.Text = xReader("Kategori")
txtkategori.Text = xReader("Alamat")
txtnomor.Text = xReader("No_Telp")
btnupdate.Enabled = True
Else
MsgBox("Data Tidak Ditemukan!!!")
Exit Sub
End If
objKoneksi.Close()
End Sub
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("FormView.aspx")
End Sub
Protected Sub txtcariID_TextChanged(sender As Object, e As EventArgs) Handles txtcariID.TextChanged
End Sub
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim aplikasi As New word.Application
Dim dokumen As New word.Document
Dim waktu As String = TimeOfDay
dokumen = aplikasi.Documents.Open("D:\UTS\Report.docx")
dokumen.Bookmarks("kode").Select()
aplikasi.Selection.TypeText(txtcariID.Text)
dokumen.Bookmarks("np").Select()
aplikasi.Selection.TypeText(txtnama.Text)
dokumen.Bookmarks("kategori").Select()
aplikasi.Selection.TypeText(txtkategori.Text)
dokumen.Bookmarks("alamat").Select()
aplikasi.Selection.TypeText(txtalamat.Text)
dokumen.Bookmarks("telp").Select()
aplikasi.Selection.TypeText(txtnomor.Text)
dokumen.SaveAs2("D:\UTS\coba.docx")
MsgBox("TERHUBUNG")
aplikasi.Visible = True
End Sub
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim aplikasiExcel As New Excel.Application
Dim fileExcelnya As Excel.Workbook
Dim waktu As String = TimeOfDay
fileExcelnya = aplikasiExcel.Workbooks.Open("D:\UTS\Report.xlsx")
aplikasiExcel.Range("A3").Value = txtcariID.Text
aplikasiExcel.Range("B3").Value = txtnama.Text
aplikasiExcel.Range("C3").Value = txtkategori.Text
aplikasiExcel.Range("D3").Value = txtalamat.Text
aplikasiExcel.Range("E3").Value = txtnomor.Text
fileExcelnya.SaveAs("D:\UTS\UAS1.xlsx")
MsgBox("TERHUBUNG")
aplikasiExcel.Visible = True
End Sub
End Class
Sekian penjelasan mengenai project Web Form Sistem Informasi Perguruan Tinggi ini. Mohon maaf atas segala kekurangan nya. Semoga bermanfaat.
Terimkasih telah mampir di blog sederhana ini.
#BisaKarenaTerbiasa
0 comments:
Post a Comment