UAS Pemrograman Web 2 STMIK Eresha

Description

Project Title : DATABASE ABSENSI KARYAWAN

Dibuad Oentoek Melihat History Absensi

Connected to MS Access

Tampilan login dengan username dan password

On Login Interface if username/password is wrong, then show msgbox wrong username or password

On login interface if username/password is empty, then show msgbox please fill the username or password

pada master view, terdapat id karyawan, nama karyawan, jabatan karyawan, jumlah hari hadir, jumlah hari tidak hadir, jumlah hari kerja 1 bulan (senin-jumat)

And Here We Go !!!!!!!!!

SC

Login :

Public Class _Default

    Inherits Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub bLOGIN_Click(sender As Object, e As EventArgs) Handles bLOGIN.Click

        If tbUSER.Text = "admin" And tbPASS.Text = "password" Then

        Else

            MsgBox("SalahKamar")

            tbUSER.Text = ""

            tbPASS.Text = ""

        End If

    End Sub

    Protected Sub bEXIT_Click(sender As Object, e As EventArgs) Handles bEXIT.Click

    End Sub

End Class

Interface :

Imports System.Data

Imports System.Data.OleDb

Public Class About

    Inherits Page

    Dim golongan As String

    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\KaeL\Desktop\Web2UAS\UAS.accdb"

    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)

    Dim Xreader As OleDb.OleDbDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub bSAACC_Click(sender As Object, e As EventArgs) Handles bSAACC.Click

        objekKoneksi.Open()

        Dim tambah As String = "INSERT INTO UAS values('" & tbID.Text & "','" & tbNAMA.Text & "','" & tbJabKar.Text & "' , '" & tbJHHadir.Text & "', '" & tbJHTH.Text & "', '" & tbJHK1B.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("Sukses")

    End Sub

    Protected Sub bCARI_Click(sender As Object, e As EventArgs) Handles bCARI.Click

        If Not Len(tbID.Text) = 0 Then

            objekKoneksi.Close()

            objekKoneksi.Open()

            Dim oCmd As New OleDb.OleDbCommand("SELECT * FROM UAS WHERE ID Karyawan = '" + tbID.Text + "'", objekKoneksi)

            Xreader = oCmd.ExecuteReader()

            If Xreader.HasRows Then

                tbID.Text = "ID Sudah Ada"

            Else

                tbNAMA.Focus()

            End If

        End If

    End Sub

End Class

Absensi DB :

<%@ Page Title="Contact" Language="VB" MasterPageFile="~/Site.Master" AutoEventWireup="true" CodeBehind="Absent DB.aspx.vb" Inherits="Access.Contact" %>

<asp:Content runat="server" ID="BodyContent" ContentPlaceHolderID="MainContent">

    <hgroup class="title">

        <h1><%: Title %></h1>

    </hgroup>

<asp:GridView ID="GridView2" runat="server" AutoGenerateColumns="False" DataKeyNames="ID Karyawan" DataSourceID="SqlDataSource1">

    <Columns>

        <asp:BoundField DataField="ID Karyawan" HeaderText="ID Karyawan" ReadOnly="True" SortExpression="ID Karyawan" />

        <asp:BoundField DataField="Nama Karyawan" HeaderText="Nama Karyawan" SortExpression="Nama Karyawan" />

        <asp:BoundField DataField="Jabatan Karyawan" HeaderText="Jabatan Karyawan" SortExpression="Jabatan Karyawan" />

        <asp:BoundField DataField="Jumlah Hari Hadir" HeaderText="Jumlah Hari Hadir" SortExpression="Jumlah Hari Hadir" />

        <asp:BoundField DataField="Jumlah Hari Tidak Hadir" HeaderText="Jumlah Hari Tidak Hadir" SortExpression="Jumlah Hari Tidak Hadir" />

        <asp:BoundField DataField="Jumlah Hari Kerja 1 Bulan" HeaderText="Jumlah Hari Kerja 1 Bulan" SortExpression="Jumlah Hari Kerja 1 Bulan" />

    </Columns>

</asp:GridView>

<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ConnectionString %>" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT * FROM [Table1]"></asp:SqlDataSource>

</asp:Content>

Sekian Terimakasih