Public Class Form16
Private Sub Form16_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Отдел_кадров". При необходимости она может быть перемещена или удалена.
Me.Отдел_кадровTableAdapter.Fill(Me.SkladDataSet.Отдел_кадров)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Отдел_кадровBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Отдел_кадровBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Отдел_кадровBindingSource.AddNew()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Отдел_кадровBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Отдел_кадровBindingSource.MoveNext()
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Отдел_кадровBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.Отдел_кадровBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Form12.Show()
Me.Close()
End Sub
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Me.Close()
End Sub
Private Sub ОкладLabel_Click(sender As Object, e As EventArgs)
End Sub
End Class
Запрос Поставщики Ленточный вид
ublic Class Form17
Private Sub Form17_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet1._Запрос_меню_склад". При необходимости она может быть перемещена или удалена.
Me.Запрос_меню_складTableAdapter1.Fill(Me.SkladDataSet1._Запрос_меню_склад)
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet._Запрос_меню_склад". При необходимости она может быть перемещена или удалена.
Me.Запрос_меню_складTableAdapter.Fill(Me.SkladDataSet._Запрос_меню_склад)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Запрос_меню_складBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Запрос_меню_складBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Запрос_меню_складBindingSource.AddNew()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Запрос_меню_складBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Запрос_меню_складBindingSource.MoveNext()
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Запрос_меню_складBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.Запрос_меню_складBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Form13.Show()
Me.Close()
End Sub
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Me.Close()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
Запрос Заказ Ленточный вид
Public Class Form18
Private Sub Form18_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet._Запрос_заказ_меню_сотрудники". При необходимости она может быть перемещена или удалена.
e.Запрос_заказ_меню_сотрудникиTableAdapter.Fill(Me.SkladDataSet._Запрос_заказ_меню_сотрудники)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Запрос_заказ_меню_сотрудникиBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Запрос_заказ_меню_сотрудникиBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Запрос_заказ_меню_сотрудникиBindingSource.AddNew()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Запрос_заказ_меню_сотрудникиBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Запрос_заказ_меню_сотрудникиBindingSource.MoveNext()
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Запрос_заказ_меню_сотрудникиBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.Запрос_заказ_меню_сотрудникиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Form14.Show()
Me.Close()
End Sub
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Me.Close()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
Отчёт по таблице сотрудники
Public Class Form19
Private Sub Form19_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Сотрудники". При необходимости она может быть перемещена или удалена.
Me.СотрудникиTableAdapter.Fill(Me.SkladDataSet.Сотрудники)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Сотрудники Ленточная форма
Public Class Form2
Private Sub СотрудникиBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles СотрудникиBindingNavigatorSaveItem.Click
Me.Validate()
Me.СотрудникиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Должности". При необходимости она может быть перемещена или удалена.
Me.ДолжностиTableAdapter.Fill(Me.SkladDataSet.Должности)
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Сотрудники". При необходимости она может быть перемещена или удалена.
Me.СотрудникиTableAdapter.Fill(Me.SkladDataSet.Сотрудники)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
СотрудникиBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
СотрудникиBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
СотрудникиBindingSource.AddNew()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
СотрудникиBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
СотрудникиBindingSource.MoveNext()
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
СотрудникиBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.СотрудникиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Form7.Show()
Me.Close()
End Sub
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Me.Close()
End Sub
Private Sub ФИОTextBox_TextChanged(sender As Object, e As EventArgs) Handles ФИОTextBox.TextChanged
End Sub
End Class
Отчёт по таблице Должности
Public Class Form20
Private Sub Form20_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Должности". При необходимости она может быть перемещена или удалена.
Me.ДолжностиTableAdapter.Fill(Me.SkladDataSet.Должности)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Отчёт по таблице Склад
Public Class Form21
Private Sub Form21_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Склад". При необходимости она может быть перемещена или удалена.
Me.СкладTableAdapter.Fill(Me.SkladDataSet.Склад)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Отчёт по таблице Меню
Public Class Form22
Private Sub Form22_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Меню". При необходимости она может быть перемещена или удалена.
Me.МенюTableAdapter.Fill(Me.SkladDataSet.Меню)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
Отчёт по таблице Заказ
Public Class Form23
Private Sub Form23_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Заказ". При необходимости она может быть перемещена или удалена.
Me.ЗаказTableAdapter.Fill(Me.SkladDataSet.Заказ)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Отчёт по запросу Отдел кадров
Public Class Form24
Private Sub Form24_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Отдел_кадров". При необходимости она может быть перемещена или удалена.
Me.Отдел_кадровTableAdapter.Fill(Me.SkladDataSet.Отдел_кадров)
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Меню". При необходимости она может быть перемещена или удалена.
Me.МенюTableAdapter.Fill(Me.SkladDataSet.Меню)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Отчёт по запросу Меню
Public Class Form25
Private Sub Form25_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet1.Запрос_меню_склад". При необходимости она может быть перемещена или удалена.
Me.Запрос_меню_складTableAdapter.Fill(Me.SkladDataSet._Запрос_меню_склад)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Отчёт по запросу Заказ
Public Class Form26
Private Sub Form26_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Запрос_заказ_меню_сотрудники". При необходимости она может быть перемещена или удалена.
Me.Запрос_заказ_меню_сотрудникиTableAdapter.Fill(Me.SkladDataSet._Запрос_заказ_меню_сотрудники)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Диаграмма по окладам
Public Class Form28
Private Sub Form28_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
End Sub
End Class
Должности ленточная форма
Public Class Form3
Private Sub ДолжностиBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles ДолжностиBindingNavigatorSaveItem.Click
Me.Validate()
Me.ДолжностиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Должности". При необходимости она может быть перемещена или удалена.
Me.ДолжностиTableAdapter.Fill(Me.SkladDataSet.Должности)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
ДолжностиBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
ДолжностиBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
ДолжностиBindingSource.AddNew()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
ДолжностиBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
ДолжностиBindingSource.MoveNext()
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
ДолжностиBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.ДолжностиBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Me.Close()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Form8.Show()
Me.Close()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
Склад Ленточная форма
Public Class Form4
Private Sub СкладBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles СкладBindingNavigatorSaveItem.Click
Me.Validate()
Me.СкладBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Склад". При необходимости она может быть перемещена или удалена.
Me.СкладTableAdapter.Fill(Me.SkladDataSet.Склад)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
СкладBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
СкладBindingSource.MovePrevious()
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
СкладBindingSource.AddNew()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
СкладBindingSource.MoveLast()
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
СкладBindingSource.MoveNext()
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
СкладBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.СкладBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Me.Close()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Form9.Show()
Me.Close()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
Меню Ленточная форма
ublic Class Form5
Private Sub МенюBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles МенюBindingNavigatorSaveItem.Click
Me.Validate()
Me.МенюBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SkladDataSet)
End Sub
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load