'Verweis Microsoft.VisualBasic entfernt
Option Strict On
Option Explicit On
 
Imports System.IO
Imports System.Reflection
Imports System.Math
 
Public Class Form1
 
    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)
    End Sub
 
    Private Sub KundenEingebenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles KundenEingebenToolStripMenuItem.Click
        Dim KundenBearbeiten As New frmKundenBearbeiten
        If KundenBearbeiten Is Nothing OrElse frmKundenBearbeiten.IsDisposed _
          Then
            KundenBearbeiten = New frmKundenBearbeiten
        End If
        If Not KundenBearbeiten.Visible Then
            KundenBearbeiten.Show(Me)
        End If
        If KundenBearbeiten.WindowState = FormWindowState.Minimized Then
            KundenBearbeiten.WindowState = FormWindowState.Normal
        End If
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub
 
 
    Private Sub cmdFindPhoneNr_Click(sender As Object, e As EventArgs) Handles _
      cmdFindPhoneNr.Click
        Dim FindeDenKunden As New frmKundenBearbeiten
        Dim Eingabe As Integer
        Try
            Eingabe = Convert.ToInt32(txtFrmMainKundennummer.Text)
        Catch ex As Exception
            Eingabe = Nothing
        End Try
 
        If Eingabe = Nothing Then
            MessageBox.Show("Keine gültige Zahl eingegeben")
        End If
        Dim gefundenKunden = FindeDenKunden.KundenFinden(Eingabe)
        lblFrmMainKundenTeleNr.Text = gefundenKunden.Telefon
    End Sub
End Class

'Verweis Microsoft.VisualBasic entfernt
Option Strict On
Option Explicit On
 
Imports System.IO
Imports System.Reflection
Imports DateSetBsp.DataSet1
 
Public Class frmKundenBearbeiten
 
    Private _kundendaten As New FileInfo("Kundendaten.xml")
 
    Private Sub frmKundenBearbeiten_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
 
    '##### MenuStrip #####
    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles BeendenToolStripMenuItem.Click
        Speichern()
        Me.Close()
    End Sub
 
    Private Sub frmKundenBearbeiten_FormClosing(sender As Object, e As _
      FormClosingEventArgs) Handles Me.FormClosing
        Speichern()
    End Sub
 
    Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles SpeichernToolStripMenuItem.Click
        Speichern()
    End Sub
    '##### MenuStrip #####
 
    Private Sub Speichern()
        Me.Validate()
        Me.DataSet1.AcceptChanges()
        If _kundendaten.Exists Then
            _kundendaten.Delete()
        End If
        Me.DataSet1.WriteXml(_kundendaten.FullName)
    End Sub
 
    Private Sub KundendatenLaden()
        If _kundendaten.Exists Then
            Me.DataSet1.ReadXml(_kundendaten.FullName)
        Else
            MessageBox.Show("Ich finde dein XML File nicht")
        End If
    End Sub
 
    '### Testweise Methoden in der Form ###
    'Im zweiten Schritt Funktionen in die Class1 auslagern
    Public Function KundenFinden(ByRef Kundennummer As Integer) As KundeRow
        Dim gefundenerKunde = DataSet1.Kunde.FindByKundennummer(Kundennummer)
        Return gefundenerKunde
    End Function
 
    'Überprüfung der Funktionalität (in dieser Form wird die Telefonnummer 
    ' ausgegeben)
    Public Sub Prüfung()
        Dim ausgabe = KundenFinden(1)
        Dim teKundenName = ausgabe.Telefon
    End Sub
End Class