NAMA MUKHLISOH
NIM : 161011700376
Aplilkasi Buku Tamu Pengunjung Lab Komputer
1.Analisa kebutuhan
- Aplikasi ini berfungsi untuk memenuhi kebutuhan sistim informasi di suatu lab kumputer di salah satu sekolah:
- Menginput Data
- Mengupdate Data
- Meng edit Data
- Menyimpan Data
- Menghapus Data
2.Perancangan (Desain)
2.1 Perancangan Database
1,Login User
-User Name (Field: UserName, Teks, 50)
-Password (Field: Password, Teks, 20, Key)
2.tabel kunjungan
-ID (Field: ID. Teks, 10)
-nama (Field: nama. numerik, 50)
-jenis kelamin (Field:jenkel. Teks, 20, Key)
-kelas(Field: kelas. Teks, 10, Key)
-keperluan (Field:keperluan. Teks, 100)
-cari (Field: cari. nimerik, 50)
-tanggal (Field: tanggal. nimerik, 50)
-jam (Field: jam. nimerik, 50)
3.data_anggota
-ID (Field: ID. Teks, 10)
-nama (Field: nama. numerik, 50)
-jenis kelamin (Field:jenkel. Teks, 20, Key)
-kelas(Field: kelas. Teks, 10, Key)
-alamat(Field: kelas. Teks, 10, Key)
-ID (Field: ID. Teks, 10)
-nama (Field: nama. numerik, 50)
-jenis kelamin (Field:jenkel. Teks, 20, Key)
-kelas(Field: kelas. Teks, 10, Key)
-alamat(Field: kelas. Teks, 10, Key)
screenshot database 1
screenshot database 2
screenshot view data
screeshot form data anggota
scrennshot data kunjungan
screenshot dashboard
sourcecode form input kunjungan
Imports System.Data
Imports System.Data.OleDb
Public Class kunjungan
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\semester 5\pak agus\tugas_uas\silabkom\silabkom\app\labkom1.accdb"
Dim ObjKoneksi As New OleDb.OleDbConnection(Koneksi)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Buttonsave.Click
ObjKoneksi.Open()
Dim tambah As String = "INSERT INTO kunjungan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "') "
Dim objCmd = New OleDbCommand(tambah, ObjKoneksi)
objCmd.ExecuteNonQuery()
ObjKoneksi.Close()
MsgBox("Sukses")
End Sub
Protected Sub Buttonclear_Click(sender As Object, e As EventArgs) Handles Buttonclear.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox1.Focus()
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Response.Redirect("kunjungan_harian.aspx")
End Sub
End Class
sourcecode form input data anggota
Imports System.Data
Imports System.Data.OleDb
Public Class form_input
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\semester 5\pak agus\tugas_uas\silabkom\silabkom\app\labkom1.accdb"
Dim ObjKoneksi As New OleDb.OleDbConnection(Koneksi)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Protected Sub Buttonsimpan_Click(sender As Object, e As EventArgs) Handles Buttonsimpan.Click
ObjKoneksi.Open()
Dim tambah As String = "INSERT INTO data_anggota values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "') "
Dim objCmd = New OleDbCommand(tambah, ObjKoneksi)
objCmd.ExecuteNonQuery()
ObjKoneksi.Close()
MsgBox("Sukses")
End Sub
Private Function objekKoneksi() As Object
Throw New NotImplementedException
End Function
Protected Sub Buttoncari_Click(sender As Object, e As EventArgs) Handles Buttoncari.Click
End Sub
Protected Sub Buttonclear_Click(sender As Object, e As EventArgs) Handles Buttonclear.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
End Sub
Protected Sub Buttonview_Click(sender As Object, e As EventArgs) Handles Buttonview.Click
Response.Redirect("data_anggota.aspx")
End Sub
End Class
sourcecode dashboard
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="dashboard.aspx.vb" Inherits="silabkom.dashboard" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<style type="text/css">
.auto-style1 {
width: 100%;
}
.auto-style2 {
width: 375px;
height: 23px;
}
#form1 {
background-color: #FFFF00;
}
.auto-style3 {
text-align: center;
}
.auto-style4 {
width: 375px;
text-align: center;
}
.auto-style5 {
height: 23px;
}
</style>
</head>
<body style="background-color: #FFFF00">
<form id="form1" runat="server">
<asp:Label ID="Label1" runat="server" BackColor="Yellow" BorderColor="Aqua" Height="50px" style="text-align: center; color: #0000FF; font-size: x-large; font-weight: 700; font-family: Cambria, Cochin, Georgia, Times, 'Times New Roman', serif" Text="SELAMAT DATANG DI LABORATORIUM KOMPUTER" Width="747px"></asp:Label>
<div>
</div>
<asp:Label ID="Label2" runat="server" BackColor="Aqua" BorderColor="Blue" ForeColor="Black" style="border-style: inset; border-color: #0000FF; font-size: x-large; font-weight: 700; font-family: Cambria, Cochin, Georgia, Times, 'Times New Roman', serif" Text="DASHBOARD"></asp:Label>
<table class="auto-style1" align="center">
<tr>
<td class="auto-style2"></td>
<td class="auto-style5"></td>
</tr>
<tr>
<td class="auto-style4">
<asp:Button ID="Buttondata" runat="server" style="border-style: inset; border-color: #0000FF; font-size: x-large; font-weight: 700; font-family: Cambria, Cochin, Georgia, Times, 'Times New Roman', serif; background-color: #00FFFF" Text="DATA ANGGOTA" Width="371px" />
</td>
<td class="auto-style3">
<asp:Button ID="Buttonkunjung" runat="server" style="border-style: inset; border-color: #0000FF; font-size: x-large; font-weight: 700; font-family: Cambria, Cochin, Georgia, Times, 'Times New Roman', serif; background-color: #66FFFF" Text="DATA KUNJUNGAN" Width="371px" />
</td>
</tr>
</table>
</form>
<p>
</p>
</body>
</html>
Tidak ada komentar:
Posting Komentar