Список используемых источников
1 Беклешова В.К. Технико-экономическое обоснование в дипломных проектах: Учеб. пособие / Под ред..- М.: Высш. шк., 1991
БагласоваТ.Г Методические указания по оформлению курсовых и дипломных проектов.- ТБП.. 2006
БагласоваТ.Г Методические указания по выполнению дипломного проекта для учащихся по специальности 2-40 01 01 «Программное обеспечение информационных технологий».- ТБП.. 2003
Кунец И.Е. Объектно-ориентированный анализ и проектирование. Работа в среде RationalRose. Методическое пособие для учащихся ССУЗ по специальности 2-40 01 01 «Программное обеспечение информационных технологий»., 2006
Астахова И.Ф, Мельников В.М. SQLв примерах и задачах.- М.: Новое знание, 2002
ГОСТ 2.105-95. ЕСКД. Общие требования к текстовым документам
ГОСТ 19.401-2000. ЕСПД. Текст программы
ГОСТ 19.402-2000 ЕСПД. Описание программы
ГОСТ 19.301-2000 ЕСПД. Программа и методика испытаний
Приложение А (Диаграммы)
Приложение Б
Текст программных модулей
Public Class Form1
Private Sub ClassesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClassesBindingNavigatorSaveItem.Click
Me.Validate()
Me.ClassesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
'TODO: This line of code loads data into the 'SchoolDataSet.Teachers' table. You can move, or remove it, as needed.
Me.TeachersTableAdapter.Fill(Me.SchoolDataSet.Teachers)
'TODO: This line of code loads data into the 'SchoolDataSet.Classes' table. You can move, or remove it, as needed.
Me.ClassesTableAdapter.Fill(Me.SchoolDataSet.Classes)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
ClassesBindingSource.AddNew()
Catch ex As Exception
MsgBox("Введите уникальный ID")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ClassesBindingSource.RemoveCurrent()
MessageBox.Show("Удалено", "Удаление", MessageBoxButtons.OK)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Validate()
ClassesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
MessageBox.Show("Сохранено", "Сохранение", MessageBoxButtons.OK)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Col As System.Windows.Forms.DataGridViewColumn
Select Case ListBox1.SelectedIndex
Case 0
Col = DataGridViewTextBoxColumn1
Case 1
Col = DataGridViewTextBoxColumn2
Case 2
Col = DataGridViewTextBoxColumn3
End Select
If RadioButton1.Checked Then
ClassesDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)
Else
ClassesDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If ComboBox1.Text = "класс" Then ClassesBindingSource.Filter = " Class='" & TextBox1.Text & "'"
If ComboBox1.Text = "" Then MessageBox.Show("Выберите критерий!!!", "Ошибка", MessageBoxButtons.OK)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
ClassesBindingSource.Filter = " "
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Close()
End Sub
Private Sub КлассыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КлассыToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
End Class
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'schoolDataSet.Classes' table. You can move, or remove it, as needed.
Me.ClassesTableAdapter.Fill(Me.schoolDataSet.Classes)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
Public Class Form3
Private Sub ElectiveBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElectiveBindingNavigatorSaveItem.Click
Me.Validate()
Me.ElectiveBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Teachers' table. You can move, or remove it, as needed.
Me.TeachersTableAdapter.Fill(Me.SchoolDataSet.Teachers)
'TODO: This line of code loads data into the 'SchoolDataSet.Elective' table. You can move, or remove it, as needed.
Me.ElectiveTableAdapter.Fill(Me.SchoolDataSet.Elective)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ElectiveBindingSource.Filter = "NameElective='" & ComboBox1.Text & "'"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ElectiveBindingSource.Filter = " "
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Try
ElectiveBindingSource.AddNew()
Catch ex As Exception
MsgBox("Введите уникальынй ID")
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ElectiveBindingSource.RemoveCurrent()
MessageBox.Show("Удалено", "Удаление", MessageBoxButtons.OK)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Validate()
ElectiveBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
MessageBox.Show("Сохранено", "Сохранение", MessageBoxButtons.OK)
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Close()
End Sub
Private Sub КурсыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КурсыToolStripMenuItem.Click
Form4.Show()
End Sub
Private Sub ElectiveBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElectiveBindingNavigator.RefreshItems
End Sub
End Class
Public Class Form4
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 'schoolDataSet.Elective' table. You can move, or remove it, as needed.
Me.ElectiveTableAdapter.Fill(Me.schoolDataSet.Elective)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Public Class Form5
Private Sub MarksBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MarksBindingNavigatorSaveItem.Click
Me.Validate()
Me.MarksBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
End Sub
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Classes' table. You can move, or remove it, as needed.
Me.ClassesTableAdapter.Fill(Me.SchoolDataSet.Classes)
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
'TODO: This line of code loads data into the 'SchoolDataSet.Pupils' table. You can move, or remove it, as needed.
Me.PupilsTableAdapter.Fill(Me.SchoolDataSet.Pupils)
'TODO: This line of code loads data into the 'SchoolDataSet.Marks' table. You can move, or remove it, as needed.
Me.MarksTableAdapter.Fill(Me.SchoolDataSet.Marks)
End Sub
Private Sub ВыберитеДействиеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыберитеДействиеToolStripMenuItem.Click
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MarksBindingSource.AddNew()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MarksBindingSource.RemoveCurrent()
MessageBox.Show("Удалено", "Удаление", MessageBoxButtons.OK)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Validate()
MarksBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
MessageBox.Show("Сохранено", "Сохранение", MessageBoxButtons.OK)
End Sub
Private Sub ОценкиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОценкиToolStripMenuItem.Click
Form7.Show()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form6.Show()
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
MarksBindingSource.Filter = " IDpupil='" & ComboBox1.SelectedValue & "'"
Catch ex As Exception
MsgBox("Упс, ошибочка")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MarksBindingSource.Filter = " "
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Try
MarksBindingSource.Filter = " IDpupil='" & TextBox1.Text & "'"
Catch ex As Exception
MsgBox("Введите число !!!")
End Try
End Sub
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
MarksBindingSource.Filter = " "
End Sub
End Class
Public Class Form6
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 'SchoolDataSet.Classes' table. You can move, or remove it, as needed.
Me.ClassesTableAdapter.Fill(Me.SchoolDataSet.Classes)
'TODO: This line of code loads data into the 'SchoolDataSet.Elective' table. You can move, or remove it, as needed.
Me.ElectiveTableAdapter.Fill(Me.SchoolDataSet.Elective)
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
'TODO: This line of code loads data into the 'SchoolDataSet.Pupils' table. You can move, or remove it, as needed.
Me.PupilsTableAdapter.Fill(Me.SchoolDataSet.Pupils)
'TODO: This line of code loads data into the 'SchoolDataSet.годовая' table. You can move, or remove it, as needed.
Me.ГодоваяTableAdapter.Fill(Me.SchoolDataSet.годовая)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ГодовыеОценкиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form7.Show()
End Sub
End Class
Public Class Form7
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'schoolDataSet.годовая' table. You can move, or remove it, as needed.
Me.годоваяTableAdapter.Fill(Me.schoolDataSet.годовая)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
Public Class Form8
Private Sub ОценкиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОценкиToolStripMenuItem.Click
Form5.Show()
End Sub
Private Sub КлассыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КлассыToolStripMenuItem.Click
Form1.Show()
End Sub
Private Sub КурсыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КурсыToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub УченикиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УченикиToolStripMenuItem.Click
Form9.Show()
End Sub
Private Sub ПредметыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПредметыToolStripMenuItem.Click
Form10.Show()
End Sub
Private Sub УчителяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УчителяToolStripMenuItem.Click
Form11.Show()
End Sub
Private Sub КлассыToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КлассыToolStripMenuItem1.Click
Form6.Show()
End Sub
Private Sub КурсыToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КурсыToolStripMenuItem1.Click
Form4.Show()
End Sub
Private Sub УчителяToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УчителяToolStripMenuItem1.Click
Form14.Show()
End Sub
Private Sub ПредметыToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПредметыToolStripMenuItem1.Click
Form15.Show()
End Sub
Private Sub ДиаграммаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form16.Show()
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Application.Exit()
End Sub
Private Sub СоставФакультативовToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СоставФакультативовToolStripMenuItem.Click
Form17.Show()
End Sub
Private Sub УченикиToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УченикиToolStripMenuItem1.Click
Form13.Show()
End Sub
Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ОценкиToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОценкиToolStripMenuItem1.Click
Form7.Show()
End Sub
Private Sub СписокКлассаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СписокКлассаToolStripMenuItem.Click
Form16.Show()
End Sub
Private Sub УспеваемостьУченикаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles УспеваемостьУченикаToolStripMenuItem.Click
Form12.Show()
End Sub
Private Sub ПосетщаемостьФакультативовToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПосетщаемостьФакультативовToolStripMenuItem.Click
Form18.Show()
End Sub
Private Sub ПредметыАпеподавателяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПредметыАпеподавателяToolStripMenuItem.Click
Form19.Show()
End Sub
Private Sub ПреподавателиПредметаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПреподавателиПредметаToolStripMenuItem.Click
Form20.Show()
End Sub
Private Sub СписокОтличниковToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СписокОтличниковToolStripMenuItem.Click
Form21.Show()
End Sub
Private Sub ОбАвтореToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОбАвтореToolStripMenuItem.Click
MsgBox("Программма составлена Колосовским Дмитрием")
End Sub
Private Sub ПомощьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПомощьToolStripMenuItem.Click
Dim x As New Process
x.StartInfo.FileName = "spravka.chm"
x.Start()
End Sub
Private Sub СправкаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СправкаToolStripMenuItem.Click
End Sub
End Class
Public Class Form9
Private Sub PupilsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PupilsBindingNavigatorSaveItem.Click
Me.Validate()
Me.PupilsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
End Sub
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Classes' table. You can move, or remove it, as needed.
Me.ClassesTableAdapter.Fill(Me.SchoolDataSet.Classes)
'TODO: This line of code loads data into the 'SchoolDataSet.Pupils' table. You can move, or remove it, as needed.
Me.PupilsTableAdapter.Fill(Me.SchoolDataSet.Pupils)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
PupilsBindingSource.AddNew()
Catch ex As Exception
MsgBox("Введите уникальный индекс")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PupilsBindingSource.RemoveCurrent()
MessageBox.Show("Удалено", "Удаление", MessageBoxButtons.OK)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Me.Validate()
PupilsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
MessageBox.Show("Сохранено", "Сохранение", MessageBoxButtons.OK)
Catch ex As Exception
MsgBox("Не изменяйте ID !!!")
End Try
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If ComboBox1.Text = "Фамилия" Then PupilsBindingSource.Filter = " Secondname='" & TextBox1.Text & "'"
If ComboBox1.Text = "Улица" Then PupilsBindingSource.Filter = " Street='" & TextBox1.Text & "'"
If ComboBox1.Text = "Дата рождения" Then PupilsBindingSource.Filter = "Birdthday='" & TextBox1.Text & "'"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
PupilsBindingSource.Filter = " "
End Sub
Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Close()
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
End Class
Public Class Form10
Private Sub SubjectsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubjectsBindingNavigatorSaveItem.Click
Me.Validate()
Me.SubjectsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
End Sub
Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
End Sub
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
SubjectsBindingSource.AddNew()
Catch ex As Exception
MsgBox("Введите уникальный индекс")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SubjectsBindingSource.RemoveCurrent()
MessageBox.Show("Удалено", "Удаление", MessageBoxButtons.OK)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Me.Validate()
SubjectsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
MessageBox.Show("Сохранено", "Сохранение", MessageBoxButtons.OK)
Catch ex As Exception
MsgBox("упс, ошибочка")
End Try
End Sub
Private Sub ВернутьсяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВернутьсяToolStripMenuItem.Click
Close()
End Sub
End Class
Public Class Form11
Private Sub TeachersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TeachersBindingNavigatorSaveItem.Click
Me.Validate()
Me.TeachersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
End Sub
Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
'TODO: This line of code loads data into the 'SchoolDataSet.Teachers' table. You can move, or remove it, as needed.
Me.TeachersTableAdapter.Fill(Me.SchoolDataSet.Teachers)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TeachersBindingSource.AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TeachersBindingSource.RemoveCurrent()
MessageBox.Show("Удалено", "Удаление", MessageBoxButtons.OK)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Me.Validate()
TeachersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
MessageBox.Show("Сохранено", "Сохранение", MessageBoxButtons.OK)
Catch ex As Exception
MsgBox("упс, ошибочка")
End Try
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If ComboBox1.Text = "Фамилия" Then TeachersBindingSource.Filter = " Teachersecondname='" & TextBox1.Text & "'"
If ComboBox1.Text = "Категория" Then TeachersBindingSource.Filter = " Teacherqualification='" & TextBox1.Text & "'"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TeachersBindingSource.Filter = " "
End Sub
Private Sub ВернутьсяToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВернутьсяToolStripMenuItem1.Click
Close()
End Sub
Private Sub ОтчётToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОтчётToolStripMenuItem.Click
Form14.Show()
End Sub
End Class
Public Class Form12
Private Sub ParamToolStripTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub FillToolStripButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillToolStripButton.Click
Try
Me.Proc2TableAdapter.Fill(Me.SchoolDataSet.proc2, ComboBox1.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub ParamToolStripTextBox_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Pupils' table. You can move, or remove it, as needed.
Me.PupilsTableAdapter.Fill(Me.SchoolDataSet.Pupils)
End Sub
End Class
Public Class Form13
Private Sub Form13_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'schoolDataSet.Pupils' table. You can move, or remove it, as needed.
Me.PupilsTableAdapter.Fill(Me.schoolDataSet.Pupils)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
Public Class Form14
Private Sub Form14_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'schoolDataSet.Teachers' table. You can move, or remove it, as needed.
Me.TeachersTableAdapter.Fill(Me.schoolDataSet.Teachers)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
Public Class Form15
Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'schoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.schoolDataSet.Subjects)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
Public Class Form16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Classes' table. You can move, or remove it, as needed.
Me.ClassesTableAdapter.Fill(Me.SchoolDataSet.Classes)
End Sub
Private Sub FillToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillToolStripButton.Click
Try
Me.Proc1TableAdapter.Fill(Me.SchoolDataSet.proc1, ComboBox1.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub ParamToolStripTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
Public Class Form17
Private Sub ElectiveContentBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElectiveContentBindingNavigatorSaveItem.Click
Me.Validate()
Me.ElectiveContentBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
End Sub
Private Sub Form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Pupils' table. You can move, or remove it, as needed.
Me.PupilsTableAdapter.Fill(Me.SchoolDataSet.Pupils)
'TODO: This line of code loads data into the 'SchoolDataSet.Elective' table. You can move, or remove it, as needed.
Me.ElectiveTableAdapter.Fill(Me.SchoolDataSet.Elective)
'TODO: This line of code loads data into the 'SchoolDataSet.ElectiveContent' table. You can move, or remove it, as needed.
Me.ElectiveContentTableAdapter.Fill(Me.SchoolDataSet.ElectiveContent)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ElectiveContentBindingSource.AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ElectiveContentBindingSource.RemoveCurrent()
MessageBox.Show("Удалено", "Удаление", MessageBoxButtons.OK)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Me.Validate()
ElectiveBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SchoolDataSet)
MessageBox.Show("Сохранено", "Сохранение", MessageBoxButtons.OK)
Catch ex As Exception
MsgBox("упс, ошибочка")
End Try
End Sub
Private Sub ВернутьсяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВернутьсяToolStripMenuItem.Click
Close()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ElectiveContentBindingSource.Filter = " IDElective='" & ComboBox3.SelectedValue & "'"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
ElectiveContentBindingSource.Filter = " "
End Sub
End Class
Public Class Form18
Private Sub Form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Elective' table. You can move, or remove it, as needed.
Me.ElectiveTableAdapter.Fill(Me.SchoolDataSet.Elective)
'TODO: This line of code loads data into the 'SchoolDataSet.ElectiveContent' table. You can move, or remove it, as needed.
Me.ElectiveContentTableAdapter.Fill(Me.SchoolDataSet.ElectiveContent)
End Sub
Private Sub FillToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillToolStripButton.Click
Try
Me.Proc3TableAdapter.Fill(Me.SchoolDataSet.proc3, ComboBox1.SelectedValue)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
End Class
Public Class Form19
Private Sub FillToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillToolStripButton.Click
Try
Me.Proc4TableAdapter.Fill(Me.SchoolDataSet.proc4, ComboBox1.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
'TODO: This line of code loads data into the 'SchoolDataSet.Teachers' table. You can move, or remove it, as needed.
Me.TeachersTableAdapter.Fill(Me.SchoolDataSet.Teachers)
End Sub
End Class
Public Class Form20
Private Sub FillToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillToolStripButton.Click
Try
Me.Proc5TableAdapter.Fill(Me.SchoolDataSet.proc5, ComboBox1.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.Subjects' table. You can move, or remove it, as needed.
Me.SubjectsTableAdapter.Fill(Me.SchoolDataSet.Subjects)
End Sub
End Class
Public Class Form21
Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SchoolDataSet.zapros9' table. You can move, or remove it, as needed.
Me.Zapros9TableAdapter.Fill(Me.SchoolDataSet.zapros9)
'TODO: This line of code loads data into the 'SchoolDataSet.View_1' table. You can move, or remove it, as needed.
Me.View_1TableAdapter.Fill(Me.SchoolDataSet.View_1)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
Приложение В Формы входных и выходных документов
Рисунок В.1