'Verweis Microsoft.VisualBasic entfernt
Option Strict On
Option Explicit On
 
Imports System.IO
Imports System.Reflection
Imports DateSetBsp.DataSet1
 
Public Class Form1
 
    Private _kundendaten As New FileInfo("Kundendaten.xml")
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Bildschirm As Screen = Screen.PrimaryScreen
        Location = New Point(Bildschirm.Bounds.Left + (Bildschirm.Bounds.Width _
          - Width) \ 2, Bildschirm.Bounds.Top)
        KundendatenLaden()
    End Sub
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) _
      Handles Me.FormClosing
        If _kundendaten.Exists Then
            _kundendaten.Delete()
        End If
        Me.DataSet1.WriteXml(_kundendaten.FullName)
    End Sub
 
    Public Sub KundendatenLaden()
        If _kundendaten.Exists Then
            Me.DataSet1.ReadXml(_kundendaten.FullName)
        Else
            MessageBox.Show("Ich finde dein XML File nicht")
        End If
    End Sub
 
    'Button für die letzte Bestellung
    Private Sub cmdLstBstSenden_Click(sender As Object, e As EventArgs) Handles _
      cmdLstBstSenden.Click
        'Dim KundenBestellung As New Class1
        'Dim rueckgabe() = KundenBestellung.LetzteBestellungFinden()
        Dim rwKunde = DataSet1.Kunde.First
        Dim test = GetLastOrder(rwKunde)
    End Sub
 
    Private Function GetLastOrder(rwKunde As KundeRow) As DetailsBestellungRow
        Return (From rwBest In rwKunde.GetDetailsBestellungRows Order By _
          rwBest.Datum).Last
    End Function
End Class

'Button für die letzte Bestellung
    Private Sub cmdLstBstSenden_Click(sender As Object, e As EventArgs) Handles _
      cmdLstBstSenden.Click
        'Dim KundenBestellung As New Class1
        'Dim rueckgabe() = KundenBestellung.LetzteBestellungFinden()
 
        Dim rwKunde = DataSet1.Kunde.First
        Dim test = GetLastOrder(rwKunde)
 
        'Führt das zu Bauchschmerzen?
        Dim kundenNameUndBestellnummer() = {rwKunde.Name.ToString, _
          test.Bestellnummer.ToString}
 
    End Sub
 
    Private Function GetLastOrder(rwKunde As KundeRow) As DetailsBestellungRow
        Return (From rwBest In rwKunde.GetDetailsBestellungRows Order By _
          rwBest.Datum).Last
    End Function