Курсовая работа: Разработка базы данных Beluga по технологии клиент-сервер

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 = DataGridViewTextBoxColumn13

Case 4

Col = DataGridViewTextBoxColumn14

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

МенюBindingSource1.Filter = "Наименование блюда ='" & ComboBox1.Text & "'"

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

МенюBindingSource1.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

Form5.Show()

Me.Close()

End Sub

Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

End Sub

End Class

Таблица заказ

ublic Class Form11

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 Form11_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Должности". При необходимости она может быть перемещена или удалена.

Me.ДолжностиTableAdapter.Fill(Me.SkladDataSet.Должности)

'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Сотрудники". При необходимости она может быть перемещена или удалена.

Me.СотрудникиTableAdapter.Fill(Me.SkladDataSet.Сотрудники)

'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Склад". При необходимости она может быть перемещена или удалена.

Me.СкладTableAdapter.Fill(Me.SkladDataSet.Склад)

'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 = DataGridViewTextBoxColumn1

Case 1

Col = DataGridViewTextBoxColumn2

Case 2

Col = DataGridViewTextBoxColumn4

Case 3

Col = DataGridViewTextBoxColumn5

Case 4

Col = DataGridViewTextBoxColumn10

Case 5

Col = DataGridViewTextBoxColumn11

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

Form6.Show()

Me.Close()

End Sub

Private Sub ЗаказDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles ЗаказDataGridView.CellContentClick

End Sub

End Class

Запрос Отдел кадров

Public Class Form12

Private Sub Form12_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Отдел_кадров". При необходимости она может быть перемещена или удалена.

Me.Отдел_кадровTableAdapter.Fill(Me.SkladDataSet.Отдел_кадров)

'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 = DataGridViewTextBoxColumn1

Case 1

Col = DataGridViewTextBoxColumn2

Case 2

Col = DataGridViewTextBoxColumn4

Case 3

Col = DataGridViewTextBoxColumn6

Case 4

Col = DataGridViewTextBoxColumn7

Case 5

Col = DataGridViewTextBoxColumn8

Case 6

Col = DataGridViewTextBoxColumn9

Case 7

Col = DataGridViewTextBoxColumn10

Case 8

Col = DataGridViewTextBoxColumn11

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

Me.Close()

End Sub

Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

End Sub

End Class

Поставщики Табличный вид

blic Class Form13

Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet1._Запрос_меню_склад". При необходимости она может быть перемещена или удалена.

Me.Запрос_меню_складTableAdapter1.Fill(Me.SkladDataSet1._Запрос_меню_склад)

'TODO: данная строка кода позволяет загрузить данные в таблицу "SkladDataSet.Склад". При необходимости она может быть перемещена или удалена.

Me.СкладTableAdapter.Fill(Me.SkladDataSet.Склад)

'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 = DataGridViewTextBoxColumn1

Case 1

Col = DataGridViewTextBoxColumn2

Case 2

Col = DataGridViewTextBoxColumn4

Case 3

Col = DataGridViewTextBoxColumn5

Case 4

Col = DataGridViewTextBoxColumn6

Case 5

Col = DataGridViewTextBoxColumn7

Case 6

Col = DataGridViewTextBoxColumn8

Case 7

Col = DataGridViewTextBoxColumn9

Case 8

Col = DataGridViewTextBoxColumn10

Case 9

Col = DataGridViewTextBoxColumn11

Case 10

Col = DataGridViewTextBoxColumn12

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

Запрос_меню_складBindingSource1.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

Me.Close()

End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

End Class

Запрос Заказ Табличный вид

Public Class Form14

Private Sub Form14_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 = DataGridViewTextBoxColumn1

Case 1

Col = DataGridViewTextBoxColumn2

Case 2

Col = DataGridViewTextBoxColumn4

Case 3

Col = DataGridViewTextBoxColumn5

Case 4

Col = DataGridViewTextBoxColumn6

Case 5

Col = DataGridViewTextBoxColumn7

Case 6

Col = DataGridViewTextBoxColumn8

Case 7

Col = DataGridViewTextBoxColumn9

Case 8

Col = DataGridViewTextBoxColumn10

Case 9

Col = DataGridViewTextBoxColumn11

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

Me.Close()

End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

End Class

Фильтр по выполненным заказам

Public Class Form15

Private Sub Form15_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 FillToolStripButton_Click(sender As Object, e As EventArgs) Handles FillToolStripButton.Click

Button1.Enabled = True

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

Try

Me.VipolnenTableAdapter.Fill(Me.SkladDataSet.vipolnen, spec1)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Me.Close()

End Sub

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

Try

Me.VipolnenTableAdapter.Fill(Me.SkladDataSet.vipolnen, ComboBox1.Text)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

Timer1.Enabled = True

Timer1.Enabled = False

VipToolStripTextBox.Text = ComboBox1.Text

End Sub

End Class

Запрос отдел кадров Леноточный вид