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
