VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Provisionsberechnung"
   ClientHeight    =   6885
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10590
   LinkTopic       =   "Form1"
   ScaleHeight     =   6885
   ScaleWidth      =   10590
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton bsEnde 
      Caption         =   "Ende"
      Height          =   495
      Left            =   8040
      TabIndex        =   19
      Top             =   5880
      Width           =   1935
   End
   Begin VB.CommandButton bsDrucken 
      Caption         =   "Drucken"
      Height          =   495
      Left            =   5520
      TabIndex        =   18
      Top             =   5880
      Width           =   2055
   End
   Begin VB.CommandButton bsLoeschen 
      Caption         =   "Löschen"
      Height          =   495
      Left            =   3120
      TabIndex        =   17
      Top             =   5880
      Width           =   1935
   End
   Begin VB.CommandButton bsBerechnen 
      Caption         =   "Berechnen"
      Height          =   495
      Left            =   840
      TabIndex        =   16
      Top             =   5880
      Width           =   1935
   End
   Begin VB.TextBox tfUmsatz 
      Height          =   495
      Left            =   2880
      TabIndex        =   10
      Top             =   3840
      Width           =   2055
   End
   Begin VB.TextBox tfPS 
      Enabled         =   0   'False
      Height          =   495
      Left            =   6360
      TabIndex        =   8
      Top             =   2160
      Width           =   2175
   End
   Begin VB.TextBox tfName 
      Enabled         =   0   'False
      Height          =   495
      Left            =   3480
      TabIndex        =   6
      Top             =   2160
      Width           =   1935
   End
   Begin VB.TextBox tfVorname 
      Enabled         =   0   'False
      Height          =   495
      Left            =   600
      TabIndex        =   4
      Top             =   2160
      Width           =   1935
   End
   Begin VB.TextBox tfVertrNr 
      Height          =   495
      Left            =   3480
      TabIndex        =   2
      Top             =   720
      Width           =   1935
   End
   Begin VB.TextBox tfMonat 
      Height          =   495
      Left            =   600
      TabIndex        =   0
      Top             =   720
      Width           =   1935
   End
   Begin VB.TextBox tfProvision 
      Enabled         =   0   'False
      Height          =   495
      Left            =   2880
      TabIndex        =   13
      Top             =   4560
      Width           =   2055
   End
   Begin VB.Label Label10 
      Caption         =   "%"
      Height          =   375
      Left            =   8640
      TabIndex        =   20
      Top             =   2280
      Width           =   495
   End
   Begin VB.Label Label9 
      Caption         =   "€"
      Height          =   375
      Left            =   5160
      TabIndex        =   15
      Top             =   4680
      Width           =   735
   End
   Begin VB.Label Label8 
      Caption         =   "Provision:"
      Height          =   375
      Left            =   840
      TabIndex        =   14
      Top             =   4680
      Width           =   2055
   End
   Begin VB.Label Label7 
      Caption         =   "€"
      Height          =   375
      Left            =   5160
      TabIndex        =   12
      Top             =   3960
      Width           =   735
   End
   Begin VB.Label Label6 
      Caption         =   "Umsatz:"
      Height          =   375
      Left            =   840
      TabIndex        =   11
      Top             =   3960
      Width           =   1935
   End
   Begin VB.Label Label5 
      Caption         =   "Provisionssatz"
      Height          =   375
      Left            =   6360
      TabIndex        =   9
      Top             =   1800
      Width           =   2175
   End
   Begin VB.Label Label4 
      Caption         =   "Name"
      Height          =   375
      Left            =   3480
      TabIndex        =   7
      Top             =   1800
      Width           =   1935
   End
   Begin VB.Label Label3 
      Caption         =   "Vorname"
      Height          =   375
      Left            =   600
      TabIndex        =   5
      Top             =   1800
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "VertreterNummer"
      Height          =   375
      Left            =   3480
      TabIndex        =   3
      Top             =   360
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "Monat"
      Height          =   375
      Left            =   600
      TabIndex        =   1
      Top             =   360
      Width           =   1935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim mdbHandy As Database
Dim tbVertreter As Recordset

Dim mPS As Single
Dim mUmsatz As Single
Dim mProvision As Single


Private Sub Form_Load()
    Form1.Show
    
    'Datenbank öffnen
    Set mdbHandy = OpenDatabase(App.Path + "\Handy.mdb")
    
    'Recordset öffnen, welches ganze Tabelle VERTRETER enthält
    Set tbVertreter = mdbHandy.OpenRecordset("VERTRETER", dbOpenTable)
    
End Sub

Private Sub tfMonat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 _
    Then
        'Zum Feld VertreterNummer springen
        tfVertrNr.SetFocus
    End If
End Sub

Private Sub tfVertrNr_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 _
    Then
        przVertreterAnzeigen
        
        'Zum Feld Umsatz springen
        tfUmsatz.SetFocus
    End If
End Sub

Private Sub tfUmsatz_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 _
    Then
        'Zur Befehlsschaltfläche Berechnen springen
        bsBerechnen.SetFocus
    End If
End Sub

Private Sub przVertreterAnzeigen()
    'Einstellen, dass ab sofort über den Primärschlüssel gesucht wird
    tbVertreter.Index = "PrimaryKey"
        
    'Zum Datensatz mit der eigegebenen VertreterNummer springen
    tbVertreter.Seek "=", tfVertrNr.Text
        
    'Vorname, Name und Provisionssatz aus der Datenbank nehmen und in die Textfelder eintragen
    tfVorname = tbVertreter!Vorname
    tfName = tbVertreter!Name
    tfPS = tbVertreter!ProvSatz
End Sub

Private Sub bsBerechnen_Click()
    przDatenuebernahme
    przBerechnen
    przDatenuebergabe
    bsLoeschen.SetFocus
End Sub

Private Sub przDatenuebernahme()
    'Eingaben aus dem Formular in den Hauptspeicher übertragen
    mPS = CSng(tfPS.Text)
    mUmsatz = CSng(tfUmsatz.Text)
End Sub

Private Sub przBerechnen()
    'Provision im Hauptspeicher berechnen
    mProvision = mUmsatz * mPS / 100
End Sub

Private Sub przDatenuebergabe()
    'Ergebnis in das Formular uebertragen
    tfProvision = CStr(mProvision)
End Sub

Private Sub bsLoeschen_Click()
    'Alle Textfelder leeren
    tfMonat.Text = ""
    tfVertrNr = ""
    tfVorname = ""
    tfName = ""
    tfPS = ""
    tfUmsatz = ""
    tfProvision = ""
    
    'In Textfeld Monat springen
    tfMonat.SetFocus
End Sub

Private Sub bsDrucken_Click()
    'Kommt noch...
End Sub

Private Sub bsEnde_Click()
    'Recordset schließen
    tbVertreter.Close
    
    'Datenbank schließen
    mdbHandy.Close
    
    'Programm beenden
    End
End Sub