Imports System
Imports System.Data
Imports System.Windows.Forms



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If NuovoDataSetUtil.DesignerUtil.IsRunTime Then
            'TODO: eliminare questa riga di codice per rimuovere la proprietà AutoFill predefinita per 'NuovoDataSet.RFID'.
            Me.RFIDTableAdapter.Fill(Me.NuovoDataSet.RFID)
        End If

    End Sub


    Private Sub NewMenuItemMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewMenuItemMenuItem.Click
        RFIDBindingSource.AddNew()
        Dim rfidEditViewDialog As scrivi_su_db.RFIDEditViewDialog = scrivi_su_db.RFIDEditViewDialog.Instance(Me.RFIDBindingSource)
        rfidEditViewDialog.ShowDialog()

    End Sub

    Private Sub RFIDDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RFIDDataGrid.Click
        Dim rfidSummaryViewDialog As scrivi_su_db.RFIDSummaryViewDialog = scrivi_su_db.RFIDSummaryViewDialog.Instance(Me.RFIDBindingSource)
        rfidSummaryViewDialog.ShowDialog()

    End Sub

    Private Sub Salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salva.Click
        Me.RFIDBindingSource.EndEdit()
        Me.RFIDTableAdapter.Update(Me.NuovoDataSet.RFID)
        NuovoDataSet.AcceptChanges()
    End Sub

    Private Sub Esci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Esci.Click
        Close()
    End Sub
End Class