Проектирование информационной системы «Заказ»

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 4

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub 

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 5

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub 

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 6

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub 

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        DataGridView1.Rows(0).Cells(1).Value = "-"

        DataGridView1.Rows(0).Cells(2).Value = "-"

        DataGridView1.Rows(0).Cells(3).Value = "0"

        DataGridView1.Rows(0).Cells(4).Value = "0"

        DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

        Label2.Text = 7

        Dim i As Integer

        For i = 1 To скрыт.Text

            If DataGridView1.Rows(i).Cells(4).Value = Label2.Text Then

                DataGridView1.Rows(i).Visible = True

            Else

                DataGridView1.Rows(i).Visible = False

            End If

        Next

    End Sub 

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        DataGridView1.Rows(0).Cells(1).Value = Label3.Text

        DataGridView1.Rows(0).Cells(2).Value = Label4.Text

        DataGridView1.Rows(0).Cells(3).Value = Label5.Text

        DataGridView1.Rows(0).Cells(4).Value = Label6.Text

        Dim i As Integer

        For i = 1 To скрыт.Text

            DataGridView1.Rows(i).Visible = True

        Next

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        TextBox1.Text = DataGridView1.CurrentCell.RowIndex

        TextBox2.Text = DataGridView1.Rows(TextBox1.Text).Cells(1).Value

        TextBox5.Text = DataGridView1.Rows(TextBox1.Text).Cells(2).Value

        TextBox4.Text = DataGridView1.Rows(TextBox1.Text).Cells(3).Value

        TextBox1.Text = TextBox1.Text + 1

        If TextBox2.Text <> "" Then

            Button10.Enabled = True

        End If

    End Sub 

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Button12.Enabled = True

        Button11.Enabled = True

        ListBox1.Items.Add(TextBox2.Text)

        ListBox2.Items.Add(TextBox4.Text)

        Dim n, s, sum As Integer

        n = ListBox2.Items.Count

        For i = 0 To n - 1

            s = ListBox2.Items(i)

            sum = sum + s

        Next i

        Label10.Text = sum

    End Sub 

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Form2.Show()

        Dim n, s, sum As Integer

        n = ListBox2.Items.Count

        For i = 0 To n - 1

            s = ListBox2.Items(i)

            sum = sum + s

            Form2.ListBox1.Items.Add(ListBox1.Items(i))

            Form2.ListBox2.Items.Add(ListBox2.Items(i))

        Next i

        Form2.Label5.Text = sum

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        Button12.Enabled = False

        Button11.Enabled = False

        Button10.Enabled = False

        TextBox1.Text = ""