#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Global $Ini = @ScriptDir & "\Noten.ini"
Global $Faecher[4] = ["Deutsch", "Mathe", "English", "Bio"]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Notenmanager 2011 Professional", 625, 443, 189, 122)
$Button1 = GUICtrlCreateButton("Exit", 16, 400, 113, 25, 0)
$Button2 = GUICtrlCreateButton("Info", 528, 400, 81, 25, 0)
$Label1 = GUICtrlCreateLabel("Herzlich Willkommen beim Notenmanager 2011!", 8, 8, 230, 17)
$Button3 = GUICtrlCreateButton("Noten abfragen", 8, 40, 161, 25, 0)
$Button4 = GUICtrlCreateButton("Neuen Schüler eintragen", 8, 72, 161, 25, 0)
$Button5 = GUICtrlCreateButton("Datenbank leeren", 8, 104, 163, 25, 0)
$Button6 = GUICtrlCreateButton("Anmeldung", 224, 400, 201, 25, 0)
$Button7 = GUICtrlCreateButton("Anmerkungen", 8, 136, 161, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE, $Button1
			Exit

		Case $Button6, $Button7
			MsgBox(64, "Info", "Noch in Entwicklung")

		Case $Button5
			If MsgBox(16 + 4, "NotenManager 2011 Professional", "Datenbank wirklich leeren?") == 6 Then
				FileDelete($Ini)
			EndIf

		Case $Button4 ;Neuer Schüler
			$Name = InputBox("NotenManager 2011 Professional", "Name des neuen Schülers?", "", " M", 210, 150)
			If @error Then ContinueLoop

			For $X = 0 To UBound($Faecher) - 1
				$Note = InputBox("NotenManager 2011 Professional", "Note in dem Fach '" & $Faecher[$X] & "'", "", " M", 210, 150)
				IniWrite($Ini, $Name, $Faecher[$X], $Note)
			Next


		Case $Button3 ;Noten abfragen
			$Schueler = InputBox("NotenManager 2011 Professional", "Die Noten welches Schülers sollen angezeigt werden?", "", " M", 210, 150)
			If @error Then ContinueLoop

			$Noten = IniReadSection($Ini, $Schueler)
			If Not IsArray($Noten) Then MsgBox(16, "NotenManager", StringFormat("Der Schüler '%s' existiert nicht!", $Schueler))

			_ArrayDisplay($Noten, "Noten")

	EndSwitch
WEnd