Разработка информационной системы для склада точки быстрого питания
47

        Повреждение = ListView1.SelectedItems.Item(0).SubItems.Item(2).Text

        Материал = ListView1.SelectedItems.Item(0).SubItems.Item(3).Text

        Цвет = ListView1.SelectedItems.Item(0).SubItems.Item(4).Text

        Стоимость = ListView1.SelectedItems.Item(0).SubItems.Item(5).Text

        Услуга = ListView1.SelectedItems.Item(0).SubItems.Item(6).Text

        Изделие = Наименование & " - " & Повреждение & " - " & Материал & " - " & Цвет & " - " & Стоимость & " - " & Услуга

        Form5.Text = "Отчет по: " & Изделие

        Form5.Show()

    End Sub

 

    Private Sub ТToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ТToolStripMenuItem.Click

        ID = ListView1.SelectedItems.Item(0).Text

        Наименование = ListView1.SelectedItems.Item(0).SubItems.Item(1).Text

        Повреждение = ListView1.SelectedItems.Item(0).SubItems.Item(2).Text

        Материал = ListView1.SelectedItems.Item(0).SubItems.Item(3).Text

        Цвет = ListView1.SelectedItems.Item(0).SubItems.Item(4).Text

        Стоимость = ListView1.SelectedItems.Item(0).SubItems.Item(5).Text

        Услуга = ListView1.SelectedItems.Item(0).SubItems.Item(6).Text

        Изделие = Наименование & " - " & Повреждение & " - " & Материал & " - " & Цвет & " - " & Стоимость & " - " & Услуга

        Form6.Text = "Отчет текущий по: " & Изделие

        Form6.Show()

    End Sub

 

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

        End

    End Sub

 

    Private Sub ОбновитьToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОбновитьToolStripMenuItem.Click

        Timer1.Enabled = True

    End Sub

 

    Private Sub ОбновитьToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ОбновитьToolStripMenuItem1.Click

        ОбновитьToolStripMenuItem_Click(Me, New EventArgs)

    End Sub

 

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

        Form7.Show()

        Form7.Text = "О программе"

    End Sub

 

    Private Sub ОАвтореToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ОАвтореToolStripMenuItem.Click

        Form8.Show()

        Form8.Text = "Об авторе"

    End Sub