Реферат Створення інформаційної системи ведення навчальної документації в навчальному закладі

mp; s5 & «») ». ExecuteNonQuery ()

() Sub

Sub Button7_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button7. Clicks1, s2, s3, s4 As Stringr As DialogResultk As Integer=Grid1. CurrentRow. Cells («Код»). Value. TextBox1. Text=Grid1. CurrentRow. Cells («П.І.Б.»). Value. TextBox2. Text=Grid1. CurrentRow. Cells («Група»). Value. TextBox3. Text=Grid1. CurrentRow. Cells («Курс»). Value. TextBox4. Text=Grid1. CurrentRow. Cells («Напрям»). Value. ShowDialog ()

=Form2. TextBox1. Text=Form2. TextBox2. Text=Form2. TextBox3. Text=Form2. TextBox4. Text=Form2. DialogResult. Close ()

If r <> DialogResult.OK ThenSubIf

c As New OleDbCommand. Connection=conn. CommandText=«update Студенти set П.І.Б. =«» & s1 & «», Група=«» & s2 & «», Курс=«» & s3 & «», Напрям=«» & s4 & «» where Код=»& k. ExecuteNonQuery ()

() Sub

Sub Button4_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4. Clickk As Integerc As New OleDbCommand. Connection=conn=Grid1. CurrentRow. Cells («Код»). Value. CommandText=«delete from Успішність where ID_студента =» & k. ExecuteNonQuery () () Sub

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

SubClass

Код форми Form2Class Form2

Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load. AcceptButton=Button1. CancelButton=Button2Sub

Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click. DialogResult=DialogResult.OK. Close () Sub

Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click. DialogResult=Windows. Forms. DialogResult. Cancel. Close () SubClass

Код форми Form3Class Form3

Sub Form3_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load. AcceptButton=Button1. CancelButton=Button2Sub

Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click. DialogResult=DialogResult.OK. Close () Sub

Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click. DialogResult=Windows. Forms. DialogResult. Cancel. Close ()

End Sub