Разработка базы данных Beluga по технологии клиент-сервер
Синтез теоретических основ автоматизации учета продаж товаров. Рассмотрение сути разработки базы данных. Анализ сценария работы программы. Применение знаний языка SQL, на котором написаны запросы к базе данных, которые иллюстрируют ее работоспособность.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 23.12.2019 |
| Размер файла | 1,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Запрос_заказ_меню_сотрудники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
'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
Размещено на Allbest.ru
Подобные документы
Рассмотрение вопроса автоматизации работы служб гостиницы. Разработка базы данных для работы с клиентами. Характеристика языка структурированных запросов SQL и его разновидности. Описание таблицы программы, ключей и диаграммы составленной базы данных.
курсовая работа [1,6 M], добавлен 27.05.2014Инструментальные средства для разработки структуры информационной базы данных "Программа автоматизации учета расчетов с поставщиками", пользовательский интерфейс СУБД Access. Разработка запросов отбора данных и вычислений, экранных форм коррекции данных.
лабораторная работа [2,4 M], добавлен 15.11.2010Разработка базы данных "Поставка и реализация продуктов питания". Применение базы данных. Цель инфологического проектирования. Выборка информации при помощи запросов. Подпрограммы, работающие на сервере и управляющие процессами обработки информации.
курсовая работа [326,0 K], добавлен 28.06.2011Разработка приложения, которое содержит информацию о гостях, о номерах, об оплате с целью автоматизации процесса регистрации в гостинице. Проектирование базы данных по технологии "Клиент-сервер". Специфика разработки пользовательского интерфейса.
курсовая работа [1,5 M], добавлен 29.12.2013Функциональная модель системы. Проектирование схемы базы данных. Проектирование архитектуры системы. Принцип технологии клиент-сервер. Построение схемы ресурсов. Выбор программных средств. Разработка базы данных с использованием Microsoft SQL Server.
дипломная работа [1,1 M], добавлен 30.03.2015Исследование свойств системы управления базами данных Firebird. Разработка базы данных для автоматизации учета товарно-материальных ценностей. Изучение главных сущностей и атрибутов, присутствующих в данной базе данных. Построение связей между сущностями.
курсовая работа [832,8 K], добавлен 23.02.2014Цель создания базы данных магазина. Понятие и сущность инфологического моделирования, его применение. Особенности разработки базы данных, создание таблиц, схемы данных, запросов, визуальных и печатных форм. Описание процесса работы с базами данных.
курсовая работа [1,9 M], добавлен 15.11.2013Система управление базами данных, реляционная модель. Принципы взаимодействия между клиентскими и серверными частями. Трехуровневая модель технологии "клиент-сервер". Фрактальные методы сжатия больших объемов данных. Анализ концепции хранилища данных.
курс лекций [265,0 K], добавлен 05.06.2009Концептуальная модель базы данных "Бюро по трудоустройству". Разработка информационного и программного обеспечения объектов автоматизации. Реализация базы данных в СУБД MsAccess. Запросы к базе данных. Таблицы, отчеты и макросы. Интерфейс пользователя.
курсовая работа [5,2 M], добавлен 30.05.2016Исследование технологии проектирования базы данных. Локальные и удаленные базы данных. Архитектуры и типы сетей. Программная разработка информационной структуры предметной области. Обоснование выбора архитектуры "клиент-сервер" и операционной системы.
дипломная работа [1,1 M], добавлен 15.02.2017
