Imports DateSetBsp.DataSet1
Imports System.IO
 
Public Class frmKundenBearbeiten
 
   Private _kundendaten As New FileInfo("Kundendaten.xml")
 
   Private Sub frmKundenBearbeiten_Load(sender As Object, e As EventArgs) _
     Handles MyBase.Load
      Me.AlignOnTop()
      DataSet1.DataFile(_kundendaten.FullName).Register(Me, True).Fill()
   End Sub
 
   Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As _
     EventArgs) Handles SpeichernToolStripMenuItem.Click
      DataSet1.Save(Me)
   End Sub
 
   Private Sub KundeTelToolStripMenuItem_Click(sender As Object, e As _
     EventArgs) Handles KundeTelToolStripMenuItem.Click
      Dim s = Microsoft.VisualBasic.InputBox("Kundennr eingeben")
      If s = "" Then Return
      Dim ID = Integer.Parse(s)
      KundeBindingSource.MoveTo(ID)
      Dim gefundenerKunde = DataSet1.Kunde.FindByKundennummer(ID)
      MessageBox.Show(gefundenerKunde.Telefon)
   End Sub
End Class

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 23.06.14 um 19:13:05 editiert.