Rama

  • November 2019
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Rama as PDF for free.

More details

  • Words: 783
  • Pages: 15
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.

Related Documents

Rama-rama
June 2020 18
Rama-rama
October 2019 45
Rama
December 2019 34
Rama
November 2019 39
Sri Rama Sri Rama
November 2019 38
Rph Asip (rama-rama)
April 2020 18