CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Capstone 1

Claret College Of Isabela Student Assistance Services Information System

Tables of Contents

Login -------------------------------------------------------------------------------------…------- 1-2

Dasboard ----------------------------------------------------------------……………….----------- 3

Add New Scholar ------------------------------------------------------------------…..-………... 4-

List of Scholar -------------------------------------------------------------------------------------- 4-5

Scholar Grade Evaluation ----------------------------------------------------------------------- 6-

11

Subject -----------------------------------------------………………………………………. 6-

11

View Subject ---------------------------------------------------------------------------------- 11-

12

Payroll-------------------------------------------------------------------------….---------------… . 13-

21
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

DTR Time In/ Out ------------..------------------------------------------------------------------- 14-

16

DTR Record………………………… ………………………………………………………....…….16-18

LOGIN

Imports System.Data.OleDb

Public Class dtrRecord

Dim con As New OleDbConnection

Dim dr As OleDbDataReader
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Dim cmd As OleDbCommand

Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

Dim dbsource As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\ScholarDTR.accdb"

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub dtrRecord_Load(sender As Object, e As EventArgs) Handles MyBase.Load

con.ConnectionString = dbprovider & dbsource

If con.State = ConnectionState.Closed Then

con.Open()

End If

Dim i As Integer = 0

DataGridView1.Rows.Clear()

Using cmd As New OleDbCommand("SELECT * FROM Table1", con)

dr = cmd.ExecuteReader

While dr.Read

i += 1

DataGridView1.Rows.Add(i, dr.GetValue(2), dr.GetValue(3), dr.GetValue(4), dr.GetValue(6), dr.GetValue(9),

dr.GetValue(11), dr.GetValue(14), dr.GetValue(15))

End While

dr.Close()

End Using

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles txtID.Click

Try

If con.State = ConnectionState.Closed Then

con.Open()

End If

cmd = New OleDbCommand("SELECT * FROM Table1 WHERE SCHOLAR_ID = @SCHOLAR_ID", con)

cmd.Parameters.AddWithValue("@SCHOLAR_ID", txtID.Text)

dr = cmd.ExecuteReader

dr.Read()

If dr.HasRows Then

lblName.Text = dr.GetValue(2) + ", " + dr.GetValue(3) + " " + dr.GetValue(4)

lblAsignArea.Text = dr.GetValue(15)

lblID.Text = dr.GetValue(1)

txTCOURSE.Text = dr.GetValue(6)

Else
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

MessageBox.Show("data not found")

End If

dr.Close()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

DASHBOARD

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Form3.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form4.Show()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Form5.Show()
End Sub
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Form6.Show()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
DAILY_TIME_RECORD.Show()
Me.Close()
End Sub
dtrRecord.Show()
Me.Hide()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Subject.ShowDialog()
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
ViewSubjectByYear.Show()
Me.Close()
End Sub
End Class

ADD NEW SCHOLAR

CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Imports System.Data.OleDb
Imports System.IntPtr
Public Class Form3
Dim conS As New OleDbConnection
Dim dbprovider2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
Dim dbsource2 As String = "; Data Source = C:\Users\admin\Desktop\Student Assistance Services\Add new
scholar.accdb"
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Add_new_scholarDataSet1.addnew' table. You can move,
or remove it, as needed.
Me.AddnewTableAdapter1.Fill(Me.Add_new_scholarDataSet1.addnew)
conS.ConnectionString = dbprovider2 & dbsource2

conS.ConnectionString = dbprovider2 & dbsource2

'TODO: This line of code loads data into the 'Add_new_scholarDataSet.addnew' table. You can move,
or remove it, as needed.
'Me.AddnewTableAdapter1.Fill(Me.Add_new_scholarDataSet.addnew)
'TODO: This line of code loads data into the 'Add_new_scholarDataSet.addnew' table. You can move,
or remove it, as needed.
'Me.AddnewTableAdapter1.Fill(Me.Add_new_scholarDataSet.addnew)
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
AddnewBindingSource.AddNew()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
AddnewBindingSource.MoveNext()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
AddnewBindingSource.MovePrevious()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs)
AddnewBindingSource.RemoveCurrent()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Form2.Show()
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
On Error GoTo saveerror
AddnewBindingSource.EndEdit()
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

AddnewTableAdapter1.Update(Add_new_scholarDataSet1.addnew)
MessageBox.Show("Successfully Saved")

Me.AddnewTableAdapter1.Fill(Me.Add_new_scholarDataSet1.addnew)
saveerror:
End Sub
Private Function Addnew_TableAdapter() As Object
Throw New NotImplementedException
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs)
Dim Mypicture As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
With OpenFileDialog1
.Filter = "jpg, jpeg Image|*. jpg, jpeg|PNG Image|*.png|BMP Image|*.bmp|" & "All Files (*.*)|
*.*"
.Title = "Choose the Pictures..."
.FilterIndex = 1
.Multiselect = False
.ValidateNames = True
.InitialDirectory = Mypicture
.RestoreDirectory = True

If (.ShowDialog = DialogResult.OK) Then

'PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
Else
Return
End If
End With
End Sub
End Class

GRADE EVALUATION

SUBJECTS
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Imports System.Data.OleDb
Imports System.IntPtr
Public Class Form4
Dim con As New OleDbConnection
Dim dr As OleDbDataReader
Dim cmd As OleDbCommand

Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

Dim dbsource As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\
scholarsgrades.accdb"

Private Sub btnExit_Click(sender As Object, e As EventArgs)

Form2.Show()
Me.Close()
End Sub

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load

con.ConnectionString = dbprovider & dbsource
If con.State = ConnectionState.Closed Then
con.Open()
End If
If cbYEar.Text = "SHOW ALL" And cbSemesteer.Text = "SHOW ALL" Then
Dim i As Integer = 0
DataGridView1.Rows.Clear()
cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation", con)
dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(0), dr.GetValue(1), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(2), dr.GetValue(6), dr.GetValue(7), dr.GetValue(9).ToString)
End While
dr.Close()
End If
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs)

CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

'TextBox5.Text = ("" + vbNewLine)

'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)

'TextBox5.AppendText(vbTab + vbTab + vbTab + vbTab + vbTab + vbTab + "CLARET SAS GRADE

EVALUATION" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("CLARET SCHOLAR : " + vbTab & TextBox1.Text + vbTab + vbTab + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)

'TextBox5.AppendText("Name: " + vbTab & TextBox2.Text + vbNewLine)

'TextBox5.AppendText("Course: " + vbTab & ComboBox1.Text + vbNewLine)

'TextBox5.AppendText("=========================================================" + vbNewLine)

'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText(vbTab + vbTab & "Total Allowance" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("Total Deduction late/Absent " + vbTab + vbTab + vbTab & TextBox2.Text +
vbNewLine)

'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("Total Deduction Late/Absent: " + vbTab & TextBox1.Text + vbTab + vbTab &
"NOTHING FOLLOW: " + vbTab &
'TextBox5.Text + vbNewLine)
'TextBox5.AppendText("======================================================" + vbNewLine)

'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText(vbTab + "Receive by:" + vbNewLine)
'TextBox5.AppendText(vbTab + vbTab + vbTab + " " + vbNewLine)
'TextBox5.AppendText(vbTab + vbTab + vbTab + TextBox1.Text + vbNewLine)
'TextBox5.AppendText(vbTab + vbTab + vbTab + " CLARET SCHOLAR" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("" + vbNewLine)
'TextBox5.AppendText("==================" + vbNewLine)
'TextBox5.AppendText(" Need Help?Contact Us:09058844744")
'TextBox5.AppendText("====PREPARED BY:======" + vbNewLine)
'TextBox5.AppendText(vbTab + vbTab + PictureBox1.Text + vbNewLine)
'PrintPreviewDialog1.ShowDialog()
End Sub

Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)

End Sub

Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs)

End Sub

Private Sub Button2_Click_1(sender As Object, e As EventArgs)

''INSERT DATA~~~~
'If con.State = ConnectionState.Closed Then
' con.Open()
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

'End If
'cmd = New OleDbCommand("INSERT INTO ccigradeevaluation(Full_Name,Course,Subjects,Grades,Remarks)
VALUES( @Full_Name, @Course,@Subjects, @Grades,@Remarks)", con)
'cmd.Parameters.AddWithValue("@Full_Name", lblName.Text)
'cmd.Parameters.AddWithValue("@Course", lblCourse.Text)
'cmd.Parameters.AddWithValue("@Subjects", S1.Text)
'cmd.Parameters.AddWithValue("@Grades", G1.Text)
'cmd.Parameters.AddWithValue("@Remarks", RMKS.Text)
'cmd.ExecuteNonQuery()
'MessageBox.Show("save")
'If con.State = ConnectionState.Closed Then
' con.Open()
'End If
'Using cmd As New OleDbCommand("SELECT * FROM ccigradeevaluation WHERE Full_Name = '" +
lblName.Text + "'", con)
' dr = cmd.ExecuteReader
' While dr.Read
' DataGridView1.Rows.Add(dr.GetValue(3), dr.GetValue(4), dr.GetValue(5))
' End While
' dr.Close()
'End Using
End Sub

Private Sub average_Click(sender As Object, e As EventArgs)

End Sub

Private Sub Label5_Click(sender As Object, e As EventArgs) Handles lblTime.Click

lblTime.Text = Date.Now
Timer1.Start()
End Sub

Private Sub RMKS_TextChanged(sender As Object, e As EventArgs)

End Sub

Private Sub G1_TextChanged(sender As Object, e As EventArgs)

End Sub

Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick

lblTime.Text = Date.Now
Timer1.Start()
End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

Form2.Show()
Me.Hide()
End Sub

Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click

Try
Dim ifDataGridHasRow As Boolean = False
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim i As Integer = 0

If cbYEar.Text = "SHOW ALL" And cbSemesteer.Text = "SHOW ALL" Then

DataGridView1.Rows.Clear()

cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation", con)

dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(0), dr.GetValue(1), dr.GetValue(3),
dr.GetValue(4), dr.GetValue(5), dr.GetValue(2), dr.GetValue(6), dr.GetValue(7), dr.GetValue(9).ToString)
ifDataGridHasRow = True
End While
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

dr.Close()
average.Text = "0"
txtRemark.Text = "REMARKS"

If ifDataGridHasRow = True Then

btnGetAverage.Enabled = True
Else
average.Text = "0"
txtRemark.Text = "REMARKS"
btnGetAverage.Enabled = False
End If
Else
txtSearch.Text = ""
DataGridView1.Rows.Clear()

If con.State = ConnectionState.Closed Then

con.Open()
End If

cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation WHERE sYEAR =@sYEAR AND

SEM=@SEM", con)
cmd.Parameters.AddWithValue("@sYEAR", cbYEar.Text)
cmd.Parameters.AddWithValue("@SEM", cbSemesteer.Text)
dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(0), dr.GetValue(1), dr.GetValue(3),
dr.GetValue(4), dr.GetValue(5), dr.GetValue(2), dr.GetValue(6), dr.GetValue(7), dr.GetValue(9))
ifDataGridHasRow = True
End While
dr.Close()
average.Text = "0"
txtRemark.Text = "REMARKS"

If ifDataGridHasRow = True Then

btnGetAverage.Enabled = True
Else
average.Text = "0"
txtRemark.Text = "REMARKS"
btnGetAverage.Enabled = False

End If
End If

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

Try
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim i As Integer = 0
DataGridView1.Rows.Clear()
cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation WHERE Full_Name LIKE'%" +
txtSearch.Text + "%'AND sYEAR =@sYEAR AND SEM=@SEM", con)
'cmd.Parameters.AddWithValue("@Full_Name", txtSearch.Text)
cmd.Parameters.AddWithValue("@sYEAR", cbYEar.Text)
cmd.Parameters.AddWithValue("@SEM", cbSemesteer.Text)
dr = cmd.ExecuteReader
While dr.Read
'lblName.Text = dr.GetValue(1).ToString
'lblCourse.Text = dr.GetValue(2).ToString
'lblYear.Text = dr.GetValue(6).ToString
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

'lblids.Text = dr.GetValue(0).ToString
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(0), dr.GetValue(1), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(2), dr.GetValue(6), dr.GetValue(7), dr.GetValue(9).ToString)
End While
dr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub Button2_Click_2(sender As Object, e As EventArgs) Handles btnGetAverage.Click

Try
Dim sum = 0
Dim averages = 0
Dim total = 0
For i As Integer = 0 To DataGridView1.Rows.Count - 1 Step 1
sum = sum + Integer.Parse(DataGridView1.Rows(i).Cells(4).Value.ToString())
averages = Integer.Parse(DataGridView1.Rows.Count)
total = sum / averages

average.Text = total.ToString()
Next
If average.Text = "0" Or average.Text = "" Then
txtRemark.Text = "REMARKS"
Else
If average.Text >= 74.5 Then
txtRemark.Text = "PASSED"

Else
txtRemark.ForeColor = Color.Red
txtRemark.Text = "FAILEDS"
End If
End If
Catch ex As Exception

End Try
End Sub

Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles

DataGridView1.CellContentClick

End Sub

Private Sub Button4_Click_1(sender As Object, e As EventArgs)

End Sub
End Class

VIEW SUBJECTS
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Imports System.Data.OleDb
Public Class Form5
Dim con As New OleDbConnection
Dim dr As OleDbDataReader
Dim cmd As OleDbCommand

Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

Dim dbsource As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\Add new
scholar.accdb"
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Add_new_scholarDataSet6.addnew' table. You can move,
or remove it, as needed.
'TODO: This line of code loads data into the 'Add_new_scholarDataSet1.add_new' table. You can
move, or remove it, as needed.
'Me.Add_newTableAdapter.Fill(Me.Add_new_scholarDataSet1.add_new)
'TODO: This line of code loads data into the 'LOGINDataSet19.ADS' table. You can move, or remove
it, as needed.
con.ConnectionString = dbprovider & dbsource
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim i As Integer = 0
Using cmd As New OleDbCommand("SELECT * FROM addnew", con)
dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6), dr.GetValue(7), dr.GetValue(8), dr.GetValue(9), dr.GetValue(10),
dr.GetValue(11), dr.GetValue(12))
End While
dr.Close()
End Using
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs)

Form2.Show()
Me.Close()
End Sub
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click

Form2.Show()
Me.Hide()
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles SEARCH.TextChanged
DataGridView1.Rows.Clear()
If con.State = ConnectionState.Closed Then
con.Open()
End If
Using cmd As New OleDbCommand("SELECT * FROM addnew WHERE FAMILYNAME LIKE '%" + SEARCH.Text + "%'
OR FIRSTNAME LIKE '%" + SEARCH.Text + "%' OR MIDDLENAME LIKE '%" + SEARCH.Text + "%' ", con)
dr = cmd.ExecuteReader
While dr.Read
DataGridView1.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6), dr.GetValue(7), dr.GetValue(8), dr.GetValue(9), dr.GetValue(10),
dr.GetValue(11), dr.GetValue(12))
End While
dr.Close()
End Using
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs)

'Form4.Show()
'Form4.lblName.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString() + " " +
DataGridView1.CurrentRow.Cells(1).Value.ToString() + DataGridView1.CurrentRow.Cells(2).Value.ToString()
'Form4.lblCourse.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()
End Sub
End Class

Payroll
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Imports System.Data.OleDb
Imports System.IntPtr
Public Class Form6
Dim conS As New OleDbConnection

Dim dbprovider1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

Dim dbsource1 As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\
ScholarDTR.accdb"

Dim con As New OleDbConnection

Dim dr As OleDbDataReader
Dim cmd As OleDbCommand

Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

Dim dbsource As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\
sasallowance.accdb"

Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'SasallowanceDataSet1.allowance' table. You can move,
or remove it, as needed.
' Me.AllowanceTableAdapter1.Fill(Me.SasallowanceDataSet1.allowance)
'TODO: This line of code loads data into the 'SasallowanceDataSet.allowance' table. You can move,
or remove it, as needed.
' Me.AllowanceTableAdapter.Fill(Me.SasallowanceDataSet.allowance)
con.ConnectionString = dbprovider & dbsource

If con.State = ConnectionState.Closed Then

con.Open()
End If
Using cmd As New OleDbCommand("SELECT * FROM allowance WHERE Froms ='" + DTP1.Text + "' AND Tos
='" + DTP2.Text + "'", con)
dr = cmd.ExecuteReader
While dr.Read
DataGridView1.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6), dr.GetValue(7), dr.GetValue(8), dr.GetValue(9), dr.GetValue(10))
End While
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

dr.Close()
End Using

conS.ConnectionString = dbprovider1 & dbsource1

If conS.State = ConnectionState.Closed Then
conS.Open()
End If

Using cmd As New OleDbCommand("SELECT * FROM Table1", conS)

dr = cmd.ExecuteReader
While dr.Read
DataGridView2.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6))
End While
dr.Close()
End Using
DtpFroM.Text = Date.Now.ToString("dddd, dd MMMM yyyy")
DtpTo.Text = Date.Now.ToString("dddd, dd MMMM yyyy")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs)

'TextBox19.Text = Val(TextBox17.Text) - Val(TextBox18.Text)
'TextBox19.Text = FormatCurrency(TextBox19.Text)
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

AllowanceBindingSource.AddNew()
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

'AllowanceBindingSource.EndEdit()
'AllowanceTableAdapter.Update(SasallowanceDataSet.allowance)
'MessageBox.Show("Successfully Inserted")

Try
If con.State = ConnectionState.Closed Then
con.Open()
End If
cmd = New OleDbCommand("INSERT INTO
allowance(FullName,NoOfDay,DailyRate,Allowance,Tuition,Tardiness,TotalDeduction,NetPay,Froms,Tos)
VALUES(@FullName,@NoOfDay,@DailyRate,@Allowance,@Tuition,@Tardiness,@TotalDeduction,@NetPay,@Froms,@Tos)" ,
con)
cmd.Parameters.AddWithValue("@FullName", DataGridView2.CurrentRow.Cells(0).Value.ToString())
cmd.Parameters.AddWithValue("@NoOfDay", lblNoOfDay.Text)
cmd.Parameters.AddWithValue("@DailyRate", lblRate.Text)
cmd.Parameters.AddWithValue("@Allowance", lblAllowance.Text)
cmd.Parameters.AddWithValue("@Tuition", txtbxtuition.Text)
cmd.Parameters.AddWithValue("@Tardiness", txtbxtardiness.Text)
cmd.Parameters.AddWithValue("@TotalDeduction", txtbxtuition.Text)
cmd.Parameters.AddWithValue("@NetPay", LBLNETPAY.Text)
cmd.Parameters.AddWithValue("@Froms", DtpFroM.Text)
cmd.Parameters.AddWithValue("@Tos", DtpTo.Text)

cmd.ExecuteNonQuery()
MessageBox.Show("save")

DataGridView1.Rows.Clear()
If con.State = ConnectionState.Closed Then
con.Open()
End If
Using cmd As New OleDbCommand("SELECT * FROM allowance", con)
dr = cmd.ExecuteReader
While dr.Read
DataGridView1.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6), dr.GetValue(7), dr.GetValue(8), dr.GetValue(9), dr.GetValue(10))
End While
dr.Close()
End Using
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

'TextBox21.Text = ("" + vbNewLine)

'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText(vbTab + vbTab + vbTab + vbTab + vbTab + vbTab + "CLARET SAS PAY SLIP" +
vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("CLARET SCHOLAR : " + vbTab & SEARCH.Text + vbTab + vbTab + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("NAME" + vbNewLine)
'For i As Integer = 0 To DataGridView2.Rows.Count() Step 1
' TextBox21.AppendText(DataGridView1.Rows(i).Value.ToString() + vbNewLine)
'Next

'TextBox21.AppendText("=========================================================" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText(vbTab + vbTab & "Total Allowance" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("Total Deduction late/Absent " + vbTab + vbTab + vbTab & TextBox18.Text +
vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("Total Deduction Late/Absent: " + vbTab & TextBox18.Text + vbTab + vbTab &
"NOTHING FOLLOW: " + vbTab &
'TextBox21.Text + vbNewLine)
'TextBox21.AppendText("======================================================" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText(vbTab + "Receive by:" + vbNewLine)
'TextBox21.AppendText(vbTab + vbTab + vbTab + " " + vbNewLine)
'TextBox21.AppendText(vbTab + vbTab + vbTab + SEARCH.Text + vbNewLine)
'TextBox21.AppendText(vbTab + vbTab + vbTab + " CLARET SCHOLAR" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("" + vbNewLine)
'TextBox21.AppendText("==================" + vbNewLine)
'TextBox21.AppendText(" Need Help?Contact Us:09058844744")
'TextBox21.AppendText("====PREPARED BY:======" + vbNewLine)
'TextBox21.AppendText(vbTab + vbTab + PictureBox1.Text + vbNewLine)

Dim sam As samplePrint = New samplePrint

sam.void()
sam.ShowDialog()
'PrintDocument1.DefaultPageSettings.Landscape =
'PrintPreviewDialog1.ShowDialog()
'samplePrint.Show()
End Sub

Private Function Employee() As String

Throw New NotImplementedException
End Function
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Private Function EmployeeName() As String

Throw New NotImplementedException
End Function

Private Sub Print()

Throw New NotImplementedException
End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles

PrintDocument1.PrintPage
''
e.Graphics.DrawString(lblNoOfDay.Text, Font, Brushes.Black, 190, 190)
e.Graphics.DrawString(TextBox21.Text, Font, Brushes.Black, 190, 190)
e.Graphics.DrawImage(Me.PictureBox1.Image, 120, 130, PictureBox1.Width - 15, PictureBox1.Height -
25)
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Form2.Show()
Me.Hide()
End Sub

Private Function SAS() As Object

Throw New NotImplementedException
End Function

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles SEARCH.TextChanged

'If conS.State = ConnectionState.Closed Then
' conS.Open()
'End If

'Using cmd As New OleDbCommand("SELECT * FROM Table1 WHERE outSTATUS LIKE 'TIME OUT' And Name
like'%" + SEARCH.Text + "%' AND DATEs BETWEEN'" + DtpFroM.Value + "' AND '" + DtpTo.Value + "'", conS)

' dr = cmd.ExecuteReader
' While dr.Read
' DataGridView2.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6))

' 'no of day

' Dim noOfDays = 0
' For i As Integer = 0 To DataGridView2.Rows.Count - 1 Step 1
' noOfDays = Integer.Parse(DataGridView2.Rows.Count)
' lblNoOfDay.Text = noOfDays.ToString()
' Next

' ' Allowance

' Dim noOfDay As Double = 0
' Dim Rate As Double = 0
' Dim Allowance As Double = 0

' noOfDay = Double.Parse(lblNoOfDay.Text)

' Rate = Double.Parse(lblRate.Text)
' Allowance = Double.Parse(lblAllowance.Text)

' Allowance = noOfDay * Rate

' lblAllowance.Text = Allowance.ToString()

' Dim ALLOWANSE As Double = 0

' Dim DEDUCTION As Double = 0
' Dim NETPAY As Double = 0

' ALLOWANSE = Convert.ToDouble(Double.Parse(lblAllowance.Text).ToString())

' DEDUCTION = Convert.ToDouble(Double.Parse(LBLtOTAL.Text).ToString())
' NETPAY = Double.Parse(LBLNETPAY.Text)

' NETPAY = ALLOWANSE - DEDUCTION

' LBLNETPAY.Text = NETPAY.ToString()
' End While
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

' dr.Close()
'End Using
End Sub

Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs)

End Sub

Private Sub lblNoOfDay_Click(sender As Object, e As EventArgs) Handles lblNoOfDay.Click

'no of day
Dim noOfDay = 0
For i As Integer = 0 To DataGridView2.Rows.Count - 1 Step 1
noOfDay = Integer.Parse(DataGridView2.Rows.Count)
lblNoOfDay.Text = noOfDay.ToString()
Next
End Sub

Private Sub lblAllowance_Click(sender As Object, e As EventArgs) Handles lblAllowance.Click

' Allowance
Dim noOfDay As Double = 0
Dim Rate As Double = 0
Dim Allowance As Double = 0

noOfDay = Double.Parse(lblNoOfDay.Text)
Rate = Double.Parse(lblRate.Text)
Allowance = Double.Parse(lblAllowance.Text)

Allowance = noOfDay * Rate

lblAllowance.Text = Allowance.ToString()

Dim ALLOWANSE As Double = 0

Dim DEDUCTION As Double = 0
Dim NETPAY As Double = 0

ALLOWANSE = Convert.ToDouble(Double.Parse(lblAllowance.Text).ToString())
DEDUCTION = Convert.ToDouble(Double.Parse(LBLtOTAL.Text).ToString())
NETPAY = Double.Parse(LBLNETPAY.Text)

NETPAY = ALLOWANSE - DEDUCTION

LBLNETPAY.Text = NETPAY.ToString()

End Sub

Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter

End Sub

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs)

Try

Dim Tuition As Double = 0

Dim Tardiness As Double = 0
Dim Deduction As Double = 0

Tuition = Convert.ToDouble(Double.Parse(txtbxtuition.Text).ToString())
Tardiness = Convert.ToDouble(Double.Parse(txtbxtardiness.Text).ToString())
Deduction = Double.Parse(LBLtOTAL.Text)

Deduction = Tuition - Tardiness

LBLtOTAL.Text = Deduction.ToString()
Catch ex As Exception

End Try
End Sub

Private Sub txtbxtardiness_TextChanged(sender As Object, e As EventArgs) Handles

txtbxtardiness.TextChanged
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Try

Dim Tuition As Double = 0

Dim Tardiness As Double = 0
Dim Deduction As Double = 0

Tuition = Convert.ToDouble(Double.Parse(txtbxtuition.Text).ToString())
Tardiness = Convert.ToDouble(Double.Parse(txtbxtardiness.Text).ToString())
Deduction = Double.Parse(LBLtOTAL.Text)

Deduction = Tuition + Tardiness

LBLtOTAL.Text = Deduction.ToString()

Dim ALLOWANSE As Double = 0

Dim DEDUCTIONS As Double = 0
Dim NETPAY As Double = 0

ALLOWANSE = Double.Parse(lblAllowance.Text)
DEDUCTIONS = Double.Parse(LBLtOTAL.Text)
NETPAY = Double.Parse(LBLNETPAY.Text)

NETPAY = ALLOWANSE - DEDUCTIONS

LBLNETPAY.Text = NETPAY.ToString()
Catch ex As Exception

End Try
End Sub

Private Sub txtbxtuition_TextChanged(sender As Object, e As EventArgs) Handles

txtbxtuition.TextChanged
Try

Dim Tuition As Double = 0

Dim Tardiness As Double = 0
Dim Deduction As Double = 0

Tuition = Convert.ToDouble(Double.Parse(txtbxtuition.Text).ToString())
Tardiness = Convert.ToDouble(Double.Parse(txtbxtardiness.Text).ToString())
Deduction = Double.Parse(LBLtOTAL.Text)

Deduction = Tuition + Tardiness

LBLtOTAL.Text = Deduction.ToString()

Dim ALLOWANSE As Double = 0

Dim DEDUCTIONS As Double = 0
Dim NETPAY As Double = 0

ALLOWANSE = Double.Parse(lblAllowance.Text)
DEDUCTIONS = Double.Parse(LBLtOTAL.Text)
NETPAY = Double.Parse(LBLNETPAY.Text)

NETPAY = ALLOWANSE - DEDUCTIONS

LBLNETPAY.Text = NETPAY.ToString()

Catch ex As Exception

End Try
End Sub

Private Sub LBLtOTAL_Click(sender As Object, e As EventArgs) Handles LBLtOTAL.Click

Try

Dim ALLOWANSE As Double = 0

Dim DEDUCTION As Double = 0
Dim NETPAY As Double = 0

ALLOWANSE = Convert.ToDouble(Double.Parse(lblAllowance.Text).ToString())
DEDUCTION = Convert.ToDouble(Double.Parse(LBLtOTAL.Text).ToString())
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

NETPAY = Double.Parse(LBLNETPAY.Text)

NETPAY = ALLOWANSE - DEDUCTION

LBLNETPAY.Text = NETPAY.ToString()
Catch ex As Exception

End Try
End Sub

Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs)

Try

Dim Tuition As Double = 0

Dim Tardiness As Double = 0
Dim NETPAY As Double = 0

Tuition = Convert.ToDouble(Double.Parse(txtbxtuition.Text).ToString())
Tardiness = Convert.ToDouble(Double.Parse(txtbxtardiness.Text).ToString())
NETPAY = Double.Parse(LBLNETPAY.Text)

NETPAY = Tuition - Tardiness

LBLNETPAY.Text = NETPAY.ToString()
Catch ex As Exception

End Try
End Sub

Private Sub LBLNETPAY_Click(sender As Object, e As EventArgs) Handles LBLNETPAY.Click

Try
Dim ALLOWANSE As Double = 0
Dim DEDUCTION As Double = 0
Dim NETPAY As Double = 0

ALLOWANSE = Convert.ToDouble(Double.Parse(lblAllowance.Text).ToString())
DEDUCTION = Convert.ToDouble(Double.Parse(LBLtOTAL.Text).ToString())
NETPAY = Double.Parse(LBLNETPAY.Text)

NETPAY = ALLOWANSE - DEDUCTION

LBLNETPAY.Text = NETPAY.ToString()
Catch ex As Exception

End Try
End Sub

Private Sub LBLNETPAY_TextChanged(sender As Object, e As EventArgs) Handles LBLNETPAY.TextChanged

End Sub

Private Sub LBLtOTAL_TextChanged(sender As Object, e As EventArgs) Handles LBLtOTAL.TextChanged

End Sub

Private Sub lblAllowance_TextChanged(sender As Object, e As EventArgs) Handles

lblAllowance.TextChanged

End Sub

Private Sub lblRate_Click(sender As Object, e As EventArgs) Handles lblRate.Click

End Sub

Private Sub DtpFroM_ValueChanged(sender As Object, e As EventArgs) Handles DtpFroM.ValueChanged

'If conS.State = ConnectionState.Closed Then
' conS.Open()
'End If

'Using cmd As New OleDbCommand("SELECT * FROM Table1 WHERE outSTATUS LIKE 'TIME OUT' And Name
like'%" + SEARCH.Text + "%' AND DATEs BETWEEN'" + DtpFroM.Value + "' AND '" + DtpTo.Value + "'", conS)
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

' dr = cmd.ExecuteReader
' While dr.Read
' DataGridView2.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6))
' End While
'End Using

End Sub

Private Sub DtpTo_ValueChanged(sender As Object, e As EventArgs) Handles DtpTo.ValueChanged

'If conS.State = ConnectionState.Closed Then
' conS.Open()
'End If

'Using cmd As New OleDbCommand("SELECT * FROM Table1 WHERE outSTATUS LIKE 'TIME OUT' And Name
like'%" + SEARCH.Text + "%' AND DATEs BETWEEN'" + DtpFroM.Value + "' AND '" + DtpTo.Value + "'", conS)

' dr = cmd.ExecuteReader
' While dr.Read
' DataGridView2.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6))
' End While
'End Using
End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

If conS.State = ConnectionState.Closed Then
conS.Open()
End If
DataGridView2.Rows.Clear()
Using cmd As New OleDbCommand("SELECT * FROM Table1 WHERE outSTATUS LIKE 'TIME OUT' And Name
like'%" + SEARCH.Text + "%' AND DATEs BETWEEN'" + DtpFroM.Value + "' AND '" + DtpTo.Value + "'", conS)
DataGridView2.Rows.Clear()
dr = cmd.ExecuteReader
While dr.Read
DataGridView2.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6))
End While
dr.Close()
'no of day
Dim noOfDays = 0
For i As Integer = 0 To DataGridView2.Rows.Count - 1 Step 1
noOfDays = Integer.Parse(DataGridView2.Rows.Count)
lblNoOfDay.Text = noOfDays.ToString()
Next

' Allowance
Dim noOfDay As Double = 0
Dim Rate As Double = 0
Dim Allowance As Double = 0

noOfDay = Double.Parse(lblNoOfDay.Text)
Rate = Double.Parse(lblRate.Text)
Allowance = Double.Parse(lblAllowance.Text)

Allowance = noOfDay * Rate

lblAllowance.Text = Allowance.ToString()

Dim ALLOWANSE As Double = 0

Dim DEDUCTION As Double = 0
Dim NETPAY As Double = 0

ALLOWANSE = Convert.ToDouble(Double.Parse(lblAllowance.Text).ToString())
DEDUCTION = Convert.ToDouble(Double.Parse(LBLtOTAL.Text).ToString())
NETPAY = Double.Parse(LBLNETPAY.Text)

NETPAY = ALLOWANSE - DEDUCTION

LBLNETPAY.Text = NETPAY.ToString()
End Using
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

If con.State = ConnectionState.Closed Then

con.Open()
End If
DataGridView1.Rows.Clear()
Using cmd As New OleDbCommand("SELECT * FROM allowance WHERE Froms='" + DTP1.Text + "' AND Tos ='"
+ DTP2.Text + "'", con)

dr = cmd.ExecuteReader
While dr.Read
DataGridView1.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6), dr.GetValue(7), dr.GetValue(8), dr.GetValue(9), dr.GetValue(10))
End While
dr.Close()
End Using

End Sub

Private Sub DTP1_ValueChanged(sender As Object, e As EventArgs) Handles DTP1.ValueChanged

If con.State = ConnectionState.Closed Then

con.Open()
End If
DataGridView1.Rows.Clear()
Using cmd As New OleDbCommand("SELECT * FROM allowance WHERE Froms='" + DTP1.Text + "' AND Tos ='"
+ DTP2.Text + "'", con)

dr = cmd.ExecuteReader
While dr.Read
DataGridView1.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6), dr.GetValue(7), dr.GetValue(8), dr.GetValue(9), dr.GetValue(10))
End While
dr.Close()
End Using
End Sub

Private Sub DTP2_ValueChanged(sender As Object, e As EventArgs) Handles DTP2.ValueChanged

If con.State = ConnectionState.Closed Then

con.Open()
End If
DataGridView1.Rows.Clear()
Using cmd As New OleDbCommand("SELECT * FROM allowance WHERE Froms='" + DTP1.Text + "' AND Tos ='"
+ DTP2.Text + "'", con)

dr = cmd.ExecuteReader
While dr.Read
DataGridView1.Rows.Add(dr.GetValue(1), dr.GetValue(2), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(6), dr.GetValue(7), dr.GetValue(8), dr.GetValue(9), dr.GetValue(10))
End While
dr.Close()
End Using
End Sub
End Class

DTR
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Imports System.Data.OleDb
Public Class Subject
Dim con As New OleDbConnection
Dim dr As OleDbDataReader
Dim cmd As OleDbCommand

Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

Dim dbsource As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\Add new
scholar.accdb"

Dim con2 As New OleDbConnection

Dim dbprovider2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
Dim dbsource2 As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\
scholarsgrades.accdb"
Private Sub Subject_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = dbprovider & dbsource

con2.ConnectionString = dbprovider2 & dbsource2

End Sub
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Try
If con.State = ConnectionState.Closed Then
con.Open()
End If

cmd = New OleDbCommand("SELECT * FROM addnew WHERE FAMILYNAME ='" + txtSearch.Text + "'OR
FIRSTNAME = '" + txtSearch.Text + "' OR MIDDLENAME ='" + txtSearch.Text + "'", con)
cmd.Parameters.AddWithValue("@FAMILYNAME", txtSearch.Text)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
lblIDs.Text = dr.GetValue(1).ToString()
lblName.Text = dr.GetValue(2).ToString + ", " + dr.GetValue(3).ToString + " " +
dr.GetValue(4).ToString
lblCourse.Text = dr.GetValue(6).ToString
lblYear.Text = dr.GetValue(7).ToString
Else
MessageBox.Show("ERROR, MAKE SURE IT EXISTS AND ITS IS SPELLED CORRECTLY", "THE SEARCH BOX
CANNOT FIND THE INPUT DATA", MessageBoxButtons.OK, MessageBoxIcon.Error)
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

txtSearch.Clear()
End If
dr.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Try
If lblName.Text = "" And lblCourse.Text = "" And lblYear.Text = "" And cbSemester.Text = ""
Then
MessageBox.Show("ERROR", "BEFORE ADDING SUBJECT MAKE SURE TO SEARCH THE SCHOLAR NAME",
MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
If con2.State = ConnectionState.Closed Then
con2.Open()
End If
cmd = New OleDbCommand("insert into
ccigradeevaluation(ID,Full_Name,SEM,Course,Subjects,sYEAR,dates) VALUES
(@ID,@Full_Name,@SEM,@Course,@Subjects,@sYEAR,@dates)", con2)
cmd.Parameters.AddWithValue("@ID", lblIDs.Text)
cmd.Parameters.AddWithValue("@Full_Name", lblName.Text)
cmd.Parameters.AddWithValue("@SEM", cbSemester.Text)
cmd.Parameters.AddWithValue("@Course", lblCourse.Text)
cmd.Parameters.AddWithValue("@Subjects", txtSubject.Text)
cmd.Parameters.AddWithValue("@sYEAR", lblYear.Text)
cmd.Parameters.AddWithValue("@dates", Date.Now.ToString("dd/MM/yyyy"))
cmd.ExecuteNonQuery()

If con2.State = ConnectionState.Closed Then

con2.Open()
End If
Dim i As Integer = 0

DataGridView1.Rows.Clear()
cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation WHERE ID = @ID AND SEM = @SEM AND
sYEAR = @sYEAR AND dates =@dates", con2)
cmd.Parameters.AddWithValue("@ID", lblIDs.Text)
cmd.Parameters.AddWithValue("@SEM", cbSemester.Text)
cmd.Parameters.AddWithValue("@sYEAR", lblYear.Text)
cmd.Parameters.AddWithValue("@dates", Date.Now.ToString("dd/MM/yyyy"))
dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(3), dr.GetValue(7), dr.GetValue(6), dr.GetValue(9))
End While
dr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
If MessageBox.Show("ARE YOUR SURE TO REMOVE THIS SUBJECT", "QUESTION",
MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
If con2.State = ConnectionState.Closed Then
con2.Open()
End If

cmd = New OleDbCommand("DELETE FROM ccigradeevaluation WHERE IDs =" &

DataGridView1.CurrentRow.Cells(4).Value.ToString & "", con2)
cmd.ExecuteNonQuery()
MessageBox.Show("SELECTED SUBJECT AS BEEN SUCCESSFULLY REMOVE")

If con2.State = ConnectionState.Closed Then

con2.Open()
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

End If
Dim i As Integer = 0

DataGridView1.Rows.Clear()
cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation WHERE ID = @ID AND SEM = @SEM AND
sYEAR = @sYEAR AND dates =@dates", con2)
cmd.Parameters.AddWithValue("@ID", lblIDs.Text)
cmd.Parameters.AddWithValue("@SEM", cbSemester.Text)
cmd.Parameters.AddWithValue("@sYEAR", lblYear.Text)
cmd.Parameters.AddWithValue("@dates", Date.Now.ToString("dd/MM/yyyy"))
dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(3), dr.GetValue(7), dr.GetValue(6),
dr.GetValue(9))
End While
dr.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class

DTR RECORD

Imports System.Data.OleDb
Public Class ViewSubjectByYear
Dim con As New OleDbConnection
Dim dr As OleDbDataReader
Dim cmd As OleDbCommand

Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"

CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

Dim dbsource As String = ";Data Source=C:\Users\admin\Desktop\Student Assistance Services\

scholarsgrades.accdb"

Private Property ReportViewer1 As Object

Private Sub ViewSubjectByYear_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Try
con.ConnectionString = dbprovider & dbsource

If con.State = ConnectionState.Closed Then

con.Open()
End If
Dim i As Integer = 0
DataGridView1.Rows.Clear()
cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation", con)
dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(0), dr.GetValue(1), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(2), dr.GetValue(6), dr.GetValue(7), dr.GetValue(9).ToString)

End While
dr.Close()
Me.ReportViewer1.RefreshReport()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Try
txtSearch.Text = ""
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim i As Integer = 0
DataGridView1.Rows.Clear()
cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation WHERE sYEAR =@sYEAR AND SEM=@SEM",
con)
cmd.Parameters.AddWithValue("@sYEAR", cbYEar.Text)
cmd.Parameters.AddWithValue("@SEM", cbSemesteer.Text)
dr = cmd.ExecuteReader
While dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(0), dr.GetValue(1), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(2), dr.GetValue(6), dr.GetValue(7), dr.GetValue(9))
End While
dr.Close()
Catch ex As Exception

End Try
End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged

End Sub

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

Try
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim i As Integer = 0
DataGridView1.Rows.Clear()
cmd = New OleDbCommand("SELECT * FROM ccigradeevaluation WHERE Full_Name LIKE'%" +
txtSearch.Text + "%'AND sYEAR =@sYEAR AND SEM=@SEM", con)
'cmd.Parameters.AddWithValue("@Full_Name", txtSearch.Text)
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM

cmd.Parameters.AddWithValue("@sYEAR", cbYEar.Text)
cmd.Parameters.AddWithValue("@SEM", cbSemesteer.Text)
dr = cmd.ExecuteReader
While dr.Read
'lblName.Text = dr.GetValue(1).ToString
'lblCourse.Text = dr.GetValue(2).ToString
'lblYear.Text = dr.GetValue(6).ToString
'lblids.Text = dr.GetValue(0).ToString
i += 1
DataGridView1.Rows.Add(i, dr.GetValue(0), dr.GetValue(1), dr.GetValue(3), dr.GetValue(4),
dr.GetValue(5), dr.GetValue(2), dr.GetValue(6), dr.GetValue(7), dr.GetValue(9).ToString)
End While
dr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Form2.Show()
Me.Close()
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

subjectEdit.txtSubject.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString
subjectEdit.ShowDialog()
End Sub

Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

End Sub

Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles

DataGridView1.CellContentClick
lblids.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
lblName.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString
lblCourse.Text = DataGridView1.CurrentRow.Cells(6).Value.ToString
lblYear.Text = DataGridView1.CurrentRow.Cells(7).Value.ToString
End Sub
End Class
CLARET COLLEGE OF ISABELA STUDENT ASSISTANCE SERVICES INFORMATION SYSTEM