FORM 1
Imports System.Data.SqlClient
Public Class Form1
Dim con As SqlConnection = New SqlConnection("Data Source=.\SqlExpress;Initial Catalog=LabExam;Integrated Security=True;Pooling=False")
Dim cmd As SqlCommand
Public Sub display()
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select * From PRODUCTtbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
DataGridView1.DataSource = abind
ComboBox1.DataSource = abind
ComboBox1.DisplayMember = "ProductName"
da.Update(ds)
con.Close()
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
e.Handled = True
MessageBox.Show("User is not permitted to type in this feild")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Apple" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (1).jpg")
ElseIf ComboBox1.Text = "Banana" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download.jpg")
ElseIf ComboBox1.Text = "Grapes" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\images (2).jpg")
ElseIf ComboBox1.Text = "Buko" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (5).jpg")
ElseIf ComboBox1.Text = "Santol" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\kraTon2.jpg")
ElseIf ComboBox1.Text = "Pineapple" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\images (3).jpg")
ElseIf ComboBox1.Text = "Melon" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (4).jpg")
ElseIf ComboBox1.Text = "Mango" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (3).jpg")
ElseIf ComboBox1.Text = "langka" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (6).jpg")
ElseIf ComboBox1.Text = "Duhat" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (2).jpg")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd = New SqlCommand("insert into ORDERStbl values('" & TextBox3.Text & " ','" & TextBox4.Text & "','" & TextBox5.Text & "')", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("successfully added", "adding information", MessageBoxButtons.OK, MessageBoxIcon.Information)
display()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
display()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cmd = New SqlCommand("delete from ORDERStbl where OrdersID='" & TextBox2.Text & "'", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Successfully deleted", "delete Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
cmd = New SqlCommand("Update ORDERStbl set OrdersName='" & TextBox5.Text & "' where OrdersID='" & TextBox2.Text & "'", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Successfully Updated", "Update Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
display()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("select*FROM PRODUCTtbl where ProductName like'%" & TextBox1.Text & "%'", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
con.Close()
End Sub
End Class
FORM 2
Imports System.Data.SqlClient
Public Class Form2
Dim con As SqlConnection = New SqlConnection("Data Source=.\SqlExpress;Initial Catalog=LabExam;Integrated Security=True;Pooling=False")
Dim cmd As SqlCommand
Public Sub display()
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
da.Update(ds)
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "P" And TextBox2.Text = "grace" Then
Else
MsgBox("Sorry, username or password not found", MsgBoxStyle.OkOnly, "Invalid")
End If
Form3.Show()
Me.Hide()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
FORM 3
Imports System.Data.SqlClient
Public Class Form3
Dim con As SqlConnection = New SqlConnection("Data Source=.\SqlExpress;Initial Catalog=LabExam;Integrated Security=True;Pooling=False")
Dim cmd As SqlCommand
Public Sub display()
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select * From PRODUCTtbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
da.Update(ds)
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select * From PRODUCTtbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
da.Update(ds)
con.Close()
Form4.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select * From ORDERStbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
da.Update(ds)
con.Close()
Form1.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select * From CUSTOMERtbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
da.Update(ds)
con.Close()
Form6.Show()
Me.Hide()
End Sub
End Class
FORM 4
Imports System.Data.SqlClient
Public Class Form4
Dim con As SqlConnection = New SqlConnection("Data Source=.\SqlExpress;Initial Catalog=LabExam;Integrated Security=True;Pooling=False")
Dim cmd As SqlCommand
Public Sub display()
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select * From PRODUCTtbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
DataGridView1.DataSource = abind
da.Update(ds)
con.Close()
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
display()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd = New SqlCommand("insert into PRODUCTtbl values('" & TextBox3.Text & " ','" & TextBox4.Text & "','" & TextBox5.Text & "')", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("successfully added", "adding information", MessageBoxButtons.OK, MessageBoxIcon.Information)
display()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cmd = New SqlCommand("delete from PRODUCTtbl where ProductsID='" & TextBox2.Text & "'", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Successfully deleted", "delete Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
cmd = New SqlCommand("Update PRODUCTtbl set ProductName='" & TextBox3.Text & "'ProductQuantity='" & TextBox4.Text & "'ProductPrice='" & TextBox5.Text & "' where is ProductID='" & TextBox2.Text & "'", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Successfully Updated", "Update Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
display()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("select*FROM PRODUCTtbl where ProductName like'%" & TextBox1.Text & "%'", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
con.Close()
End Sub
End Class
FORM 5
Imports System.Data.SqlClient
Public Class Form5
Dim con As SqlConnection = New SqlConnection("Data Source=.\SqlExpress;Initial Catalog=LabExam;Integrated Security=True;Pooling=False")
Dim cmd As SqlCommand
Public Sub display()
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select OrdersName From ORDERStbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
ComboBox1.DataSource = abind
ComboBox1.DisplayMember = "ProductName"
DataGridView1.DataSource = abind
da.Update(ds)
con.Close()
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
e.Handled = True
MessageBox.Show("User is not permitted to type in this feild")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Banana" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (1).jpg")
ElseIf ComboBox1.Text = "Grapes" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download.jpg")
ElseIf ComboBox1.Text = "Apple" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\images (2).jpg")
ElseIf ComboBox1.Text = "Buko" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (5).jpg")
ElseIf ComboBox1.Text = "Santol" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\kraTon2.jpg")
ElseIf ComboBox1.Text = "Pineapple" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\images (3).jpg")
ElseIf ComboBox1.Text = "Melon" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (4).jpg")
ElseIf ComboBox1.Text = "Mango" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (3).jpg")
ElseIf ComboBox1.Text = "langka" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (6).jpg")
ElseIf ComboBox1.Text = "Duhat" Then
PictureBox1.BackgroundImage = System.Drawing.Image.FromFile("C:\Users\Student\Downloads\images\download (2).jpg")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(" You Ordered'" & ComboBox1.Text & "'")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
display()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
End Class
FORM 6
Imports System.Data.SqlClient
Public Class Form6
Dim con As SqlConnection = New SqlConnection("Data Source=.\SqlExpress;Initial Catalog=LabExam;Integrated Security=True;Pooling=False")
Dim cmd As SqlCommand
Public Sub display()
Dim abind As New BindingSource
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("Select * From CUSTOMERtbl", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
abind.DataSource = ds.Tables(0)
DataGridView1.DataSource = abind
da.Update(ds)
con.Close()
End Sub
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
display()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd = New SqlCommand("insert into CUSTOMERtbl values('" & TextBox2.Text & " ','" & TextBox3.Text & "')", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("successfully added", "adding information", MessageBoxButtons.OK, MessageBoxIcon.Information)
display()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cmd = New SqlCommand("delete from CUSTOMERtbl where CustomerID='" & TextBox2.Text & "'", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Successfully deleted", "delete Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
cmd = New SqlCommand("Update CUSTOMERtbl set CustomerName='" & TextBox2.Text & "'CustomerAddress='" & TextBox3.Text & "' where OrdersID='" & TextBox1.Text & "'", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("Successfully Updated", "Update Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
display()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim ds As New DataSet
Dim da As SqlDataAdapter
cmd = New SqlCommand("select*FROM CUSTOMERtbl where CustomerName like'%" & TextBox4.Text & "%'", con)
con.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
con.Close()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Form2.Show()
Me.Hide()
End Sub
End Class
SPLASH SCREEN
Public NotInheritable Class SplashScreen1
'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab
' of the Project Designer ("Properties" under the "Project" menu).
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Set up the dialog text at runtime according to the application's assembly information.
'TODO: Customize the application's assembly information in the "Application" pane of the project
' properties dialog (under the "Project" menu).
'Application title
'If My.Application.Info.Title <> "" Then
' ApplicationTitle.Text = My.Application.Info.Title
'Else
' 'If the application title is missing, use the application name, without the extension
' ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
'End If
''Format the version information using the text set into the Version control at design time as the
'' formatting string. This allows for effective localization if desired.
'' Build and revision information could be included by using the following code and changing the
'' Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar. See
'' String.Format() in Help for more information.
''
'' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
'Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
''Copyright info
'Copyright.Text = My.Application.Info.Copyright
End Sub
Private Sub MainLayoutPanel_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MainLayoutPanel.Paint
End Sub
Private Sub ApplicationTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplicationTitle.Click
Form2.Show()
Me.Hide()
End Sub
End Class
