Hallo,
da meine kleine Schwester gerne Arzt mit ihren Plüschtieren spielt habe ich mir gedacht ich mach ihr ein Programm, indem sie ihre "Patienten" verwalten kann. Doch jetzt komme ich nicht so weiter. Das mit dem Anzeigen der Patienten klappt zwar, aber ich will auch eine Funktion zum löschen der Patienten machen, doch da weiß ich nicht so weiter. Eine Sortierung der Patienten wäre natürlich auch gut. Wie würde das alles einfacher gehen? Hier mal das Script.
Spoiler anzeigen
#include
#include #include #include #include #include
$PatientenAnzahl = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Allgemein","Patienten","0")
$AktuelleAnzahl = 0
Dim $ID
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1017, 736, 267, 139)
$PageControl1 = GUICtrlCreateTab(8, 56, 1007, 707)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Patienten")
$Listview1 = GUICtrlCreateListView("Vorname|Nachname|Geburtsdatum|PLZ / Wohnort| Straße",24, 152, 969, 552)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$TabSheet2 = GUICtrlCreateTabItem("Neuer Patient")
$Label1 = GUICtrlCreateLabel("Vorname:", 28, 105, 73, 24)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Nachname:", 28, 137, 85, 24)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 110, 105, 161, 22)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 110, 137, 161, 22)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Geburtsdatum:", 28, 169, 111, 24)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("DD.MM.YYYY", 110, 169, 161, 22)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("PLZ / Wohnort:", 28, 201, 106, 24)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 110, 201, 161, 22)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Straße:", 28, 233, 57, 24)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Input5 = GUICtrlCreateInput("", 110, 233, 161, 22)
GUICtrlSetFont(-1,8, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Neuen Patienten speichern", 110, 272, 161, 30, 0)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$TabSheet3 = GUICtrlCreateTabItem("Termine")
GUICtrlCreateTabItem("")
#EndRegion ### END Koda GUI section ###
$Anzahl = 0
While 1
$anzahl = $anzahl + 1
$Vorname = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Vorname","Nix")
$Nachname = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Nachname","Nix")
$Geburtsdatum = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Geburtsdatum","Nix")
$PLZWohnort = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"PLZ / Wohnort","Nix")
$Strasse = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Straße","Nix")
If $Vorname = "Nix" then ExitLoop
If $Nachname = "Nix" then ExitLoop
If $Geburtsdatum = "Nix" then ExitLoop
If $PLZWohnort = "Nix" then ExitLoop
If $Strasse = "Nix" then ExitLoop
Assign("Patient" & $anzahl,GUICtrlCreateListViewItem($Vorname & "|" & $Nachname & "|" & $geburtsdatum & "|" & $plzwohnort & "|" & $strasse,$listview1) )
WEnd
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $PageControl1
If GUICtrlread ($Pagecontrol1) = 0 then
ElseIf GUICtrlread ($Pagecontrol1) = 1 then
$PatientenAnzahl = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Allgemein","Patienten","0")
ElseIf GUICtrlread ($Pagecontrol1) = 2 then
[/autoit] [autoit][/autoit] [autoit]EndIf
Case $Button1
$PatientenAnzahl = $PatientenAnzahl + 1
$Vorname = GUICtrlRead($Input1)
$Nachname = GUICtrlRead($Input2)
$Geburtsdatum = GUICtrlRead($Input3)
$PLZWohnort = GUICtrlRead($Input4)
$Strasse = GUICtrlRead($Input5)
IniWrite(@ScriptDir & "\Patienten\Patienten.ini","Allgemein","Patienten",$PatientenAnzahl)
IniWrite(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $PatientenAnzahl,"Vorname",$Vorname)
IniWrite(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $PatientenAnzahl,"Nachname",$Nachname)
IniWrite(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $PatientenAnzahl,"Geburtsdatum",$Geburtsdatum)
IniWrite(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $PatientenAnzahl,"PLZ / Wohnort",$PLZWohnort)
IniWrite(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $PatientenAnzahl,"Straße",$Strasse)
$PatientenAnzahl = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Allgemein","Patienten","0")
GUICtrlSetData($Input1,"")
GUICtrlSetData($Input2,"")
GUICtrlSetData($Input3,"DD.MM.YYYY")
GUICtrlSetData($Input4,"")
GUICtrlSetData($Input5,"")
_GUICtrlListView_DeleteAllItems($listview1)
$Anzahl = 0
While 1
$anzahl = $anzahl + 1
$Vorname = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Vorname","Nix")
$Nachname = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Nachname","Nix")
$Geburtsdatum = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Geburtsdatum","Nix")
$PLZWohnort = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"PLZ / Wohnort","Nix")
$Strasse = IniRead(@ScriptDir & "\Patienten\Patienten.ini","Patient " & $anzahl,"Straße","Nix")
If $Vorname = "Nix" then ExitLoop
If $Nachname = "Nix" then ExitLoop
If $Geburtsdatum = "Nix" then ExitLoop
If $PLZWohnort = "Nix" then ExitLoop
If $Strasse = "Nix" then ExitLoop
Assign("Patient" & $anzahl,GUICtrlCreateListViewItem($Vorname & "|" & $Nachname & "|" & $geburtsdatum & "|" & $plzwohnort & "|" & $strasse,$listview1) )
WEnd
EndSwitch
WEnd
Schonmal im Voraus, Danke!