'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
Form10.Show()
Me.Close()
End Sub
Private Sub Наименование_блюдаLabel_Click(sender As Object, e As EventArgs)
End Sub
End Class
Заказ Ленточная форма
Public Class Form6
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 Form6_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
Form11.Show()
Me.Close()
End Sub
Private Sub ФИО_заказчикаLabel1_Click(sender As Object, e As EventArgs)
End Sub
End Class
Таблица Сотрудники
Public Class Form7
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 Form7_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
Dim Col As System.Windows.Forms.DataGridViewColumn
Select Case ListBox1.SelectedIndex
Case 0
Col = DataGridViewTextBoxColumn2
Case 1
Col = DataGridViewTextBoxColumn3
Case 2
Col = DataGridViewTextBoxColumn4
Case 3
Col = DataGridViewTextBoxColumn5
Case 4
Col = DataGridViewTextBoxColumn6
Case 5
Col = DataGridViewTextBoxColumn8
End Select
If RadioButton1.Checked Then
СотрудникиDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)
Else
СотрудникиDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
СотрудникиBindingSource.Filter = "ФИО='" & ComboBox1.Text & "'"
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
СотрудникиBindingSource.Filter = ""
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
For i = 0 To СотрудникиDataGridView.ColumnCount - 1
For j = 0 To СотрудникиDataGridView.RowCount - 1
СотрудникиDataGridView.Item(i, j).Style.BackColor = Color.White
СотрудникиDataGridView.Item(i, j).Style.ForeColor = Color.Black
Next j
Next i
For i = 0 To СотрудникиDataGridView.ColumnCount - 1
For j = 0 To СотрудникиDataGridView.RowCount - 1
If InStr(СотрудникиDataGridView.Item(i, j).Value, TextBox1.Text) Then
СотрудникиDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue
СотрудникиDataGridView.Item(i, j).Style.ForeColor = Color.Blue
End If
Next j
Next i
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Me.Close()
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Button1.Enabled = True
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Form2.Show()
Me.Close()
End Sub
Private Sub СотрудникиBindingNavigator_RefreshItems(sender As Object, e As EventArgs) Handles СотрудникиBindingNavigator.RefreshItems
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
Таблица Должности
Public Class Form8
Private Sub Form8_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
Dim Col As System.Windows.Forms.DataGridViewColumn
Select Case ListBox1.SelectedIndex
Case 0
Col = DataGridViewTextBoxColumn2
Case 1
Col = DataGridViewTextBoxColumn3
Case 2
Col = DataGridViewTextBoxColumn4
Case 3
Col = DataGridViewTextBoxColumn5
End Select
If RadioButton1.Checked Then
ДолжностиDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)
Else
ДолжностиDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
ДолжностиBindingSource.Filter = "Наименование ='" & ComboBox1.Text & "'"
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
ДолжностиBindingSource.Filter = ""
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
For i = 0 To ДолжностиDataGridView.ColumnCount - 1
For j = 0 To ДолжностиDataGridView.RowCount - 1
ДолжностиDataGridView.Item(i, j).Style.BackColor = Color.White
ДолжностиDataGridView.Item(i, j).Style.ForeColor = Color.Black
Next j
Next i
For i = 0 To ДолжностиDataGridView.ColumnCount - 1
For j = 0 To ДолжностиDataGridView.RowCount - 1
If InStr(ДолжностиDataGridView.Item(i, j).Value, TextBox1.Text) Then
ДолжностиDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue
ДолжностиDataGridView.Item(i, j).Style.ForeColor = Color.Blue
End If
Next j
Next i
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Me.Close()
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Button1.Enabled = True
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Form3.Show()
Me.Close()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
Таблица Склад
Public Class Form9
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 Form9_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
Dim Col As System.Windows.Forms.DataGridViewColumn
Select Case ListBox1.SelectedIndex
Case 0
Col = DataGridViewTextBoxColumn2
Case 1
Col = DataGridViewTextBoxColumn3
Case 2
Col = DataGridViewTextBoxColumn4
Case 3
Col = DataGridViewTextBoxColumn5
Case 4
Col = DataGridViewTextBoxColumn6
Case 5
Col = DataGridViewTextBoxColumn7
End Select
If RadioButton1.Checked Then
СкладDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)
Else
СкладDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
СкладBindingSource.Filter = "Поставщик='" & ComboBox1.Text & "'"
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
СкладBindingSource.Filter = ""
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
For i = 0 To СкладDataGridView.ColumnCount - 1
For j = 0 To СкладDataGridView.RowCount - 1
СкладDataGridView.Item(i, j).Style.BackColor = Color.White
СкладDataGridView.Item(i, j).Style.ForeColor = Color.Black
Next j
Next i
For i = 0 To СкладDataGridView.ColumnCount - 1
For j = 0 To СкладDataGridView.RowCount - 1
If InStr(СкладDataGridView.Item(i, j).Value, TextBox1.Text) Then
СкладDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue
СкладDataGridView.Item(i, j).Style.ForeColor = Color.Blue
End If
Next j
Next i
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Me.Close()
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Button1.Enabled = True
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Form4.Show()
Me.Close()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class
О программе
Public NotInheritable Class AboutBox1
Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Установить заголовок формы.
Dim ApplicationTitle As String
If My.Application.Info.Title <> "" Then
ApplicationTitle = My.Application.Info.Title
Else
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
Me.Text = String.Format("О программе {0}", ApplicationTitle)
' Инициализировать текст, отображаемый в окне "О программе".
' TODO: настроить сведения о сборке приложения в области "Приложение" диалогового окна
' свойств проекта (в меню "Проект").
Me.LabelProductName.Text = My.Application.Info.ProductName
Me.LabelVersion.Text = String.Format("Версия {0}", My.Application.Info.Version.ToString)
Me.LabelCopyright.Text = My.Application.Info.Copyright
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
Me.TextBoxDescription.Text = My.Application.Info.Description
End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
Me.Close()
End Sub
End Class
Модуль
Module Module1
Public spec1 As String
End Module