(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СотрудникиToolStripMenuItem.Click.MdiParent = Me.Show () SubSub СкладToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СкладToolStripMenuItem.Click.MdiParent = Me.Show () SubClassClass Form2con As New OleDb.OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: Курсова база.mdb") ds As New DataSetSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click.Open () comm As New OleDb.OleDbCommand ("insert into klient (Imya, Famil, Otch, Kod, Adres, N pasport) values ​​('" & TextBox1.Text & "', '"& TextBox2.Text &"', '"& TextBox3.Text &"', '"& TextBox4.Text &"', '"& TextBox5.Text & "','" & TextBox6.Text & "')", con). ExecuteNonQuery (). Close () SubSub Button4_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Clickadap As New OleDb.OleDbDataAdapter ("select * from klient", con). Open (). Fill (ds, "Таблиця"). DataSource = ds.Tables ("Таблиця"). Columns (0 ). HeaderText = "Ім'я". Columns (1). HeaderText = "Прізвище". Columns (2). HeaderText = "По батькові". Columns (3). HeaderText = "Код клієнта". Columns (4) . HeaderText = "Адреса". Columns (5). HeaderText = "Номер паспорта". Close () SubSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click.Open () comm As New OleDb.OleDbCommand ("delete" & ds.Tables ("Таблиця"). Columns (0). ColumnName & "," & ds.Tables ("Таблиця"). Columns ( 1). ColumnName & "," & ds.Tables ("Таблиця"). Columns (2). ColumnName & "," & ds.Tables ("Таблиця"). Columns ( 3). ColumnName & "," & ds.Tables ("Таблиця"). Columns (4). ColumnName & "," & ds.Tables ("Таблиця"). Columns ( 5). ColumnName & "from klient where Kod =" & TextBox4.Text, con). ExecuteNonQuery (). Close () SubSub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3 . Click.Open () comm As New OleDb.OleDbCommand ("update klient set Imya = '" & TextBox1.Text & "' where Kod =" & TextBox4.Text, con). ExecuteNonQuery () . Close () ex As ExceptionTry.Open () comm As New OleDb.OleDbCommand ("update klient set Famil = '" & TextBox2.Text & "' where Kod =" & TextBox4.Text, con ). ExecuteNonQuery (). Close () ex1 As ExceptionTry.Open () comm As New OleDb.OleDbCommand ("update klient set Otch = '" & TextBox3.Text & "' where Kod =" & TextBox4.Text, con). ExecuteNonQuery (). Close () ex As ExceptionTry.Open () comm As New OleDb.OleDbCommand ("update klient set Adres = '" & TextBox5.Text & "' where Kod = "& TextBox4.Text, con). ExecuteNonQuery (). Close () ex As ExceptionTry.Open () comm As New OleDb.OleDbCommand (" update klient set N pasport = '"& TextBox6.Text & ; "'where Kod =" & TextBox4.Text, con). ExecuteNonQuery (). Close () ex As ExceptionTrySubSub Button5_Click (ByVal sender As ...
