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

Form2

Public Class Form2

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

        Close()

    End Sub

 

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

        If Me.Text = "Редактирование записи" Then

            TextBox1.Text = Наименование

            TextBox2.Text = Повреждение

            ComboBox3.Text = Материал

            TextBox4.Text = Цвет

            TextBox5.Text = Стоимость

            ComboBox1.Text = Услуга

            ComboBox2.Text = Наличие

        End If

    End Sub

 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        If Me.Text = "Добавление записи" Then

            If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then

                MessageBox.Show("Не все строки заполненны!!!")

            Else

                Наименование = TextBox1.Text

                Повреждение = TextBox2.Text

                Материал = ComboBox3.Text

                Цвет = TextBox4.Text

                Стоимость = TextBox5.Text

                Услуга = ComboBox1.Text

                Наличие = ComboBox2.Text

                Form1.Dobavlenie_zap()

                Me.Close()

            End If

        Else

            Наименование = TextBox1.Text

            Повреждение = TextBox2.Text

            Материал = ComboBox3.Text

            Цвет = TextBox4.Text

            Стоимость = TextBox5.Text

            Услуга = ComboBox1.Text

            Наличие = ComboBox2.Text

            Form1.Editor_zap()

            Me.Close()

        End If

    End Sub

End Class

Form3

Imports System.Data