0 Project Video Library System in Vb .Net

Project Video Library System in Vb .Net 

Public Class Form5
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\cc1.mdb"
        con.Open()
        sql = "select * FROM b"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "e1")
        'MsgBox("CERTIFICATE DETAIL IS NOW OPEN")
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(0).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(0).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(0).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(0).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(0).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(0).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(0).Item(6)
     
        con.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If pos = 0 Then
            MsgBox("you are at first record")
        Else
            pos = pos - 1
            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
         
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If pos = ds.Tables("e1").Rows.Count - 1 Then
            MsgBox("you are at last record")
        Else
            pos = pos + 1
            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
         
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        pos = ds.Tables("e1").Rows.Count - 1
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
     
        Button5.Enabled = False
        Button6.Enabled = True
        Button9.Enabled = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If pos >= 0 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsrow As DataRow
            dsrow = ds.Tables("e1").NewRow()
            dsrow.Item(0) = TextBox1.Text
            dsrow.Item(1) = TextBox2.Text
            dsrow.Item(2) = TextBox3.Text
            dsrow.Item(3) = TextBox4.Text
            dsrow.Item(4) = TextBox5.Text
            dsrow.Item(5) = TextBox6.Text
            dsrow.Item(6) = TextBox7.Text
         
            ds.Tables("e1").Rows.Add(dsrow)
            da.Update(ds, "e1")
            MsgBox("new record added")

        End If
        Button6.Enabled = False
        Button5.Enabled = True
        Button9.Enabled = True
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ds.Tables("e1").Rows(pos).Item(0) = TextBox1.Text
        ds.Tables("e1").Rows(pos).Item(1) = TextBox2.Text
        ds.Tables("e1").Rows(pos).Item(2) = TextBox3.Text
        ds.Tables("e1").Rows(pos).Item(3) = TextBox4.Text
        ds.Tables("e1").Rows(pos).Item(4) = TextBox5.Text
        ds.Tables("e1").Rows(pos).Item(5) = TextBox6.Text
        ds.Tables("e1").Rows(pos).Item(6) = TextBox7.Text
     
        con.Open()
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "e1")
        MsgBox("data updated")
        con.Close()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
        Button9.Enabled = True
        Button5.Enabled = True
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If pos >= 0 And pos <= ds.Tables("e1").Rows.Count Then
            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
                MsgBox("operation cancelled")
                Exit Sub
            Else
                Dim cb As New OleDb.OleDbCommandBuilder(da)
                ds.Tables("e1").Rows(pos).Delete()
                pos = 0
                TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
                TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
                TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
                TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
                TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
                TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
                TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
             
                da.Update(ds, "e1")
            End If
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.Hide()
        Form6.Show()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Me.Hide()
        Form2.Show()
    End Sub
End Class

Public Class Form6
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Cc1DataSet.b' table. You can move, or remove it, as needed.
        Me.BTableAdapter.Fill(Me.Cc1DataSet.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\cc1.mdb"
        con.Open()
        sql = "select * FROM b"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.BTableAdapter.Fill(Me.Cc1DataSet.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\cc1.mdb"
        con.Open()
        sql = "select * FROM b"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.BTableAdapter.Fill(Me.Cc1DataSet.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\cc1.mdb"
        con.Open()
        sql = "select * FROM b where qcdname like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.BTableAdapter.Fill(Me.Cc1DataSet.b)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\cc1.mdb"
        con.Open()
        sql = "select * FROM b where qcdid like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "vls" Then
            If TextBox2.Text = "royalneeds" Then
                Me.Hide()
                Form2.Show()
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MessageBox.Show("do you really want to exit ?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then

            Exit Sub
        Else
            End
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Public Class Form2

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Hide()
        Form3.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Hide()
        Form1.Show()
    End Sub

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

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

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Public Class Form3
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\mm1.mdb"
        con.Open()
        sql = "select * FROM g"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "e1")
        'MsgBox("CERTIFICATE DETAIL IS NOW OPEN")
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(0).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(0).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(0).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(0).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(0).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(0).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(0).Item(6)
        TextBox8.Text = ds.Tables("e1").Rows(0).Item(7)
        TextBox9.Text = ds.Tables("e1").Rows(0).Item(8)
        con.Close()
    End Sub
 
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Hide()
        Form4.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)
        TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If pos = 0 Then
            MsgBox("you are at first record")
        Else
            pos = pos - 1
            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
            TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)
            TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If pos = ds.Tables("e1").Rows.Count - 1 Then
            MsgBox("you are at last record")
        Else
            pos = pos + 1
            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
            TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
            TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
            TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)
            TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        pos = ds.Tables("e1").Rows.Count - 1
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)
        TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Me.Hide()
        Form2.Show()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        Button8.Enabled = False
        Button10.Enabled = False
        Button7.Enabled = True

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If pos >= 0 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsrow As DataRow
            dsrow = ds.Tables("e1").NewRow()
            dsrow.Item(0) = TextBox1.Text
            dsrow.Item(1) = TextBox2.Text
            dsrow.Item(2) = TextBox3.Text
            dsrow.Item(3) = TextBox4.Text
            dsrow.Item(4) = TextBox5.Text
            dsrow.Item(5) = TextBox6.Text
            dsrow.Item(6) = TextBox7.Text
            dsrow.Item(7) = TextBox8.Text
            dsrow.Item(8) = TextBox9.Text
            ds.Tables("e1").Rows.Add(dsrow)
            da.Update(ds, "e1")
            MsgBox("new record added")

        End If
        Button7.Enabled = False
        Button8.Enabled = True
        Button10.Enabled = True
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ds.Tables("e1").Rows(pos).Item(0) = TextBox1.Text
        ds.Tables("e1").Rows(pos).Item(1) = TextBox2.Text
        ds.Tables("e1").Rows(pos).Item(2) = TextBox3.Text
        ds.Tables("e1").Rows(pos).Item(3) = TextBox4.Text
        ds.Tables("e1").Rows(pos).Item(4) = TextBox5.Text
        ds.Tables("e1").Rows(pos).Item(5) = TextBox6.Text
        ds.Tables("e1").Rows(pos).Item(6) = TextBox7.Text
        ds.Tables("e1").Rows(pos).Item(7) = TextBox8.Text
        ds.Tables("e1").Rows(pos).Item(8) = TextBox9.Text
        con.Open()
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "e1")
        MsgBox("data updated")
        con.Close()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
        TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
        TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
        TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)
        TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)
        Button10.Enabled = True
        Button8.Enabled = True
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If pos >= 0 And pos <= ds.Tables("e1").Rows.Count Then
            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
                MsgBox("operation cancelled")
                Exit Sub
            Else
                Dim cb As New OleDb.OleDbCommandBuilder(da)
                ds.Tables("e1").Rows(pos).Delete()
                pos = 0
                TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
                TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
                TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
                TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
                TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
                TextBox6.Text = ds.Tables("e1").Rows(pos).Item(5)
                TextBox7.Text = ds.Tables("e1").Rows(pos).Item(6)
                TextBox8.Text = ds.Tables("e1").Rows(pos).Item(7)
                TextBox9.Text = ds.Tables("e1").Rows(pos).Item(8)
                da.Update(ds, "e1")
            End If
        End If
    End Sub
End Class

Public Class Form4
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Mm1DataSet.g' table. You can move, or remove it, as needed.
        Me.GTableAdapter.Fill(Me.Mm1DataSet.g)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\mm1.mdb"
        con.Open()
        sql = "select * FROM g"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"

    End Sub

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.GTableAdapter.Fill(Me.Mm1DataSet.g)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\mm1.mdb"
        con.Open()
        sql = "select * FROM g"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.GTableAdapter.Fill(Me.Mm1DataSet.g)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\mm1.mdb"
        con.Open()
        sql = "select * FROM g where kName like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.GTableAdapter.Fill(Me.Mm1DataSet.g)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\mm1.mdb"
        con.Open()
        sql = "select * FROM g where kRegid like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub
End Class

Public Class Form7
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\dd1.mdb"
        con.Open()
        sql = "select * FROM r"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "e1")
        'MsgBox("CERTIFICATE DETAIL IS NOW OPEN")
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(0).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(0).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(0).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(0).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(0).Item(4)
     
        con.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If pos = 0 Then
            MsgBox("you are at first record")
        Else
            pos = pos - 1
            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
         

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If pos = ds.Tables("e1").Rows.Count - 1 Then
            MsgBox("you are at last record")
        Else
            pos = pos + 1
            TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
            TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
            TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
            TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
            TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
       

        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        pos = ds.Tables("e1").Rows.Count - 1
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
     

        Button5.Enabled = False
        Button6.Enabled = True
        Button9.Enabled = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If pos >= 0 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsrow As DataRow
            dsrow = ds.Tables("e1").NewRow()
            dsrow.Item(0) = TextBox1.Text
            dsrow.Item(1) = TextBox2.Text
            dsrow.Item(2) = TextBox3.Text
            dsrow.Item(3) = TextBox4.Text
            dsrow.Item(4) = TextBox5.Text
         

            ds.Tables("e1").Rows.Add(dsrow)
            da.Update(ds, "e1")
            MsgBox("new record added")

        End If
        Button6.Enabled = False
        Button5.Enabled = True
        Button9.Enabled = True
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ds.Tables("e1").Rows(pos).Item(0) = TextBox1.Text
        ds.Tables("e1").Rows(pos).Item(1) = TextBox2.Text
        ds.Tables("e1").Rows(pos).Item(2) = TextBox3.Text
        ds.Tables("e1").Rows(pos).Item(3) = TextBox4.Text
        ds.Tables("e1").Rows(pos).Item(4) = TextBox5.Text
     

        con.Open()
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "e1")
        MsgBox("data updated")
        con.Close()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        pos = 0
        TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
        TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
        TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
        TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
        TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
     
        Button9.Enabled = True
        Button5.Enabled = True
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If pos >= 0 And pos <= ds.Tables("e1").Rows.Count Then
            If MessageBox.Show("do you really want to delete this record?", "delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
                MsgBox("operation cancelled")
                Exit Sub
            Else
                Dim cb As New OleDb.OleDbCommandBuilder(da)
                ds.Tables("e1").Rows(pos).Delete()
                pos = 0
                TextBox1.Text = ds.Tables("e1").Rows(pos).Item(0)
                TextBox2.Text = ds.Tables("e1").Rows(pos).Item(1)
                TextBox3.Text = ds.Tables("e1").Rows(pos).Item(2)
                TextBox4.Text = ds.Tables("e1").Rows(pos).Item(3)
                TextBox5.Text = ds.Tables("e1").Rows(pos).Item(4)
             

                da.Update(ds, "e1")
            End If
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.Hide()
        Form8.Show()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox8.Text = (Val(TextBox4.Text) * Val(TextBox5.Text))
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Me.Hide()
        Form2.Show()
    End Sub
End Class

Public Class Form8
    Dim con As New OleDb.OleDbConnection
    Dim pos As Integer
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Dd1DataSet1.r' table. You can move, or remove it, as needed.
        Me.RTableAdapter1.Fill(Me.Dd1DataSet1.r)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\dd1.mdb"
        con.Open()
        sql = "select * FROM r"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"

    End Sub

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.RTableAdapter1.Fill(Me.Dd1DataSet1.r)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\dd1.mdb"
        con.Open()
        sql = "select * FROM r"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.RTableAdapter1.Fill(Me.Dd1DataSet1.r)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\dd1.mdb"
        con.Open()
        sql = "select * FROM r where Ecdname like '" + TextBox1.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ds.Clear()
        DataGridView1.Refresh()
        Me.RTableAdapter1.Fill(Me.Dd1DataSet1.r)
        con.ConnectionString = "PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source = C:\dd1.mdb"
        con.Open()
        sql = "select * FROM r where Ecdid like '" + TextBox2.Text + "'"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "s2")


        con.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "s2"
    End Sub
End Class