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)
      If gefundenKunden Is Nothing Then
         MessageBox.Show("Kein Kunden gefunden")
      Else
         lblFrmMainKundenTeleNr.Text = gefundenKunden.Telefon
      End If
   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

Imports System.IO
 
Public Class Form1
 
   Private _kundendaten As New FileInfo("Kundendaten.xml")
 
   Sub New()
      InitializeComponent()
      Me.AlignOnTop()
      DataSet1.DataFile(_kundendaten.FullName).Register(Me, True).Fill()
   End Sub
 
   Private Sub KundenEingebenToolStripMenuItem_Click(sender As Object, e As _
     EventArgs) Handles KundenEingebenToolStripMenuItem.Click
      frmKundenBearbeiten.Show(Me)
   End Sub
 
   Private Sub cmdFindPhoneNr_Click(sender As Object, e As EventArgs) Handles _
     cmdFindPhoneNr.Click
      Dim Eingabe = 0
      If Integer.TryParse(txtFrmMainKundennummer.Text, Eingabe) Then
         Dim rwKunde = DataSet1.Kunde.FindByKundennummer(Eingabe)
         If rwKunde.NotNull Then
            lblFrmMainKundenTeleNr.Text = rwKunde.Telefon
            Return
         End If
      End If
      MessageBox.Show("Keine gültige Zahl eingegeben oder Kein Kunden gefunden")
   End Sub
 
End Class

Public Class frmKundenBearbeiten
 
   Sub New()
      InitializeComponent()
      Me.AlignOnTop()
      DataSet1.Register(Me, False)
   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)
   End Sub
 
End Class

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 24.06.14 um 14:23:05 editiert.