Scribd
Upload
16 views

STD Staff Feedback From Source Code

The document contains code for multiple forms that allow for data entry, viewing, and updating. Form1 contains buttons to open other forms. Form2 handles user login. Form3 populates dropdowns and displays data from a database. It includes buttons to navigate, add, update and clear records. Form4 inserts and updates data in another table.

Uploaded by

jayashreemadhi2004
Copyright
© © All Rights Reserved
Available Formats
Download as ODT, PDF, TXT or read online on Scribd
16 views

STD Staff Feedback From Source Code

The document contains code for multiple forms that allow for data entry, viewing, and updating. Form1 contains buttons to open other forms. Form2 handles user login. Form3 populates dropdowns and displays data from a database. It includes buttons to navigate, add, update and clear records. Form4 inserts and updates data in another table.

Uploaded by

jayashreemadhi2004
Copyright
© © All Rights Reserved
Available Formats
Download as ODT, PDF, TXT or read online on Scribd
You are on page 1/ 14

Form 1

Public Class Form1

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


Button1.Click

Form2.Show()

End Sub

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


Button2.Click

Form6.Show()

End Sub

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


Button3.Click

Form10.Show()

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

Form13.Show()

End Sub

End Class

Form 2

Public Class Form2

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


Button1.Click

If TextBox1.Text = “admin” And TextBox2.Text = “admin” Then

Form3.Show()

Else

MsgBox(“Sorry, username or password not found”)


End If

End Sub

End Class

Form 3

Public Class Form4

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


MyBase.Load

Db.ConnectionString = (“provider = Microsoft.ACE.OLEDB.12.0;data source=C:\Users\Public\


studentfeedback.accdb”)

Db.Open()

Rs.Open(“feedback”, db, ADODB.CursorTypeEnum.adOpenDynamic,


ADODB.LockTypeEnum.adLockOptimistic)

ComboBox1.Items.Add(“EXCELLENT”)
ComboBox1.Items.Add(“GOOD”)

ComboBox1.Items.Add(“AVERAGE”)

ComboBox1.Items.Add(“POOR”)

ComboBox2.Items.Add(“EXCELLENT”)

ComboBox2.Items.Add(“GOOD”)

ComboBox2.Items.Add(“AVERAGE”)

ComboBox2.Items.Add(“POOR”)

ComboBox3.Items.Add(“EXCELLENT”)

ComboBox3.Items.Add(“GOOD”)

ComboBox3.Items.Add(“AVERAGE”)

ComboBox3.Items.Add(“POOR”)

ComboBox4.Items.Add(“EXCELLENT”)

ComboBox4.Items.Add(“GOOD”)

ComboBox4.Items.Add(“AVERAGE”)

ComboBox4.Items.Add(“POOR”)
ComboBox5.Items.Add(“EXCELLENT”)

ComboBox5.Items.Add(“GOOD”)

ComboBox5.Items.Add(“AVERAGE”)

ComboBox5.Items.Add(“POOR”)

ComboBox6.Items.Add(“EXCELLENT”)

ComboBox6.Items.Add(“GOOD”)

ComboBox6.Items.Add(“AVERAGE”)

ComboBox6.Items.Add(“POOR”)

ComboBox7.Items.Add(“EXCELLENT”)

ComboBox7.Items.Add(“GOOD”)

ComboBox7.Items.Add(“AVERAGE”)

ComboBox7.Items.Add(“POOR”)

ComboBox8.Items.Add(“EXCELLENT”)

ComboBox8.Items.Add(“GOOD”)
ComboBox8.Items.Add(“AVERAGE”)

ComboBox8.Items.Add(“POOR”)

ComboBox9.Items.Add(“EXCELLENT”)

ComboBox9.Items.Add(“GOOD”)

ComboBox9.Items.Add(“AVERAGE”)

ComboBox9.Items.Add(“POOR”)

ComboBox10.Items.Add(“EXCELLENT”)

ComboBox10.Items.Add(“GOOD”)

ComboBox10.Items.Add(“AVERAGE”)

ComboBox10.Items.Add(“POOR”)

Dis()

End Sub

Sub dis()

TextBox1.Text = rs.Fields(0).Value

TextBox2.Text = rs.Fields(1).Value
TextBox3.Text = rs.Fields(2).Value

ComboBox1.Text = rs.Fields(3).Value

ComboBox2.Text = rs.Fields(4).Value

ComboBox3.Text = rs.Fields(5).Value

ComboBox4.Text = rs.Fields(6).Value

ComboBox5.Text = rs.Fields(7).Value

ComboBox6.Text = rs.Fields(8).Value

ComboBox7.Text = rs.Fields(9).Value

ComboBox8.Text = rs.Fields(10).Value

ComboBox9.Text = rs.Fields(11).Value

ComboBox10.Text = rs.Fields(12).Value

End Sub

Sub clear()

TextBox1.Text = “”
TextBox2.Text = “”

TextBox3.Text = “”

ComboBox1.Text = “”

ComboBox2.Text = “”

ComboBox3.Text = “”

ComboBox4.Text = “”

ComboBox5.Text = “”

ComboBox6.Text = “”

ComboBox7.Text = “”

ComboBox8.Text = “”

ComboBox9.Text = “”

ComboBox10.Text = “”

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

Rs.MoveFirst()

Dis()

End Sub

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


Button2.Click

Rs.MoveLast()

Dis()

End Sub

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


Button3.Click

Rs.MovePrevious()

If rs.BOF Then

MsgBox(“you are in the first record”)

Rs.MoveFirst()
End If

Dis()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


Button4.Click

Rs.MoveNext()

If rs.EOF Then

MsgBox(“you are in the last record”)

Rs.MoveLast()

End If

Dis()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


Button5.Click

Me.Visible = False
Form3.Show()

End Sub

End Class

Form4

Public Class Form16

Dim db As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


MyBase.Load

Db.ConnectionString = (“provider=Microsoft.ACE.OLEDB.12.0;data source=C:\Users\Public\


username.accdb”)

Db.Open()

Rs.Open(“name123”, db, ADODB.CursorTypeEnum.adOpenDynamic,


ADODB.LockTypeEnum.adLockOptimistic)

Dis()

End Sub
Sub dis()

TextBox1.Text = rs.Fields(0).Value

TextBox2.Text = rs.Fields(1).Value

TextBox3.Text = rs.Fields(2).Value

TextBox4.Text = rs.Fields(3).Value

End Sub

Sub clear()

TextBox1.Text = “”

TextBox2.Text = “”

TextBox3.Text = “”

TextBox4.Text = “”

End Sub

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


Button1.Click
On Error Resume Next

Rs.AddNew()

Clear()

Rs.Fields(0).Value = TextBox1.Text

Rs.Fields(1).Value = TextBox2.Text

Rs.Fields(2).Value = TextBox3.Text

Rs.Fields(3).Value = TextBox4.Text

Dis()

End Sub

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


Button2.Click

Rs.Fields(0).Value = TextBox1.Text

Rs.Fields(1).Value = TextBox2.Text

Rs.Fields(2).Value = TextBox3.Text
Rs.Fields(3).Value = TextBox4.Text

Rs.Update()

MsgBox(“record updated”)

Dis()

End Sub

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


Button3.Click

Clear()

TextBox1.Focus()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles


Button4.Click

Form15.Show()

End Sub

End Class

You might also like