Разработка информационной подсистемы "Склад" ООО "Минтком"

Листинг программы (фрагмент)

Public Class Form_Главная

#Region "Определение функций"

Function Добавить()

'добавляет запись с указанными атрибутами в таблицу "Товары"

If CheckBox_Склад.Checked Then

'проверяет выбран ли флажок "на складе"

Сотрудник = "Товар на складе"

Else

Сотрудник = ComboBox_Сотрудник.Text

End If

Me.ТоварыTableAdapter.Insert(ComboBox_Класс.Text, ComboBox_Тип.Text, TextBox_Наимен.Text, ComboBox_Производ.Text, TextBox_Покупка.Text, Сотрудник, ComboBox_Поставщик.Text)

ТоварыTableAdapter.Fill(InfoBaseDataSet.Товары)

Return ""

End Function

Function Удалить()

'удалить выделенную запись из таблицы "Товары"

ТоварыBindingSource.Remove(ТоварыBindingSource.Current)

Me.Validate()

Me.ТоварыBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.InfoBaseDataSet)

ТоварыTableAdapter.Fill(InfoBaseDataSet.Товары)

Return ""

End Function

Function Очистить()

'Очистить поля ввода информации

TextBox_Покупка.Text= ""

ComboBox_Сотрудник.Text = ""

Numeric_Колличество.Value= 1

CheckBox_Склад.Checked = True

Return ""

End Function

#End Region

#Region "Переменные главной формы"

Dim Права As String

'определяет права пользователя системы (пользователь или администратор)

Dim Сотрудник As String

#End Region

#Region "Текст Studio"

Private Sub Form_Главная_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Me.ПоставщикиTableAdapter.Fill(Me.InfoBaseDataSet.Поставщики)

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

Me.СП_ТипыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Типы)

Me.СП_КлассыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Классы)

Me.ТоварыTableAdapter.Fill(Me.InfoBaseDataSet.Товары)

Me.СП_ПроизводителиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Производители)

Me.СП_ДолжностиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Должности)

End Sub

Private Sub Form_Главная_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.ПоставщикиTableAdapter.Fill(Me.InfoBaseDataSet.Поставщики)

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

Me.СП_ТипыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Типы)

Me.СП_КлассыTableAdapter.Fill(Me.InfoBaseDataSet.СП_Классы)

Me.ТоварыTableAdapter.Fill(Me.InfoBaseDataSet.Товары)

Me.СП_ПроизводителиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Производители)

Me.СП_ДолжностиTableAdapter.Fill(Me.InfoBaseDataSet.СП_Должности)

End Sub

#End Region

#Region "Главное меню"

Private Sub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click

Form_О_программе.ShowDialog()

End Sub

Private Sub КлассыТоваровToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КлассыТоваровToolStripMenuItem.Click

Label_Передача.Text = "Товары"

Form_Справочники.ShowDialog()

End Sub

Private Sub ПроизводителиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПроизводителиToolStripMenuItem.Click

Label_Передача.Text = "Производители"

Form_Справочники.ShowDialog()

End Sub

Private Sub ДолжностиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ДолжностиToolStripMenuItem.Click

Label_Передача.Text = "Должности"

Form_Справочники.ShowDialog()

End Sub

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

Me.Close()

End Sub

Private Sub СотрудникиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СотрудникиToolStripMenuItem.Click

Form_Сотрудники.ShowDialog()

End Sub

Private Sub ПоставщикиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПоставщикиToolStripMenuItem.Click

Form_Поставщики.ShowDialog()

End Sub

Private Sub ПользователиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПользователиToolStripMenuItem.Click

If Label_Права.Text = "Администратор" Then

Form_Пользователи.ShowDialog()

Else

MessageBox.Show("Недостаточный уровень доступа! Отказано в доступе.", "Внимание!")

End If

End Sub

#End Region

#Region "Вкладка ПРОСМОТР"

Private Sub CheckBox_Класс_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Класс.CheckedChanged

СП_КлассыComboBox.Enabled = CheckBox_Класс.Checked

End Sub

Private Sub CheckBox_Тип_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Тип.CheckedChanged

СП_ТипыComboBox.Enabled = CheckBox_Тип.Checked

End Sub

Private Sub CheckBox_Производитель_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Производитель.CheckedChanged

СП_ПроизводителиComboBox.Enabled = CheckBox_Производитель.Checked

End Sub

Private Sub RadioButton_Фамилия_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton_Фамилия.CheckedChanged

ФамилияComboBox.Enabled = RadioButton_Фамилия.Checked

End Sub

Private Sub Button_Фильтр_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Фильтр.Click

'фильтрация объектов по заданным критериям

Dim Условия_фильтра As String = ""

Dim Фамилия As String= ""

If RadioButton_Фамилия.Checked Then

Фамилия = ФамилияComboBox.Text

ElseIf RadioButton_Свободные.Checked Then

Фамилия = "Товар на складе"

Else

Фамилия = ""

End If

If Фамилия <> "" Then

Условия_фильтра = "Сотрудник" + " LIKE '%" + Фамилия + "%'"

If CheckBox_Класс.Checked Or CheckBox_Тип.Checked Or CheckBox_Производитель.Checked Then

Условия_фильтра = Условия_фильтра + " AND "

End If

End If

If CheckBox_Класс.Checked Then

Условия_фильтра = Условия_фильтра + "Класс" + " LIKE '%" + СП_КлассыComboBox.Text + "%'"

If CheckBox_Тип.Checked Or CheckBox_Производитель.Checked Then

Условия_фильтра = Условия_фильтра + " AND "

End If

End If

If CheckBox_Тип.Checked Then

Условия_фильтра = Условия_фильтра + "Тип" + " LIKE '%" + СП_ТипыComboBox.Text + "%'"

If CheckBox_Производитель.Checked Then

Условия_фильтра = Условия_фильтра + " AND "

End If

End If

If CheckBox_Производитель.Checked Then

Условия_фильтра = Условия_фильтра + "Производитель" + " LIKE '%" + СП_ПроизводителиComboBox.Text + "%'"

End If

ТоварыBindingSource.Filter() = Условия_фильтра

End Sub

Private Sub Button_Отобразить_все_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Отобразить_все.Click

ТоварыBindingSource.Filter() = ""

CheckBox_Класс.Checked = False

CheckBox_Тип.Checked = False

CheckBox_Производитель.Checked = False

RadioButton_Показать_все.Checked = True

End Sub

Private Sub Button_Отчет_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Отчет.Click

Dim КолСтрок As Int16 = 1

Dim Колличество As Int16 = 1

Dim Поз_результата As Int16 = 0

Dim Совпадение As Byte = False

КолСтрок = ТоварыDataGridView.RowCount - 1

ТоварыBindingSource.Sort = "Наименование"

Form_Отчеты.Show()

'Добавить первую запись из таблицы в список

Form_Отчеты.ListBox1.Items.Insert(0, ТоварыDataGridView.Item(2, 0).Value())

For index = 1 To КолСтрок - 1

'перебор всех строк таблицы

Совпадение = False

For Ном_лист = 0 To Form_Отчеты.ListBox1.Items.Count - 1

'перебор всех строк списка, подсчет совпадений

If Form_Отчеты.ListBox1.Items.Item(Ном_лист) = ТоварыDataGridView.Item(2, index).Value() Then

Совпадение = True

Колличество = Колличество + 1

End If

Next

If index = КолСтрок - 1 Then

'просматривается последний элемент списка

Form_Отчеты.ListBox1.Items.Insert(0, ТоварыDataGridView.Item(2, index).Value())

Поз_результата = Form_Отчеты.ListBox1.Items.Count - 2

Form_Отчеты.DataGridView_Результат.RowCount = Form_Отчеты.DataGridView_Результат.RowCount + 1

Form_Отчеты.DataGridView_Результат.Item(0, Поз_результата).Value = ТоварыDataGridView.Item(0, index).Value()

Form_Отчеты.DataGridView_Результат.Item(1, Поз_результата).Value = ТоварыDataGridView.Item(1, index).Value()

Form_Отчеты.DataGridView_Результат.Item(2, Поз_результата).Value = ТоварыDataGridView.Item(2, index).Value()

Form_Отчеты.DataGridView_Результат.Item(3, Поз_результата).Value = ТоварыDataGridView.Item(3, index).Value()

Form_Отчеты.DataGridView_Результат.Item(4, Поз_результата).Value = Колличество

Form_Отчеты.DataGridView_Результат.EndEdit()

Колличество = 1

End If

If Совпадение = False Then

Form_Отчеты.ListBox1.Items.Insert(0, ТоварыDataGridView.Item(2, index).Value())

Поз_результата = Form_Отчеты.ListBox1.Items.Count - 2

Form_Отчеты.DataGridView_Результат.RowCount = Form_Отчеты.DataGridView_Результат.RowCount + 1

Form_Отчеты.DataGridView_Результат.Item(0, Поз_результата).Value = ТоварыDataGridView.Item(0, index - 1).Value()

Form_Отчеты.DataGridView_Результат.Item(1, Поз_результата).Value = ТоварыDataGridView.Item(1, index - 1).Value()

Form_Отчеты.DataGridView_Результат.Item(2, Поз_результата).Value = ТоварыDataGridView.Item(2, index - 1).Value()

Form_Отчеты.DataGridView_Результат.Item(3, Поз_результата).Value = ТоварыDataGridView.Item(3, index - 1).Value()

Form_Отчеты.DataGridView_Результат.Item(4, Поз_результата).Value = Колличество

Form_Отчеты.DataGridView_Результат.EndEdit()

Колличество = 1

End If

Next

End Sub

#End Region

#Region "Вкладка УПРАВЛЕНИЕ"

Private Sub СменитьПользователяToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СменитьПользователяToolStripMenuItem.Click

Form_Вход.Show()

Me.Close()

End Sub

Private Sub Button_Закрыть_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Close()

End Sub

Private Sub Button_Справочники_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Form_Справочники.ShowDialog()

End Sub

Private Sub Button_Сотрудники_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Form_Сотрудники.ShowDialog()

End Sub

#End Region

#Region "Вкладка ДОБАВИТЬ"

Private Sub Button_Товар_добавить_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Добавить.Click

For index = 1 To Numeric_Колличество.Value

Добавить()

Next

Очистить()

End Sub

Private Sub Button_Удалить_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Удалить.Click

If MessageBox.Show("Вы действительно хотите удалить запись?", "Внимание!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = vbYes Then

Удалить()

End If

End Sub

Private Sub Button_Сохранить_изменения_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Сохранить_изменения.Click

If MessageBox.Show("Заменить текущую запись?", "Внимание!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = vbYes Then

Удалить()

Добавить()

Очистить()

End If

End Sub

Private Sub CheckBox_Склад_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_Склад.CheckedChanged

ComboBox_Сотрудник.Enabled = Not CheckBox_Склад.Checked

End Sub

Private Sub Button_Изменить_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Изменить.Click

ComboBox_Класс.Text = ТоварыDataGridView.Item(0, ТоварыBindingSource.Position).Value()

ComboBox_Тип.Text = ТоварыDataGridView.Item(1, ТоварыBindingSource.Position).Value()

TextBox_Наимен.Text = ТоварыDataGridView.Item(2, ТоварыBindingSource.Position).Value()

ComboBox_Производ.Text = ТоварыDataGridView.Item(3, ТоварыBindingSource.Position).Value()

ComboBox_Поставщик.Text = ТоварыDataGridView.Item(4, ТоварыBindingSource.Position).Value()

TextBox_Покупка.Text = ТоварыDataGridView.Item(5, ТоварыBindingSource.Position).Value()

ComboBox_Сотрудник.Text = ТоварыDataGridView.Item(6, ТоварыBindingSource.Position).Value()

End Sub

#End Region

End Class

Размещено на Allbest.ru