Автоматизация процесса управления средней общеобразовательной школой №16
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Val e As System.EventArgs) Handles Button3.Click.Fill(ValDataSet.val)SubSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click.Update(ValDataSet)ex As Exception(ex.Message)TrySubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click.Show()SubClass3Class Form3pr1()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.Фамилия, val.Имя, val.Отчество, val.[Дата рождения], val.Адрес, val.Телефон, val.Класс, val.Руководитель FROM(Val)WHERE (((val.Фамилия)=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()Subpr2()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.Имя, val.Фамилия, val.Отчество, val.[Дата рождения], val.Класс FROM(Val)WHERE (((val.Имя)=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()Subpr3()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.Отчество, val.Фамилия, val.Имя, val.Класс FROM(Val)WHERE (((val.Отчество)=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()Subpr4()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.[Дата рождения], val.Фамилия, val.Имя, val.Отчество, val.Класс, val.Руководитель FROM(Val)WHERE (((val.[Дата рождения])=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()Subpr5()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.Адрес, val.Фамилия, val.Имя, val.Отчество, val.Телефон, val.Класс FROM(Val)WHERE (((val.Адрес)=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()Subpr6()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.Телефон, val.Фамилия, val.Имя, val.Отчество, val.Класс FROM(Val)WHERE (((val.Телефон)=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()Subpr7()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.Класс, val.Фамилия, val.Имя, val.[Дата рождения], val.Телефон, val.Руководитель FROM(Val)WHERE (((val.Класс)=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()Subpr8()c As New ADODB.Connection()r As New ADODB.Recordset()F As ADODB.Fields As String= TextBox1.Text.Open("provider=microsoft.jet.oledb.4.0; data source=C:\Documents and Settings\Администратор\Мои документы\Visual Studio 2005\Проекты\WindowsApplication1\Val.mdb;").Open("SELECT val.Руководитель, val.Класс, val.Фамилия, val.Имя, val.[Дата рождения], val.Адрес FROM(Val)WHERE (((val.Руководитель)=" & Chr(34) & s & Chr(34) & "));", c, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly).Items.Clear()Not r.EOFEach F In r.Fields.Items.Add(F.Value & " ").MoveNext()While.Close().Close()SubSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickRadioButton1.Checked = True Then pr1()RadioButton2.Checked = True Then pr2()RadioButton3.Checked = True Then pr3()RadioButton4.Checked = True Then pr4()RadioButton5.Checked = True Then pr5()RadioButton6.Checked = True Then pr6()RadioButton7.Checked = True Then pr7()RadioButton8.Checked = True Then pr8()SubClass