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