Buchverwaltungsprogramm

#include <GUIConstants.au3>
GUICreate("xx - Bücherwächter Writer", 349, 386, 197, 115)
$Buchname2 = GUICtrlCreateLabel("Name des Buches", 16, 168, 91, 17)
$BuchnameInput1 = GUICtrlCreateInput("", 16, 64, 321, 21)
$Buecherzahl1 = GUICtrlCreateLabel("Anzahl der Bücher", 16, 88, 91, 17)
$BuecherzahlInput1 = GUICtrlCreateInput("", 16, 112, 321, 21)
$BuecherAufstocken = GUICtrlCreateLabel("Zusätzliche Bücher", 16, 8, 155, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
$NeueBuecher = GUICtrlCreateLabel("Neue Bücher", 16, 144, 107, 26)
GUICtrlSetFont(-1, 15, 400, 0, "Times New Roman")
$Buchname1 = GUICtrlCreateLabel("Name des Buches", 16, 40, 91, 17)
$BuchnameInput2 = GUICtrlCreateInput("", 16, 192, 321, 21)
$Buecherzahl2 = GUICtrlCreateLabel("Anzahl der Bücher", 16, 216, 91, 17)
$BuecherzahlInput2 = GUICtrlCreateInput("", 16, 240, 321, 21)
$Zusaetzlich = GUICtrlCreateButton("Zusätzliche Bücher", 8, 270, 161, 105, 0)
$Neu = GUICtrlCreateButton("Neue Bücher", 176, 270, 161, 105, 0)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Neu
$AktuelleNummer=IniRead("Normal.ini", "Aktuelle Nummer", "Aktuell", "1")
IniWrite("Normal.ini", "Aktuelle Nummer", "Aktuell", $AktuelleNummer+1)
IniWrite("Normal.ini", "BücherzahlGesamt", $AktuelleNummer, $BuecherzahlInput2)
IniWrite("Normal.ini", "Bücherkennung", $BuchnameInput2, $AktuelleNummer)
Exit
Case $Zusaetzlich
$Buecherkennung=IniRead("Normal.ini", "Bücherkennung", $BuchnameInput1, "0")
If $Buecherkennung=0 Then
MsgBox(0, "Error", "Error - bitte wenden sie sich an den Hersteller und beziehen sie sie auf den internen Fehlercode 1")
Else
$BisherigeNummerderBuecher=IniRead("Normal.ini", "BücherzahlGesamt", $Buecherkennung, "0")
$NeueNummerderBuecher=$BisherigeNummerderBuecher+$BuecherzahlInput1
IniWrite("Normal.ini", "BücherzahlGesamt", $Buecherkennung, $NeueNummerderBuecher)
EndIf
Exit

EndSwitch
WEnd