Submitted By;-Rama Rawani StudentID;-S0600b0200072 Batch Code;- B080132 RegNo;-R0600B0200074 Faculty;-AnirudhPaul
Dim Dim Dim Dim Sub
ctr As Integer thr As Thread ColorArray(5) As Color cnt As Integer 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.