Submitted By;-Rama Rawani

StudentID;-S0600b0200072
Batch Code;- B080132
RegNo;-R0600B0200074
Faculty;-AnirudhPaul
 Dim ctr As Integer
Dim thr As Thread
Dim ColorArray(5) As Color
Dim cnt As Integer
Sub ForThread()
While True
Label3.ForeColor = ColorArray(cnt)
Label1.ForeColor = ColorArray(cnt)
Label2.ForeColor = ColorArray(cnt)
Button1.ForeColor = ColorArray(cnt)
cnt = cnt + 1
If cnt = 6 Then
cnt = 0
End If
Thread.Sleep(500)
End While
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("plz provide the things")
TextBox1.Focus()
Else
Dim LogName As String, Password As String
LogName = TextBox1.Text
Password = TextBox2.Text
ctr = ctr + 1
If LogName = "admin" And Password = "password" Then
Dim obj As New Form13()
obj.Show()
Me.Hide()
Else
If ctr < 3 Then
MsgBox("Incorrect Login & Password...... Are you
the Administrator?")
TextBox2.Text = ""
Else
MsgBox("unauthorised Access. Aborting.....")
Close()
End If
End If
End If
End Sub

Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
cnt = 0
ColorArray(0) = Color.Green
ColorArray(1) = Color.Teal
ColorArray(2) = Color.Blue
ColorArray(3) = Color.DarkViolet
ColorArray(4) = Color.Red
ColorArray(5) = Color.LightGreen
thr = New Thread(AddressOf ForThread)
thr.Start()
End Sub
Imports System.Data.OleDb
Public Class Form3
Inherits System.Windows.Forms.Form
Dim conn As New OleDbConnection()
conn.ConnectionString =
"PROVIDER=SQLOLEDB;DATASOURCE=HOME;user
ID=sa;Password='';DATABASE=master"
conn.Open()
Dim cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = stmt1
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
If dr.Read = True Then
TextBox4.Text = dr.Item("AppDate")
TextBox3.Text = dr.Item("school")
TextBox2.Text = dr.Item("GDPg")
TextBox6.Text = dr.Item("GRE")
TextBox7.Text = dr.Item("name")
Else
MsgBox("no such record found")
End If
dr.Close()
conn.Close()
End If
End Sub
----------------------------------------------------------------
stmt = "insert into QualiDetails values('" + TextBox1.Text +
"','" + TextBox4.Text + "','" + TextBox2.Text + "','" + TextBox6.Text +
"','" + TextBox3.Text + "','" + TextBox7.Text + "')"
If TextBox1.Text = "" Then
MsgBox("please enter the SerialNo from the dataset")
TextBox1.Focus()
ElseIf TextBox4.Text = "" Then
MsgBox("Where is APPDate")
TextBox4.Focus()
Else
Dim conn As New OleDbConnection()
conn.ConnectionString =
"PROVIDER=SQLOLEDB;DATASOURCE=HOME;user
ID=sa;Password='';DATABASE=master"
conn.Open()
Dim cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = stmt
Try
cnt = cmd.ExecuteNonQuery()
MsgBox("value inserted")
Catch ex As Exception
If cnt <> 1 Then
MsgBox(ex.Message)
End If
End Try
conn.Close()
End If
End Sub
End Class
Imports System.Data.OleDb
Public Class Form15
Inherits System.Windows.Forms.Form

Dim n As Integer
Dim n1 As Integer
Dim n2 As Integer
Dim stmt As String
Dim cnt As String
Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet211)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
If TextBox7.Text = "" Then
MsgBox("plz enter the marks1")
TextBox7.Focus()
ElseIf TextBox9.Text = "" Then
MsgBox("plz enter the marks2")
TextBox9.Focus()
Else
n = CInt(TextBox7.Text)
n1 = CInt(TextBox9.Text)
n2 = n + n1
TextBox10.Text = n2
If TextBox10.Text > 100 Then
TextBox11.Text = "good"
ElseIf TextBox10.Text > 150 Then
TextBox11.Text = "very good"
ElseIf TextBox10.Text < 100 Then
TextBox11.Text = "fail"
End If
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
stmt = "insert into progressreport values('" + TextBox1.Text +
"','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text +
"','" + TextBox5.Text + "','" + TextBox6.Text + "','" + TextBox7.Text +
"','" + TextBox8.Text + "','" + TextBox9.Text + "','" + TextBox10.Text
+ "','" + TextBox11.Text + "')"
If TextBox1.Text = "" Then
MsgBox("plz choose one option")
TextBox1.Focus()
ElseIf TextBox9.Text = "" Then
MsgBox("cannot be blank")
TextBox9.Focus()
ElseIf TextBox10.Text = "" Then
MsgBox("cannot be blank")
TextBox10.Focus()
ElseIf TextBox11.Text = "" Then
MsgBox("cannot be blank")
TextBox11.Focus()
ElseIf TextBox1.Text = "" Then
 MsgBox("cannot be blank")
TextBox1.Focus()
ElseIf TextBox2.Text = "" Then
MsgBox("cannot be blank")
TextBox2.Focus()
ElseIf TextBox3.Text = "" Then
MsgBox("cannot be blank")
TextBox3.Focus()
ElseIf TextBox5.Text = "" Then
MsgBox("cannot be blank")
TextBox5.Focus()
ElseIf TextBox6.Text = "" Then
MsgBox("cannot be blank")
TextBox6.Focus()
ElseIf TextBox7.Text = "" Then
MsgBox("cannot be blank")
TextBox7.Focus()
ElseIf TextBox8.Text = "" Then
MsgBox("cannot be blank")
TextBox8.Focus()
Else
Dim conn As New OleDbConnection()
conn.ConnectionString =
"PROVIDER=SQLOLEDB;DATASOURCE=HOME;user
ID=sa;Password='';DATABASE=master"
conn.Open()
Dim cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = stmt
Try
cnt = cmd.ExecuteNonQuery()
MsgBox("value inserted")
Catch ex As Exception
If cnt <> 1 Then
MsgBox(ex.Message)
End If
End Try
conn.Close()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub
End Class
I AM VERY THANKFUL TO OUR
BATCH CO-ORDINATOR Mr. Anuridh
sir FOR GIVING ME A CHANCE IN THIS
PROJECT.I AM ALSO GRATEFUL TO
HIM FOR HIS KIND SUPPORT AND
GUIDANCE.
I AM ALSO THANKFUL TO MANOJ Sir
FOR GIVING HIS KIND SUPPORT AND
GUIDANCE IN MACHINE ROOM.