Komponenty Visual Basic 2005(2)

Poniżej znajduję się procedura umożliwiająca zapis nowego produktu do bazy "Pokarm"  programu "Komponent1".  Ażeby móc dopisać tę procedurę, należy kliknąć dwa razy w okienko "Zapis".

W procedurze należy dopisać kod.

Private Sub Zapis_Click(ByVal  sender As System.Object, ByVal e As System.EventArgs)  Handles btnZapis.Click

    'Zapisanie nowego produktu do bazy

If txtNazwa.Text  = "" Or txtEnz.Text  = "" Then        ' Przypadek braku wpisu danych

     MessageBox.Show("Wpisz dane produktu!", "Uwaga")

     Exit Sub

End If

msg = "Czy na pewno chcesz wpisać ten produkt do bazy?"

tyt = "Zapis!"

styl  = MsgBoxStyle.DefaultButton2 Or _

           MsgBoxStyle.Critical  Or _

           MsgBoxStyle.YesNo

res = MsgBox(msg, styl, tyt)

If res = MsgBoxResult.No Then                    ' Jeśli nie chcesz wpisać.

         txtNazwa.Text  = "": txtEnz.Text = ""            ' usunięcie wpisu

Else                                                                              ' Jeśli chcesz wpisać

        FileOpen(1, "Pokarm", OpenMode.Append)        'Otwarcie bazy

        Write(1, txtNazwa.Text, txtEnz.Text)                    ' Zapis 

        FileClose(1)                                                             ' Zamknięcie pliku

End If                                                                               ' Zamknięcie If  res

txtNazwa.Text  = "" : txtEnz.Text  = ""                       

Odczyt()                                                                          ' Powrót do wyświetlenia 

                                                                                        zawartości tabeli

End Sub